Goal:
    s : VSet.t  x : VSet.elt  H : ~ VSet.In x s
  ============================
   (DisjointAdd x s (VSet.add x s))


DEBUG:Going to execute:
split