crash.lean:8:12: error: type mismatch at application
  have H' : not P, from H,
  ?M_1 P H
term
  H
is expected of type
  not P
but is given type
  P