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

Lemma list_denote__pn_atom_agree: forall pos s nextv z, fresh (freshmax_list freshmax_pn_atom) pos nextv -> list_denote pn_atom_denote (@andp _) TT pos s -> list_denote pn_atom_denote (@andp _) TT pos (set_in_state nextv z s).