simp only [GoedelTranslation.imp_def, GoedelTranslation.or_def]
case disj₁
α : Type u_1
inst✝² : DecidableEq α
inst✝¹ : Inhabited α
inst✝ : Encodable α
i𝓓 : Superintuitionistic.DeductionParameter α
m𝓓 : DeductionParameter α
p q r p✝ q✝ : Superintuitionistic.Formula α
h : 𝐈𝐧𝐭 ⊢! p✝ ⟶ p✝ ⋎ q✝
⊢ 𝐒𝟒 ⊢! (p✝ ⟶ p✝ ⋎ q✝)ᵍ
case disj₁
α : Type u_1
inst✝² : DecidableEq α
inst✝¹ : Inhabited α
inst✝ : Encodable α
i𝓓 : Superintuitionistic.DeductionParameter α
m𝓓 : DeductionParameter α
p q r p✝ q✝ : Superintuitionistic.Formula α
h : 𝐈𝐧𝐭 ⊢! p✝ ⟶ p✝ ⋎ q✝
⊢ 𝐒𝟒 ⊢! □(p✝ᵍ ⟶ p✝ᵍ ⋎ q✝ᵍ)