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


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