R : Type u
S : Type v
T : Type w
a✝ b : R
n : ℕ
inst✝¹ : CommRing R
inst✝ : IsDomain R
p✝ q p : R[X]
a : R
hp0 : 0 < degree p
⊢ degree (p + ↑C (-a)) = degree p
R : Type u
S : Type v
T : Type w
a✝ b : R
n : ℕ
inst✝¹ : CommRing R
inst✝ : IsDomain R
p✝ q p : R[X]
a : R
hp0 : 0 < degree p
⊢ degree (p - ↑C a) = degree p
rw [sub_eq_add_neg, ← C_neg]
no goals
R : Type u
S : Type v
T : Type w
a✝ b : R
n : ℕ
inst✝¹ : CommRing R
inst✝ : IsDomain R
p✝ q p : R[X]
a : R
hp0 : 0 < degree p
⊢ degree (p + ↑C (-a)) = degree p
exact degree_add_C hp0