exact implyRightAnd! imp_id! (ih he₂)
case hcons
F : Type u_1
inst✝⁴ : LogicalConnective F
inst✝³ : DecidableEq F
S : Type u_2
inst✝² : System F S
𝓢 : S
inst✝¹ : Minimal 𝓢
q r✝ : F
Γ✝ Δ : List F
inst✝ : System.NegationEquiv 𝓢
r : F
Γ : List F
h : Γ ≠ []
ih : (∀ g ∈ Γ, g = r) → 𝓢 ⊢! r ⟶ Γ.conj'
he : r = r ∧ ∀ a ∈ Γ, a = r
he₂ : ∀ a ∈ Γ, a = r
⊢ 𝓢 ⊢! r ⟶ r ⋏ Γ.conj'
no goals