Goal:
    P : Type  H : P -> false  X : false -> P
  ============================
   (P -> False)


DEBUG:Going to execute:
intros p