Goal:
    x : V.t  s1 : VSet.t  s2 : VSet.t
  ============================
   (DisjointAdd x s1 s2 -> VSet.In x s2)


DEBUG:Going to execute:
move  =>[h _]; apply /h