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