R : Type u
S : Type v
a b : R
m n : ℕ
ι : Type y
inst✝ : Semiring R
p q r : R[X]
hp : Monic p
hq : q ≠ 0
⊢ Polynomial.leadingCoeff p * Polynomial.leadingCoeff q ≠ 0
R : Type u
S : Type v
a b : R
m n : ℕ
ι : Type y
inst✝ : Semiring R
p q r : R[X]
hp : Monic p
hq : q ≠ 0
⊢ natDegree (p * q) = natDegree p + natDegree q
rw [natDegree_mul', add_comm]
no goals
R : Type u
S : Type v
a b : R
m n : ℕ
ι : Type y
inst✝ : Semiring R
p q r : R[X]
hp : Monic p
hq : q ≠ 0
⊢ Polynomial.leadingCoeff p * Polynomial.leadingCoeff q ≠ 0
simpa [hp.leadingCoeff, leadingCoeff_ne_zero]