(*
 Lemma agree_except_sym:
  forall x s s', agree_except x s s' -> agree_except x s' s.
 Proof.
 unfold agree_except; intuition. symmetry. apply H0; auto.
 Qed.
*)

Axiom env_reset2: forall s x z, env_set x (env_get s x) (env_set x z 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).