simp_all only [List.mem_singleton, forall_eq, List.conj'_singleton, imp_id!]
case hsingle
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
Γ Δ : List F
inst✝ : System.NegationEquiv 𝓢
a✝ : F
he : ∀ g ∈ [a✝], g = p
⊢ 𝓢 ⊢! p ⟶ [a✝].conj'
no goals