by_cases hr : r = 0
R : Type u_1
ι : Type u_2
inst✝¹ : CommSemiring R
inst✝ : NoZeroSMulDivisors R R
p : MvPolynomial ι R
r : R
⊢ (C r * p).leadingTerms = C r * p.leadingTerms
case pos
R : Type u_1
ι : Type u_2
inst✝¹ : CommSemiring R
inst✝ : NoZeroSMulDivisors R R
p : MvPolynomial ι R
r : R
hr : r = 0
⊢ (C r * p).leadingTerms = C r * p.leadingTerms

case neg
R : Type u_1
ι : Type u_2
inst✝¹ : CommSemiring R
inst✝ : NoZeroSMulDivisors R R
p : MvPolynomial ι R
r : R
hr : ¬r = 0
⊢ (C r * p).leadingTerms = C r * p.leadingTerms