obtain ⟨_, e⟩ := hFour
case hMaxm.inr
α : Type u_1
inst✝ : DecidableEq α
p p✝ : Formula α
hFour : p✝ ∈ 𝟰
⊢ 𝐊𝟒(𝐇) ⊢! p✝
case hMaxm.inr.intro
α : Type u_1
inst✝ : DecidableEq α
p p✝ w✝ : Formula α
e : Axioms.Four w✝ = p✝
⊢ 𝐊𝟒(𝐇) ⊢! p✝