vietalem - Mathbox for Thierry Arnoux

	Mathbox for Thierry Arnoux		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > vietalem		Structured version Visualization version GIF version

Theorem vietalem 34258

Description: Lemma for vieta 34259: induction step. (Contributed by Thierry Arnoux, 15-Feb-2026.)

**Hypotheses**
Ref	Expression
vieta.w	⊢ 𝑊 = (Poly₁‘𝑅)
vieta.b	⊢ 𝐵 = (Base‘𝑅)
vieta.3	⊢ − = (-_g‘𝑊)
vieta.m	⊢ 𝑀 = (mulGrp‘𝑊)
vieta.q	⊢ 𝑄 = (𝐼 eval 𝑅)
vieta.e	⊢ 𝐸 = (𝐼eSymPoly𝑅)
vieta.n	⊢ 𝑁 = (inv_g‘𝑅)
vieta.1	⊢ 1 = (1_r‘𝑅)
vieta.t	⊢ · = (._r‘𝑅)
vieta.x	⊢ 𝑋 = (var₁‘𝑅)
vieta.a	⊢ 𝐴 = (algSc‘𝑊)
vieta.p	⊢ ↑ = (._g‘(mulGrp‘𝑅))
vieta.h	⊢ 𝐻 = (♯‘𝐼)
vieta.i	⊢ (𝜑 → 𝐼 ∈ Fin)
vieta.r	⊢ (𝜑 → 𝑅 ∈ IDomn)
vieta.z	⊢ (𝜑 → 𝑍:𝐼⟶𝐵)
vieta.f	⊢ 𝐹 = (𝑀 Σ_g (𝑛 ∈ 𝐼 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛)))))
vieta.k	⊢ (𝜑 → 𝐾 ∈ (0...𝐻))
vietalem.y	⊢ (𝜑 → 𝑌 ∈ 𝐼)
vietalem.j	⊢ 𝐽 = (𝐼 ∖ {𝑌})
vietalem.2	⊢ (𝜑 → ∀𝑧 ∈ (𝐵 ↑_m 𝐽)∀𝑘 ∈ (0...(♯‘𝐽))((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑧‘𝑛))))))‘((♯‘𝐽) − 𝑘)) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘𝑧)))
vietalem.3	⊢ (𝜑 → ((deg₁‘𝑅)‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛)))))) = (♯‘𝐽))

**Assertion**
Ref	Expression
vietalem	⊢ (𝜑 → ((coe₁‘𝐹)‘𝐾) = (((𝐻 − 𝐾) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝐾)))‘𝑍)))

Distinct variable groups: − ,𝑘,𝑛,𝑧 1 ,𝑘,𝑧 ↑ ,𝑘,𝑧 · ,𝑘,𝑧 𝐴,𝑘,𝑛,𝑧 𝐵,𝑘,𝑧 𝑘,𝐸,𝑧 𝑘,𝐻,𝑧 𝑘,𝐼,𝑛,𝑧 𝑘,𝐾 𝑘,𝑀,𝑧 𝑘,𝑁,𝑧 𝑄,𝑘,𝑧 𝑅,𝑘,𝑧 𝑘,𝑋,𝑛,𝑧 𝑘,𝑍,𝑛,𝑧 𝜑,𝑘,𝑧 1 ,𝑛 ↑ ,𝑛 · ,𝑛 𝑛,𝐸 𝑛,𝐻 𝑘,𝐽,𝑛,𝑧 𝑛,𝑀 𝑛,𝑁 𝑄,𝑛 𝑅,𝑛 𝑘,𝑊,𝑛 𝑘,𝑌,𝑛 𝜑,𝑛 Allowed substitution hints: 𝐵(𝑛) 𝐹(𝑧, 𝑘, 𝑛) 𝐾(𝑧, 𝑛) 𝑊(𝑧) 𝑌(𝑧)

