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_single_pureneg : forall purea,
list_denote (neg oo pure_atom_denote) (@andp state) TT (purea :: nil) =
clause_denote (mkPureClause (order_eqv_pure_atom purea :: nil) nil).