End CLAUSIFY_SOUND.
Module Clausify_Sound (VSM : VERISTAR_MODEL) : CLAUSIFY_SOUND
with Module VSM := VSM.
Module VSM := VSM.
Module SPredLems := SPredLemmas VSM. Import SPredLems.

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