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

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.