Module SPredLems := SPredLemmas VSM. Import SPredLems.

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