apply or_replace_left!
case h₁
F : Type u_1
inst✝⁴ : LogicalConnective F
inst✝³ : DecidableEq F
S : Type u_2
inst✝² : System F S
𝓢 : S
inst✝¹ : Minimal 𝓢
p q r : F
Γ Δ : List F
inst✝ : System.NegationEquiv 𝓢
d : 𝓢 ⊢! p ⟷ r
⊢ 𝓢 ⊢! p ⋎ q ⟶ r ⋎ q
case h₁.hp
F : Type u_1
inst✝⁴ : LogicalConnective F
inst✝³ : DecidableEq F
S : Type u_2
inst✝² : System F S
𝓢 : S
inst✝¹ : Minimal 𝓢
p q r : F
Γ Δ : List F
inst✝ : System.NegationEquiv 𝓢
d : 𝓢 ⊢! p ⟷ r
⊢ 𝓢 ⊢! p ⟶ r