intros.
simpl.
rewrite (space_denote_permute _ _ H).
trivial.
Qed.

Lemma isolate'_sound:
forall e pnatoms sigma nextv nextv2 results
(LT: Ident.lt nextv nextv2),
isolate' e pnatoms nil sigma nextv 0 = Some results ->
fresh freshmax_expr e nextv ->
fresh freshmax_assertion (Assertion pnatoms sigma) nextv ->
assertion_denote (Assertion pnatoms sigma) |--
fold_right (fun P => orp (existsv nextv (assertion_denote P))) FF results /\
(forall Q, In Q results ->
match Q with
|Assertion _ (Next e0 _ :: _) => e=e0
| _ => False
end /\
fresh freshmax_assertion Q nextv2).