subst hq
case mpr.eaxm.inr.intro
α : Type u
inst✝ : DecidableEq α
𝓓 : DeductionParameter α
p p✝ : Formula α
d : 𝐂𝐥 ⊢! p✝
hLEM : ∃ p, Axioms.LEM p = p✝
q : Formula α
hq : Axioms.LEM q = p✝
⊢ 𝐈𝐧𝐭 ⊢! ~~p✝
case mpr.eaxm.inr.intro
α : Type u
inst✝ : DecidableEq α
𝓓 : DeductionParameter α
p q : Formula α
d : 𝐂𝐥 ⊢! Axioms.LEM q
hLEM : ∃ p, Axioms.LEM p = Axioms.LEM q
⊢ 𝐈𝐧𝐭 ⊢! ~~Axioms.LEM q