Module SPredLems := SPredLemmas VSM. Import SPredLems.

Lemma mk_pureR_denote: forall pnatoms purepos pureneg P s,
mk_pureR pnatoms = (purepos, pureneg) ->
listd pn_atom_denote inter P pnatoms s =
(listd pure_atom_denote inter P purepos s /\
~listd pure_atom_denote (@orp state) FF pureneg s).