Goal:
    A : Type  B : Type  f : A → B  p : B → bool
  ============================
   (true = true)


DEBUG:Going to execute:
<Coq.Init.Tauto.is_unit_or_eq> flags X1; Ltac.cut X2