dsimp [BoxdotTranslation] at ihpq ihp
case hMdp
α : Type u_1
inst✝ : DecidableEq α
p p✝ q✝ : Formula α
hpq : 𝐒𝟒 ⊢ p✝ ⟶ q✝
hp : 𝐒𝟒 ⊢ p✝
ihpq : 𝐒𝟒 ⊢! p✝ ⟶ q✝ → 𝐊𝟒 ⊢! (p✝ ⟶ q✝)ᵇ
ihp : 𝐒𝟒 ⊢! p✝ → 𝐊𝟒 ⊢! p✝ᵇ
h : 𝐒𝟒 ⊢! q✝
⊢ 𝐊𝟒 ⊢! q✝ᵇ
case hMdp
α : Type u_1
inst✝ : DecidableEq α
p p✝ q✝ : Formula α
hpq : 𝐒𝟒 ⊢ p✝ ⟶ q✝
hp : 𝐒𝟒 ⊢ p✝
ihpq : 𝐒𝟒 ⊢! p✝ ⟶ q✝ → 𝐊𝟒 ⊢! p✝ᵇ ⟶ q✝ᵇ
ihp : 𝐒𝟒 ⊢! p✝ → 𝐊𝟒 ⊢! p✝ᵇ
h : 𝐒𝟒 ⊢! q✝
⊢ 𝐊𝟒 ⊢! q✝ᵇ