Goal:
    x : V.t  s : VSet.t
  ============================
   (DisjointAdd x (VSet.remove x s) (VSet.add x s))


DEBUG:Going to execute:
split; [ intro |  ]
DEBUG LTAC Evaluated term: H