Goal:
  
  A : Type
  R : relation A
  S : relation A
  incls : inclusion R S
  x : A
  y : A
  r : R x y
  ============================
   (clos_refl_trans S x y)


DEBUG:Going to execute:
econstructor