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

Lemma mk_pureR_denote1: 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).