Goal:
    A : Type  f : A -> bool  RA : ReflectEq A  y : A  hy : f y = true
  ============================
   (exist (fun z : A => f z = true) y hy =
    exist (fun z : A => f z = true) y hy)


DEBUG:Going to execute:
reflexivity