Goal:
    G : t  HI : invariants  A : Prop  B : Prop  H : A <-> B  b : B
  ============================
   ((A -> B) -> (B -> A) -> A)


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