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

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.