Goal:
  
  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:
econstructor