exact ⟨toDisjconseq this h⟩
case intro.mk
F : Type u_1
inst✝³ : LogicalConnective F
inst✝² : Gentzen F
inst✝¹ : Cut F
Γ Δ✝ E : List F
S : Type u_2
inst✝ : Collection F S
𝓣 : S
Δ : List F
h : ∀ p ∈ Δ, p ∈ 𝓣
d : Δ ⊢² [⊥]
this : Δ ⊢² []
⊢ Nonempty (𝓣 ⊢' [])
no goals