rw [IsHomogeneous, IsWeightedHomogeneous]
case mp
R : Type u_1
ι : Type u_2
inst✝ : CommSemiring R
p : MvPolynomial ι R
h : p.leadingTerms = p
⊢ p.IsHomogeneous p.totalDegree
case mp
R : Type u_1
ι : Type u_2
inst✝ : CommSemiring R
p : MvPolynomial ι R
h : p.leadingTerms = p
⊢ ∀ ⦃d : ι →₀ ℕ⦄, coeff d p ≠ 0 → (weightedDegree 1) d = p.totalDegree