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 pure_atom_list_neg2 : forall (l: list pure_atom) s,
(~(list_denote pure_atom_denote (@orp state) FF l s)) =
list_denote (neg oo pure_atom_denote) (@andp state) TT l s.