Goal:
  
  A : Type
  R : relation A
  S : relation A
  incls : inclusion R S
  x : A
  y : A
  z : A
  X1 : clos_refl_trans R x y
  X2 : clos_refl_trans R y z
  IHX1 : clos_refl_trans S x y
  IHX2 : clos_refl_trans S y z
  ============================
   (clos_refl_trans S x z)


DEBUG:Going to execute:
econstructor