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


DEBUG:Going to execute:
<Coq.Init.Tauto.is_disj> flags X1; elim id; intro