(* Lemma agree_except_sym: forall x s s', agree_except x s s' -> agree_except x s' s. *)

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