End CLAUSIFY_SOUND.
Module Clausify_Sound (VSM : VERISTAR_MODEL) : CLAUSIFY_SOUND
with Module VSM := VSM.
Module VSM := VSM.
Module SPredLems := SPredLemmas VSM. Import SPredLems.

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