have l₁ : ~f ∈ p.val.val := (Set.mem_interₛ.mp h₁ p) ⟨p.property, h₂, p.val.property⟩
t : Th
f : Form
h₁ : ~f ∈ ⋂₀ { p | isPrimeTheory p ∧ ↑t ≤ p ∧ formalTheory p }
p : Model.primes
h₂ : t ≤ ↑p
h₃ : ↑(p*)⊨f
⊢ False
t : Th
f : Form
h₁ : ~f ∈ ⋂₀ { p | isPrimeTheory p ∧ ↑t ≤ p ∧ formalTheory p }
p : Model.primes
h₂ : t ≤ ↑p
h₃ : ↑(p*)⊨f
l₁ : ~f ∈ ↑↑p
⊢ False