rw [homogenization_mul]
case insert
R : Type ?u.336037
ι : Type u_3
inst✝² : CommSemiring R
σ : Type u_1
S✝ : Type u_2
inst✝¹ : CommRing S✝
inst✝ : IsDomain S✝
i : ι
P : σ → MvPolynomial ι S✝
p : σ
S : Finset σ
hS : p ∉ S
hSi : homogenization i (∏ l ∈ S, P l) = ∏ l ∈ S, homogenization i (P l)
⊢ homogenization i (P p * ∏ l ∈ S, P l) = homogenization i (P p) * ∏ l ∈ S, homogenization i (P l)
case insert
R : Type ?u.336037
ι : Type u_3
inst✝² : CommSemiring R
σ : Type u_1
S✝ : Type u_2
inst✝¹ : CommRing S✝
inst✝ : IsDomain S✝
i : ι
P : σ → MvPolynomial ι S✝
p : σ
S : Finset σ
hS : p ∉ S
hSi : homogenization i (∏ l ∈ S, P l) = ∏ l ∈ S, homogenization i (P l)
⊢ homogenization i (P p) * homogenization i (∏ l ∈ S, P l) = homogenization i (P p) * ∏ l ∈ S, homogenization i (P l)