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

Lemma clausify_pureneg : forall l : list pure_atom, list_denote (neg oo pure_atom_denote) (@andp state) TT l = list_denote clause_denote (@andp state) TT (map (fun a => mkPureClause (order_eqv_pure_atom a::nil) nil) l).