Goal:
  
  G : t
  HI : invariants
  A : Prop
  B : Prop
  b : B
  H0 : A -> B
  H : A
  H1 : B
  ============================
   A


DEBUG:Going to execute:
<coq-core.plugins.ltac::clear@0> $1