Goal:
    G : t  s : VSet.t  s' : VSet.t  x : V.t  y : V.t
  ============================
   (VSet.Subset s s' -> SPath s x y -> SPath s' x y)


DEBUG:Going to execute:
intros Hs p; revert s' Hs