Theorem cpmadugsumlemF 22025

Description: Lemma F for cpmadugsum 22027. (Contributed by AV, 7-Nov-2019.)

Hypotheses

Ref	Expression
cpmadugsum.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
cpmadugsum.b	⊢ 𝐵 = (Base‘𝐴)
cpmadugsum.p	⊢ 𝑃 = (Poly1‘𝑅)
cpmadugsum.y	⊢ 𝑌 = (𝑁 Mat 𝑃)
cpmadugsum.t	⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
cpmadugsum.x	⊢ 𝑋 = (var1‘𝑅)
cpmadugsum.e	⊢ ↑ = (.g‘(mulGrp‘𝑃))
cpmadugsum.m	⊢ · = ( ·𝑠 ‘𝑌)
cpmadugsum.r	⊢ × = (.r‘𝑌)
cpmadugsum.1	⊢ 1 = (1r‘𝑌)
cpmadugsum.g	⊢ + = (+g‘𝑌)
cpmadugsum.s	⊢ − = (-g‘𝑌)

Assertion

Ref	Expression
cpmadugsumlemF	⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑇‘𝑀) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))

Distinct variable groups:   𝐵,𝑖   𝑖,𝑀   𝑖,𝑁   𝑅,𝑖   𝑖,𝑋   𝑖,𝑌   × ,𝑖   · ,𝑖   1 ,𝑖   𝑖,𝑏   𝑖,𝑠   𝑇,𝑖   ↑ ,𝑖   − ,𝑖

Allowed substitution hints:   𝐴(𝑖,𝑠,𝑏)   𝐵(𝑠,𝑏)   𝑃(𝑖,𝑠,𝑏)   + (𝑖,𝑠,𝑏)   𝑅(𝑠,𝑏)   𝑇(𝑠,𝑏)   · (𝑠,𝑏)   × (𝑠,𝑏)   1 (𝑠,𝑏)   ↑ (𝑠,𝑏)   𝑀(𝑠,𝑏)   − (𝑠,𝑏)   𝑁(𝑠,𝑏)   𝑋(𝑠,𝑏)   𝑌(𝑠,𝑏)

Proof of Theorem cpmadugsumlemF

