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


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