replace hi₁ := (mul_le_mul_left (by norm_num)).mp hi₁
case intro.intro.intro.intro.intro
δ a b : ℕ
hcop : Nat.Coprime a b
left✝ : 0 < ↑b
i₁ i₂ : ℕ
hi₁ : 3 * (i₁ + i₂) ≤ 3 * (2 * δ)
hi₂ : 3 * δ < 3 * i₂
hSle : ↑a * (3 * ↑i₂ - ↑(3 * δ)) = ↑b * (2 * ↑(3 * δ) - 3 * ↑i₁ - 3 * ↑i₂)
⊢ a + b ≤ δ
case intro.intro.intro.intro.intro
δ a b : ℕ
hcop : Nat.Coprime a b
left✝ : 0 < ↑b
i₁ i₂ : ℕ
hi₂ : 3 * δ < 3 * i₂
hSle : ↑a * (3 * ↑i₂ - ↑(3 * δ)) = ↑b * (2 * ↑(3 * δ) - 3 * ↑i₁ - 3 * ↑i₂)
hi₁ : i₁ + i₂ ≤ 2 * δ
⊢ a + b ≤ δ