Goal:
    A : Type  R : A -> A -> Type  x : A  y : A  r : R x y
  ============================
   (clos_refl_trans R x y)


DEBUG:Going to execute:
econstructor; eauto