Dummy variable 𝑥 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		nnnn0 12240	. . . 4 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ ℕ0)
2		cpmadugsum.a	. . . . 5 ⊢ 𝐴 = (𝑁 Mat 𝑅)
3		cpmadugsum.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐴)
4		cpmadugsum.p	. . . . 5 ⊢ 𝑃 = (Poly1‘𝑅)
5		cpmadugsum.y	. . . . 5 ⊢ 𝑌 = (𝑁 Mat 𝑃)
6		cpmadugsum.t	. . . . 5 ⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
7		cpmadugsum.x	. . . . 5 ⊢ 𝑋 = (var1‘𝑅)
8		cpmadugsum.e	. . . . 5 ⊢ ↑ = (.g‘(mulGrp‘𝑃))
9		cpmadugsum.m	. . . . 5 ⊢ · = ( ·𝑠 ‘𝑌)
10		cpmadugsum.r	. . . . 5 ⊢ × = (.r‘𝑌)
11		cpmadugsum.1	. . . . 5 ⊢ 1 = (1r‘𝑌)
12	2, 3, 4, 5, 6, 7, 8, 9, 10, 11	cpmadugsumlemB 22023	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))
13	1, 12	sylanr1 679	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))
14	2, 3, 4, 5, 6, 7, 8, 9, 10, 11	cpmadugsumlemC 22024	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑇‘𝑀) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))
15	1, 14	sylanr1 679	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑇‘𝑀) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))
16	13, 15	oveq12d 7293	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑇‘𝑀) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
17		nncn 11981	. . . . . . . . 9 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ ℂ)
18		npcan1 11400	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℂ → ((𝑠 − 1) + 1) = 𝑠)
19	18	eqcomd 2744	. . . . . . . . 9 ⊢ (𝑠 ∈ ℂ → 𝑠 = ((𝑠 − 1) + 1))
20	17, 19	syl 17	. . . . . . . 8 ⊢ (𝑠 ∈ ℕ → 𝑠 = ((𝑠 − 1) + 1))
21	20	oveq2d 7291	. . . . . . 7 ⊢ (𝑠 ∈ ℕ → (0...𝑠) = (0...((𝑠 − 1) + 1)))
22	21	mpteq1d 5169	. . . . . 6 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))) = (𝑖 ∈ (0...((𝑠 − 1) + 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))
23	22	oveq2d 7291	. . . . 5 ⊢ (𝑠 ∈ ℕ → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (𝑌 Σg (𝑖 ∈ (0...((𝑠 − 1) + 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))
24	23	ad2antrl 725	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (𝑌 Σg (𝑖 ∈ (0...((𝑠 − 1) + 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))
25		eqid 2738	. . . . 5 ⊢ (Base‘𝑌) = (Base‘𝑌)
26		cpmadugsum.g	. . . . 5 ⊢ + = (+g‘𝑌)
27		crngring 19795	. . . . . . . . . 10 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
28	27	anim2i 617	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
29	28	3adant3 1131	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
30	4, 5	pmatring 21841	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑌 ∈ Ring)
31	29, 30	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Ring)
32		ringcmn 19820	. . . . . . 7 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ CMnd)
33	31, 32	syl 17	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ CMnd)
34	33	adantr 481	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ CMnd)
35		nnm1nn0 12274	. . . . . 6 ⊢ (𝑠 ∈ ℕ → (𝑠 − 1) ∈ ℕ0)
36	35	ad2antrl 725	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑠 − 1) ∈ ℕ0)
37		simpll1 1211	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → 𝑁 ∈ Fin)
38	27	3ad2ant2 1133	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Ring)
39	38	adantr 481	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑅 ∈ Ring)
40	39	adantr 481	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → 𝑅 ∈ Ring)
41		elmapi 8637	. . . . . . . . . 10 ⊢ (𝑏 ∈ (𝐵 ↑m (0...𝑠)) → 𝑏:(0...𝑠)⟶𝐵)
42	21	feq2d 6586	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℕ → (𝑏:(0...𝑠)⟶𝐵 ↔ 𝑏:(0...((𝑠 − 1) + 1))⟶𝐵))
43	41, 42	syl5ibcom 244	. . . . . . . . 9 ⊢ (𝑏 ∈ (𝐵 ↑m (0...𝑠)) → (𝑠 ∈ ℕ → 𝑏:(0...((𝑠 − 1) + 1))⟶𝐵))
44	43	impcom 408	. . . . . . . 8 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → 𝑏:(0...((𝑠 − 1) + 1))⟶𝐵)
45	44	adantl 482	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑏:(0...((𝑠 − 1) + 1))⟶𝐵)
46	45	ffvelrnda 6961	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → (𝑏‘𝑖) ∈ 𝐵)
47		elfznn0 13349	. . . . . . . 8 ⊢ (𝑖 ∈ (0...((𝑠 − 1) + 1)) → 𝑖 ∈ ℕ0)
48	47	adantl 482	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → 𝑖 ∈ ℕ0)
49		1nn0 12249	. . . . . . . 8 ⊢ 1 ∈ ℕ0
50	49	a1i 11	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → 1 ∈ ℕ0)
51	48, 50	nn0addcld 12297	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → (𝑖 + 1) ∈ ℕ0)
52	2, 3, 6, 4, 5, 25, 9, 8, 7	mat2pmatscmxcl 21889	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ ((𝑏‘𝑖) ∈ 𝐵 ∧ (𝑖 + 1) ∈ ℕ0)) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
53	37, 40, 46, 51, 52	syl22anc 836	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
54	25, 26, 34, 36, 53	gsummptfzsplit 19533	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...((𝑠 − 1) + 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (𝑌 Σg (𝑖 ∈ {((𝑠 − 1) + 1)} ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))))
55		ringmnd 19793	. . . . . . . 8 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Mnd)
56	31, 55	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Mnd)
57	56	adantr 481	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Mnd)
58		ovexd 7310	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑠 − 1) + 1) ∈ V)
59		simpl1 1190	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑁 ∈ Fin)
60		nn0fz0 13354	. . . . . . . . . . 11 ⊢ (𝑠 ∈ ℕ0 ↔ 𝑠 ∈ (0...𝑠))
61	1, 60	sylib 217	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ (0...𝑠))
62		ffvelrn 6959	. . . . . . . . . 10 ⊢ ((𝑏:(0...𝑠)⟶𝐵 ∧ 𝑠 ∈ (0...𝑠)) → (𝑏‘𝑠) ∈ 𝐵)
63	41, 61, 62	syl2anr 597	. . . . . . . . 9 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑏‘𝑠) ∈ 𝐵)
64	1	adantr 481	. . . . . . . . . 10 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → 𝑠 ∈ ℕ0)
65	49	a1i 11	. . . . . . . . . 10 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → 1 ∈ ℕ0)
66	64, 65	nn0addcld 12297	. . . . . . . . 9 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑠 + 1) ∈ ℕ0)
67	63, 66	jca 512	. . . . . . . 8 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → ((𝑏‘𝑠) ∈ 𝐵 ∧ (𝑠 + 1) ∈ ℕ0))
68	67	adantl 482	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑏‘𝑠) ∈ 𝐵 ∧ (𝑠 + 1) ∈ ℕ0))
69	2, 3, 6, 4, 5, 25, 9, 8, 7	mat2pmatscmxcl 21889	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ ((𝑏‘𝑠) ∈ 𝐵 ∧ (𝑠 + 1) ∈ ℕ0)) → (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌))
70	59, 39, 68, 69	syl21anc 835	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌))
71		oveq1 7282	. . . . . . . . 9 ⊢ (𝑖 = ((𝑠 − 1) + 1) → (𝑖 + 1) = (((𝑠 − 1) + 1) + 1))
72	71	oveq1d 7290	. . . . . . . 8 ⊢ (𝑖 = ((𝑠 − 1) + 1) → ((𝑖 + 1) ↑ 𝑋) = ((((𝑠 − 1) + 1) + 1) ↑ 𝑋))
73		2fveq3 6779	. . . . . . . 8 ⊢ (𝑖 = ((𝑠 − 1) + 1) → (𝑇‘(𝑏‘𝑖)) = (𝑇‘(𝑏‘((𝑠 − 1) + 1))))
74	72, 73	oveq12d 7293	. . . . . . 7 ⊢ (𝑖 = ((𝑠 − 1) + 1) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) = (((((𝑠 − 1) + 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘((𝑠 − 1) + 1)))))
75	17, 18	syl 17	. . . . . . . . . . 11 ⊢ (𝑠 ∈ ℕ → ((𝑠 − 1) + 1) = 𝑠)
76	75	oveq1d 7290	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℕ → (((𝑠 − 1) + 1) + 1) = (𝑠 + 1))
77	76	oveq1d 7290	. . . . . . . . 9 ⊢ (𝑠 ∈ ℕ → ((((𝑠 − 1) + 1) + 1) ↑ 𝑋) = ((𝑠 + 1) ↑ 𝑋))
78	75	fveq2d 6778	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℕ → (𝑏‘((𝑠 − 1) + 1)) = (𝑏‘𝑠))
79	78	fveq2d 6778	. . . . . . . . 9 ⊢ (𝑠 ∈ ℕ → (𝑇‘(𝑏‘((𝑠 − 1) + 1))) = (𝑇‘(𝑏‘𝑠)))
80	77, 79	oveq12d 7293	. . . . . . . 8 ⊢ (𝑠 ∈ ℕ → (((((𝑠 − 1) + 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘((𝑠 − 1) + 1)))) = (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))))
81	80	ad2antrl 725	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((((𝑠 − 1) + 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘((𝑠 − 1) + 1)))) = (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))))
82	74, 81	sylan9eqr 2800	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 = ((𝑠 − 1) + 1)) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) = (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))))
83	25, 57, 58, 70, 82	gsumsnd 19553	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ {((𝑠 − 1) + 1)} ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))))
84	83	oveq2d 7291	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (𝑌 Σg (𝑖 ∈ {((𝑠 − 1) + 1)} ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))))
85	24, 54, 84	3eqtrd 2782	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))))
86	1	ad2antrl 725	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑠 ∈ ℕ0)
87	4, 5	pmatlmod 21842	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑌 ∈ LMod)
88	28, 87	syl 17	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑌 ∈ LMod)
89	88	3adant3 1131	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ LMod)
90	89	adantr 481	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ LMod)
91	90	adantr 481	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑌 ∈ LMod)
92	4	ply1ring 21419	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring)
93	27, 92	syl 17	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ CRing → 𝑃 ∈ Ring)
94	93	3ad2ant2 1133	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 ∈ Ring)
95		eqid 2738	. . . . . . . . . . . 12 ⊢ (mulGrp‘𝑃) = (mulGrp‘𝑃)
96	95	ringmgp 19789	. . . . . . . . . . 11 ⊢ (𝑃 ∈ Ring → (mulGrp‘𝑃) ∈ Mnd)
97	94, 96	syl 17	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (mulGrp‘𝑃) ∈ Mnd)
98	97	adantr 481	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (mulGrp‘𝑃) ∈ Mnd)
99	98	adantr 481	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (mulGrp‘𝑃) ∈ Mnd)
100		elfznn0 13349	. . . . . . . . 9 ⊢ (𝑖 ∈ (0...𝑠) → 𝑖 ∈ ℕ0)
101	100	adantl 482	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑖 ∈ ℕ0)
102		eqid 2738	. . . . . . . . . . . . 13 ⊢ (Base‘𝑃) = (Base‘𝑃)
103	7, 4, 102	vr1cl 21388	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → 𝑋 ∈ (Base‘𝑃))
104	27, 103	syl 17	. . . . . . . . . . 11 ⊢ (𝑅 ∈ CRing → 𝑋 ∈ (Base‘𝑃))
105	104	3ad2ant2 1133	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑋 ∈ (Base‘𝑃))
106	105	adantr 481	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑋 ∈ (Base‘𝑃))
107	106	adantr 481	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑋 ∈ (Base‘𝑃))
108	95, 102	mgpbas 19726	. . . . . . . . 9 ⊢ (Base‘𝑃) = (Base‘(mulGrp‘𝑃))
109	108, 8	mulgnn0cl 18720	. . . . . . . 8 ⊢ (((mulGrp‘𝑃) ∈ Mnd ∧ 𝑖 ∈ ℕ0 ∧ 𝑋 ∈ (Base‘𝑃)) → (𝑖 ↑ 𝑋) ∈ (Base‘𝑃))
110	99, 101, 107, 109	syl3anc 1370	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘𝑃))
111	4	ply1crng 21369	. . . . . . . . . . . . . . 15 ⊢ (𝑅 ∈ CRing → 𝑃 ∈ CRing)
112	111	anim2i 617	. . . . . . . . . . . . . 14 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑃 ∈ CRing))
113	112	3adant3 1131	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑃 ∈ CRing))
114	5	matsca2 21569	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑃 ∈ CRing) → 𝑃 = (Scalar‘𝑌))
115	113, 114	syl 17	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 = (Scalar‘𝑌))
116	115	eqcomd 2744	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Scalar‘𝑌) = 𝑃)
117	116	fveq2d 6778	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Base‘(Scalar‘𝑌)) = (Base‘𝑃))
118	117	eleq2d 2824	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ((𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ↔ (𝑖 ↑ 𝑋) ∈ (Base‘𝑃)))
119	118	adantr 481	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ↔ (𝑖 ↑ 𝑋) ∈ (Base‘𝑃)))
120	119	adantr 481	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ↔ (𝑖 ↑ 𝑋) ∈ (Base‘𝑃)))
121	110, 120	mpbird 256	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)))
122	31	adantr 481	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Ring)
123	122	adantr 481	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑌 ∈ Ring)
124		simpll1 1211	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑁 ∈ Fin)
125	39	adantr 481	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑅 ∈ Ring)
126		simpll3 1213	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑀 ∈ 𝐵)
127	6, 2, 3, 4, 5	mat2pmatbas 21875	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) ∈ (Base‘𝑌))
128	124, 125, 126, 127	syl3anc 1370	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑇‘𝑀) ∈ (Base‘𝑌))
129	86	adantr 481	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑠 ∈ ℕ0)
130		simprr 770	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑏 ∈ (𝐵 ↑m (0...𝑠)))
131	130	anim1i 615	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑏 ∈ (𝐵 ↑m (0...𝑠)) ∧ 𝑖 ∈ (0...𝑠)))
132	2, 3, 4, 5, 6	m2pmfzmap 21896	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑠 ∈ ℕ0) ∧ (𝑏 ∈ (𝐵 ↑m (0...𝑠)) ∧ 𝑖 ∈ (0...𝑠))) → (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))
133	124, 125, 129, 131, 132	syl31anc 1372	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))
134	25, 10	ringcl 19800	. . . . . . 7 ⊢ ((𝑌 ∈ Ring ∧ (𝑇‘𝑀) ∈ (Base‘𝑌) ∧ (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌)) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
135	123, 128, 133, 134	syl3anc 1370	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
136		eqid 2738	. . . . . . 7 ⊢ (Scalar‘𝑌) = (Scalar‘𝑌)
137		eqid 2738	. . . . . . 7 ⊢ (Base‘(Scalar‘𝑌)) = (Base‘(Scalar‘𝑌))
138	25, 136, 9, 137	lmodvscl 20140	. . . . . 6 ⊢ ((𝑌 ∈ LMod ∧ (𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ∧ ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌)) → ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ (Base‘𝑌))
139	91, 121, 135, 138	syl3anc 1370	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ (Base‘𝑌))
140	25, 26, 34, 86, 139	gsummptfzsplitl 19534	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
141		0nn0 12248	. . . . . . . 8 ⊢ 0 ∈ ℕ0
142	141	a1i 11	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 0 ∈ ℕ0)
143		eqid 2738	. . . . . . . . . . . . 13 ⊢ (0g‘(mulGrp‘𝑃)) = (0g‘(mulGrp‘𝑃))
144	108, 143, 8	mulg0 18707	. . . . . . . . . . . 12 ⊢ (𝑋 ∈ (Base‘𝑃) → (0 ↑ 𝑋) = (0g‘(mulGrp‘𝑃)))
145	105, 144	syl 17	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (0 ↑ 𝑋) = (0g‘(mulGrp‘𝑃)))
146	145	adantr 481	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0 ↑ 𝑋) = (0g‘(mulGrp‘𝑃)))
147	146	oveq1d 7290	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((0g‘(mulGrp‘𝑃)) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
148		eqid 2738	. . . . . . . . . . . . 13 ⊢ (1r‘𝑃) = (1r‘𝑃)
149	95, 148	ringidval 19739	. . . . . . . . . . . 12 ⊢ (1r‘𝑃) = (0g‘(mulGrp‘𝑃))
150	149	a1i 11	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (1r‘𝑃) = (0g‘(mulGrp‘𝑃)))
151	150	eqcomd 2744	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0g‘(mulGrp‘𝑃)) = (1r‘𝑃))
152	151	oveq1d 7290	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0g‘(mulGrp‘𝑃)) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((1r‘𝑃) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
153	115	adantr 481	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑃 = (Scalar‘𝑌))
154	153	fveq2d 6778	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (1r‘𝑃) = (1r‘(Scalar‘𝑌)))
155	154	oveq1d 7290	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((1r‘𝑃) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((1r‘(Scalar‘𝑌)) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
156	27, 127	syl3an2 1163	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) ∈ (Base‘𝑌))
157	156	adantr 481	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑇‘𝑀) ∈ (Base‘𝑌))
158		simpl 483	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑏:(0...𝑠)⟶𝐵 ∧ 𝑠 ∈ ℕ) → 𝑏:(0...𝑠)⟶𝐵)
159		elnn0uz 12623	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑠 ∈ ℕ0 ↔ 𝑠 ∈ (ℤ≥‘0))
160	1, 159	sylib 217	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ (ℤ≥‘0))
161		eluzfz1 13263	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑠 ∈ (ℤ≥‘0) → 0 ∈ (0...𝑠))
162	160, 161	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑠 ∈ ℕ → 0 ∈ (0...𝑠))
163	162	adantl 482	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑏:(0...𝑠)⟶𝐵 ∧ 𝑠 ∈ ℕ) → 0 ∈ (0...𝑠))
164	158, 163	ffvelrnd 6962	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑏:(0...𝑠)⟶𝐵 ∧ 𝑠 ∈ ℕ) → (𝑏‘0) ∈ 𝐵)
165	164	ex 413	. . . . . . . . . . . . . . . 16 ⊢ (𝑏:(0...𝑠)⟶𝐵 → (𝑠 ∈ ℕ → (𝑏‘0) ∈ 𝐵))
166	41, 165	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑏 ∈ (𝐵 ↑m (0...𝑠)) → (𝑠 ∈ ℕ → (𝑏‘0) ∈ 𝐵))
167	166	impcom 408	. . . . . . . . . . . . . 14 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑏‘0) ∈ 𝐵)
168	167	adantl 482	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑏‘0) ∈ 𝐵)
169	6, 2, 3, 4, 5	mat2pmatbas 21875	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑏‘0) ∈ 𝐵) → (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌))
170	59, 39, 168, 169	syl3anc 1370	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌))
171	25, 10	ringcl 19800	. . . . . . . . . . . 12 ⊢ ((𝑌 ∈ Ring ∧ (𝑇‘𝑀) ∈ (Base‘𝑌) ∧ (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌)) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌))
172	122, 157, 170, 171	syl3anc 1370	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌))
173		eqid 2738	. . . . . . . . . . . 12 ⊢ (1r‘(Scalar‘𝑌)) = (1r‘(Scalar‘𝑌))
174	25, 136, 9, 173	lmodvs1 20151	. . . . . . . . . . 11 ⊢ ((𝑌 ∈ LMod ∧ ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌)) → ((1r‘(Scalar‘𝑌)) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
175	90, 172, 174	syl2anc 584	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((1r‘(Scalar‘𝑌)) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
176	155, 175	eqtrd 2778	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((1r‘𝑃) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
177	147, 152, 176	3eqtrd 2782	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
178	177, 172	eqeltrd 2839	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) ∈ (Base‘𝑌))
179		oveq1 7282	. . . . . . . . 9 ⊢ (𝑖 = 0 → (𝑖 ↑ 𝑋) = (0 ↑ 𝑋))
180		2fveq3 6779	. . . . . . . . . 10 ⊢ (𝑖 = 0 → (𝑇‘(𝑏‘𝑖)) = (𝑇‘(𝑏‘0)))
181	180	oveq2d 7291	. . . . . . . . 9 ⊢ (𝑖 = 0 → ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
182	179, 181	oveq12d 7293	. . . . . . . 8 ⊢ (𝑖 = 0 → ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) = ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
183	182	adantl 482	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 = 0) → ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) = ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
184	25, 57, 142, 178, 183	gsumsnd 19553	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) = ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
185	108, 149, 8	mulg0 18707	. . . . . . . . 9 ⊢ (𝑋 ∈ (Base‘𝑃) → (0 ↑ 𝑋) = (1r‘𝑃))
186	105, 185	syl 17	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (0 ↑ 𝑋) = (1r‘𝑃))
187	186	adantr 481	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0 ↑ 𝑋) = (1r‘𝑃))
188	187	oveq1d 7290	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((1r‘𝑃) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
189	184, 188, 176	3eqtrd 2782	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
190	189	oveq2d 7291	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
191	140, 190	eqtrd 2778	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
192	85, 191	oveq12d 7293	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = (((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
193		fzfid 13693	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0...(𝑠 − 1)) ∈ Fin)
194		simpll1 1211	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 𝑁 ∈ Fin)
195	39	adantr 481	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 𝑅 ∈ Ring)
196	41	adantl 482	. . . . . . . . . . 11 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → 𝑏:(0...𝑠)⟶𝐵)
197	196	adantr 481	. . . . . . . . . 10 ⊢ (((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 𝑏:(0...𝑠)⟶𝐵)
198		nnz 12342	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ ℤ)
199		fzoval 13388	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 ∈ ℤ → (0..^𝑠) = (0...(𝑠 − 1)))
200	198, 199	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑠 ∈ ℕ → (0..^𝑠) = (0...(𝑠 − 1)))
201	200	eqcomd 2744	. . . . . . . . . . . . . 14 ⊢ (𝑠 ∈ ℕ → (0...(𝑠 − 1)) = (0..^𝑠))
202	201	eleq2d 2824	. . . . . . . . . . . . 13 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (0...(𝑠 − 1)) ↔ 𝑖 ∈ (0..^𝑠)))
203		elfzofz 13403	. . . . . . . . . . . . 13 ⊢ (𝑖 ∈ (0..^𝑠) → 𝑖 ∈ (0...𝑠))
204	202, 203	syl6bi 252	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (0...(𝑠 − 1)) → 𝑖 ∈ (0...𝑠)))
205	204	adantr 481	. . . . . . . . . . 11 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑖 ∈ (0...(𝑠 − 1)) → 𝑖 ∈ (0...𝑠)))
206	205	imp 407	. . . . . . . . . 10 ⊢ (((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 𝑖 ∈ (0...𝑠))
207	197, 206	ffvelrnd 6962	. . . . . . . . 9 ⊢ (((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → (𝑏‘𝑖) ∈ 𝐵)
208	207	adantll 711	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → (𝑏‘𝑖) ∈ 𝐵)
209		elfznn0 13349	. . . . . . . . . 10 ⊢ (𝑖 ∈ (0...(𝑠 − 1)) → 𝑖 ∈ ℕ0)
210	209	adantl 482	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 𝑖 ∈ ℕ0)
211	49	a1i 11	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 1 ∈ ℕ0)
212	210, 211	nn0addcld 12297	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → (𝑖 + 1) ∈ ℕ0)
213	194, 195, 208, 212, 52	syl22anc 836	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
214	213	ralrimiva 3103	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ∀𝑖 ∈ (0...(𝑠 − 1))(((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
215	25, 34, 193, 214	gsummptcl 19568	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌))
216	25, 26	cmncom 19403	. . . . 5 ⊢ ((𝑌 ∈ CMnd ∧ (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌) ∧ (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌)) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))))
217	34, 215, 70, 216	syl3anc 1370	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))))
218	217	oveq1d 7290	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))) = (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
219		ringgrp 19788	. . . . . . . . 9 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Grp)
220	31, 219	syl 17	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Grp)
221	220	adantr 481	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Grp)
222		fzfid 13693	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (1...𝑠) ∈ Fin)
223	90	adantr 481	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑌 ∈ LMod)
224	98	adantr 481	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (mulGrp‘𝑃) ∈ Mnd)
225		elfznn 13285	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℕ)
226	225	nnnn0d 12293	. . . . . . . . . . . . 13 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℕ0)
227	226	adantl 482	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑖 ∈ ℕ0)
228	106	adantr 481	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑋 ∈ (Base‘𝑃))
229	224, 227, 228, 109	syl3anc 1370	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘𝑃))
230	115	fveq2d 6778	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Base‘𝑃) = (Base‘(Scalar‘𝑌)))
231	230	adantr 481	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (Base‘𝑃) = (Base‘(Scalar‘𝑌)))
232	231	adantr 481	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (Base‘𝑃) = (Base‘(Scalar‘𝑌)))
233	229, 232	eleqtrd 2841	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)))
234	122	adantr 481	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑌 ∈ Ring)
235	157	adantr 481	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑇‘𝑀) ∈ (Base‘𝑌))
236		simpll1 1211	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑁 ∈ Fin)
237	39	adantr 481	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑅 ∈ Ring)
238	196	adantl 482	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑏:(0...𝑠)⟶𝐵)
239	238	adantr 481	. . . . . . . . . . . . 13 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑏:(0...𝑠)⟶𝐵)
240		1eluzge0 12632	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ (ℤ≥‘0)
241		fzss1 13295	. . . . . . . . . . . . . . . . 17 ⊢ (1 ∈ (ℤ≥‘0) → (1...𝑠) ⊆ (0...𝑠))
242	240, 241	mp1i 13	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 ∈ ℕ → (1...𝑠) ⊆ (0...𝑠))
243	242	sseld 3920	. . . . . . . . . . . . . . 15 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (1...𝑠) → 𝑖 ∈ (0...𝑠)))
244	243	ad2antrl 725	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (1...𝑠) → 𝑖 ∈ (0...𝑠)))
245	244	imp 407	. . . . . . . . . . . . 13 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑖 ∈ (0...𝑠))
246	239, 245	ffvelrnd 6962	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑏‘𝑖) ∈ 𝐵)
247	6, 2, 3, 4, 5	mat2pmatbas 21875	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑏‘𝑖) ∈ 𝐵) → (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))
248	236, 237, 246, 247	syl3anc 1370	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))
249	234, 235, 248, 134	syl3anc 1370	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
250	223, 233, 249, 138	syl3anc 1370	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ (Base‘𝑌))
251	250	ralrimiva 3103	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ∀𝑖 ∈ (1...𝑠)((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ (Base‘𝑌))
252	25, 34, 222, 251	gsummptcl 19568	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) ∈ (Base‘𝑌))
253		cpmadugsum.s	. . . . . . . 8 ⊢ − = (-g‘𝑌)
254	25, 26, 253	grpaddsubass 18665	. . . . . . 7 ⊢ ((𝑌 ∈ Grp ∧ ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌) ∧ (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌) ∧ (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) ∈ (Base‘𝑌))) → (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))))
255	221, 70, 215, 252, 254	syl13anc 1371	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))))
256		oveq1 7282	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑖 → (𝑥 − 1) = (𝑖 − 1))
257	256	oveq1d 7290	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑖 → ((𝑥 − 1) + 1) = ((𝑖 − 1) + 1))
258	257	oveq1d 7290	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑖 → (((𝑥 − 1) + 1) ↑ 𝑋) = (((𝑖 − 1) + 1) ↑ 𝑋))
259	256	fveq2d 6778	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑖 → (𝑏‘(𝑥 − 1)) = (𝑏‘(𝑖 − 1)))
260	259	fveq2d 6778	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑖 → (𝑇‘(𝑏‘(𝑥 − 1))) = (𝑇‘(𝑏‘(𝑖 − 1))))
261	258, 260	oveq12d 7293	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑖 → ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))) = ((((𝑖 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))
262	261	cbvmptv 5187	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1))))) = (𝑖 ∈ (1...𝑠) ↦ ((((𝑖 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))
263	225	nncnd 11989	. . . . . . . . . . . . . . . . 17 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℂ)
264	263	adantl 482	. . . . . . . . . . . . . . . 16 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → 𝑖 ∈ ℂ)
265		npcan1 11400	. . . . . . . . . . . . . . . 16 ⊢ (𝑖 ∈ ℂ → ((𝑖 − 1) + 1) = 𝑖)
266	264, 265	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 − 1) + 1) = 𝑖)
267	266	oveq1d 7290	. . . . . . . . . . . . . 14 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → (((𝑖 − 1) + 1) ↑ 𝑋) = (𝑖 ↑ 𝑋))
268	267	oveq1d 7290	. . . . . . . . . . . . 13 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → ((((𝑖 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) = ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))
269	268	mpteq2dva 5174	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (1...𝑠) ↦ ((((𝑖 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1))))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1))))))
270	262, 269	eqtrid 2790	. . . . . . . . . . 11 ⊢ (𝑠 ∈ ℕ → (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1))))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1))))))
271	270	oveq2d 7291	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℕ → (𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))) = (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))))
272	271	ad2antrl 725	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))) = (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))))
273	272	oveq1d 7290	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
274		eqid 2738	. . . . . . . . . . 11 ⊢ (0g‘𝑌) = (0g‘𝑌)
275		1zzd 12351	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 1 ∈ ℤ)
276		0zd 12331	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 0 ∈ ℤ)
277	36	nn0zd 12424	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑠 − 1) ∈ ℤ)
278		oveq1 7282	. . . . . . . . . . . . 13 ⊢ (𝑖 = (𝑥 − 1) → (𝑖 + 1) = ((𝑥 − 1) + 1))
279	278	oveq1d 7290	. . . . . . . . . . . 12 ⊢ (𝑖 = (𝑥 − 1) → ((𝑖 + 1) ↑ 𝑋) = (((𝑥 − 1) + 1) ↑ 𝑋))
280		2fveq3 6779	. . . . . . . . . . . 12 ⊢ (𝑖 = (𝑥 − 1) → (𝑇‘(𝑏‘𝑖)) = (𝑇‘(𝑏‘(𝑥 − 1))))
281	279, 280	oveq12d 7293	. . . . . . . . . . 11 ⊢ (𝑖 = (𝑥 − 1) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) = ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))
282	25, 274, 34, 275, 276, 277, 213, 281	gsummptshft 19537	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (𝑌 Σg (𝑥 ∈ ((0 + 1)...((𝑠 − 1) + 1)) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))))
283		0p1e1 12095	. . . . . . . . . . . . . 14 ⊢ (0 + 1) = 1
284	283	a1i 11	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0 + 1) = 1)
285	75	ad2antrl 725	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑠 − 1) + 1) = 𝑠)
286	284, 285	oveq12d 7293	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 + 1)...((𝑠 − 1) + 1)) = (1...𝑠))
287	286	mpteq1d 5169	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑥 ∈ ((0 + 1)...((𝑠 − 1) + 1)) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1))))) = (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1))))))
288	287	oveq2d 7291	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑥 ∈ ((0 + 1)...((𝑠 − 1) + 1)) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))) = (𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))))
289	282, 288	eqtrd 2778	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))))
290	289	oveq1d 7290	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
291		ringabl 19819	. . . . . . . . . . 11 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Abel)
292	31, 291	syl 17	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Abel)
293	292	adantr 481	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Abel)
294	225	adantl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → 𝑖 ∈ ℕ)
295		nnz 12342	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑖 ∈ ℕ → 𝑖 ∈ ℤ)
296		elfzm1b 13334	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑖 ∈ ℤ ∧ 𝑠 ∈ ℤ) → (𝑖 ∈ (1...𝑠) ↔ (𝑖 − 1) ∈ (0...(𝑠 − 1))))
297	295, 198, 296	syl2an 596	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → (𝑖 ∈ (1...𝑠) ↔ (𝑖 − 1) ∈ (0...(𝑠 − 1))))
298	200	adantl 482	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → (0..^𝑠) = (0...(𝑠 − 1)))
299	298	eqcomd 2744	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → (0...(𝑠 − 1)) = (0..^𝑠))
300	299	eleq2d 2824	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → ((𝑖 − 1) ∈ (0...(𝑠 − 1)) ↔ (𝑖 − 1) ∈ (0..^𝑠)))
301		elfzofz 13403	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑖 − 1) ∈ (0..^𝑠) → (𝑖 − 1) ∈ (0...𝑠))
302	300, 301	syl6bi 252	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → ((𝑖 − 1) ∈ (0...(𝑠 − 1)) → (𝑖 − 1) ∈ (0...𝑠)))
303	297, 302	sylbid 239	. . . . . . . . . . . . . . . 16 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → (𝑖 ∈ (1...𝑠) → (𝑖 − 1) ∈ (0...𝑠)))
304	303	expimpd 454	. . . . . . . . . . . . . . 15 ⊢ (𝑖 ∈ ℕ → ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → (𝑖 − 1) ∈ (0...𝑠)))
305	294, 304	mpcom 38	. . . . . . . . . . . . . 14 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → (𝑖 − 1) ∈ (0...𝑠))
306	305	ex 413	. . . . . . . . . . . . 13 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (1...𝑠) → (𝑖 − 1) ∈ (0...𝑠)))
307	306	ad2antrl 725	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (1...𝑠) → (𝑖 − 1) ∈ (0...𝑠)))
308	307	imp 407	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑖 − 1) ∈ (0...𝑠))
309	239, 308	ffvelrnd 6962	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑏‘(𝑖 − 1)) ∈ 𝐵)
310	2, 3, 6, 4, 5, 25, 9, 8, 7	mat2pmatscmxcl 21889	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ ((𝑏‘(𝑖 − 1)) ∈ 𝐵 ∧ 𝑖 ∈ ℕ0)) → ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) ∈ (Base‘𝑌))
311	236, 237, 309, 227, 310	syl22anc 836	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) ∈ (Base‘𝑌))
312		eqid 2738	. . . . . . . . 9 ⊢ (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1))))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))
313		eqid 2738	. . . . . . . . 9 ⊢ (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
314	25, 253, 293, 222, 311, 250, 312, 313	gsummptfidmsub 19551	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
315	273, 290, 314	3eqtr4d 2788	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
316	315	oveq2d 7291	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))))
317	221	adantr 481	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑌 ∈ Grp)
318	25, 253	grpsubcl 18655	. . . . . . . . . 10 ⊢ ((𝑌 ∈ Grp ∧ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) ∈ (Base‘𝑌) ∧ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ (Base‘𝑌)) → (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌))
319	317, 311, 250, 318	syl3anc 1370	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌))
320	319	ralrimiva 3103	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ∀𝑖 ∈ (1...𝑠)(((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌))
321	25, 34, 222, 320	gsummptcl 19568	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) ∈ (Base‘𝑌))
322	25, 26	cmncom 19403	. . . . . . 7 ⊢ ((𝑌 ∈ CMnd ∧ (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌) ∧ (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) ∈ (Base‘𝑌)) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))))
323	34, 70, 321, 322	syl3anc 1370	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))))
324	255, 316, 323	3eqtrd 2782	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))))
325	324	oveq1d 7290	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = (((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
326	25, 26	mndcl 18393	. . . . . 6 ⊢ ((𝑌 ∈ Mnd ∧ (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌) ∧ (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌)) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) ∈ (Base‘𝑌))
327	57, 70, 215, 326	syl3anc 1370	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) ∈ (Base‘𝑌))
328	25, 26, 253, 293, 327, 252, 172	ablsubsub4 19420	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
329	25, 26, 253	grpaddsubass 18665	. . . . 5 ⊢ ((𝑌 ∈ Grp ∧ ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) ∈ (Base‘𝑌) ∧ (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌) ∧ ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌))) → (((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
330	221, 321, 70, 172, 329	syl13anc 1371	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
331	325, 328, 330	3eqtr3d 2786	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
332	6, 2, 3, 4, 5	mat2pmatbas 21875	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑏‘(𝑖 − 1)) ∈ 𝐵) → (𝑇‘(𝑏‘(𝑖 − 1))) ∈ (Base‘𝑌))
333	236, 237, 309, 332	syl3anc 1370	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑇‘(𝑏‘(𝑖 − 1))) ∈ (Base‘𝑌))
334	25, 9, 136, 137, 253, 223, 233, 333, 249	lmodsubdi 20180	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) = (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
335	334	eqcomd 2744	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) = ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
336	335	mpteq2dva 5174	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))
337	336	oveq2d 7291	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
338	337	oveq1d 7290	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
339	218, 331, 338	3eqtrd 2782	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
340	16, 192, 339	3eqtrd 2782	1 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑇‘𝑀) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1086   = wceq 1539   ∈ wcel 2106  Vcvv 3432   ⊆ wss 3887  {csn 4561   ↦ cmpt 5157  ⟶wf 6429  ‘cfv 6433  (class class class)co 7275   ↑_m cmap 8615  Fincfn 8733  ℂcc 10869  0cc0 10871  1c1 10872   + caddc 10874   − cmin 11205  ℕcn 11973  ℕ₀cn0 12233  ℤcz 12319  ℤ_≥cuz 12582  ...cfz 13239  ..^cfzo 13382  Basecbs 16912  +_gcplusg 16962  ._rcmulr 16963  Scalarcsca 16965   ·_𝑠 cvsca 16966  0_gc0g 17150   Σ_g cgsu 17151  Mndcmnd 18385  Grpcgrp 18577  -_gcsg 18579  ._gcmg 18700  CMndccmn 19386  Abelcabl 19387  mulGrpcmgp 19720  1_rcur 19737  Ringcrg 19783  CRingccrg 19784  LModclmod 20123  var₁cv1 21347  Poly₁cpl1 21348   Mat cmat 21554   matToPolyMat cmat2pmat 21853

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2709  ax-rep 5209  ax-sep 5223  ax-nul 5230  ax-pow 5288  ax-pr 5352  ax-un 7588  ax-cnex 10927  ax-resscn 10928  ax-1cn 10929  ax-icn 10930  ax-addcl 10931  ax-addrcl 10932  ax-mulcl 10933  ax-mulrcl 10934  ax-mulcom 10935  ax-addass 10936  ax-mulass 10937  ax-distr 10938  ax-i2m1 10939  ax-1ne0 10940  ax-1rid 10941  ax-rnegex 10942  ax-rrecex 10943  ax-cnre 10944  ax-pre-lttri 10945  ax-pre-lttrn 10946  ax-pre-ltadd 10947  ax-pre-mulgt0 10948

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3069  df-rex 3070  df-rmo 3071  df-reu 3072  df-rab 3073  df-v 3434  df-sbc 3717  df-csb 3833  df-dif 3890  df-un 3892  df-in 3894  df-ss 3904  df-pss 3906  df-nul 4257  df-if 4460  df-pw 4535  df-sn 4562  df-pr 4564  df-tp 4566  df-op 4568  df-ot 4570  df-uni 4840  df-int 4880  df-iun 4926  df-iin 4927  df-br 5075  df-opab 5137  df-mpt 5158  df-tr 5192  df-id 5489  df-eprel 5495  df-po 5503  df-so 5504  df-fr 5544  df-se 5545  df-we 5546  df-xp 5595  df-rel 5596  df-cnv 5597  df-co 5598  df-dm 5599  df-rn 5600  df-res 5601  df-ima 5602  df-pred 6202  df-ord 6269  df-on 6270  df-lim 6271  df-suc 6272  df-iota 6391  df-fun 6435  df-fn 6436  df-f 6437  df-f1 6438  df-fo 6439  df-f1o 6440  df-fv 6441  df-isom 6442  df-riota 7232  df-ov 7278  df-oprab 7279  df-mpo 7280  df-of 7533  df-ofr 7534  df-om 7713  df-1st 7831  df-2nd 7832  df-supp 7978  df-frecs 8097  df-wrecs 8128  df-recs 8202  df-rdg 8241  df-1o 8297  df-er 8498  df-map 8617  df-pm 8618  df-ixp 8686  df-en 8734  df-dom 8735  df-sdom 8736  df-fin 8737  df-fsupp 9129  df-sup 9201  df-oi 9269  df-card 9697  df-pnf 11011  df-mnf 11012  df-xr 11013  df-ltxr 11014  df-le 11015  df-sub 11207  df-neg 11208  df-nn 11974  df-2 12036  df-3 12037  df-4 12038  df-5 12039  df-6 12040  df-7 12041  df-8 12042  df-9 12043  df-n0 12234  df-z 12320  df-dec 12438  df-uz 12583  df-fz 13240  df-fzo 13383  df-seq 13722  df-hash 14045  df-struct 16848  df-sets 16865  df-slot 16883  df-ndx 16895  df-base 16913  df-ress 16942  df-plusg 16975  df-mulr 16976  df-sca 16978  df-vsca 16979  df-ip 16980  df-tset 16981  df-ple 16982  df-ds 16984  df-hom 16986  df-cco 16987  df-0g 17152  df-gsum 17153  df-prds 17158  df-pws 17160  df-mre 17295  df-mrc 17296  df-acs 17298  df-mgm 18326  df-sgrp 18375  df-mnd 18386  df-mhm 18430  df-submnd 18431  df-grp 18580  df-minusg 18581  df-sbg 18582  df-mulg 18701  df-subg 18752  df-ghm 18832  df-cntz 18923  df-cmn 19388  df-abl 19389  df-mgp 19721  df-ur 19738  df-ring 19785  df-cring 19786  df-subrg 20022  df-lmod 20125  df-lss 20194  df-sra 20434  df-rgmod 20435  df-dsmm 20939  df-frlm 20954  df-assa 21060  df-ascl 21062  df-psr 21112  df-mvr 21113  df-mpl 21114  df-opsr 21116  df-psr1 21351  df-vr1 21352  df-ply1 21353  df-mamu 21533  df-mat 21555  df-mat2pmat 21856

This theorem is referenced by:  cpmadugsumfi  22026