Module SPredLems := SPredLemmas VSM. Import SPredLems.

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