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

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