Goal:
  
  G : t
  HI : invariants
  A : Prop
  B : Prop
  H : A <-> B
  n : ~ B
  H0 : A
  H1 : A -> B
  ============================
   ((B -> A) -> False)


DEBUG:Going to execute:
<coq-core.plugins.ltac::intro@0>