Module VSM := VSM.Module SPredLems := SPredLemmas VSM.

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).