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