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

Lemma clausify_succ : 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).