custom_zify
G : Type ?u.65059
f : AlmostHom ℤ
h✝ : ¬Function.BddAboveOn f.toFun (Set.Ici 0)
bound : ℕ
h_a : ∀ (g₁ g₂ : ℤ), |toFun f (g₁ + g₂) - toFun f g₁ - toFun f g₂| ≤ bound
m : ℕ
h : ↑bound * 2 < toFun f ↑m
R n : ℤ
n' : ℕ := Int.toNat n
h_ge✝ : ↑n' ≥ ↑(Int.toNat R + (m + 3) * bound)
this : ↑n' = n
h_ge : n' ≥ Int.toNat R + (m + 3) * bound := Iff.mp Int.ofNat_le h_ge✝
⊢ ↑(Int.toNat R + (m + 3) * bound) - ↑((m + 3) * bound) ≥ ↑(Int.toNat R)
G : Type ?u.65059
f : AlmostHom ℤ
h✝ : ¬Function.BddAboveOn f.toFun (Set.Ici 0)
bound : ℕ
h_a : ∀ (g₁ g₂ : ℤ), |toFun f (g₁ + g₂) - toFun f g₁ - toFun f g₂| ≤ bound
m : ℕ
h : ↑bound * 2 < toFun f ↑m
R n : ℤ
n' : ℕ := Int.toNat n
h_ge✝ : ↑n' ≥ ↑(Int.toNat R + (m + 3) * bound)
this : ↑n' = n
h_ge : n' ≥ Int.toNat R + (m + 3) * bound := Iff.mp Int.ofNat_le h_ge✝
⊢ ↑(Int.toNat R) + (↑m + (1 + 1 + 1)) * ↑bound - (↑m + (1 + 1 + 1)) * ↑bound ≥ ↑(Int.toNat R)