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


DEBUG:Going to execute:
induction 1

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

  
  A : Type
  R : A -> A -> Type
  x : A
  y : A
  z : A
  X1 : trans_clos R x y
  X2 : trans_clos R y z
  IHX1 : clos_refl_trans R x y
  IHX2 : clos_refl_trans R y z
  ============================
   (clos_refl_trans R x z)


DEBUG:Going to execute:
try (solve [ econstructor; eauto ])