Goal:
  
  s0 : VSet.t
  s' : VSet.t
  x : V.t
  d : ~ VSet.In x s0
  a : VSet.elt
  Ha : VSet.In a s0
  H : VSet.E.eq a x
  ============================
   (VSet.In x s0)


DEBUG:Going to execute:
red in H