rw [leadingTerms_eq_self_iff_isHomogeneous, totalDegree_leadingTerms]
R : Type u_1
ι : Type u_2
inst✝ : CommSemiring R
p : MvPolynomial ι R
⊢ p.leadingTerms.leadingTerms = p.leadingTerms
R : Type u_1
ι : Type u_2
inst✝ : CommSemiring R
p : MvPolynomial ι R
⊢ p.leadingTerms.IsHomogeneous p.totalDegree