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

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