Proof of Theorem vietalem Dummy variables 𝑖 𝑙 ℎ are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		vieta.f	. . . . . . 7 ⊢ 𝐹 = (𝑀 Σ_g (𝑛 ∈ 𝐼 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛)))))
2	1	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝐹 = (𝑀 Σ_g (𝑛 ∈ 𝐼 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛))))))
3		vietalem.j	. . . . . . . . . 10 ⊢ 𝐽 = (𝐼 ∖ {𝑌})
4	3	uneq1i 4163	. . . . . . . . 9 ⊢ (𝐽 ∪ {𝑌}) = ((𝐼 ∖ {𝑌}) ∪ {𝑌})
5		vietalem.y	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑌 ∈ 𝐼)
6	5	snssd 4743	. . . . . . . . . 10 ⊢ (𝜑 → {𝑌} ⊆ 𝐼)
7		undifr 4438	. . . . . . . . . 10 ⊢ ({𝑌} ⊆ 𝐼 ↔ ((𝐼 ∖ {𝑌}) ∪ {𝑌}) = 𝐼)
8	6, 7	sylib 221	. . . . . . . . 9 ⊢ (𝜑 → ((𝐼 ∖ {𝑌}) ∪ {𝑌}) = 𝐼)
9	4, 8	eqtr2id 2808	. . . . . . . 8 ⊢ (𝜑 → 𝐼 = (𝐽 ∪ {𝑌}))
10	9	mpteq1d 5194	. . . . . . 7 ⊢ (𝜑 → (𝑛 ∈ 𝐼 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛)))) = (𝑛 ∈ (𝐽 ∪ {𝑌}) ↦ (𝑋 − (𝐴‘(𝑍‘𝑛)))))
11	10	oveq2d 7437	. . . . . 6 ⊢ (𝜑 → (𝑀 Σ_g (𝑛 ∈ 𝐼 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛))))) = (𝑀 Σ_g (𝑛 ∈ (𝐽 ∪ {𝑌}) ↦ (𝑋 − (𝐴‘(𝑍‘𝑛))))))
12		vieta.m	. . . . . . . 8 ⊢ 𝑀 = (mulGrp‘𝑊)
13		eqid 2760	. . . . . . . 8 ⊢ (Base‘𝑊) = (Base‘𝑊)
14	12, 13	mgpbas 20371	. . . . . . 7 ⊢ (Base‘𝑊) = (Base‘𝑀)
15		eqid 2760	. . . . . . . 8 ⊢ (._r‘𝑊) = (._r‘𝑊)
16	12, 15	mgpplusg 20370	. . . . . . 7 ⊢ (._r‘𝑊) = (+_g‘𝑀)
17		vieta.r	. . . . . . . . 9 ⊢ (𝜑 → 𝑅 ∈ IDomn)
18	17	idomcringd 20984	. . . . . . . 8 ⊢ (𝜑 → 𝑅 ∈ CRing)
19		vieta.w	. . . . . . . . 9 ⊢ 𝑊 = (Poly₁‘𝑅)
20	19	ply1crng 22522	. . . . . . . 8 ⊢ (𝑅 ∈ CRing → 𝑊 ∈ CRing)
21	12	crngmgp 20473	. . . . . . . 8 ⊢ (𝑊 ∈ CRing → 𝑀 ∈ CMnd)
22	18, 20, 21	3syl 19	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ CMnd)
23		vieta.i	. . . . . . . . 9 ⊢ (𝜑 → 𝐼 ∈ Fin)
24		diffi 9194	. . . . . . . . 9 ⊢ (𝐼 ∈ Fin → (𝐼 ∖ {𝑌}) ∈ Fin)
25	23, 24	syl 18	. . . . . . . 8 ⊢ (𝜑 → (𝐼 ∖ {𝑌}) ∈ Fin)
26	3, 25	eqeltrid 2864	. . . . . . 7 ⊢ (𝜑 → 𝐽 ∈ Fin)
27		vieta.3	. . . . . . . 8 ⊢ − = (-_g‘𝑊)
28	18, 20	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ CRing)
29	28	crngringd 20479	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ Ring)
30	29	ringgrpd 20475	. . . . . . . . 9 ⊢ (𝜑 → 𝑊 ∈ Grp)
31	30	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → 𝑊 ∈ Grp)
32	17	idomringd 20985	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ Ring)
33		vieta.x	. . . . . . . . . . 11 ⊢ 𝑋 = (var₁‘𝑅)
34	33, 19, 13	vr1cl 22541	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → 𝑋 ∈ (Base‘𝑊))
35	32, 34	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 ∈ (Base‘𝑊))
36	35	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → 𝑋 ∈ (Base‘𝑊))
37		vieta.a	. . . . . . . . 9 ⊢ 𝐴 = (algSc‘𝑊)
38		eqid 2760	. . . . . . . . 9 ⊢ (Scalar‘𝑊) = (Scalar‘𝑊)
39		eqid 2760	. . . . . . . . 9 ⊢ (Base‘(Scalar‘𝑊)) = (Base‘(Scalar‘𝑊))
40	19	ply1assa 22523	. . . . . . . . . . 11 ⊢ (𝑅 ∈ CRing → 𝑊 ∈ AssAlg)
41	18, 40	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ AssAlg)
42	41	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → 𝑊 ∈ AssAlg)
43		vieta.z	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑍:𝐼⟶𝐵)
44	43	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → 𝑍:𝐼⟶𝐵)
45		difss 4072	. . . . . . . . . . . . . 14 ⊢ (𝐼 ∖ {𝑌}) ⊆ 𝐼
46	3, 45	eqsstri 3954	. . . . . . . . . . . . 13 ⊢ 𝐽 ⊆ 𝐼
47	46	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐽 ⊆ 𝐼)
48	47	sselda 3908	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → 𝑛 ∈ 𝐼)
49	44, 48	ffvelcdmd 7086	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → (𝑍‘𝑛) ∈ 𝐵)
50		vieta.b	. . . . . . . . . . . 12 ⊢ 𝐵 = (Base‘𝑅)
51	19	ply1sca 22576	. . . . . . . . . . . . . 14 ⊢ (𝑅 ∈ CRing → 𝑅 = (Scalar‘𝑊))
52	18, 51	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑅 = (Scalar‘𝑊))
53	52	fveq2d 6890	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘𝑅) = (Base‘(Scalar‘𝑊)))
54	50, 53	eqtrid 2807	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 = (Base‘(Scalar‘𝑊)))
55	54	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → 𝐵 = (Base‘(Scalar‘𝑊)))
56	49, 55	eleqtrd 2862	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → (𝑍‘𝑛) ∈ (Base‘(Scalar‘𝑊)))
57	37, 38, 39, 42, 56	asclelbas 22197	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → (𝐴‘(𝑍‘𝑛)) ∈ (Base‘𝑊))
58	13, 27, 31, 36, 57	grpsubcld 33649	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → (𝑋 − (𝐴‘(𝑍‘𝑛))) ∈ (Base‘𝑊))
59		neldifsnd 4752	. . . . . . . 8 ⊢ (𝜑 → ¬ 𝑌 ∈ (𝐼 ∖ {𝑌}))
60	3	eleq2i 2852	. . . . . . . 8 ⊢ (𝑌 ∈ 𝐽 ↔ 𝑌 ∈ (𝐼 ∖ {𝑌}))
61	59, 60	sylnibr 332	. . . . . . 7 ⊢ (𝜑 → ¬ 𝑌 ∈ 𝐽)
62	54, 43	feq3dd 6697	. . . . . . . . . 10 ⊢ (𝜑 → 𝑍:𝐼⟶(Base‘(Scalar‘𝑊)))
63	62, 5	ffvelcdmd 7086	. . . . . . . . 9 ⊢ (𝜑 → (𝑍‘𝑌) ∈ (Base‘(Scalar‘𝑊)))
64	37, 38, 39, 41, 63	asclelbas 22197	. . . . . . . 8 ⊢ (𝜑 → (𝐴‘(𝑍‘𝑌)) ∈ (Base‘𝑊))
65	13, 27, 30, 35, 64	grpsubcld 33649	. . . . . . 7 ⊢ (𝜑 → (𝑋 − (𝐴‘(𝑍‘𝑌))) ∈ (Base‘𝑊))
66		2fveq3 6891	. . . . . . . 8 ⊢ (𝑛 = 𝑌 → (𝐴‘(𝑍‘𝑛)) = (𝐴‘(𝑍‘𝑌)))
67	66	oveq2d 7437	. . . . . . 7 ⊢ (𝑛 = 𝑌 → (𝑋 − (𝐴‘(𝑍‘𝑛))) = (𝑋 − (𝐴‘(𝑍‘𝑌))))
68	14, 16, 22, 26, 58, 5, 61, 65, 67	gsumunsn 20180	. . . . . 6 ⊢ (𝜑 → (𝑀 Σ_g (𝑛 ∈ (𝐽 ∪ {𝑌}) ↦ (𝑋 − (𝐴‘(𝑍‘𝑛))))) = ((𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛)))))(._r‘𝑊)(𝑋 − (𝐴‘(𝑍‘𝑌)))))
69	2, 11, 68	3eqtrd 2799	. . . . 5 ⊢ (𝜑 → 𝐹 = ((𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛)))))(._r‘𝑊)(𝑋 − (𝐴‘(𝑍‘𝑌)))))
70		eqid 2760	. . . . . . . . 9 ⊢ ( ·_𝑠 ‘𝑊) = ( ·_𝑠 ‘𝑊)
71		eqid 2760	. . . . . . . . 9 ⊢ (._g‘𝑀) = (._g‘𝑀)
72		eqid 2760	. . . . . . . . 9 ⊢ (coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛)))))) = (coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))
73		eqid 2760	. . . . . . . . 9 ⊢ ((deg₁‘𝑅)‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛)))))) = ((deg₁‘𝑅)‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))
74		simpr 490	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → 𝑛 ∈ 𝐽)
75	74	fvresd 6906	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → ((𝑍 ↾ 𝐽)‘𝑛) = (𝑍‘𝑛))
76	75	fveq2d 6890	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → (𝐴‘((𝑍 ↾ 𝐽)‘𝑛)) = (𝐴‘(𝑍‘𝑛)))
77	76	oveq2d 7437	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ 𝐽) → (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))) = (𝑋 − (𝐴‘(𝑍‘𝑛))))
78	77	mpteq2dva 5197	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛)))) = (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛)))))
79	78	oveq2d 7437	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))) = (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛))))))
80	58	ralrimiva 3154	. . . . . . . . . . 11 ⊢ (𝜑 → ∀𝑛 ∈ 𝐽 (𝑋 − (𝐴‘(𝑍‘𝑛))) ∈ (Base‘𝑊))
81	14, 22, 26, 80	gsummptcl 20187	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛))))) ∈ (Base‘𝑊))
82	79, 81	eqeltrd 2860	. . . . . . . . 9 ⊢ (𝜑 → (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))) ∈ (Base‘𝑊))
83	19, 33, 13, 70, 12, 71, 72, 73, 32, 82	ply1coedeg 34168	. . . . . . . 8 ⊢ (𝜑 → (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))) = (𝑊 Σ_g (𝑙 ∈ (0...((deg₁‘𝑅)‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙)( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))
84		vietalem.3	. . . . . . . . . . 11 ⊢ (𝜑 → ((deg₁‘𝑅)‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛)))))) = (♯‘𝐽))
85	84	oveq2d 7437	. . . . . . . . . 10 ⊢ (𝜑 → (0...((deg₁‘𝑅)‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))) = (0...(♯‘𝐽)))
86	85	mpteq1d 5194	. . . . . . . . 9 ⊢ (𝜑 → (𝑙 ∈ (0...((deg₁‘𝑅)‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙)( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋))) = (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙)( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋))))
87	86	oveq2d 7437	. . . . . . . 8 ⊢ (𝜑 → (𝑊 Σ_g (𝑙 ∈ (0...((deg₁‘𝑅)‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙)( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙)( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))
88	83, 79, 87	3eqtr3d 2803	. . . . . . 7 ⊢ (𝜑 → (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛))))) = (𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙)( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))
89	29	ringcmnd 20519	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ CMnd)
90		hashcl 14504	. . . . . . . . 9 ⊢ (𝐽 ∈ Fin → (♯‘𝐽) ∈ ℕ₀)
91	26, 90	syl 18	. . . . . . . 8 ⊢ (𝜑 → (♯‘𝐽) ∈ ℕ₀)
92	19	ply1lmod 22575	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑊 ∈ LMod)
93	32, 92	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ LMod)
94	93	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝑊 ∈ LMod)
95	82	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))) ∈ (Base‘𝑊))
96	52	fveq2d 6890	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Poly₁‘𝑅) = (Poly₁‘(Scalar‘𝑊)))
97	19, 96	eqtrid 2807	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑊 = (Poly₁‘(Scalar‘𝑊)))
98	97	fveq2d 6890	. . . . . . . . . . . 12 ⊢ (𝜑 → (Base‘𝑊) = (Base‘(Poly₁‘(Scalar‘𝑊))))
99	98	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (Base‘𝑊) = (Base‘(Poly₁‘(Scalar‘𝑊))))
100	95, 99	eleqtrd 2862	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))) ∈ (Base‘(Poly₁‘(Scalar‘𝑊))))
101		fz0ssnn0 13760	. . . . . . . . . . 11 ⊢ (0...(♯‘𝐽)) ⊆ ℕ₀
102		simpr 490	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝑙 ∈ (0...(♯‘𝐽)))
103	101, 102	sselid 3906	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝑙 ∈ ℕ₀)
104		eqid 2760	. . . . . . . . . . 11 ⊢ (Base‘(Poly₁‘(Scalar‘𝑊))) = (Base‘(Poly₁‘(Scalar‘𝑊)))
105		eqid 2760	. . . . . . . . . . 11 ⊢ (Poly₁‘(Scalar‘𝑊)) = (Poly₁‘(Scalar‘𝑊))
106	72, 104, 105, 39	coe1fvalcl 22536	. . . . . . . . . 10 ⊢ (((𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))) ∈ (Base‘(Poly₁‘(Scalar‘𝑊))) ∧ 𝑙 ∈ ℕ₀) → ((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙) ∈ (Base‘(Scalar‘𝑊)))
107	100, 103, 106	syl2anc 596	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → ((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙) ∈ (Base‘(Scalar‘𝑊)))
108	22	cmnmndd 20024	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑀 ∈ Mnd)
109	108	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝑀 ∈ Mnd)
110	32	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝑅 ∈ Ring)
111	110, 34	syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝑋 ∈ (Base‘𝑊))
112	14, 71, 109, 103, 111	mulgnn0cld 19311	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (𝑙(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
113	13, 38, 70, 39, 94, 107, 112	lmodvscld 21160	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙)( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
114		simpr 490	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → 𝑙 = ((♯‘𝐽) − 𝑘))
115	114	fveq2d 6890	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → ((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙) = ((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘)))
116		oveq1 7428	. . . . . . . . . 10 ⊢ (𝑙 = ((♯‘𝐽) − 𝑘) → (𝑙(._g‘𝑀)𝑋) = (((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))
117	116	adantl 487	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → (𝑙(._g‘𝑀)𝑋) = (((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))
118	115, 117	oveq12d 7439	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙)( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)) = (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))
119	13, 89, 91, 113, 118	gsummptrev 33664	. . . . . . 7 ⊢ (𝜑 → (𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘𝑙)( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑘 ∈ (0...(♯‘𝐽)) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))))
120		fveq1 6885	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → (𝑧‘𝑛) = ((𝑍 ↾ 𝐽)‘𝑛))
121	120	fveq2d 6890	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → (𝐴‘(𝑧‘𝑛)) = (𝐴‘((𝑍 ↾ 𝐽)‘𝑛)))
122	121	oveq2d 7437	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → (𝑋 − (𝐴‘(𝑧‘𝑛))) = (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))
123	122	mpteq2dv 5198	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑧‘𝑛)))) = (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛)))))
124	123	oveq2d 7437	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑧‘𝑛))))) = (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))
125	124	fveq2d 6890	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → (coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑧‘𝑛)))))) = (coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛)))))))
126	125	fveq1d 6888	. . . . . . . . . . . . . . 15 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → ((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑧‘𝑛))))))‘((♯‘𝐽) − 𝑘)) = ((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘)))
127		fveq2 6886	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘𝑧) = (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))
128	127	oveq2d 7437	. . . . . . . . . . . . . . 15 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘𝑧)) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))
129	126, 128	eqeq12d 2776	. . . . . . . . . . . . . 14 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑧‘𝑛))))))‘((♯‘𝐽) − 𝑘)) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘𝑧)) ↔ ((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘)) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))
130	129	ralbidv 3185	. . . . . . . . . . . . 13 ⊢ (𝑧 = (𝑍 ↾ 𝐽) → (∀𝑘 ∈ (0...(♯‘𝐽))((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑧‘𝑛))))))‘((♯‘𝐽) − 𝑘)) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘𝑧)) ↔ ∀𝑘 ∈ (0...(♯‘𝐽))((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘)) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))
131		vietalem.2	. . . . . . . . . . . . 13 ⊢ (𝜑 → ∀𝑧 ∈ (𝐵 ↑_m 𝐽)∀𝑘 ∈ (0...(♯‘𝐽))((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑧‘𝑛))))))‘((♯‘𝐽) − 𝑘)) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘𝑧)))
132	50	fvexi 6900	. . . . . . . . . . . . . . 15 ⊢ 𝐵 ∈ V
133	132	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 ∈ V)
134	43, 47	fssresd 6750	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑍 ↾ 𝐽):𝐽⟶𝐵)
135	133, 26, 134	elmapdd 8865	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑍 ↾ 𝐽) ∈ (𝐵 ↑_m 𝐽))
136	130, 131, 135	rspcdva 3577	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑘 ∈ (0...(♯‘𝐽))((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘)) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))
137	136	r19.21bi 3254	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → ((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘)) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))
138	137	oveq1d 7436	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)) = (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))
139	138	mpteq2dva 5197	. . . . . . . . 9 ⊢ (𝜑 → (𝑘 ∈ (0...(♯‘𝐽)) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))) = (𝑘 ∈ (0...(♯‘𝐽)) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))))
140	139	oveq2d 7437	. . . . . . . 8 ⊢ (𝜑 → (𝑊 Σ_g (𝑘 ∈ (0...(♯‘𝐽)) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑘 ∈ (0...(♯‘𝐽)) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))))
141		vieta.t	. . . . . . . . . . 11 ⊢ · = (._r‘𝑅)
142		eqid 2760	. . . . . . . . . . . . 13 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
143	142, 50	mgpbas 20371	. . . . . . . . . . . 12 ⊢ 𝐵 = (Base‘(mulGrp‘𝑅))
144		vieta.p	. . . . . . . . . . . 12 ⊢ ↑ = (._g‘(mulGrp‘𝑅))
145	142	ringmgp 20471	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → (mulGrp‘𝑅) ∈ Mnd)
146	110, 145	syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (mulGrp‘𝑅) ∈ Mnd)
147		fznn0sub2 13773	. . . . . . . . . . . . . 14 ⊢ (𝑙 ∈ (0...(♯‘𝐽)) → ((♯‘𝐽) − 𝑙) ∈ (0...(♯‘𝐽)))
148	147	adantl 487	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → ((♯‘𝐽) − 𝑙) ∈ (0...(♯‘𝐽)))
149	101, 148	sselid 3906	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → ((♯‘𝐽) − 𝑙) ∈ ℕ₀)
150		vieta.n	. . . . . . . . . . . . . 14 ⊢ 𝑁 = (inv_g‘𝑅)
151	32	ringgrpd 20475	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑅 ∈ Grp)
152		vieta.1	. . . . . . . . . . . . . . 15 ⊢ 1 = (1_r‘𝑅)
153	50, 152, 32	ringidcld 20501	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 1 ∈ 𝐵)
154	50, 150, 151, 153	grpinvcld 19205	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁‘ 1 ) ∈ 𝐵)
155	154	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (𝑁‘ 1 ) ∈ 𝐵)
156	143, 144, 146, 149, 155	mulgnn0cld 19311	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) ∈ 𝐵)
157		eqid 2760	. . . . . . . . . . . 12 ⊢ (𝐽 eval 𝑅) = (𝐽 eval 𝑅)
158		eqid 2760	. . . . . . . . . . . 12 ⊢ (𝐽 mPoly 𝑅) = (𝐽 mPoly 𝑅)
159		eqid 2760	. . . . . . . . . . . 12 ⊢ (Base‘(𝐽 mPoly 𝑅)) = (Base‘(𝐽 mPoly 𝑅))
160	26	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝐽 ∈ Fin)
161	18	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝑅 ∈ CRing)
162		eqid 2760	. . . . . . . . . . . . 13 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0} = {ℎ ∈ (ℕ₀ ↑_m 𝐽) ∣ ℎ finSupp 0}
163	162, 160, 110, 149, 159	esplympl 34246	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → ((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)) ∈ (Base‘(𝐽 mPoly 𝑅)))
164	135	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (𝑍 ↾ 𝐽) ∈ (𝐵 ↑_m 𝐽))
165	157, 158, 159, 50, 160, 161, 163, 164	evlcl 22417	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)) ∈ 𝐵)
166	50, 141, 110, 156, 165	ringcld 20490	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → ((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽))) ∈ 𝐵)
167	19, 13, 50, 70, 110, 166, 112	ply1vscl 22705	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
168	91	nn0cnd 12673	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝐽) ∈ ℂ)
169	168	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → (♯‘𝐽) ∈ ℂ)
170		simplr 781	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → 𝑘 ∈ (0...(♯‘𝐽)))
171	101, 170	sselid 3906	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → 𝑘 ∈ ℕ₀)
172	171	nn0cnd 12673	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → 𝑘 ∈ ℂ)
173	169, 172	subcld 11673	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → ((♯‘𝐽) − 𝑘) ∈ ℂ)
174	114, 173	eqeltrd 2860	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → 𝑙 ∈ ℂ)
175	169, 174	subcld 11673	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → ((♯‘𝐽) − 𝑙) ∈ ℂ)
176	169, 174	nncand 11678	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → ((♯‘𝐽) − ((♯‘𝐽) − 𝑙)) = 𝑙)
177	176, 114	eqtrd 2795	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → ((♯‘𝐽) − ((♯‘𝐽) − 𝑙)) = ((♯‘𝐽) − 𝑘))
178	169, 175, 172, 177	subcand 11714	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → ((♯‘𝐽) − 𝑙) = 𝑘)
179	178	oveq1d 7436	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → (((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) = (𝑘 ↑ (𝑁‘ 1 )))
180	178	fveq2d 6890	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → ((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)) = ((𝐽eSymPoly𝑅)‘𝑘))
181	180	fveq2d 6890	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙))) = ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘)))
182	181	fveq1d 6888	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)) = (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))
183	179, 182	oveq12d 7439	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → ((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽))) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))
184	183, 117	oveq12d 7439	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) ∧ 𝑙 = ((♯‘𝐽) − 𝑘)) → (((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)) = (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))
185	13, 89, 91, 167, 184	gsummptrev 33664	. . . . . . . 8 ⊢ (𝜑 → (𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑘 ∈ (0...(♯‘𝐽)) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))))
186	140, 185	eqtr4d 2798	. . . . . . 7 ⊢ (𝜑 → (𝑊 Σ_g (𝑘 ∈ (0...(♯‘𝐽)) ↦ (((coe₁‘(𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘((𝑍 ↾ 𝐽)‘𝑛))))))‘((♯‘𝐽) − 𝑘))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))
187	88, 119, 186	3eqtrd 2799	. . . . . 6 ⊢ (𝜑 → (𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛))))) = (𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))
188	187	oveq1d 7436	. . . . 5 ⊢ (𝜑 → ((𝑀 Σ_g (𝑛 ∈ 𝐽 ↦ (𝑋 − (𝐴‘(𝑍‘𝑛)))))(._r‘𝑊)(𝑋 − (𝐴‘(𝑍‘𝑌)))) = ((𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋))))(._r‘𝑊)(𝑋 − (𝐴‘(𝑍‘𝑌)))))
189		eqid 2760	. . . . . . 7 ⊢ (+_g‘𝑊) = (+_g‘𝑊)
190	32	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → 𝑅 ∈ Ring)
191	190, 145	syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → (mulGrp‘𝑅) ∈ Mnd)
192		elfznn0 13758	. . . . . . . . . . 11 ⊢ (𝑖 ∈ (0...(♯‘𝐽)) → 𝑖 ∈ ℕ₀)
193	192	adantl 487	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → 𝑖 ∈ ℕ₀)
194	154	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → (𝑁‘ 1 ) ∈ 𝐵)
195	143, 144, 191, 193, 194	mulgnn0cld 19311	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → (𝑖 ↑ (𝑁‘ 1 )) ∈ 𝐵)
196	26	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → 𝐽 ∈ Fin)
197	18	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → 𝑅 ∈ CRing)
198	162, 196, 190, 193, 159	esplympl 34246	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → ((𝐽eSymPoly𝑅)‘𝑖) ∈ (Base‘(𝐽 mPoly 𝑅)))
199	135	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → (𝑍 ↾ 𝐽) ∈ (𝐵 ↑_m 𝐽))
200	157, 158, 159, 50, 196, 197, 198, 199	evlcl 22417	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽)) ∈ 𝐵)
201	50, 141, 190, 195, 200	ringcld 20490	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → ((𝑖 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽))) ∈ 𝐵)
202	108	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → 𝑀 ∈ Mnd)
203		fznn0sub2 13773	. . . . . . . . . . 11 ⊢ (𝑖 ∈ (0...(♯‘𝐽)) → ((♯‘𝐽) − 𝑖) ∈ (0...(♯‘𝐽)))
204	203	adantl 487	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → ((♯‘𝐽) − 𝑖) ∈ (0...(♯‘𝐽)))
205	101, 204	sselid 3906	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → ((♯‘𝐽) − 𝑖) ∈ ℕ₀)
206	35	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → 𝑋 ∈ (Base‘𝑊))
207	14, 71, 202, 205, 206	mulgnn0cld 19311	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → (((♯‘𝐽) − 𝑖)(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
208	19, 13, 50, 70, 190, 201, 207	ply1vscl 22705	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ (0...(♯‘𝐽))) → (((𝑖 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑖)(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
209		oveq1 7428	. . . . . . . . 9 ⊢ (𝑖 = 0 → (𝑖 ↑ (𝑁‘ 1 )) = (0 ↑ (𝑁‘ 1 )))
210		2fveq3 6891	. . . . . . . . . 10 ⊢ (𝑖 = 0 → ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖)) = ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0)))
211	210	fveq1d 6888	. . . . . . . . 9 ⊢ (𝑖 = 0 → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽)) = (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)))
212	209, 211	oveq12d 7439	. . . . . . . 8 ⊢ (𝑖 = 0 → ((𝑖 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽))) = ((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽))))
213		oveq2 7429	. . . . . . . . 9 ⊢ (𝑖 = 0 → ((♯‘𝐽) − 𝑖) = ((♯‘𝐽) − 0))
214	213	oveq1d 7436	. . . . . . . 8 ⊢ (𝑖 = 0 → (((♯‘𝐽) − 𝑖)(._g‘𝑀)𝑋) = (((♯‘𝐽) − 0)(._g‘𝑀)𝑋))
215	212, 214	oveq12d 7439	. . . . . . 7 ⊢ (𝑖 = 0 → (((𝑖 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑖)(._g‘𝑀)𝑋)) = (((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 0)(._g‘𝑀)𝑋)))
216		oveq1 7428	. . . . . . . . 9 ⊢ (𝑖 = (♯‘𝐽) → (𝑖 ↑ (𝑁‘ 1 )) = ((♯‘𝐽) ↑ (𝑁‘ 1 )))
217		2fveq3 6891	. . . . . . . . . 10 ⊢ (𝑖 = (♯‘𝐽) → ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖)) = ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽))))
218	217	fveq1d 6888	. . . . . . . . 9 ⊢ (𝑖 = (♯‘𝐽) → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽)) = (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))
219	216, 218	oveq12d 7439	. . . . . . . 8 ⊢ (𝑖 = (♯‘𝐽) → ((𝑖 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽))) = (((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽))))
220		oveq2 7429	. . . . . . . . 9 ⊢ (𝑖 = (♯‘𝐽) → ((♯‘𝐽) − 𝑖) = ((♯‘𝐽) − (♯‘𝐽)))
221	220	oveq1d 7436	. . . . . . . 8 ⊢ (𝑖 = (♯‘𝐽) → (((♯‘𝐽) − 𝑖)(._g‘𝑀)𝑋) = (((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))
222	219, 221	oveq12d 7439	. . . . . . 7 ⊢ (𝑖 = (♯‘𝐽) → (((𝑖 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑖)(._g‘𝑀)𝑋)) = ((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋)))
223		oveq1 7428	. . . . . . . . 9 ⊢ (𝑖 = 𝑘 → (𝑖 ↑ (𝑁‘ 1 )) = (𝑘 ↑ (𝑁‘ 1 )))
224		2fveq3 6891	. . . . . . . . . 10 ⊢ (𝑖 = 𝑘 → ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖)) = ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘)))
225	224	fveq1d 6888	. . . . . . . . 9 ⊢ (𝑖 = 𝑘 → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽)) = (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))
226	223, 225	oveq12d 7439	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → ((𝑖 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽))) = ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))
227		oveq2 7429	. . . . . . . . 9 ⊢ (𝑖 = 𝑘 → ((♯‘𝐽) − 𝑖) = ((♯‘𝐽) − 𝑘))
228	227	oveq1d 7436	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → (((♯‘𝐽) − 𝑖)(._g‘𝑀)𝑋) = (((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))
229	226, 228	oveq12d 7439	. . . . . . 7 ⊢ (𝑖 = 𝑘 → (((𝑖 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑖)(._g‘𝑀)𝑋)) = (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))
230		oveq1 7428	. . . . . . . . 9 ⊢ (𝑖 = (𝑘 + 1) → (𝑖 ↑ (𝑁‘ 1 )) = ((𝑘 + 1) ↑ (𝑁‘ 1 )))
231		2fveq3 6891	. . . . . . . . . 10 ⊢ (𝑖 = (𝑘 + 1) → ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖)) = ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1))))
232	231	fveq1d 6888	. . . . . . . . 9 ⊢ (𝑖 = (𝑘 + 1) → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽)) = (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))
233	230, 232	oveq12d 7439	. . . . . . . 8 ⊢ (𝑖 = (𝑘 + 1) → ((𝑖 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽))) = (((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))))
234		oveq2 7429	. . . . . . . . 9 ⊢ (𝑖 = (𝑘 + 1) → ((♯‘𝐽) − 𝑖) = ((♯‘𝐽) − (𝑘 + 1)))
235	234	oveq1d 7436	. . . . . . . 8 ⊢ (𝑖 = (𝑘 + 1) → (((♯‘𝐽) − 𝑖)(._g‘𝑀)𝑋) = (((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋))
236	233, 235	oveq12d 7439	. . . . . . 7 ⊢ (𝑖 = (𝑘 + 1) → (((𝑖 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑖))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑖)(._g‘𝑀)𝑋)) = ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋)))
237		eqid 2760	. . . . . . . . 9 ⊢ (inv_g‘𝑊) = (inv_g‘𝑊)
238	32, 145	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (mulGrp‘𝑅) ∈ Mnd)
239		0nn0 12625	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℕ₀
240	239	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ∈ ℕ₀)
241	143, 144, 238, 240, 154	mulgnn0cld 19311	. . . . . . . . . . 11 ⊢ (𝜑 → (0 ↑ (𝑁‘ 1 )) ∈ 𝐵)
242	152, 153	eqeltrrid 2865	. . . . . . . . . . 11 ⊢ (𝜑 → (1_r‘𝑅) ∈ 𝐵)
243	50, 141, 32, 241, 242	ringcld 20490	. . . . . . . . . 10 ⊢ (𝜑 → ((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅)) ∈ 𝐵)
244		vieta.h	. . . . . . . . . . . 12 ⊢ 𝐻 = (♯‘𝐼)
245		hashcl 14504	. . . . . . . . . . . . 13 ⊢ (𝐼 ∈ Fin → (♯‘𝐼) ∈ ℕ₀)
246	23, 245	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → (♯‘𝐼) ∈ ℕ₀)
247	244, 246	eqeltrid 2864	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐻 ∈ ℕ₀)
248	14, 71, 108, 247, 35	mulgnn0cld 19311	. . . . . . . . . 10 ⊢ (𝜑 → (𝐻(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
249	19, 13, 50, 70, 32, 243, 248	ply1vscl 22705	. . . . . . . . 9 ⊢ (𝜑 → (((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
250	143, 144, 238, 247, 154	mulgnn0cld 19311	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐻 ↑ (𝑁‘ 1 )) ∈ 𝐵)
251		vieta.q	. . . . . . . . . . . 12 ⊢ 𝑄 = (𝐼 eval 𝑅)
252		eqid 2760	. . . . . . . . . . . 12 ⊢ (𝐼 mPoly 𝑅) = (𝐼 mPoly 𝑅)
253		eqid 2760	. . . . . . . . . . . 12 ⊢ (Base‘(𝐼 mPoly 𝑅)) = (Base‘(𝐼 mPoly 𝑅))
254		vieta.e	. . . . . . . . . . . . . 14 ⊢ 𝐸 = (𝐼eSymPoly𝑅)
255	254	fveq1i 6887	. . . . . . . . . . . . 13 ⊢ (𝐸‘𝐻) = ((𝐼eSymPoly𝑅)‘𝐻)
256		eqid 2760	. . . . . . . . . . . . . 14 ⊢ {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0} = {ℎ ∈ (ℕ₀ ↑_m 𝐼) ∣ ℎ finSupp 0}
257	256, 23, 32, 247, 253	esplympl 34246	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐼eSymPoly𝑅)‘𝐻) ∈ (Base‘(𝐼 mPoly 𝑅)))
258	255, 257	eqeltrid 2864	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐸‘𝐻) ∈ (Base‘(𝐼 mPoly 𝑅)))
259	133, 23, 43	elmapdd 8865	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑍 ∈ (𝐵 ↑_m 𝐼))
260	251, 252, 253, 50, 23, 18, 258, 259	evlcl 22417	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑄‘(𝐸‘𝐻))‘𝑍) ∈ 𝐵)
261	50, 141, 32, 250, 260	ringcld 20490	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍)) ∈ 𝐵)
262	14, 71, 108, 240, 35	mulgnn0cld 19311	. . . . . . . . . 10 ⊢ (𝜑 → (0(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
263	19, 13, 50, 70, 32, 261, 262	ply1vscl 22705	. . . . . . . . 9 ⊢ (𝜑 → (((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
264	13, 189, 27, 237, 30, 249, 263	grpsubinv 19228	. . . . . . . 8 ⊢ (𝜑 → ((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋)) − ((inv_g‘𝑊)‘(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))) = ((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋))))
265	162, 26, 32, 240, 159	esplympl 34246	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘0) ∈ (Base‘(𝐽 mPoly 𝑅)))
266	157, 158, 159, 50, 26, 18, 265, 135	evlcl 22417	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)) ∈ 𝐵)
267	50, 141, 32, 241, 266	ringcld 20490	. . . . . . . . . . . 12 ⊢ (𝜑 → ((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽))) ∈ 𝐵)
268	267, 54	eleqtrd 2862	. . . . . . . . . . 11 ⊢ (𝜑 → ((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽))) ∈ (Base‘(Scalar‘𝑊)))
269	168	subid1d 11662	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐽) − 0) = (♯‘𝐽))
270	269, 91	eqeltrd 2860	. . . . . . . . . . . 12 ⊢ (𝜑 → ((♯‘𝐽) − 0) ∈ ℕ₀)
271	14, 71, 108, 270, 35	mulgnn0cld 19311	. . . . . . . . . . 11 ⊢ (𝜑 → (((♯‘𝐽) − 0)(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
272	13, 38, 39, 70, 15, 41, 268, 271, 35	assaassd 34134	. . . . . . . . . 10 ⊢ (𝜑 → ((((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 0)(._g‘𝑀)𝑋))(._r‘𝑊)𝑋) = (((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)((((♯‘𝐽) − 0)(._g‘𝑀)𝑋)(._r‘𝑊)𝑋)))
273		eqid 2760	. . . . . . . . . . . . . . . . 17 ⊢ (1_r‘(𝐽 mPoly 𝑅)) = (1_r‘(𝐽 mPoly 𝑅))
274	26, 32, 273	esplyfval0 34243	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘0) = (1_r‘(𝐽 mPoly 𝑅)))
275	274	fveq2d 6890	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0)) = ((𝐽 eval 𝑅)‘(1_r‘(𝐽 mPoly 𝑅))))
276		eqid 2760	. . . . . . . . . . . . . . . . 17 ⊢ (algSc‘(𝐽 mPoly 𝑅)) = (algSc‘(𝐽 mPoly 𝑅))
277		eqid 2760	. . . . . . . . . . . . . . . . 17 ⊢ (1_r‘𝑅) = (1_r‘𝑅)
278	158, 276, 277, 273, 26, 32	mplascl1 22340	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((algSc‘(𝐽 mPoly 𝑅))‘(1_r‘𝑅)) = (1_r‘(𝐽 mPoly 𝑅)))
279	278	fveq2d 6890	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝐽 eval 𝑅)‘((algSc‘(𝐽 mPoly 𝑅))‘(1_r‘𝑅))) = ((𝐽 eval 𝑅)‘(1_r‘(𝐽 mPoly 𝑅))))
280	275, 279	eqtr4d 2798	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0)) = ((𝐽 eval 𝑅)‘((algSc‘(𝐽 mPoly 𝑅))‘(1_r‘𝑅))))
281	280	fveq1d 6888	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)) = (((𝐽 eval 𝑅)‘((algSc‘(𝐽 mPoly 𝑅))‘(1_r‘𝑅)))‘(𝑍 ↾ 𝐽)))
282	157, 158, 50, 276, 26, 18, 242, 134	evlscaval 34219	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((𝐽 eval 𝑅)‘((algSc‘(𝐽 mPoly 𝑅))‘(1_r‘𝑅)))‘(𝑍 ↾ 𝐽)) = (1_r‘𝑅))
283	281, 282	eqtrd 2795	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)) = (1_r‘𝑅))
284	283	oveq2d 7437	. . . . . . . . . . 11 ⊢ (𝜑 → ((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽))) = ((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅)))
285	14, 71, 16	mulgnn0p1 19301	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ Mnd ∧ (♯‘𝐽) ∈ ℕ₀ ∧ 𝑋 ∈ (Base‘𝑊)) → (((♯‘𝐽) + 1)(._g‘𝑀)𝑋) = (((♯‘𝐽)(._g‘𝑀)𝑋)(._r‘𝑊)𝑋))
286	108, 91, 35, 285	syl3anc 1398	. . . . . . . . . . . 12 ⊢ (𝜑 → (((♯‘𝐽) + 1)(._g‘𝑀)𝑋) = (((♯‘𝐽)(._g‘𝑀)𝑋)(._r‘𝑊)𝑋))
287		hashdifsn 14563	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐼 ∈ Fin ∧ 𝑌 ∈ 𝐼) → (♯‘(𝐼 ∖ {𝑌})) = ((♯‘𝐼) − 1))
288	23, 5, 287	syl2anc 596	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (♯‘(𝐼 ∖ {𝑌})) = ((♯‘𝐼) − 1))
289	3	fveq2i 6889	. . . . . . . . . . . . . . . 16 ⊢ (♯‘𝐽) = (♯‘(𝐼 ∖ {𝑌}))
290	244	oveq1i 7431	. . . . . . . . . . . . . . . 16 ⊢ (𝐻 − 1) = ((♯‘𝐼) − 1)
291	288, 289, 290	3eqtr4g 2820	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝐽) = (𝐻 − 1))
292	291	oveq1d 7436	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((♯‘𝐽) + 1) = ((𝐻 − 1) + 1))
293	247	nn0cnd 12673	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐻 ∈ ℂ)
294		1cnd 11306	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℂ)
295	293, 294	npcand 11677	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐻 − 1) + 1) = 𝐻)
296	292, 295	eqtr2d 2796	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐻 = ((♯‘𝐽) + 1))
297	296	oveq1d 7436	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐻(._g‘𝑀)𝑋) = (((♯‘𝐽) + 1)(._g‘𝑀)𝑋))
298	269	oveq1d 7436	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((♯‘𝐽) − 0)(._g‘𝑀)𝑋) = ((♯‘𝐽)(._g‘𝑀)𝑋))
299	298	oveq1d 7436	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((♯‘𝐽) − 0)(._g‘𝑀)𝑋)(._r‘𝑊)𝑋) = (((♯‘𝐽)(._g‘𝑀)𝑋)(._r‘𝑊)𝑋))
300	286, 297, 299	3eqtr4rd 2806	. . . . . . . . . . 11 ⊢ (𝜑 → ((((♯‘𝐽) − 0)(._g‘𝑀)𝑋)(._r‘𝑊)𝑋) = (𝐻(._g‘𝑀)𝑋))
301	284, 300	oveq12d 7439	. . . . . . . . . 10 ⊢ (𝜑 → (((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)((((♯‘𝐽) − 0)(._g‘𝑀)𝑋)(._r‘𝑊)𝑋)) = (((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋)))
302	272, 301	eqtr2d 2796	. . . . . . . . 9 ⊢ (𝜑 → (((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋)) = ((((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 0)(._g‘𝑀)𝑋))(._r‘𝑊)𝑋))
303	52	fveq2d 6890	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (._r‘𝑅) = (._r‘(Scalar‘𝑊)))
304	141, 303	eqtrid 2807	. . . . . . . . . . . . 13 ⊢ (𝜑 → · = (._r‘(Scalar‘𝑊)))
305	304	oveqd 7438	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑍‘𝑌) · (((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))) = ((𝑍‘𝑌)(._r‘(Scalar‘𝑊))(((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))))
306	305	oveq1d 7436	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑍‘𝑌) · (((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽))))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋)) = (((𝑍‘𝑌)(._r‘(Scalar‘𝑊))(((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽))))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋)))
307	43, 5	ffvelcdmd 7086	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑍‘𝑌) ∈ 𝐵)
308	143, 144, 238, 91, 154	mulgnn0cld 19311	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((♯‘𝐽) ↑ (𝑁‘ 1 )) ∈ 𝐵)
309	162, 26, 32, 91, 159	esplympl 34246	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐽eSymPoly𝑅)‘(♯‘𝐽)) ∈ (Base‘(𝐽 mPoly 𝑅)))
310	157, 158, 159, 50, 26, 18, 309, 135	evlcl 22417	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)) ∈ 𝐵)
311	50, 141, 18, 307, 308, 310	crng12d 20492	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑍‘𝑌) · (((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))) = (((♯‘𝐽) ↑ (𝑁‘ 1 )) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))))
312	296	oveq1d 7436	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐻 ↑ (𝑁‘ 1 )) = (((♯‘𝐽) + 1) ↑ (𝑁‘ 1 )))
313	152, 150, 144, 32, 91	ringm1expp1 33841	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (((♯‘𝐽) + 1) ↑ (𝑁‘ 1 )) = (𝑁‘((♯‘𝐽) ↑ (𝑁‘ 1 ))))
314	312, 313	eqtrd 2795	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐻 ↑ (𝑁‘ 1 )) = (𝑁‘((♯‘𝐽) ↑ (𝑁‘ 1 ))))
315	314	fveq2d 6890	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑁‘(𝐻 ↑ (𝑁‘ 1 ))) = (𝑁‘(𝑁‘((♯‘𝐽) ↑ (𝑁‘ 1 )))))
316	50, 150, 151, 308	grpinvinvd 33648	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑁‘(𝑁‘((♯‘𝐽) ↑ (𝑁‘ 1 )))) = ((♯‘𝐽) ↑ (𝑁‘ 1 )))
317	315, 316	eqtrd 2795	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁‘(𝐻 ↑ (𝑁‘ 1 ))) = ((♯‘𝐽) ↑ (𝑁‘ 1 )))
318		eqid 2760	. . . . . . . . . . . . . . . 16 ⊢ (+_g‘𝑅) = (+_g‘𝑅)
319		eqid 2760	. . . . . . . . . . . . . . . 16 ⊢ (𝐽eSymPoly𝑅) = (𝐽eSymPoly𝑅)
320		eqid 2760	. . . . . . . . . . . . . . . 16 ⊢ (♯‘𝐽) = (♯‘𝐽)
321	50, 318, 141, 251, 157, 254, 319, 244, 320, 3, 23, 18, 5, 43	esplyfvn 34256	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑄‘(𝐸‘𝐻))‘𝑍) = ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽))))
322	317, 321	oveq12d 7439	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑁‘(𝐻 ↑ (𝑁‘ 1 ))) · ((𝑄‘(𝐸‘𝐻))‘𝑍)) = (((♯‘𝐽) ↑ (𝑁‘ 1 )) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))))
323	311, 322	eqtr4d 2798	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑍‘𝑌) · (((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))) = ((𝑁‘(𝐻 ↑ (𝑁‘ 1 ))) · ((𝑄‘(𝐸‘𝐻))‘𝑍)))
324	50, 141, 150, 32, 250, 260	ringmneg1 20541	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑁‘(𝐻 ↑ (𝑁‘ 1 ))) · ((𝑄‘(𝐸‘𝐻))‘𝑍)) = (𝑁‘((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))))
325	52	fveq2d 6890	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (inv_g‘𝑅) = (inv_g‘(Scalar‘𝑊)))
326	150, 325	eqtrid 2807	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 = (inv_g‘(Scalar‘𝑊)))
327	326	fveq1d 6888	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑁‘((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))) = ((inv_g‘(Scalar‘𝑊))‘((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))))
328	323, 324, 327	3eqtrd 2799	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑍‘𝑌) · (((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))) = ((inv_g‘(Scalar‘𝑊))‘((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))))
329	168	subidd 11661	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐽) − (♯‘𝐽)) = 0)
330	329	oveq1d 7436	. . . . . . . . . . . 12 ⊢ (𝜑 → (((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋) = (0(._g‘𝑀)𝑋))
331	328, 330	oveq12d 7439	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑍‘𝑌) · (((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽))))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋)) = (((inv_g‘(Scalar‘𝑊))‘((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍)))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))
332	50, 141, 32, 308, 310	ringcld 20490	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽))) ∈ 𝐵)
333	332, 54	eleqtrd 2862	. . . . . . . . . . . 12 ⊢ (𝜑 → (((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽))) ∈ (Base‘(Scalar‘𝑊)))
334	329, 240	eqeltrd 2860	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝐽) − (♯‘𝐽)) ∈ ℕ₀)
335	14, 71, 108, 334, 35	mulgnn0cld 19311	. . . . . . . . . . . 12 ⊢ (𝜑 → (((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
336		eqid 2760	. . . . . . . . . . . . 13 ⊢ (._r‘(Scalar‘𝑊)) = (._r‘(Scalar‘𝑊))
337	13, 38, 70, 39, 336	lmodvsass 21168	. . . . . . . . . . . 12 ⊢ ((𝑊 ∈ LMod ∧ ((𝑍‘𝑌) ∈ (Base‘(Scalar‘𝑊)) ∧ (((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽))) ∈ (Base‘(Scalar‘𝑊)) ∧ (((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋) ∈ (Base‘𝑊))) → (((𝑍‘𝑌)(._r‘(Scalar‘𝑊))(((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽))))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋)) = ((𝑍‘𝑌)( ·_𝑠 ‘𝑊)((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))))
338	93, 63, 333, 335, 337	syl13anc 1399	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑍‘𝑌)(._r‘(Scalar‘𝑊))(((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽))))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋)) = ((𝑍‘𝑌)( ·_𝑠 ‘𝑊)((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))))
339	306, 331, 338	3eqtr3d 2803	. . . . . . . . . 10 ⊢ (𝜑 → (((inv_g‘(Scalar‘𝑊))‘((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍)))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)) = ((𝑍‘𝑌)( ·_𝑠 ‘𝑊)((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))))
340		eqid 2760	. . . . . . . . . . 11 ⊢ (inv_g‘(Scalar‘𝑊)) = (inv_g‘(Scalar‘𝑊))
341	261, 54	eleqtrd 2862	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍)) ∈ (Base‘(Scalar‘𝑊)))
342	13, 38, 70, 237, 39, 340, 93, 262, 341	lmodvsneg 21187	. . . . . . . . . 10 ⊢ (𝜑 → ((inv_g‘𝑊)‘(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋))) = (((inv_g‘(Scalar‘𝑊))‘((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍)))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))
343	19, 13, 50, 70, 32, 332, 335	ply1vscl 22705	. . . . . . . . . . 11 ⊢ (𝜑 → ((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
344	37, 38, 39, 13, 15, 70	asclmul2 22201	. . . . . . . . . . 11 ⊢ ((𝑊 ∈ AssAlg ∧ (𝑍‘𝑌) ∈ (Base‘(Scalar‘𝑊)) ∧ ((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋)) ∈ (Base‘𝑊)) → (((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))(._r‘𝑊)(𝐴‘(𝑍‘𝑌))) = ((𝑍‘𝑌)( ·_𝑠 ‘𝑊)((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))))
345	41, 63, 343, 344	syl3anc 1398	. . . . . . . . . 10 ⊢ (𝜑 → (((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))(._r‘𝑊)(𝐴‘(𝑍‘𝑌))) = ((𝑍‘𝑌)( ·_𝑠 ‘𝑊)((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))))
346	339, 342, 345	3eqtr4d 2805	. . . . . . . . 9 ⊢ (𝜑 → ((inv_g‘𝑊)‘(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋))) = (((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))(._r‘𝑊)(𝐴‘(𝑍‘𝑌))))
347	302, 346	oveq12d 7439	. . . . . . . 8 ⊢ (𝜑 → ((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋)) − ((inv_g‘𝑊)‘(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))) = (((((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 0)(._g‘𝑀)𝑋))(._r‘𝑊)𝑋) − (((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))(._r‘𝑊)(𝐴‘(𝑍‘𝑌)))))
348	264, 347	eqtr3d 2797	. . . . . . 7 ⊢ (𝜑 → ((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋))) = (((((0 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘0))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 0)(._g‘𝑀)𝑋))(._r‘𝑊)𝑋) − (((((♯‘𝐽) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(♯‘𝐽)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (♯‘𝐽))(._g‘𝑀)𝑋))(._r‘𝑊)(𝐴‘(𝑍‘𝑌)))))
349	32	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑅 ∈ Ring)
350	349, 145	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (mulGrp‘𝑅) ∈ Mnd)
351		fzossfz 13817	. . . . . . . . . . . . . . . 16 ⊢ (0..^(♯‘𝐽)) ⊆ (0...(♯‘𝐽))
352		simpr 490	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑘 ∈ (0..^(♯‘𝐽)))
353	351, 352	sselid 3906	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑘 ∈ (0...(♯‘𝐽)))
354	101, 353	sselid 3906	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑘 ∈ ℕ₀)
355		peano2nn0 12650	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ₀ → (𝑘 + 1) ∈ ℕ₀)
356	354, 355	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑘 + 1) ∈ ℕ₀)
357	154	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑁‘ 1 ) ∈ 𝐵)
358	143, 144, 350, 356, 357	mulgnn0cld 19311	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑘 + 1) ↑ (𝑁‘ 1 )) ∈ 𝐵)
359	26	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝐽 ∈ Fin)
360	18	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑅 ∈ CRing)
361	162, 359, 349, 356, 159	esplympl 34246	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝐽eSymPoly𝑅)‘(𝑘 + 1)) ∈ (Base‘(𝐽 mPoly 𝑅)))
362	135	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑍 ↾ 𝐽) ∈ (𝐵 ↑_m 𝐽))
363	157, 158, 159, 50, 359, 360, 361, 362	evlcl 22417	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)) ∈ 𝐵)
364	43	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑍:𝐼⟶𝐵)
365	5	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑌 ∈ 𝐼)
366	364, 365	ffvelcdmd 7086	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑍‘𝑌) ∈ 𝐵)
367	162, 359, 349, 354, 159	esplympl 34246	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝐽eSymPoly𝑅)‘𝑘) ∈ (Base‘(𝐽 mPoly 𝑅)))
368	157, 158, 159, 50, 359, 360, 367, 362	evlcl 22417	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)) ∈ 𝐵)
369	50, 141, 349, 366, 368	ringcld 20490	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) ∈ 𝐵)
370	50, 318, 141, 349, 358, 363, 369	ringdid 20497	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))(+_g‘𝑅)((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))) = ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))(+_g‘𝑅)(((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))))
371	23	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝐼 ∈ Fin)
372	254	fveq1i 6887	. . . . . . . . . . . . . 14 ⊢ (𝐸‘(𝑘 + 1)) = ((𝐼eSymPoly𝑅)‘(𝑘 + 1))
373	141, 371, 360, 365, 3, 319, 353, 162, 372, 50, 251, 157, 318, 364	esplyindfv 34255	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍) = (((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))(+_g‘𝑅)(((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))))
374	32	ringabld 20518	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑅 ∈ Abel)
375	374	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑅 ∈ Abel)
376	50, 318, 375, 369, 363	ablcomd 33653	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))(+_g‘𝑅)(((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))) = ((((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))(+_g‘𝑅)((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))
377	373, 376	eqtrd 2795	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍) = ((((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))(+_g‘𝑅)((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))
378	377	oveq2d 7437	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍)) = (((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))(+_g‘𝑅)((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))))
379		eqid 2760	. . . . . . . . . . . 12 ⊢ (-_g‘𝑅) = (-_g‘𝑅)
380	151	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑅 ∈ Grp)
381	50, 141, 349, 358, 363	ringcld 20490	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))) ∈ 𝐵)
382	50, 141, 349, 358, 369	ringcld 20490	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))) ∈ 𝐵)
383	50, 318, 379, 150, 380, 381, 382	grpsubinv 19228	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))(-_g‘𝑅)(𝑁‘(((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))) = ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))(+_g‘𝑅)(((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))))
384	370, 378, 383	3eqtr4d 2805	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍)) = ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))(-_g‘𝑅)(𝑁‘(((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))))
385	52	fveq2d 6890	. . . . . . . . . . . 12 ⊢ (𝜑 → (-_g‘𝑅) = (-_g‘(Scalar‘𝑊)))
386	385	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (-_g‘𝑅) = (-_g‘(Scalar‘𝑊)))
387		eqidd 2761	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))) = (((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))))
388	238	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ₀) → (mulGrp‘𝑅) ∈ Mnd)
389		simpr 490	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ₀) → 𝑘 ∈ ℕ₀)
390	154	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ₀) → (𝑁‘ 1 ) ∈ 𝐵)
391	143, 144, 388, 389, 390	mulgnn0cld 19311	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ₀) → (𝑘 ↑ (𝑁‘ 1 )) ∈ 𝐵)
392	354, 391	syldan 603	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑘 ↑ (𝑁‘ 1 )) ∈ 𝐵)
393	50, 141, 349, 392, 368, 366	ringassd 20491	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌)) = ((𝑘 ↑ (𝑁‘ 1 )) · ((((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)) · (𝑍‘𝑌))))
394	152, 150, 144, 349, 354	ringm1expp1 33841	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑘 + 1) ↑ (𝑁‘ 1 )) = (𝑁‘(𝑘 ↑ (𝑁‘ 1 ))))
395	394	fveq2d 6890	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑁‘((𝑘 + 1) ↑ (𝑁‘ 1 ))) = (𝑁‘(𝑁‘(𝑘 ↑ (𝑁‘ 1 )))))
396	50, 150, 380, 392	grpinvinvd 33648	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑁‘(𝑁‘(𝑘 ↑ (𝑁‘ 1 )))) = (𝑘 ↑ (𝑁‘ 1 )))
397	395, 396	eqtrd 2795	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑁‘((𝑘 + 1) ↑ (𝑁‘ 1 ))) = (𝑘 ↑ (𝑁‘ 1 )))
398	50, 141, 360, 366, 368	crngcomd 20488	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) = ((((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)) · (𝑍‘𝑌)))
399	397, 398	oveq12d 7439	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑁‘((𝑘 + 1) ↑ (𝑁‘ 1 ))) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))) = ((𝑘 ↑ (𝑁‘ 1 )) · ((((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)) · (𝑍‘𝑌))))
400	50, 141, 150, 349, 358, 369	ringmneg1 20541	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑁‘((𝑘 + 1) ↑ (𝑁‘ 1 ))) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))) = (𝑁‘(((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))))
401	393, 399, 400	3eqtr2rd 2802	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑁‘(((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))) = (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌)))
402	386, 387, 401	oveq123d 7442	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))(-_g‘𝑅)(𝑁‘(((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑍‘𝑌) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))) = ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))(-_g‘(Scalar‘𝑊))(((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌))))
403	384, 402	eqtrd 2795	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍)) = ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))(-_g‘(Scalar‘𝑊))(((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌))))
404	403	oveq1d 7436	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)) = (((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))(-_g‘(Scalar‘𝑊))(((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌)))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)))
405		eqid 2760	. . . . . . . . 9 ⊢ (-_g‘(Scalar‘𝑊)) = (-_g‘(Scalar‘𝑊))
406	349, 92	syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑊 ∈ LMod)
407	54	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝐵 = (Base‘(Scalar‘𝑊)))
408	381, 407	eleqtrd 2862	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽))) ∈ (Base‘(Scalar‘𝑊)))
409	50, 141, 349, 392, 368	ringcld 20490	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) ∈ 𝐵)
410	50, 141, 349, 409, 366	ringcld 20490	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌)) ∈ 𝐵)
411	410, 407	eleqtrd 2862	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌)) ∈ (Base‘(Scalar‘𝑊)))
412	108	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑀 ∈ Mnd)
413		fz0ssnn0 13760	. . . . . . . . . . 11 ⊢ (0...𝐻) ⊆ ℕ₀
414		fzossfz 13817	. . . . . . . . . . . 12 ⊢ (0..^𝐻) ⊆ (0...𝐻)
415		fzssp1 13705	. . . . . . . . . . . . . . . 16 ⊢ (1...(♯‘𝐽)) ⊆ (1...((♯‘𝐽) + 1))
416	296	oveq2d 7437	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1...𝐻) = (1...((♯‘𝐽) + 1)))
417	415, 416	sseqtrrid 3951	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (1...(♯‘𝐽)) ⊆ (1...𝐻))
418	417	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (1...(♯‘𝐽)) ⊆ (1...𝐻))
419	359, 90	syl 18	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (♯‘𝐽) ∈ ℕ₀)
420		fz0add1fz1 13874	. . . . . . . . . . . . . . 15 ⊢ (((♯‘𝐽) ∈ ℕ₀ ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑘 + 1) ∈ (1...(♯‘𝐽)))
421	419, 352, 420	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑘 + 1) ∈ (1...(♯‘𝐽)))
422	418, 421	sseldd 3909	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑘 + 1) ∈ (1...𝐻))
423		ubmelfzo 13869	. . . . . . . . . . . . 13 ⊢ ((𝑘 + 1) ∈ (1...𝐻) → (𝐻 − (𝑘 + 1)) ∈ (0..^𝐻))
424	422, 423	syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝐻 − (𝑘 + 1)) ∈ (0..^𝐻))
425	414, 424	sselid 3906	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝐻 − (𝑘 + 1)) ∈ (0...𝐻))
426	413, 425	sselid 3906	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝐻 − (𝑘 + 1)) ∈ ℕ₀)
427	349, 34	syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑋 ∈ (Base‘𝑊))
428	14, 71, 412, 426, 427	mulgnn0cld 19311	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
429	13, 70, 38, 39, 27, 405, 406, 408, 411, 428	lmodsubdir 21201	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))(-_g‘(Scalar‘𝑊))(((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌)))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)) = (((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)) − ((((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋))))
430	296	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝐻 = ((♯‘𝐽) + 1))
431	430	oveq1d 7436	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝐻 − (𝑘 + 1)) = (((♯‘𝐽) + 1) − (𝑘 + 1)))
432	168	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (♯‘𝐽) ∈ ℂ)
433		1cnd 11306	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 1 ∈ ℂ)
434	356	nn0cnd 12673	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑘 + 1) ∈ ℂ)
435	432, 433, 434	addsubd 11694	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((♯‘𝐽) + 1) − (𝑘 + 1)) = (((♯‘𝐽) − (𝑘 + 1)) + 1))
436	431, 435	eqtrd 2795	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝐻 − (𝑘 + 1)) = (((♯‘𝐽) − (𝑘 + 1)) + 1))
437	436	oveq1d 7436	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋) = ((((♯‘𝐽) − (𝑘 + 1)) + 1)(._g‘𝑀)𝑋))
438		fzofzp1 13903	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (0..^(♯‘𝐽)) → (𝑘 + 1) ∈ (0...(♯‘𝐽)))
439	438	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑘 + 1) ∈ (0...(♯‘𝐽)))
440		fznn0sub2 13773	. . . . . . . . . . . . . . 15 ⊢ ((𝑘 + 1) ∈ (0...(♯‘𝐽)) → ((♯‘𝐽) − (𝑘 + 1)) ∈ (0...(♯‘𝐽)))
441	439, 440	syl 18	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((♯‘𝐽) − (𝑘 + 1)) ∈ (0...(♯‘𝐽)))
442	101, 441	sselid 3906	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((♯‘𝐽) − (𝑘 + 1)) ∈ ℕ₀)
443	14, 71, 16	mulgnn0p1 19301	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ Mnd ∧ ((♯‘𝐽) − (𝑘 + 1)) ∈ ℕ₀ ∧ 𝑋 ∈ (Base‘𝑊)) → ((((♯‘𝐽) − (𝑘 + 1)) + 1)(._g‘𝑀)𝑋) = ((((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋)(._r‘𝑊)𝑋))
444	412, 442, 427, 443	syl3anc 1398	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((((♯‘𝐽) − (𝑘 + 1)) + 1)(._g‘𝑀)𝑋) = ((((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋)(._r‘𝑊)𝑋))
445	437, 444	eqtrd 2795	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋) = ((((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋)(._r‘𝑊)𝑋))
446	445	oveq2d 7437	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)) = ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)((((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋)(._r‘𝑊)𝑋)))
447	360, 40	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑊 ∈ AssAlg)
448	14, 71, 412, 442, 427	mulgnn0cld 19311	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
449	13, 38, 39, 70, 15, 447, 408, 448, 427	assaassd 34134	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋))(._r‘𝑊)𝑋) = ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)((((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋)(._r‘𝑊)𝑋)))
450	446, 449	eqtr4d 2798	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)) = (((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋))(._r‘𝑊)𝑋))
451	63	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝑍‘𝑌) ∈ (Base‘(Scalar‘𝑊)))
452	409, 407	eleqtrd 2862	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) ∈ (Base‘(Scalar‘𝑊)))
453		fznn0sub2 13773	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (0...(♯‘𝐽)) → ((♯‘𝐽) − 𝑘) ∈ (0...(♯‘𝐽)))
454	353, 453	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((♯‘𝐽) − 𝑘) ∈ (0...(♯‘𝐽)))
455	101, 454	sselid 3906	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((♯‘𝐽) − 𝑘) ∈ ℕ₀)
456	14, 71, 412, 455, 427	mulgnn0cld 19311	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
457	13, 38, 70, 39, 336	lmodvsass 21168	. . . . . . . . . . 11 ⊢ ((𝑊 ∈ LMod ∧ ((𝑍‘𝑌) ∈ (Base‘(Scalar‘𝑊)) ∧ ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) ∈ (Base‘(Scalar‘𝑊)) ∧ (((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋) ∈ (Base‘𝑊))) → (((𝑍‘𝑌)(._r‘(Scalar‘𝑊))((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)) = ((𝑍‘𝑌)( ·_𝑠 ‘𝑊)(((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))))
458	406, 451, 452, 456, 457	syl13anc 1399	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑍‘𝑌)(._r‘(Scalar‘𝑊))((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)) = ((𝑍‘𝑌)( ·_𝑠 ‘𝑊)(((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))))
459	50, 141, 360, 409, 366	crngcomd 20488	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌)) = ((𝑍‘𝑌) · ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))
460	304	oveqd 7438	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑍‘𝑌) · ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))) = ((𝑍‘𝑌)(._r‘(Scalar‘𝑊))((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))
461	460	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝑍‘𝑌) · ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))) = ((𝑍‘𝑌)(._r‘(Scalar‘𝑊))((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))
462	459, 461	eqtrd 2795	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌)) = ((𝑍‘𝑌)(._r‘(Scalar‘𝑊))((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))))
463	291	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (♯‘𝐽) = (𝐻 − 1))
464	463	oveq1d 7436	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((♯‘𝐽) − 𝑘) = ((𝐻 − 1) − 𝑘))
465	293	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝐻 ∈ ℂ)
466	354	nn0cnd 12673	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → 𝑘 ∈ ℂ)
467	465, 466, 433	sub32d 11705	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝐻 − 𝑘) − 1) = ((𝐻 − 1) − 𝑘))
468	465, 466, 433	subsub4d 11704	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝐻 − 𝑘) − 1) = (𝐻 − (𝑘 + 1)))
469	464, 467, 468	3eqtr2rd 2802	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (𝐻 − (𝑘 + 1)) = ((♯‘𝐽) − 𝑘))
470	469	oveq1d 7436	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋) = (((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))
471	462, 470	oveq12d 7439	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)) = (((𝑍‘𝑌)(._r‘(Scalar‘𝑊))((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))
472	19, 13, 50, 70, 349, 409, 456	ply1vscl 22705	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
473	37, 38, 39, 13, 15, 70	asclmul2 22201	. . . . . . . . . . 11 ⊢ ((𝑊 ∈ AssAlg ∧ (𝑍‘𝑌) ∈ (Base‘(Scalar‘𝑊)) ∧ (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)) ∈ (Base‘𝑊)) → ((((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))(._r‘𝑊)(𝐴‘(𝑍‘𝑌))) = ((𝑍‘𝑌)( ·_𝑠 ‘𝑊)(((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))))
474	447, 451, 472, 473	syl3anc 1398	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))(._r‘𝑊)(𝐴‘(𝑍‘𝑌))) = ((𝑍‘𝑌)( ·_𝑠 ‘𝑊)(((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))))
475	458, 471, 474	3eqtr4d 2805	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)) = ((((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))(._r‘𝑊)(𝐴‘(𝑍‘𝑌))))
476	450, 475	oveq12d 7439	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → (((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)) − ((((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) · (𝑍‘𝑌))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋))) = ((((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋))(._r‘𝑊)𝑋) − ((((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))(._r‘𝑊)(𝐴‘(𝑍‘𝑌)))))
477	404, 429, 476	3eqtrd 2799	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) → ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)) = ((((((𝑘 + 1) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘(𝑘 + 1)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − (𝑘 + 1))(._g‘𝑀)𝑋))(._r‘𝑊)𝑋) − ((((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))(._r‘𝑊)(𝐴‘(𝑍‘𝑌)))))
478	13, 189, 27, 15, 29, 35, 64, 91, 208, 215, 222, 229, 236, 348, 477	gsummulsubdishift2s 33679	. . . . . 6 ⊢ (𝜑 → ((𝑊 Σ_g (𝑘 ∈ (0...(♯‘𝐽)) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))))(._r‘𝑊)(𝑋 − (𝐴‘(𝑍‘𝑌)))) = ((𝑊 Σ_g (𝑘 ∈ (0..^(♯‘𝐽)) ↦ ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋))))(+_g‘𝑊)((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))))
479	32	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → 𝑅 ∈ Ring)
480	479, 145	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → (mulGrp‘𝑅) ∈ Mnd)
481	101	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → (0...(♯‘𝐽)) ⊆ ℕ₀)
482	481	sselda 3908	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → 𝑘 ∈ ℕ₀)
483	154	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → (𝑁‘ 1 ) ∈ 𝐵)
484	143, 144, 480, 482, 483	mulgnn0cld 19311	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → (𝑘 ↑ (𝑁‘ 1 )) ∈ 𝐵)
485	26	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → 𝐽 ∈ Fin)
486	18	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → 𝑅 ∈ CRing)
487	162, 485, 479, 482, 159	esplympl 34246	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → ((𝐽eSymPoly𝑅)‘𝑘) ∈ (Base‘(𝐽 mPoly 𝑅)))
488	135	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → (𝑍 ↾ 𝐽) ∈ (𝐵 ↑_m 𝐽))
489	157, 158, 159, 50, 485, 486, 487, 488	evlcl 22417	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)) ∈ 𝐵)
490	50, 141, 479, 484, 489	ringcld 20490	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) ∈ 𝐵)
491	108	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → 𝑀 ∈ Mnd)
492	453	adantl 487	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → ((♯‘𝐽) − 𝑘) ∈ (0...(♯‘𝐽)))
493	101, 492	sselid 3906	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → ((♯‘𝐽) − 𝑘) ∈ ℕ₀)
494	35	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → 𝑋 ∈ (Base‘𝑊))
495	14, 71, 491, 493, 494	mulgnn0cld 19311	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → (((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
496	19, 13, 50, 70, 479, 490, 495	ply1vscl 22705	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...(♯‘𝐽))) → (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
497		oveq1 7428	. . . . . . . . . . 11 ⊢ (𝑘 = ((♯‘𝐽) − 𝑙) → (𝑘 ↑ (𝑁‘ 1 )) = (((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )))
498		2fveq3 6891	. . . . . . . . . . . 12 ⊢ (𝑘 = ((♯‘𝐽) − 𝑙) → ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘)) = ((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙))))
499	498	fveq1d 6888	. . . . . . . . . . 11 ⊢ (𝑘 = ((♯‘𝐽) − 𝑙) → (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)) = (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))
500	497, 499	oveq12d 7439	. . . . . . . . . 10 ⊢ (𝑘 = ((♯‘𝐽) − 𝑙) → ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) = ((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽))))
501	500	adantl 487	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) ∧ 𝑘 = ((♯‘𝐽) − 𝑙)) → ((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽))) = ((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽))))
502		simpr 490	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) ∧ 𝑘 = ((♯‘𝐽) − 𝑙)) → 𝑘 = ((♯‘𝐽) − 𝑙))
503	502	oveq2d 7437	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) ∧ 𝑘 = ((♯‘𝐽) − 𝑙)) → ((♯‘𝐽) − 𝑘) = ((♯‘𝐽) − ((♯‘𝐽) − 𝑙)))
504	168	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) ∧ 𝑘 = ((♯‘𝐽) − 𝑙)) → (♯‘𝐽) ∈ ℂ)
505	103	adantr 486	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) ∧ 𝑘 = ((♯‘𝐽) − 𝑙)) → 𝑙 ∈ ℕ₀)
506	505	nn0cnd 12673	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) ∧ 𝑘 = ((♯‘𝐽) − 𝑙)) → 𝑙 ∈ ℂ)
507	504, 506	nncand 11678	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) ∧ 𝑘 = ((♯‘𝐽) − 𝑙)) → ((♯‘𝐽) − ((♯‘𝐽) − 𝑙)) = 𝑙)
508	503, 507	eqtrd 2795	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) ∧ 𝑘 = ((♯‘𝐽) − 𝑙)) → ((♯‘𝐽) − 𝑘) = 𝑙)
509	508	oveq1d 7436	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) ∧ 𝑘 = ((♯‘𝐽) − 𝑙)) → (((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋) = (𝑙(._g‘𝑀)𝑋))
510	501, 509	oveq12d 7439	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) ∧ 𝑘 = ((♯‘𝐽) − 𝑙)) → (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)) = (((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))
511	13, 89, 91, 496, 510	gsummptrev 33664	. . . . . . 7 ⊢ (𝜑 → (𝑊 Σ_g (𝑘 ∈ (0...(♯‘𝐽)) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))
512	511	oveq1d 7436	. . . . . 6 ⊢ (𝜑 → ((𝑊 Σ_g (𝑘 ∈ (0...(♯‘𝐽)) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘𝑘))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(((♯‘𝐽) − 𝑘)(._g‘𝑀)𝑋))))(._r‘𝑊)(𝑋 − (𝐴‘(𝑍‘𝑌)))) = ((𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋))))(._r‘𝑊)(𝑋 − (𝐴‘(𝑍‘𝑌)))))
513	32	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → 𝑅 ∈ Ring)
514	513, 145	syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → (mulGrp‘𝑅) ∈ Mnd)
515		fz1ssfz0 13761	. . . . . . . . . . . . . . 15 ⊢ (1...(♯‘𝐽)) ⊆ (0...(♯‘𝐽))
516	515, 101	sstri 3917	. . . . . . . . . . . . . 14 ⊢ (1...(♯‘𝐽)) ⊆ ℕ₀
517	516	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1...(♯‘𝐽)) ⊆ ℕ₀)
518	517	sselda 3908	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → 𝑙 ∈ ℕ₀)
519	154	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → (𝑁‘ 1 ) ∈ 𝐵)
520	143, 144, 514, 518, 519	mulgnn0cld 19311	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → (𝑙 ↑ (𝑁‘ 1 )) ∈ 𝐵)
521	23	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → 𝐼 ∈ Fin)
522	18	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → 𝑅 ∈ CRing)
523	254	fveq1i 6887	. . . . . . . . . . . . 13 ⊢ (𝐸‘𝑙) = ((𝐼eSymPoly𝑅)‘𝑙)
524	256, 521, 513, 518, 253	esplympl 34246	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → ((𝐼eSymPoly𝑅)‘𝑙) ∈ (Base‘(𝐼 mPoly 𝑅)))
525	523, 524	eqeltrid 2864	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → (𝐸‘𝑙) ∈ (Base‘(𝐼 mPoly 𝑅)))
526	259	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → 𝑍 ∈ (𝐵 ↑_m 𝐼))
527	251, 252, 253, 50, 521, 522, 525, 526	evlcl 22417	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → ((𝑄‘(𝐸‘𝑙))‘𝑍) ∈ 𝐵)
528	50, 141, 513, 520, 527	ringcld 20490	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → ((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍)) ∈ 𝐵)
529	108	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → 𝑀 ∈ Mnd)
530		fzssp1 13705	. . . . . . . . . . . . . . . 16 ⊢ (0...(♯‘𝐽)) ⊆ (0...((♯‘𝐽) + 1))
531	296	oveq2d 7437	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (0...𝐻) = (0...((♯‘𝐽) + 1)))
532	530, 531	sseqtrrid 3951	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (0...(♯‘𝐽)) ⊆ (0...𝐻))
533	515, 532	sstrid 3919	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1...(♯‘𝐽)) ⊆ (0...𝐻))
534	533	sselda 3908	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → 𝑙 ∈ (0...𝐻))
535		fznn0sub2 13773	. . . . . . . . . . . . 13 ⊢ (𝑙 ∈ (0...𝐻) → (𝐻 − 𝑙) ∈ (0...𝐻))
536	534, 535	syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → (𝐻 − 𝑙) ∈ (0...𝐻))
537	413, 536	sselid 3906	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → (𝐻 − 𝑙) ∈ ℕ₀)
538	513, 34	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → 𝑋 ∈ (Base‘𝑊))
539	14, 71, 529, 537, 538	mulgnn0cld 19311	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → ((𝐻 − 𝑙)(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
540	19, 13, 50, 70, 513, 528, 539	ply1vscl 22705	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑙 ∈ (1...(♯‘𝐽))) → (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
541		oveq1 7428	. . . . . . . . . . . 12 ⊢ (𝑙 = (𝑘 + 1) → (𝑙 ↑ (𝑁‘ 1 )) = ((𝑘 + 1) ↑ (𝑁‘ 1 )))
542		2fveq3 6891	. . . . . . . . . . . . 13 ⊢ (𝑙 = (𝑘 + 1) → (𝑄‘(𝐸‘𝑙)) = (𝑄‘(𝐸‘(𝑘 + 1))))
543	542	fveq1d 6888	. . . . . . . . . . . 12 ⊢ (𝑙 = (𝑘 + 1) → ((𝑄‘(𝐸‘𝑙))‘𝑍) = ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍))
544	541, 543	oveq12d 7439	. . . . . . . . . . 11 ⊢ (𝑙 = (𝑘 + 1) → ((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍)) = (((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍)))
545		oveq2 7429	. . . . . . . . . . . 12 ⊢ (𝑙 = (𝑘 + 1) → (𝐻 − 𝑙) = (𝐻 − (𝑘 + 1)))
546	545	oveq1d 7436	. . . . . . . . . . 11 ⊢ (𝑙 = (𝑘 + 1) → ((𝐻 − 𝑙)(._g‘𝑀)𝑋) = ((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋))
547	544, 546	oveq12d 7439	. . . . . . . . . 10 ⊢ (𝑙 = (𝑘 + 1) → (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)) = ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)))
548	547	adantl 487	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ (0..^(♯‘𝐽))) ∧ 𝑙 = (𝑘 + 1)) → (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)) = ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)))
549	13, 89, 91, 540, 548	gsummptp1 33665	. . . . . . . 8 ⊢ (𝜑 → (𝑊 Σ_g (𝑘 ∈ (0..^(♯‘𝐽)) ↦ ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))))
550	549	oveq1d 7436	. . . . . . 7 ⊢ (𝜑 → ((𝑊 Σ_g (𝑘 ∈ (0..^(♯‘𝐽)) ↦ ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋))))(+_g‘𝑊)((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))) = ((𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))))
551		oveq1 7428	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑙 → (𝑘 ↑ (𝑁‘ 1 )) = (𝑙 ↑ (𝑁‘ 1 )))
552		2fveq3 6891	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑙 → (𝑄‘(𝐸‘𝑘)) = (𝑄‘(𝐸‘𝑙)))
553	552	fveq1d 6888	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑙 → ((𝑄‘(𝐸‘𝑘))‘𝑍) = ((𝑄‘(𝐸‘𝑙))‘𝑍))
554	551, 553	oveq12d 7439	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑙 → ((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍)) = ((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍)))
555		oveq2 7429	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑙 → (𝐻 − 𝑘) = (𝐻 − 𝑙))
556	555	oveq1d 7436	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑙 → ((𝐻 − 𝑘)(._g‘𝑀)𝑋) = ((𝐻 − 𝑙)(._g‘𝑀)𝑋))
557	554, 556	oveq12d 7439	. . . . . . . . . . 11 ⊢ (𝑘 = 𝑙 → (((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑘)(._g‘𝑀)𝑋)) = (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))
558	557	cbvmptv 5208	. . . . . . . . . 10 ⊢ (𝑘 ∈ (0...𝐻) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑘)(._g‘𝑀)𝑋))) = (𝑙 ∈ (0...𝐻) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))
559	558	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → (𝑘 ∈ (0...𝐻) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑘)(._g‘𝑀)𝑋))) = (𝑙 ∈ (0...𝐻) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))
560	559	oveq2d 7437	. . . . . . . 8 ⊢ (𝜑 → (𝑊 Σ_g (𝑘 ∈ (0...𝐻) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑘)(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑙 ∈ (0...𝐻) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))))
561		nn0uz 13007	. . . . . . . . . . 11 ⊢ ℕ₀ = (ℤ_≥‘0)
562	247, 561	eleqtrdi 2870	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ∈ (ℤ_≥‘0))
563	32	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → 𝑅 ∈ Ring)
564	563, 145	syl 18	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → (mulGrp‘𝑅) ∈ Mnd)
565	413	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0...𝐻) ⊆ ℕ₀)
566	565	sselda 3908	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → 𝑙 ∈ ℕ₀)
567	154	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → (𝑁‘ 1 ) ∈ 𝐵)
568	143, 144, 564, 566, 567	mulgnn0cld 19311	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → (𝑙 ↑ (𝑁‘ 1 )) ∈ 𝐵)
569	23	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → 𝐼 ∈ Fin)
570	18	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → 𝑅 ∈ CRing)
571	256, 569, 563, 566, 253	esplympl 34246	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → ((𝐼eSymPoly𝑅)‘𝑙) ∈ (Base‘(𝐼 mPoly 𝑅)))
572	523, 571	eqeltrid 2864	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → (𝐸‘𝑙) ∈ (Base‘(𝐼 mPoly 𝑅)))
573	259	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → 𝑍 ∈ (𝐵 ↑_m 𝐼))
574	251, 252, 253, 50, 569, 570, 572, 573	evlcl 22417	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → ((𝑄‘(𝐸‘𝑙))‘𝑍) ∈ 𝐵)
575	50, 141, 563, 568, 574	ringcld 20490	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → ((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍)) ∈ 𝐵)
576	108	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → 𝑀 ∈ Mnd)
577		fznn0sub 13694	. . . . . . . . . . . . 13 ⊢ (𝑙 ∈ (0...𝐻) → (𝐻 − 𝑙) ∈ ℕ₀)
578	577	adantl 487	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → (𝐻 − 𝑙) ∈ ℕ₀)
579	563, 34	syl 18	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → 𝑋 ∈ (Base‘𝑊))
580	14, 71, 576, 578, 579	mulgnn0cld 19311	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → ((𝐻 − 𝑙)(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
581	19, 13, 50, 70, 563, 575, 580	ply1vscl 22705	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
582		oveq1 7428	. . . . . . . . . . . . 13 ⊢ (𝑙 = 𝐻 → (𝑙 ↑ (𝑁‘ 1 )) = (𝐻 ↑ (𝑁‘ 1 )))
583		2fveq3 6891	. . . . . . . . . . . . . 14 ⊢ (𝑙 = 𝐻 → (𝑄‘(𝐸‘𝑙)) = (𝑄‘(𝐸‘𝐻)))
584	583	fveq1d 6888	. . . . . . . . . . . . 13 ⊢ (𝑙 = 𝐻 → ((𝑄‘(𝐸‘𝑙))‘𝑍) = ((𝑄‘(𝐸‘𝐻))‘𝑍))
585	582, 584	oveq12d 7439	. . . . . . . . . . . 12 ⊢ (𝑙 = 𝐻 → ((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍)) = ((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍)))
586	585	adantl 487	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 = 𝐻) → ((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍)) = ((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍)))
587		oveq2 7429	. . . . . . . . . . . . 13 ⊢ (𝑙 = 𝐻 → (𝐻 − 𝑙) = (𝐻 − 𝐻))
588	293	subidd 11661	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐻 − 𝐻) = 0)
589	587, 588	sylan9eqr 2817	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑙 = 𝐻) → (𝐻 − 𝑙) = 0)
590	589	oveq1d 7436	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑙 = 𝐻) → ((𝐻 − 𝑙)(._g‘𝑀)𝑋) = (0(._g‘𝑀)𝑋))
591	586, 590	oveq12d 7439	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑙 = 𝐻) → (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)) = (((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))
592	13, 189, 89, 562, 581, 591	gsummptfzsplitra 33666	. . . . . . . . 9 ⊢ (𝜑 → (𝑊 Σ_g (𝑙 ∈ (0...𝐻) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))) = ((𝑊 Σ_g (𝑙 ∈ (0..^𝐻) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋))))
593	91	nn0zd 12722	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝐽) ∈ ℤ)
594		fzval3 13873	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝐽) ∈ ℤ → (0...(♯‘𝐽)) = (0..^((♯‘𝐽) + 1)))
595	593, 594	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0...(♯‘𝐽)) = (0..^((♯‘𝐽) + 1)))
596	296	oveq2d 7437	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (0..^𝐻) = (0..^((♯‘𝐽) + 1)))
597	595, 596	eqtr4d 2798	. . . . . . . . . . . . 13 ⊢ (𝜑 → (0...(♯‘𝐽)) = (0..^𝐻))
598	597	mpteq1d 5194	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))) = (𝑙 ∈ (0..^𝐻) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))
599	598	oveq2d 7437	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑙 ∈ (0..^𝐻) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))))
600	91, 561	eleqtrdi 2870	. . . . . . . . . . . . 13 ⊢ (𝜑 → (♯‘𝐽) ∈ (ℤ_≥‘0))
601	143, 144, 146, 103, 155	mulgnn0cld 19311	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (𝑙 ↑ (𝑁‘ 1 )) ∈ 𝐵)
602	23	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝐼 ∈ Fin)
603	256, 602, 110, 103, 253	esplympl 34246	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → ((𝐼eSymPoly𝑅)‘𝑙) ∈ (Base‘(𝐼 mPoly 𝑅)))
604	523, 603	eqeltrid 2864	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (𝐸‘𝑙) ∈ (Base‘(𝐼 mPoly 𝑅)))
605	259	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝑍 ∈ (𝐵 ↑_m 𝐼))
606	251, 252, 253, 50, 602, 161, 604, 605	evlcl 22417	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → ((𝑄‘(𝐸‘𝑙))‘𝑍) ∈ 𝐵)
607	50, 141, 110, 601, 606	ringcld 20490	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → ((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍)) ∈ 𝐵)
608	532	sselda 3908	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → 𝑙 ∈ (0...𝐻))
609	608, 535	syl 18	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (𝐻 − 𝑙) ∈ (0...𝐻))
610	413, 609	sselid 3906	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (𝐻 − 𝑙) ∈ ℕ₀)
611	14, 71, 109, 610, 111	mulgnn0cld 19311	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → ((𝐻 − 𝑙)(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
612	19, 13, 50, 70, 110, 607, 611	ply1vscl 22705	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...(♯‘𝐽))) → (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
613		oveq1 7428	. . . . . . . . . . . . . . . 16 ⊢ (𝑙 = 0 → (𝑙 ↑ (𝑁‘ 1 )) = (0 ↑ (𝑁‘ 1 )))
614	613	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑙 = 0) → (𝑙 ↑ (𝑁‘ 1 )) = (0 ↑ (𝑁‘ 1 )))
615		2fveq3 6891	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑙 = 0 → (𝑄‘(𝐸‘𝑙)) = (𝑄‘(𝐸‘0)))
616	615	fveq1d 6888	. . . . . . . . . . . . . . . . 17 ⊢ (𝑙 = 0 → ((𝑄‘(𝐸‘𝑙))‘𝑍) = ((𝑄‘(𝐸‘0))‘𝑍))
617	616	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑙 = 0) → ((𝑄‘(𝐸‘𝑙))‘𝑍) = ((𝑄‘(𝐸‘0))‘𝑍))
618		eqid 2760	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (1_r‘(𝐼 mPoly 𝑅)) = (1_r‘(𝐼 mPoly 𝑅))
619	23, 32, 618	esplyfval0 34243	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((𝐼eSymPoly𝑅)‘0) = (1_r‘(𝐼 mPoly 𝑅)))
620	254	fveq1i 6887	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝐸‘0) = ((𝐼eSymPoly𝑅)‘0)
621	620	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (𝐸‘0) = ((𝐼eSymPoly𝑅)‘0))
622		eqid 2760	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (algSc‘(𝐼 mPoly 𝑅)) = (algSc‘(𝐼 mPoly 𝑅))
623	252, 622, 277, 618, 23, 32	mplascl1 22340	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → ((algSc‘(𝐼 mPoly 𝑅))‘(1_r‘𝑅)) = (1_r‘(𝐼 mPoly 𝑅)))
624	619, 621, 623	3eqtr4d 2805	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → (𝐸‘0) = ((algSc‘(𝐼 mPoly 𝑅))‘(1_r‘𝑅)))
625	624	fveq2d 6890	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝑄‘(𝐸‘0)) = (𝑄‘((algSc‘(𝐼 mPoly 𝑅))‘(1_r‘𝑅))))
626	625	fveq1d 6888	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑄‘(𝐸‘0))‘𝑍) = ((𝑄‘((algSc‘(𝐼 mPoly 𝑅))‘(1_r‘𝑅)))‘𝑍))
627	626	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑙 = 0) → ((𝑄‘(𝐸‘0))‘𝑍) = ((𝑄‘((algSc‘(𝐼 mPoly 𝑅))‘(1_r‘𝑅)))‘𝑍))
628	251, 252, 50, 622, 23, 18, 242, 43	evlscaval 34219	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑄‘((algSc‘(𝐼 mPoly 𝑅))‘(1_r‘𝑅)))‘𝑍) = (1_r‘𝑅))
629	628	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑙 = 0) → ((𝑄‘((algSc‘(𝐼 mPoly 𝑅))‘(1_r‘𝑅)))‘𝑍) = (1_r‘𝑅))
630	617, 627, 629	3eqtrd 2799	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑙 = 0) → ((𝑄‘(𝐸‘𝑙))‘𝑍) = (1_r‘𝑅))
631	614, 630	oveq12d 7439	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑙 = 0) → ((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍)) = ((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅)))
632		oveq2 7429	. . . . . . . . . . . . . . . . 17 ⊢ (𝑙 = 0 → (𝐻 − 𝑙) = (𝐻 − 0))
633	632	adantl 487	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑙 = 0) → (𝐻 − 𝑙) = (𝐻 − 0))
634	293	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑙 = 0) → 𝐻 ∈ ℂ)
635	634	subid1d 11662	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑙 = 0) → (𝐻 − 0) = 𝐻)
636	633, 635	eqtrd 2795	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑙 = 0) → (𝐻 − 𝑙) = 𝐻)
637	636	oveq1d 7436	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑙 = 0) → ((𝐻 − 𝑙)(._g‘𝑀)𝑋) = (𝐻(._g‘𝑀)𝑋))
638	631, 637	oveq12d 7439	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑙 = 0) → (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)) = (((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋)))
639	13, 189, 89, 600, 612, 638	gsummptfzsplitla 33667	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))) = ((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(𝑊 Σ_g (𝑙 ∈ ((0 + 1)...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))))
640		0p1e1 12467	. . . . . . . . . . . . . . . . 17 ⊢ (0 + 1) = 1
641	640	oveq1i 7431	. . . . . . . . . . . . . . . 16 ⊢ ((0 + 1)...(♯‘𝐽)) = (1...(♯‘𝐽))
642	641	mpteq1i 5195	. . . . . . . . . . . . . . 15 ⊢ (𝑙 ∈ ((0 + 1)...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))) = (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))
643	642	oveq2i 7432	. . . . . . . . . . . . . 14 ⊢ (𝑊 Σ_g (𝑙 ∈ ((0 + 1)...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))
644	643	oveq2i 7432	. . . . . . . . . . . . 13 ⊢ ((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(𝑊 Σ_g (𝑙 ∈ ((0 + 1)...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))) = ((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))))
645	644	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(𝑊 Σ_g (𝑙 ∈ ((0 + 1)...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))) = ((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))))
646	29	ringabld 20518	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑊 ∈ Abel)
647		fzfid 14120	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1...(♯‘𝐽)) ∈ Fin)
648	540	ralrimiva 3154	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ∀𝑙 ∈ (1...(♯‘𝐽))(((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
649	13, 89, 647, 648	gsummptcl 20187	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))) ∈ (Base‘𝑊))
650	13, 189, 646, 249, 649	ablcomd 33653	. . . . . . . . . . . 12 ⊢ (𝜑 → ((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))) = ((𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)(((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))))
651	639, 645, 650	3eqtrd 2799	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))) = ((𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)(((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))))
652	599, 651	eqtr3d 2797	. . . . . . . . . 10 ⊢ (𝜑 → (𝑊 Σ_g (𝑙 ∈ (0..^𝐻) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))) = ((𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)(((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))))
653	652	oveq1d 7436	. . . . . . . . 9 ⊢ (𝜑 → ((𝑊 Σ_g (𝑙 ∈ (0..^𝐻) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋))) = (((𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)(((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋)))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋))))
654	592, 653	eqtr2d 2796	. . . . . . . 8 ⊢ (𝜑 → (((𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)(((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋)))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋))) = (𝑊 Σ_g (𝑙 ∈ (0...𝐻) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋)))))
655	13, 189, 30, 649, 249, 263	grpassd 19162	. . . . . . . 8 ⊢ (𝜑 → (((𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)(((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋)))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋))) = ((𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))))
656	560, 654, 655	3eqtr2rd 2802	. . . . . . 7 ⊢ (𝜑 → ((𝑊 Σ_g (𝑙 ∈ (1...(♯‘𝐽)) ↦ (((𝑙 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑙))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑙)(._g‘𝑀)𝑋))))(+_g‘𝑊)((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑘 ∈ (0...𝐻) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑘)(._g‘𝑀)𝑋)))))
657	32	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → 𝑅 ∈ Ring)
658	657, 145	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → (mulGrp‘𝑅) ∈ Mnd)
659	565	sselda 3908	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → 𝑘 ∈ ℕ₀)
660	154	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → (𝑁‘ 1 ) ∈ 𝐵)
661	143, 144, 658, 659, 660	mulgnn0cld 19311	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → (𝑘 ↑ (𝑁‘ 1 )) ∈ 𝐵)
662	23	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → 𝐼 ∈ Fin)
663	18	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → 𝑅 ∈ CRing)
664	254	fveq1i 6887	. . . . . . . . . . . 12 ⊢ (𝐸‘𝑘) = ((𝐼eSymPoly𝑅)‘𝑘)
665	256, 662, 657, 659, 253	esplympl 34246	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → ((𝐼eSymPoly𝑅)‘𝑘) ∈ (Base‘(𝐼 mPoly 𝑅)))
666	664, 665	eqeltrid 2864	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → (𝐸‘𝑘) ∈ (Base‘(𝐼 mPoly 𝑅)))
667	259	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → 𝑍 ∈ (𝐵 ↑_m 𝐼))
668	251, 252, 253, 50, 662, 663, 666, 667	evlcl 22417	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → ((𝑄‘(𝐸‘𝑘))‘𝑍) ∈ 𝐵)
669	50, 141, 657, 661, 668	ringcld 20490	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → ((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍)) ∈ 𝐵)
670	108	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → 𝑀 ∈ Mnd)
671		fznn0sub2 13773	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (0...𝐻) → (𝐻 − 𝑘) ∈ (0...𝐻))
672	671	adantl 487	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → (𝐻 − 𝑘) ∈ (0...𝐻))
673	413, 672	sselid 3906	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → (𝐻 − 𝑘) ∈ ℕ₀)
674	35	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → 𝑋 ∈ (Base‘𝑊))
675	14, 71, 670, 673, 674	mulgnn0cld 19311	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → ((𝐻 − 𝑘)(._g‘𝑀)𝑋) ∈ (Base‘𝑊))
676	19, 13, 50, 70, 657, 669, 675	ply1vscl 22705	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝐻)) → (((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑘)(._g‘𝑀)𝑋)) ∈ (Base‘𝑊))
677		oveq1 7428	. . . . . . . . . . 11 ⊢ (𝑘 = (𝐻 − 𝑙) → (𝑘 ↑ (𝑁‘ 1 )) = ((𝐻 − 𝑙) ↑ (𝑁‘ 1 )))
678		2fveq3 6891	. . . . . . . . . . . 12 ⊢ (𝑘 = (𝐻 − 𝑙) → (𝑄‘(𝐸‘𝑘)) = (𝑄‘(𝐸‘(𝐻 − 𝑙))))
679	678	fveq1d 6888	. . . . . . . . . . 11 ⊢ (𝑘 = (𝐻 − 𝑙) → ((𝑄‘(𝐸‘𝑘))‘𝑍) = ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍))
680	677, 679	oveq12d 7439	. . . . . . . . . 10 ⊢ (𝑘 = (𝐻 − 𝑙) → ((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍)) = (((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍)))
681	680	adantl 487	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...𝐻)) ∧ 𝑘 = (𝐻 − 𝑙)) → ((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍)) = (((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍)))
682		simpr 490	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...𝐻)) ∧ 𝑘 = (𝐻 − 𝑙)) → 𝑘 = (𝐻 − 𝑙))
683	682	oveq2d 7437	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...𝐻)) ∧ 𝑘 = (𝐻 − 𝑙)) → (𝐻 − 𝑘) = (𝐻 − (𝐻 − 𝑙)))
684	293	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...𝐻)) ∧ 𝑘 = (𝐻 − 𝑙)) → 𝐻 ∈ ℂ)
685	566	adantr 486	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...𝐻)) ∧ 𝑘 = (𝐻 − 𝑙)) → 𝑙 ∈ ℕ₀)
686	685	nn0cnd 12673	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...𝐻)) ∧ 𝑘 = (𝐻 − 𝑙)) → 𝑙 ∈ ℂ)
687	684, 686	nncand 11678	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...𝐻)) ∧ 𝑘 = (𝐻 − 𝑙)) → (𝐻 − (𝐻 − 𝑙)) = 𝑙)
688	683, 687	eqtrd 2795	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...𝐻)) ∧ 𝑘 = (𝐻 − 𝑙)) → (𝐻 − 𝑘) = 𝑙)
689	688	oveq1d 7436	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...𝐻)) ∧ 𝑘 = (𝐻 − 𝑙)) → ((𝐻 − 𝑘)(._g‘𝑀)𝑋) = (𝑙(._g‘𝑀)𝑋))
690	681, 689	oveq12d 7439	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑙 ∈ (0...𝐻)) ∧ 𝑘 = (𝐻 − 𝑙)) → (((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑘)(._g‘𝑀)𝑋)) = ((((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))
691	13, 89, 247, 676, 690	gsummptrev 33664	. . . . . . 7 ⊢ (𝜑 → (𝑊 Σ_g (𝑘 ∈ (0...𝐻) ↦ (((𝑘 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝑘))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − 𝑘)(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑙 ∈ (0...𝐻) ↦ ((((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))
692	550, 656, 691	3eqtrd 2799	. . . . . 6 ⊢ (𝜑 → ((𝑊 Σ_g (𝑘 ∈ (0..^(♯‘𝐽)) ↦ ((((𝑘 + 1) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝑘 + 1)))‘𝑍))( ·_𝑠 ‘𝑊)((𝐻 − (𝑘 + 1))(._g‘𝑀)𝑋))))(+_g‘𝑊)((((0 ↑ (𝑁‘ 1 )) · (1_r‘𝑅))( ·_𝑠 ‘𝑊)(𝐻(._g‘𝑀)𝑋))(+_g‘𝑊)(((𝐻 ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘𝐻))‘𝑍))( ·_𝑠 ‘𝑊)(0(._g‘𝑀)𝑋)))) = (𝑊 Σ_g (𝑙 ∈ (0...𝐻) ↦ ((((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))
693	478, 512, 692	3eqtr3d 2803	. . . . 5 ⊢ (𝜑 → ((𝑊 Σ_g (𝑙 ∈ (0...(♯‘𝐽)) ↦ (((((♯‘𝐽) − 𝑙) ↑ (𝑁‘ 1 )) · (((𝐽 eval 𝑅)‘((𝐽eSymPoly𝑅)‘((♯‘𝐽) − 𝑙)))‘(𝑍 ↾ 𝐽)))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋))))(._r‘𝑊)(𝑋 − (𝐴‘(𝑍‘𝑌)))) = (𝑊 Σ_g (𝑙 ∈ (0...𝐻) ↦ ((((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))
694	69, 188, 693	3eqtrd 2799	. . . 4 ⊢ (𝜑 → 𝐹 = (𝑊 Σ_g (𝑙 ∈ (0...𝐻) ↦ ((((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))
695	694	fveq2d 6890	. . 3 ⊢ (𝜑 → (coe₁‘𝐹) = (coe₁‘(𝑊 Σ_g (𝑙 ∈ (0...𝐻) ↦ ((((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋))))))
696	695	fveq1d 6888	. 2 ⊢ (𝜑 → ((coe₁‘𝐹)‘𝐾) = ((coe₁‘(𝑊 Σ_g (𝑙 ∈ (0...𝐻) ↦ ((((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))‘𝐾))
697	12	fveq2i 6889	. . 3 ⊢ (._g‘𝑀) = (._g‘(mulGrp‘𝑊))
698	143, 144, 564, 578, 567	mulgnn0cld 19311	. . . . 5 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → ((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) ∈ 𝐵)
699	254	fveq1i 6887	. . . . . . 7 ⊢ (𝐸‘(𝐻 − 𝑙)) = ((𝐼eSymPoly𝑅)‘(𝐻 − 𝑙))
700	256, 569, 563, 578, 253	esplympl 34246	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → ((𝐼eSymPoly𝑅)‘(𝐻 − 𝑙)) ∈ (Base‘(𝐼 mPoly 𝑅)))
701	699, 700	eqeltrid 2864	. . . . . 6 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → (𝐸‘(𝐻 − 𝑙)) ∈ (Base‘(𝐼 mPoly 𝑅)))
702	251, 252, 253, 50, 569, 570, 701, 573	evlcl 22417	. . . . 5 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍) ∈ 𝐵)
703	50, 141, 563, 698, 702	ringcld 20490	. . . 4 ⊢ ((𝜑 ∧ 𝑙 ∈ (0...𝐻)) → (((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍)) ∈ 𝐵)
704	703	ralrimiva 3154	. . 3 ⊢ (𝜑 → ∀𝑙 ∈ (0...𝐻)(((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍)) ∈ 𝐵)
705		vieta.k	. . 3 ⊢ (𝜑 → 𝐾 ∈ (0...𝐻))
706		oveq2 7429	. . . . 5 ⊢ (𝑙 = 𝐾 → (𝐻 − 𝑙) = (𝐻 − 𝐾))
707	706	oveq1d 7436	. . . 4 ⊢ (𝑙 = 𝐾 → ((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) = ((𝐻 − 𝐾) ↑ (𝑁‘ 1 )))
708	706	fveq2d 6890	. . . . . 6 ⊢ (𝑙 = 𝐾 → (𝐸‘(𝐻 − 𝑙)) = (𝐸‘(𝐻 − 𝐾)))
709	708	fveq2d 6890	. . . . 5 ⊢ (𝑙 = 𝐾 → (𝑄‘(𝐸‘(𝐻 − 𝑙))) = (𝑄‘(𝐸‘(𝐻 − 𝐾))))
710	709	fveq1d 6888	. . . 4 ⊢ (𝑙 = 𝐾 → ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍) = ((𝑄‘(𝐸‘(𝐻 − 𝐾)))‘𝑍))
711	707, 710	oveq12d 7439	. . 3 ⊢ (𝑙 = 𝐾 → (((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍)) = (((𝐻 − 𝐾) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝐾)))‘𝑍)))
712	19, 13, 33, 697, 32, 50, 70, 247, 704, 705, 711	gsummoncoe1fz 34177	. 2 ⊢ (𝜑 → ((coe₁‘(𝑊 Σ_g (𝑙 ∈ (0...𝐻) ↦ ((((𝐻 − 𝑙) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝑙)))‘𝑍))( ·_𝑠 ‘𝑊)(𝑙(._g‘𝑀)𝑋)))))‘𝐾) = (((𝐻 − 𝐾) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝐾)))‘𝑍)))
713	696, 712	eqtrd 2795	1 ⊢ (𝜑 → ((coe₁‘𝐹)‘𝐾) = (((𝐻 − 𝐾) ↑ (𝑁‘ 1 )) · ((𝑄‘(𝐸‘(𝐻 − 𝐾)))‘𝑍)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 401 = wceq 1569 ∈ wcel 2144 ∀wral 3076 {crab 3412 Vcvv 3450 ⊆ wss 3895 ∖ cdif 4045 ∪ cun 4149 {csn 4584 class class class wbr 5102 ↦ cmpt 5185 ↾ cres 5652 ⟶wf 6535 ‘cfv 6539 (class class class)co 7421 ↑_m cmap 8851 Fincfn 8977 finSupp cfsupp 9357 ℂcc 11202 0cc0 11204 1c1 11205 + caddc 11207 − cmin 11545 ℕ₀cn0 12610 ℤcz 12697 ℤ_≥cuz 12969 ...cfz 13643 ..^cfzo 13792 ♯chash 14478 Basecbs 17393 +_gcplusg 17434 ._rcmulr 17435 Scalarcsca 17437 ·_𝑠 cvsca 17438 Σ_g cgsu 17617 Mndcmnd 18929 Grpcgrp 19150 inv_gcminusg 19151 -_gcsg 19152 ._gcmg 19283 CMndccmn 20000 Abelcabl 20001 mulGrpcmgp 20366 1_rcur 20413 Ringcrg 20465 CRingccrg 20466 IDomncidom 20951 LModclmod 21141 AssAlgcasa 22164 algSccascl 22166 mPoly cmpl 22220 eval cevl 22388 var₁cv1 22500 Poly₁cpl1 22501 coe₁cco1 22502 deg₁cdg1 26378 eSymPolycesply 34235

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1942 ax-6 1999 ax-7 2040 ax-8 2146 ax-9 2154 ax-10 2177 ax-11 2193 ax-12 2212 ax-ext 2732 ax-rep 5231 ax-sep 5248 ax-nul 5259 ax-pow 5326 ax-pr 5390 ax-un 7752 ax-cnex 11260 ax-resscn 11261 ax-1cn 11262 ax-icn 11263 ax-addcl 11264 ax-addrcl 11265 ax-mulcl 11266 ax-mulrcl 11267 ax-mulcom 11268 ax-addass 11269 ax-mulass 11270 ax-distr 11271 ax-i2m1 11272 ax-1ne0 11273 ax-1rid 11274 ax-rnegex 11275 ax-rrecex 11276 ax-cnre 11277 ax-pre-lttri 11278 ax-pre-lttrn 11279 ax-pre-ltadd 11280 ax-pre-mulgt0 11281 ax-pre-sup 11282 ax-addf 11283 ax-mulf 11284

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2099 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3739 df-csb 3847 df-ss 3896 df-pss 4014 df-dif 4047 df-in 4091 df-un 4151 df-nul 4279 df-if 4482 df-pw 4558 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4835 df-uni 4867 df-int 4907 df-iun 4952 df-iin 4953 df-br 5103 df-opab 5167 df-mpt 5186 df-tr 5212 df-id 5545 df-eprel 5550 df-po 5558 df-so 5559 df-fr 5603 df-se 5604 df-we 5605 df-xp 5656 df-rel 5657 df-cnv 5658 df-co 5659 df-dm 5660 df-rn 5661 df-res 5662 df-ima 5663 df-pred 6304 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6494 df-fun 6541 df-fn 6542 df-f 6543 df-f1 6544 df-fo 6545 df-f1o 6546 df-fv 6547 df-isom 6548 df-riota 7378 df-ov 7424 df-oprab 7425 df-mpo 7426 df-of 7694 df-ofr 7695 df-om 7879 df-1st 8002 df-2nd 8003 df-supp 8181 df-frecs 8303 df-wrecs 8334 df-recs 8383 df-rdg 8422 df-1o 8480 df-2o 8481 df-oadd 8484 df-er 8721 df-map 8853 df-pm 8854 df-ixp 8930 df-en 8978 df-dom 8979 df-sdom 8980 df-fin 8981 df-fsupp 9358 df-sup 9438 df-oi 9508 df-dju 9986 df-card 10024 df-pnf 11349 df-mnf 11350 df-xr 11351 df-ltxr 11352 df-le 11353 df-sub 11547 df-neg 11548 df-div 11978 df-ind 12325 df-nn 12340 df-2 12409 df-3 12410 df-4 12411 df-5 12412 df-6 12413 df-7 12414 df-8 12415 df-9 12416 df-n0 12611 df-xnn0 12684 df-z 12698 df-dec 12819 df-uz 12970 df-rp 13125 df-fz 13644 df-fzo 13793 df-seq 14149 df-fac 14422 df-bc 14451 df-hash 14479 df-struct 17331 df-sets 17348 df-slot 17366 df-ndx 17378 df-base 17394 df-ress 17415 df-plusg 17447 df-mulr 17448 df-starv 17449 df-sca 17450 df-vsca 17451 df-ip 17452 df-tset 17453 df-ple 17454 df-ds 17456 df-unif 17457 df-hom 17458 df-cco 17459 df-0g 17618 df-gsum 17619 df-prds 17624 df-pws 17626 df-mre 17762 df-mrc 17763 df-acs 17765 df-mgm 18822 df-sgrp 18914 df-mnd 18930 df-mhm 18984 df-submnd 18985 df-grp 19153 df-minusg 19154 df-sbg 19155 df-mulg 19284 df-subg 19339 df-ghm 19434 df-cntz 19537 df-cmn 20002 df-abl 20003 df-mgp 20367 df-rng 20381 df-ur 20414 df-srg 20419 df-ring 20467 df-cring 20468 df-rhm 20708 df-subrng 20804 df-subrg 20828 df-idom 20954 df-lmod 21143 df-lss 21213 df-lsp 21253 df-cnfld 21685 df-zring 21759 df-zrh 21815 df-assa 22167 df-asp 22168 df-ascl 22169 df-psr 22223 df-mvr 22224 df-mpl 22225 df-opsr 22227 df-evls 22389 df-evl 22390 df-psr1 22504 df-vr1 22505 df-ply1 22506 df-coe1 22507 df-mdeg 26379 df-deg1 26380 df-extv 34209 df-esply 34237

This theorem is used by: vieta 34259

W3C validator