Goal:
  
  s : VSet.t
  s'' : VSet.t
  x : V.t
  hin : ~ VSet.In x s
  H : ~ VSet.In x s''
  ============================
   (~ VSet.In x (VSet.union s s''))


DEBUG:Going to execute:
repeat
            match goal with
            | H:?T
              |- _ =>
                  progress change T with V.t in H;
                   repeat
                    match goal with
                    | J:_ |- _ => progress change T with V.t in J
                    | |- _ => progress change T with V.t
                    end
            | H:forall x : ?T, _
              |- _ =>
                  progress change T with V.t in H;
                   repeat
                    match goal with
                    | J:_ |- _ => progress change T with V.t in J
                    | |- _ => progress change T with V.t
                    end
            end