have : v ⊧ p := by simpa[hv] using ihp
case neg
α : Type u_1
Δ✝ : Sequent α
v : Valuation α
Δ : List (Formula α)
p : Formula α
a✝¹ : Derivation (p :: Δ)
a✝ : Derivation (~p :: Δ)
ihp : v ⊧ (p :: Δ).disj
ihn : v ⊧ (~p :: Δ).disj
hv : ¬v ⊧ Δ.disj
⊢ v ⊧ Δ.disj
case neg
α : Type u_1
Δ✝ : Sequent α
v : Valuation α
Δ : List (Formula α)
p : Formula α
a✝¹ : Derivation (p :: Δ)
a✝ : Derivation (~p :: Δ)
ihp : v ⊧ (p :: Δ).disj
ihn : v ⊧ (~p :: Δ).disj
hv : ¬v ⊧ Δ.disj
this : v ⊧ p
⊢ v ⊧ Δ.disj