Module SPredLems := SPredLemmas VSM. Import SPredLems.
Proof with simpl; auto.
induction atms... intros s [H1 H2]. split...
Qed.

Theorem cnf_correct2 : forall (e : entailment),
(forall s, ~ list_denote clause_denote (@andp state) TT (cnf e) s) ->
entailment_denote e.