Goal:
    G : t
  ============================
   (forall (s s' : VSet.t) (x y z : V.t),
    SPath s x y ->
    forall (t : VSet.t) (t0 : V.t),
    Disjoint t s' -> SPath s' t0 z -> VSet.Subset s' (VSet.union t s'))


DEBUG:Going to execute:
Tactics.program_simplify; try typeclasses eauto  10 with program;
            try Tactics.program_solve_wf