Goal:
  
  G : t
  s0 : VSet.t
  s1 : VSet.t
  s2 : VSet.t
  x : VSet.elt
  Hs : VSet.Equal (VSet.union s0 (VSet.add x s1)) s2
  ============================
   (VSet.Equal (VSet.union s0 (VSet.add x s1))
      (VSet.add x (VSet.union s0 s1)))


DEBUG:Going to execute:
etransitivity