rw [leadingTerms_eq_self_iff_isHomogeneous]
R : Type u_1
ι : Type u_2
inst✝ : CommSemiring R
r : R
⊢ (C r).leadingTerms = C r
R : Type u_1
ι : Type u_2
inst✝ : CommSemiring R
r : R
⊢ (C r).IsHomogeneous (C r).totalDegree