Goal:
  
  A : Type
  B : Type
  R : relation B
  S : relation (A * B)
  a : A
  X : forall x y : B, R x y -> S (a, x) (a, y)
  x : B
  y : B
  r : R x y
  ============================
   (clos_refl_trans S (a, x) (a, y))


DEBUG:Going to execute:
econstructor; eauto