apply val_add_ge_of_ge
R : Type u
inst✝¹ : CommRing R
inst✝ : IsDomain R
n : ℕ∞
p : R
nav : SurjVal p
a b : R
ha : n ≤ v nav a
hb : n ≤ v nav b
⊢ n ≤ v nav (a + -b)
case ha
R : Type u
inst✝¹ : CommRing R
inst✝ : IsDomain R
n : ℕ∞
p : R
nav : SurjVal p
a b : R
ha : n ≤ v nav a
hb : n ≤ v nav b
⊢ n ≤ v nav a

case hb
R : Type u
inst✝¹ : CommRing R
inst✝ : IsDomain R
n : ℕ∞
p : R
nav : SurjVal p
a b : R
ha : n ≤ v nav a
hb : n ≤ v nav b
⊢ n ≤ v nav (-b)