simp at *
case intro.intro.intro
X : Finset Formula
l : List Formula
W : Type
M : KripkeModel W
w : W
sat : ∀ φ ∈ X ∪ {bigCon (List.map (fun x => ~x) l)}, Evaluate (M, w) φ
⊢ ∀ φ ∈ l, Satisfiable (X ∪ {~φ})
case intro.intro.intro
X : Finset Formula
l : List Formula
W : Type
M : KripkeModel W
w : W
sat : (∀ a ∈ l, ¬Evaluate (M, w) a) ∧ ∀ a ∈ X, Evaluate (M, w) a
⊢ ∀ φ ∈ l, ∃ W M w, ¬Evaluate (M, w) φ ∧ ∀ a ∈ X, Evaluate (M, w) a