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