Goal:
    A : Type  B : Type  p : A -> B -> bool  x : A  y : B
  ============================
   (reflectT (p x y) (p x y))


DEBUG:Going to execute:
apply equiv_reflectT