Definition set_in_state nextv z s := State (env_set nextv z (stk s)) (hp s).

Lemma list_denote_space_agree: forall pos s nextv z, fresh (freshmax_list freshmax_space_atom) pos nextv -> list_denote space_atom_denote (@sepcon _ _) emp pos s -> list_denote space_atom_denote (@sepcon _ _) emp pos (set_in_state nextv z s).