case hsingle.hcons => simp only [List.singleton_append, ne_eq, not_false_eq_true, List.disj'_cons_nonempty, List.disj'_singleton, iff_id!];
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✝³ a✝² : F
as✝ : List F
a✝¹ : as✝ ≠ []
a✝ : 𝓢 ⊢! ([a✝³] ++ as✝).disj' ⟷ [a✝³].disj' ⋎ as✝.disj'
⊢ 𝓢 ⊢! ([a✝³] ++ a✝² :: as✝).disj' ⟷ [a✝³].disj' ⋎ (a✝² :: as✝).disj'
no goals