have ⟨WS, M, w, h⟩ := modelExistence X_is_consistent
case mp.mk.mk
L R : List Formula
O : Option (NegLoadFormula ⊕ NegLoadFormula)
X_is_consistent : consistent (L, R, O)
⊢ satisfiable (L, R, O)
case mp.mk.mk
L R : List Formula
O : Option (NegLoadFormula ⊕ NegLoadFormula)
X_is_consistent : consistent (L, R, O)
WS : Finset (Finset Formula)
M : ModelGraph WS
w : { x // x ∈ WS }
h : TNode.toFinset (L, R, O) ⊆ ↑w
⊢ satisfiable (L, R, O)