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 mk_pureL_clause_denoteInv: forall pi P s,
listd pn_atom_denote inter P pi s ->
listd clause_denote inter P (map mk_pureL pi) s.