simp
case h₁
F : Type u_1
inst✝⁵ : LogicalConnective F
inst✝⁴ : DecidableEq F
S : Type u_2
inst✝³ : System F S
𝓢 : S
inst✝² : Minimal 𝓢
p q r : F
inst✝¹ : System.NegationEquiv 𝓢
inst✝ : HasEFQ 𝓢
a✝² : F
as✝ : List F
a✝¹ : as✝ ≠ []
a✝ : ∀ {Δ : List F}, 𝓢 ⊢! (as✝ ++ Δ).disj' ⟷ as✝.disj' ⋎ Δ.disj'
⊢ 𝓢 ⊢! (a✝² :: as✝).disj' ⟶ (a✝² :: as✝).disj' ⋎ ⊥
no goals