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


DEBUG:Going to execute:
intro y; split; intro Hy; apply VSet.union_spec