exact Int.le_trans (Int.le_natAbs ..) (Int.ofNat_le.mpr <| h_a (-n))
G : Type ?u.72001
f : AlmostHom ℤ
h✝ : ¬Function.BddAboveOn f.toFun (Set.Ici 0)
R : ℤ
bound : ℕ
h_a : ∀ (g : ℤ), |toFun f (-g) - -toFun f g| ≤ bound
N : ℕ
h : ∀ (n : ℤ), n ≥ ↑N → toFun f n ≥ -R + ↑bound
n : ℤ
h_le : n ≤ -↑N
⊢ toFun f (- -n) - -toFun f (-n) ≤ ↑bound
no goals