Module SPredLems := SPredLemmas VSM. Import SPredLems.

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