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


DEBUG:Going to execute:
induction 1

Goals:
  
  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)

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

  
  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:
solve [ econstructor; eauto ]