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).