apply IsHomogeneous.totalDegree
case neg
R : Type u_1
ι : Type u_2
inst✝ : CommSemiring R
i : ι
p : MvPolynomial ι R
h : ∀ j ∈ p.support, j i = 0
hp : ¬p = 0
⊢ (homogenization i p).totalDegree = p.totalDegree
case neg.hφ
R : Type u_1
ι : Type u_2
inst✝ : CommSemiring R
i : ι
p : MvPolynomial ι R
h : ∀ j ∈ p.support, j i = 0
hp : ¬p = 0
⊢ (homogenization i p).IsHomogeneous p.totalDegree

case neg.h
R : Type u_1
ι : Type u_2
inst✝ : CommSemiring R
i : ι
p : MvPolynomial ι R
h : ∀ j ∈ p.support, j i = 0
hp : ¬p = 0
⊢ homogenization i p ≠ 0