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 clausify_succClassic : forall pnatoms (purepos pureneg : list pure_atom)
(space : list space_atom) (s : state)
(Hyp: mk_pureR pnatoms = (purepos, pureneg)),
(assertion_denote (Assertion pnatoms space) s) =
(~clause_denote (NegSpaceClause purepos space pureneg) s).