Theorem cpmadugsumlemF 22770

Description: Lemma F for cpmadugsum 22772. (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 12456	. . . 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 22768	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))
13	1, 12	sylanr1 682	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))
14	2, 3, 4, 5, 6, 7, 8, 9, 10, 11	cpmadugsumlemC 22769	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑇‘𝑀) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))
15	1, 14	sylanr1 682	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑇‘𝑀) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))
16	13, 15	oveq12d 7408	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑇‘𝑀) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
17		nncn 12201	. . . . . . . . 9 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ ℂ)
18		npcan1 11610	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℂ → ((𝑠 − 1) + 1) = 𝑠)
19	18	eqcomd 2736	. . . . . . . . 9 ⊢ (𝑠 ∈ ℂ → 𝑠 = ((𝑠 − 1) + 1))
20	17, 19	syl 17	. . . . . . . 8 ⊢ (𝑠 ∈ ℕ → 𝑠 = ((𝑠 − 1) + 1))
21	20	oveq2d 7406	. . . . . . 7 ⊢ (𝑠 ∈ ℕ → (0...𝑠) = (0...((𝑠 − 1) + 1)))
22	21	mpteq1d 5200	. . . . . 6 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))) = (𝑖 ∈ (0...((𝑠 − 1) + 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))
23	22	oveq2d 7406	. . . . 5 ⊢ (𝑠 ∈ ℕ → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (𝑌 Σg (𝑖 ∈ (0...((𝑠 − 1) + 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))
24	23	ad2antrl 728	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (𝑌 Σg (𝑖 ∈ (0...((𝑠 − 1) + 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))
25		eqid 2730	. . . . 5 ⊢ (Base‘𝑌) = (Base‘𝑌)
26		cpmadugsum.g	. . . . 5 ⊢ + = (+g‘𝑌)
27		crngring 20161	. . . . . . . . . 10 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
28	27	anim2i 617	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
29	28	3adant3 1132	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
30	4, 5	pmatring 22586	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑌 ∈ Ring)
31	29, 30	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Ring)
32		ringcmn 20198	. . . . . . 7 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ CMnd)
33	31, 32	syl 17	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ CMnd)
34	33	adantr 480	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ CMnd)
35		nnm1nn0 12490	. . . . . 6 ⊢ (𝑠 ∈ ℕ → (𝑠 − 1) ∈ ℕ0)
36	35	ad2antrl 728	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑠 − 1) ∈ ℕ0)
37		simpll1 1213	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → 𝑁 ∈ Fin)
38	27	3ad2ant2 1134	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Ring)
39	38	adantr 480	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑅 ∈ Ring)
40	39	adantr 480	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → 𝑅 ∈ Ring)
41		elmapi 8825	. . . . . . . . . 10 ⊢ (𝑏 ∈ (𝐵 ↑m (0...𝑠)) → 𝑏:(0...𝑠)⟶𝐵)
42	21	feq2d 6675	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℕ → (𝑏:(0...𝑠)⟶𝐵 ↔ 𝑏:(0...((𝑠 − 1) + 1))⟶𝐵))
43	41, 42	syl5ibcom 245	. . . . . . . . 9 ⊢ (𝑏 ∈ (𝐵 ↑m (0...𝑠)) → (𝑠 ∈ ℕ → 𝑏:(0...((𝑠 − 1) + 1))⟶𝐵))
44	43	impcom 407	. . . . . . . 8 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → 𝑏:(0...((𝑠 − 1) + 1))⟶𝐵)
45	44	adantl 481	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑏:(0...((𝑠 − 1) + 1))⟶𝐵)
46	45	ffvelcdmda 7059	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → (𝑏‘𝑖) ∈ 𝐵)
47		elfznn0 13588	. . . . . . . 8 ⊢ (𝑖 ∈ (0...((𝑠 − 1) + 1)) → 𝑖 ∈ ℕ0)
48	47	adantl 481	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → 𝑖 ∈ ℕ0)
49		1nn0 12465	. . . . . . . 8 ⊢ 1 ∈ ℕ0
50	49	a1i 11	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → 1 ∈ ℕ0)
51	48, 50	nn0addcld 12514	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → (𝑖 + 1) ∈ ℕ0)
52	2, 3, 6, 4, 5, 25, 9, 8, 7	mat2pmatscmxcl 22634	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ ((𝑏‘𝑖) ∈ 𝐵 ∧ (𝑖 + 1) ∈ ℕ0)) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
53	37, 40, 46, 51, 52	syl22anc 838	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...((𝑠 − 1) + 1))) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
54	25, 26, 34, 36, 53	gsummptfzsplit 19869	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...((𝑠 − 1) + 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (𝑌 Σg (𝑖 ∈ {((𝑠 − 1) + 1)} ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))))
55		ringmnd 20159	. . . . . . . 8 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Mnd)
56	31, 55	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Mnd)
57	56	adantr 480	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Mnd)
58		ovexd 7425	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑠 − 1) + 1) ∈ V)
59		simpl1 1192	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑁 ∈ Fin)
60		nn0fz0 13593	. . . . . . . . . . 11 ⊢ (𝑠 ∈ ℕ0 ↔ 𝑠 ∈ (0...𝑠))
61	1, 60	sylib 218	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ (0...𝑠))
62		ffvelcdm 7056	. . . . . . . . . 10 ⊢ ((𝑏:(0...𝑠)⟶𝐵 ∧ 𝑠 ∈ (0...𝑠)) → (𝑏‘𝑠) ∈ 𝐵)
63	41, 61, 62	syl2anr 597	. . . . . . . . 9 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑏‘𝑠) ∈ 𝐵)
64	1	adantr 480	. . . . . . . . . 10 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → 𝑠 ∈ ℕ0)
65	49	a1i 11	. . . . . . . . . 10 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → 1 ∈ ℕ0)
66	64, 65	nn0addcld 12514	. . . . . . . . 9 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑠 + 1) ∈ ℕ0)
67	63, 66	jca 511	. . . . . . . 8 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → ((𝑏‘𝑠) ∈ 𝐵 ∧ (𝑠 + 1) ∈ ℕ0))
68	67	adantl 481	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑏‘𝑠) ∈ 𝐵 ∧ (𝑠 + 1) ∈ ℕ0))
69	2, 3, 6, 4, 5, 25, 9, 8, 7	mat2pmatscmxcl 22634	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ ((𝑏‘𝑠) ∈ 𝐵 ∧ (𝑠 + 1) ∈ ℕ0)) → (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌))
70	59, 39, 68, 69	syl21anc 837	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌))
71		oveq1 7397	. . . . . . . . 9 ⊢ (𝑖 = ((𝑠 − 1) + 1) → (𝑖 + 1) = (((𝑠 − 1) + 1) + 1))
72	71	oveq1d 7405	. . . . . . . 8 ⊢ (𝑖 = ((𝑠 − 1) + 1) → ((𝑖 + 1) ↑ 𝑋) = ((((𝑠 − 1) + 1) + 1) ↑ 𝑋))
73		2fveq3 6866	. . . . . . . 8 ⊢ (𝑖 = ((𝑠 − 1) + 1) → (𝑇‘(𝑏‘𝑖)) = (𝑇‘(𝑏‘((𝑠 − 1) + 1))))
74	72, 73	oveq12d 7408	. . . . . . 7 ⊢ (𝑖 = ((𝑠 − 1) + 1) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) = (((((𝑠 − 1) + 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘((𝑠 − 1) + 1)))))
75	17, 18	syl 17	. . . . . . . . . . 11 ⊢ (𝑠 ∈ ℕ → ((𝑠 − 1) + 1) = 𝑠)
76	75	oveq1d 7405	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℕ → (((𝑠 − 1) + 1) + 1) = (𝑠 + 1))
77	76	oveq1d 7405	. . . . . . . . 9 ⊢ (𝑠 ∈ ℕ → ((((𝑠 − 1) + 1) + 1) ↑ 𝑋) = ((𝑠 + 1) ↑ 𝑋))
78	75	fveq2d 6865	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℕ → (𝑏‘((𝑠 − 1) + 1)) = (𝑏‘𝑠))
79	78	fveq2d 6865	. . . . . . . . 9 ⊢ (𝑠 ∈ ℕ → (𝑇‘(𝑏‘((𝑠 − 1) + 1))) = (𝑇‘(𝑏‘𝑠)))
80	77, 79	oveq12d 7408	. . . . . . . 8 ⊢ (𝑠 ∈ ℕ → (((((𝑠 − 1) + 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘((𝑠 − 1) + 1)))) = (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))))
81	80	ad2antrl 728	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((((𝑠 − 1) + 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘((𝑠 − 1) + 1)))) = (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))))
82	74, 81	sylan9eqr 2787	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 = ((𝑠 − 1) + 1)) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) = (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))))
83	25, 57, 58, 70, 82	gsumsnd 19889	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ {((𝑠 − 1) + 1)} ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))))
84	83	oveq2d 7406	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (𝑌 Σg (𝑖 ∈ {((𝑠 − 1) + 1)} ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))))
85	24, 54, 84	3eqtrd 2769	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))))
86	1	ad2antrl 728	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑠 ∈ ℕ0)
87	4, 5	pmatlmod 22587	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑌 ∈ LMod)
88	28, 87	syl 17	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑌 ∈ LMod)
89	88	3adant3 1132	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ LMod)
90	89	adantr 480	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ LMod)
91	90	adantr 480	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑌 ∈ LMod)
92		eqid 2730	. . . . . . . . 9 ⊢ (mulGrp‘𝑃) = (mulGrp‘𝑃)
93		eqid 2730	. . . . . . . . 9 ⊢ (Base‘𝑃) = (Base‘𝑃)
94	92, 93	mgpbas 20061	. . . . . . . 8 ⊢ (Base‘𝑃) = (Base‘(mulGrp‘𝑃))
95	4	ply1ring 22139	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring)
96	27, 95	syl 17	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ CRing → 𝑃 ∈ Ring)
97	96	3ad2ant2 1134	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 ∈ Ring)
98	92	ringmgp 20155	. . . . . . . . . . 11 ⊢ (𝑃 ∈ Ring → (mulGrp‘𝑃) ∈ Mnd)
99	97, 98	syl 17	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (mulGrp‘𝑃) ∈ Mnd)
100	99	adantr 480	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (mulGrp‘𝑃) ∈ Mnd)
101	100	adantr 480	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (mulGrp‘𝑃) ∈ Mnd)
102		elfznn0 13588	. . . . . . . . 9 ⊢ (𝑖 ∈ (0...𝑠) → 𝑖 ∈ ℕ0)
103	102	adantl 481	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑖 ∈ ℕ0)
104	7, 4, 93	vr1cl 22109	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → 𝑋 ∈ (Base‘𝑃))
105	27, 104	syl 17	. . . . . . . . . . 11 ⊢ (𝑅 ∈ CRing → 𝑋 ∈ (Base‘𝑃))
106	105	3ad2ant2 1134	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑋 ∈ (Base‘𝑃))
107	106	adantr 480	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑋 ∈ (Base‘𝑃))
108	107	adantr 480	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑋 ∈ (Base‘𝑃))
109	94, 8, 101, 103, 108	mulgnn0cld 19034	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘𝑃))
110	4	ply1crng 22090	. . . . . . . . . . . . . . 15 ⊢ (𝑅 ∈ CRing → 𝑃 ∈ CRing)
111	110	anim2i 617	. . . . . . . . . . . . . 14 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑃 ∈ CRing))
112	111	3adant3 1132	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑃 ∈ CRing))
113	5	matsca2 22314	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑃 ∈ CRing) → 𝑃 = (Scalar‘𝑌))
114	112, 113	syl 17	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 = (Scalar‘𝑌))
115	114	eqcomd 2736	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Scalar‘𝑌) = 𝑃)
116	115	fveq2d 6865	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Base‘(Scalar‘𝑌)) = (Base‘𝑃))
117	116	eleq2d 2815	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ((𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ↔ (𝑖 ↑ 𝑋) ∈ (Base‘𝑃)))
118	117	adantr 480	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ↔ (𝑖 ↑ 𝑋) ∈ (Base‘𝑃)))
119	118	adantr 480	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ↔ (𝑖 ↑ 𝑋) ∈ (Base‘𝑃)))
120	109, 119	mpbird 257	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)))
121	31	adantr 480	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Ring)
122	121	adantr 480	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑌 ∈ Ring)
123		simpll1 1213	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑁 ∈ Fin)
124	39	adantr 480	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑅 ∈ Ring)
125		simpll3 1215	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑀 ∈ 𝐵)
126	6, 2, 3, 4, 5	mat2pmatbas 22620	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) ∈ (Base‘𝑌))
127	123, 124, 125, 126	syl3anc 1373	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑇‘𝑀) ∈ (Base‘𝑌))
128	86	adantr 480	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑠 ∈ ℕ0)
129		simprr 772	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑏 ∈ (𝐵 ↑m (0...𝑠)))
130	129	anim1i 615	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑏 ∈ (𝐵 ↑m (0...𝑠)) ∧ 𝑖 ∈ (0...𝑠)))
131	2, 3, 4, 5, 6	m2pmfzmap 22641	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑠 ∈ ℕ0) ∧ (𝑏 ∈ (𝐵 ↑m (0...𝑠)) ∧ 𝑖 ∈ (0...𝑠))) → (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))
132	123, 124, 128, 130, 131	syl31anc 1375	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))
133	25, 10	ringcl 20166	. . . . . . 7 ⊢ ((𝑌 ∈ Ring ∧ (𝑇‘𝑀) ∈ (Base‘𝑌) ∧ (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌)) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
134	122, 127, 132, 133	syl3anc 1373	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
135		eqid 2730	. . . . . . 7 ⊢ (Scalar‘𝑌) = (Scalar‘𝑌)
136		eqid 2730	. . . . . . 7 ⊢ (Base‘(Scalar‘𝑌)) = (Base‘(Scalar‘𝑌))
137	25, 135, 9, 136	lmodvscl 20791	. . . . . 6 ⊢ ((𝑌 ∈ LMod ∧ (𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ∧ ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌)) → ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ (Base‘𝑌))
138	91, 120, 134, 137	syl3anc 1373	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ (Base‘𝑌))
139	25, 26, 34, 86, 138	gsummptfzsplitl 19870	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
140		0nn0 12464	. . . . . . . 8 ⊢ 0 ∈ ℕ0
141	140	a1i 11	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 0 ∈ ℕ0)
142		eqid 2730	. . . . . . . . . . . . 13 ⊢ (0g‘(mulGrp‘𝑃)) = (0g‘(mulGrp‘𝑃))
143	94, 142, 8	mulg0 19013	. . . . . . . . . . . 12 ⊢ (𝑋 ∈ (Base‘𝑃) → (0 ↑ 𝑋) = (0g‘(mulGrp‘𝑃)))
144	106, 143	syl 17	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (0 ↑ 𝑋) = (0g‘(mulGrp‘𝑃)))
145	144	adantr 480	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0 ↑ 𝑋) = (0g‘(mulGrp‘𝑃)))
146	145	oveq1d 7405	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((0g‘(mulGrp‘𝑃)) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
147		eqid 2730	. . . . . . . . . . . . 13 ⊢ (1r‘𝑃) = (1r‘𝑃)
148	92, 147	ringidval 20099	. . . . . . . . . . . 12 ⊢ (1r‘𝑃) = (0g‘(mulGrp‘𝑃))
149	148	a1i 11	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (1r‘𝑃) = (0g‘(mulGrp‘𝑃)))
150	149	eqcomd 2736	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0g‘(mulGrp‘𝑃)) = (1r‘𝑃))
151	150	oveq1d 7405	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0g‘(mulGrp‘𝑃)) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((1r‘𝑃) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
152	114	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑃 = (Scalar‘𝑌))
153	152	fveq2d 6865	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (1r‘𝑃) = (1r‘(Scalar‘𝑌)))
154	153	oveq1d 7405	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((1r‘𝑃) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((1r‘(Scalar‘𝑌)) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
155	27, 126	syl3an2 1164	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) ∈ (Base‘𝑌))
156	155	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑇‘𝑀) ∈ (Base‘𝑌))
157		simpl 482	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑏:(0...𝑠)⟶𝐵 ∧ 𝑠 ∈ ℕ) → 𝑏:(0...𝑠)⟶𝐵)
158		elnn0uz 12845	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑠 ∈ ℕ0 ↔ 𝑠 ∈ (ℤ≥‘0))
159	1, 158	sylib 218	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ (ℤ≥‘0))
160		eluzfz1 13499	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑠 ∈ (ℤ≥‘0) → 0 ∈ (0...𝑠))
161	159, 160	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑠 ∈ ℕ → 0 ∈ (0...𝑠))
162	161	adantl 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑏:(0...𝑠)⟶𝐵 ∧ 𝑠 ∈ ℕ) → 0 ∈ (0...𝑠))
163	157, 162	ffvelcdmd 7060	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑏:(0...𝑠)⟶𝐵 ∧ 𝑠 ∈ ℕ) → (𝑏‘0) ∈ 𝐵)
164	163	ex 412	. . . . . . . . . . . . . . . 16 ⊢ (𝑏:(0...𝑠)⟶𝐵 → (𝑠 ∈ ℕ → (𝑏‘0) ∈ 𝐵))
165	41, 164	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑏 ∈ (𝐵 ↑m (0...𝑠)) → (𝑠 ∈ ℕ → (𝑏‘0) ∈ 𝐵))
166	165	impcom 407	. . . . . . . . . . . . . 14 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑏‘0) ∈ 𝐵)
167	166	adantl 481	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑏‘0) ∈ 𝐵)
168	6, 2, 3, 4, 5	mat2pmatbas 22620	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑏‘0) ∈ 𝐵) → (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌))
169	59, 39, 167, 168	syl3anc 1373	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌))
170	25, 10	ringcl 20166	. . . . . . . . . . . 12 ⊢ ((𝑌 ∈ Ring ∧ (𝑇‘𝑀) ∈ (Base‘𝑌) ∧ (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌)) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌))
171	121, 156, 169, 170	syl3anc 1373	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌))
172		eqid 2730	. . . . . . . . . . . 12 ⊢ (1r‘(Scalar‘𝑌)) = (1r‘(Scalar‘𝑌))
173	25, 135, 9, 172	lmodvs1 20803	. . . . . . . . . . 11 ⊢ ((𝑌 ∈ LMod ∧ ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌)) → ((1r‘(Scalar‘𝑌)) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
174	90, 171, 173	syl2anc 584	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((1r‘(Scalar‘𝑌)) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
175	154, 174	eqtrd 2765	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((1r‘𝑃) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
176	146, 151, 175	3eqtrd 2769	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
177	176, 171	eqeltrd 2829	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) ∈ (Base‘𝑌))
178		oveq1 7397	. . . . . . . . 9 ⊢ (𝑖 = 0 → (𝑖 ↑ 𝑋) = (0 ↑ 𝑋))
179		2fveq3 6866	. . . . . . . . . 10 ⊢ (𝑖 = 0 → (𝑇‘(𝑏‘𝑖)) = (𝑇‘(𝑏‘0)))
180	179	oveq2d 7406	. . . . . . . . 9 ⊢ (𝑖 = 0 → ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
181	178, 180	oveq12d 7408	. . . . . . . 8 ⊢ (𝑖 = 0 → ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) = ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
182	181	adantl 481	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 = 0) → ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) = ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
183	25, 57, 141, 177, 182	gsumsnd 19889	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) = ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
184	94, 148, 8	mulg0 19013	. . . . . . . . 9 ⊢ (𝑋 ∈ (Base‘𝑃) → (0 ↑ 𝑋) = (1r‘𝑃))
185	106, 184	syl 17	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (0 ↑ 𝑋) = (1r‘𝑃))
186	185	adantr 480	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0 ↑ 𝑋) = (1r‘𝑃))
187	186	oveq1d 7405	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((1r‘𝑃) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
188	183, 187, 175	3eqtrd 2769	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))
189	188	oveq2d 7406	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
190	139, 189	eqtrd 2765	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
191	85, 190	oveq12d 7408	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = (((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
192		fzfid 13945	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0...(𝑠 − 1)) ∈ Fin)
193		simpll1 1213	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 𝑁 ∈ Fin)
194	39	adantr 480	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 𝑅 ∈ Ring)
195	41	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → 𝑏:(0...𝑠)⟶𝐵)
196	195	adantr 480	. . . . . . . . . 10 ⊢ (((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 𝑏:(0...𝑠)⟶𝐵)
197		nnz 12557	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ ℤ)
198		fzoval 13628	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 ∈ ℤ → (0..^𝑠) = (0...(𝑠 − 1)))
199	197, 198	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑠 ∈ ℕ → (0..^𝑠) = (0...(𝑠 − 1)))
200	199	eqcomd 2736	. . . . . . . . . . . . . 14 ⊢ (𝑠 ∈ ℕ → (0...(𝑠 − 1)) = (0..^𝑠))
201	200	eleq2d 2815	. . . . . . . . . . . . 13 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (0...(𝑠 − 1)) ↔ 𝑖 ∈ (0..^𝑠)))
202		elfzofz 13643	. . . . . . . . . . . . 13 ⊢ (𝑖 ∈ (0..^𝑠) → 𝑖 ∈ (0...𝑠))
203	201, 202	biimtrdi 253	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (0...(𝑠 − 1)) → 𝑖 ∈ (0...𝑠)))
204	203	adantr 480	. . . . . . . . . . 11 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑖 ∈ (0...(𝑠 − 1)) → 𝑖 ∈ (0...𝑠)))
205	204	imp 406	. . . . . . . . . 10 ⊢ (((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 𝑖 ∈ (0...𝑠))
206	196, 205	ffvelcdmd 7060	. . . . . . . . 9 ⊢ (((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → (𝑏‘𝑖) ∈ 𝐵)
207	206	adantll 714	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → (𝑏‘𝑖) ∈ 𝐵)
208		elfznn0 13588	. . . . . . . . . 10 ⊢ (𝑖 ∈ (0...(𝑠 − 1)) → 𝑖 ∈ ℕ0)
209	208	adantl 481	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 𝑖 ∈ ℕ0)
210	49	a1i 11	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → 1 ∈ ℕ0)
211	209, 210	nn0addcld 12514	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → (𝑖 + 1) ∈ ℕ0)
212	193, 194, 207, 211, 52	syl22anc 838	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 − 1))) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
213	212	ralrimiva 3126	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ∀𝑖 ∈ (0...(𝑠 − 1))(((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
214	25, 34, 192, 213	gsummptcl 19904	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌))
215	25, 26	cmncom 19735	. . . . 5 ⊢ ((𝑌 ∈ CMnd ∧ (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌) ∧ (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌)) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))))
216	34, 214, 70, 215	syl3anc 1373	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))))
217	216	oveq1d 7405	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))) = (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
218		ringgrp 20154	. . . . . . . . 9 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Grp)
219	31, 218	syl 17	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Grp)
220	219	adantr 480	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Grp)
221		fzfid 13945	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (1...𝑠) ∈ Fin)
222	90	adantr 480	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑌 ∈ LMod)
223	100	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (mulGrp‘𝑃) ∈ Mnd)
224		elfznn 13521	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℕ)
225	224	nnnn0d 12510	. . . . . . . . . . . . 13 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℕ0)
226	225	adantl 481	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑖 ∈ ℕ0)
227	107	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑋 ∈ (Base‘𝑃))
228	94, 8, 223, 226, 227	mulgnn0cld 19034	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘𝑃))
229	114	fveq2d 6865	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Base‘𝑃) = (Base‘(Scalar‘𝑌)))
230	229	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (Base‘𝑃) = (Base‘(Scalar‘𝑌)))
231	230	adantr 480	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (Base‘𝑃) = (Base‘(Scalar‘𝑌)))
232	228, 231	eleqtrd 2831	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)))
233	121	adantr 480	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑌 ∈ Ring)
234	156	adantr 480	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑇‘𝑀) ∈ (Base‘𝑌))
235		simpll1 1213	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑁 ∈ Fin)
236	39	adantr 480	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑅 ∈ Ring)
237	195	adantl 481	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑏:(0...𝑠)⟶𝐵)
238	237	adantr 480	. . . . . . . . . . . . 13 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑏:(0...𝑠)⟶𝐵)
239		1eluzge0 12846	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ (ℤ≥‘0)
240		fzss1 13531	. . . . . . . . . . . . . . . . 17 ⊢ (1 ∈ (ℤ≥‘0) → (1...𝑠) ⊆ (0...𝑠))
241	239, 240	mp1i 13	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 ∈ ℕ → (1...𝑠) ⊆ (0...𝑠))
242	241	sseld 3948	. . . . . . . . . . . . . . 15 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (1...𝑠) → 𝑖 ∈ (0...𝑠)))
243	242	ad2antrl 728	. . . . . . . . . . . . . 14 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (1...𝑠) → 𝑖 ∈ (0...𝑠)))
244	243	imp 406	. . . . . . . . . . . . 13 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑖 ∈ (0...𝑠))
245	238, 244	ffvelcdmd 7060	. . . . . . . . . . . 12 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑏‘𝑖) ∈ 𝐵)
246	6, 2, 3, 4, 5	mat2pmatbas 22620	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑏‘𝑖) ∈ 𝐵) → (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))
247	235, 236, 245, 246	syl3anc 1373	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))
248	233, 234, 247, 133	syl3anc 1373	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
249	222, 232, 248, 137	syl3anc 1373	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ (Base‘𝑌))
250	249	ralrimiva 3126	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ∀𝑖 ∈ (1...𝑠)((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ (Base‘𝑌))
251	25, 34, 221, 250	gsummptcl 19904	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) ∈ (Base‘𝑌))
252		cpmadugsum.s	. . . . . . . 8 ⊢ − = (-g‘𝑌)
253	25, 26, 252	grpaddsubass 18969	. . . . . . 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...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))))
254	220, 70, 214, 251, 253	syl13anc 1374	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))))
255		oveq1 7397	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝑖 → (𝑥 − 1) = (𝑖 − 1))
256	255	oveq1d 7405	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑖 → ((𝑥 − 1) + 1) = ((𝑖 − 1) + 1))
257	256	oveq1d 7405	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑖 → (((𝑥 − 1) + 1) ↑ 𝑋) = (((𝑖 − 1) + 1) ↑ 𝑋))
258	255	fveq2d 6865	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝑖 → (𝑏‘(𝑥 − 1)) = (𝑏‘(𝑖 − 1)))
259	258	fveq2d 6865	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑖 → (𝑇‘(𝑏‘(𝑥 − 1))) = (𝑇‘(𝑏‘(𝑖 − 1))))
260	257, 259	oveq12d 7408	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑖 → ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))) = ((((𝑖 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))
261	260	cbvmptv 5214	. . . . . . . . . . . 12 ⊢ (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1))))) = (𝑖 ∈ (1...𝑠) ↦ ((((𝑖 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))
262	224	nncnd 12209	. . . . . . . . . . . . . . . . 17 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℂ)
263	262	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → 𝑖 ∈ ℂ)
264		npcan1 11610	. . . . . . . . . . . . . . . 16 ⊢ (𝑖 ∈ ℂ → ((𝑖 − 1) + 1) = 𝑖)
265	263, 264	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 − 1) + 1) = 𝑖)
266	265	oveq1d 7405	. . . . . . . . . . . . . 14 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → (((𝑖 − 1) + 1) ↑ 𝑋) = (𝑖 ↑ 𝑋))
267	266	oveq1d 7405	. . . . . . . . . . . . 13 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → ((((𝑖 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) = ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))
268	267	mpteq2dva 5203	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (1...𝑠) ↦ ((((𝑖 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1))))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1))))))
269	261, 268	eqtrid 2777	. . . . . . . . . . 11 ⊢ (𝑠 ∈ ℕ → (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1))))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1))))))
270	269	oveq2d 7406	. . . . . . . . . 10 ⊢ (𝑠 ∈ ℕ → (𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))) = (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))))
271	270	ad2antrl 728	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))) = (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))))
272	271	oveq1d 7405	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
273		eqid 2730	. . . . . . . . . . 11 ⊢ (0g‘𝑌) = (0g‘𝑌)
274		1zzd 12571	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 1 ∈ ℤ)
275		0zd 12548	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 0 ∈ ℤ)
276	36	nn0zd 12562	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑠 − 1) ∈ ℤ)
277		oveq1 7397	. . . . . . . . . . . . 13 ⊢ (𝑖 = (𝑥 − 1) → (𝑖 + 1) = ((𝑥 − 1) + 1))
278	277	oveq1d 7405	. . . . . . . . . . . 12 ⊢ (𝑖 = (𝑥 − 1) → ((𝑖 + 1) ↑ 𝑋) = (((𝑥 − 1) + 1) ↑ 𝑋))
279		2fveq3 6866	. . . . . . . . . . . 12 ⊢ (𝑖 = (𝑥 − 1) → (𝑇‘(𝑏‘𝑖)) = (𝑇‘(𝑏‘(𝑥 − 1))))
280	278, 279	oveq12d 7408	. . . . . . . . . . 11 ⊢ (𝑖 = (𝑥 − 1) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) = ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))
281	25, 273, 34, 274, 275, 276, 212, 280	gsummptshft 19873	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (𝑌 Σg (𝑥 ∈ ((0 + 1)...((𝑠 − 1) + 1)) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))))
282		0p1e1 12310	. . . . . . . . . . . . . 14 ⊢ (0 + 1) = 1
283	282	a1i 11	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0 + 1) = 1)
284	75	ad2antrl 728	. . . . . . . . . . . . 13 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑠 − 1) + 1) = 𝑠)
285	283, 284	oveq12d 7408	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 + 1)...((𝑠 − 1) + 1)) = (1...𝑠))
286	285	mpteq1d 5200	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑥 ∈ ((0 + 1)...((𝑠 − 1) + 1)) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1))))) = (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1))))))
287	286	oveq2d 7406	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑥 ∈ ((0 + 1)...((𝑠 − 1) + 1)) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))) = (𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))))
288	281, 287	eqtrd 2765	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))))
289	288	oveq1d 7405	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑥 ∈ (1...𝑠) ↦ ((((𝑥 − 1) + 1) ↑ 𝑋) · (𝑇‘(𝑏‘(𝑥 − 1)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
290		ringabl 20197	. . . . . . . . . . 11 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Abel)
291	31, 290	syl 17	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Abel)
292	291	adantr 480	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Abel)
293	224	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → 𝑖 ∈ ℕ)
294		nnz 12557	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑖 ∈ ℕ → 𝑖 ∈ ℤ)
295		elfzm1b 13570	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑖 ∈ ℤ ∧ 𝑠 ∈ ℤ) → (𝑖 ∈ (1...𝑠) ↔ (𝑖 − 1) ∈ (0...(𝑠 − 1))))
296	294, 197, 295	syl2an 596	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → (𝑖 ∈ (1...𝑠) ↔ (𝑖 − 1) ∈ (0...(𝑠 − 1))))
297	199	adantl 481	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → (0..^𝑠) = (0...(𝑠 − 1)))
298	297	eqcomd 2736	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → (0...(𝑠 − 1)) = (0..^𝑠))
299	298	eleq2d 2815	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → ((𝑖 − 1) ∈ (0...(𝑠 − 1)) ↔ (𝑖 − 1) ∈ (0..^𝑠)))
300		elfzofz 13643	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑖 − 1) ∈ (0..^𝑠) → (𝑖 − 1) ∈ (0...𝑠))
301	299, 300	biimtrdi 253	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → ((𝑖 − 1) ∈ (0...(𝑠 − 1)) → (𝑖 − 1) ∈ (0...𝑠)))
302	296, 301	sylbid 240	. . . . . . . . . . . . . . . 16 ⊢ ((𝑖 ∈ ℕ ∧ 𝑠 ∈ ℕ) → (𝑖 ∈ (1...𝑠) → (𝑖 − 1) ∈ (0...𝑠)))
303	302	expimpd 453	. . . . . . . . . . . . . . 15 ⊢ (𝑖 ∈ ℕ → ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → (𝑖 − 1) ∈ (0...𝑠)))
304	293, 303	mpcom 38	. . . . . . . . . . . . . 14 ⊢ ((𝑠 ∈ ℕ ∧ 𝑖 ∈ (1...𝑠)) → (𝑖 − 1) ∈ (0...𝑠))
305	304	ex 412	. . . . . . . . . . . . 13 ⊢ (𝑠 ∈ ℕ → (𝑖 ∈ (1...𝑠) → (𝑖 − 1) ∈ (0...𝑠)))
306	305	ad2antrl 728	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (1...𝑠) → (𝑖 − 1) ∈ (0...𝑠)))
307	306	imp 406	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑖 − 1) ∈ (0...𝑠))
308	238, 307	ffvelcdmd 7060	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑏‘(𝑖 − 1)) ∈ 𝐵)
309	2, 3, 6, 4, 5, 25, 9, 8, 7	mat2pmatscmxcl 22634	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ ((𝑏‘(𝑖 − 1)) ∈ 𝐵 ∧ 𝑖 ∈ ℕ0)) → ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) ∈ (Base‘𝑌))
310	235, 236, 308, 226, 309	syl22anc 838	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) ∈ (Base‘𝑌))
311		eqid 2730	. . . . . . . . 9 ⊢ (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1))))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))
312		eqid 2730	. . . . . . . . 9 ⊢ (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
313	25, 252, 292, 221, 310, 249, 311, 312	gsummptfidmsub 19887	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
314	272, 289, 313	3eqtr4d 2775	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
315	314	oveq2d 7406	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + ((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))))
316	220	adantr 480	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑌 ∈ Grp)
317	25, 252	grpsubcl 18959	. . . . . . . . . 10 ⊢ ((𝑌 ∈ Grp ∧ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) ∈ (Base‘𝑌) ∧ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ (Base‘𝑌)) → (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌))
318	316, 310, 249, 317	syl3anc 1373	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌))
319	318	ralrimiva 3126	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ∀𝑖 ∈ (1...𝑠)(((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌))
320	25, 34, 221, 319	gsummptcl 19904	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) ∈ (Base‘𝑌))
321	25, 26	cmncom 19735	. . . . . . 7 ⊢ ((𝑌 ∈ CMnd ∧ (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌) ∧ (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) ∈ (Base‘𝑌)) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))))
322	34, 70, 320, 321	syl3anc 1373	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))))
323	254, 315, 322	3eqtrd 2769	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))))
324	323	oveq1d 7405	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = (((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
325	25, 26	mndcl 18676	. . . . . 6 ⊢ ((𝑌 ∈ Mnd ∧ (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌) ∧ (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) ∈ (Base‘𝑌)) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) ∈ (Base‘𝑌))
326	57, 70, 214, 325	syl3anc 1373	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) ∈ (Base‘𝑌))
327	25, 26, 252, 292, 326, 251, 171	ablsubsub4 19755	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
328	25, 26, 252	grpaddsubass 18969	. . . . 5 ⊢ ((𝑌 ∈ Grp ∧ ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) ∈ (Base‘𝑌) ∧ (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌) ∧ ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌))) → (((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
329	220, 320, 70, 171, 328	syl13anc 1374	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
330	324, 327, 329	3eqtr3d 2773	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + (𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
331	6, 2, 3, 4, 5	mat2pmatbas 22620	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑏‘(𝑖 − 1)) ∈ 𝐵) → (𝑇‘(𝑏‘(𝑖 − 1))) ∈ (Base‘𝑌))
332	235, 236, 308, 331	syl3anc 1373	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑇‘(𝑏‘(𝑖 − 1))) ∈ (Base‘𝑌))
333	25, 9, 135, 136, 252, 222, 232, 332, 248	lmodsubdi 20832	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) = (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
334	333	eqcomd 2736	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))) = ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
335	334	mpteq2dva 5203	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))
336	335	oveq2d 7406	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) = (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
337	336	oveq1d 7405	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ (((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘(𝑖 − 1)))) − ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
338	217, 330, 337	3eqtrd 2769	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑌 Σg (𝑖 ∈ (0...(𝑠 − 1)) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) + (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠)))) − ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))) + ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
339	16, 191, 338	3eqtrd 2769	1 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) − ((𝑇‘𝑀) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2109  Vcvv 3450   ⊆ wss 3917  {csn 4592   ↦ cmpt 5191  ⟶wf 6510  ‘cfv 6514  (class class class)co 7390   ↑_m cmap 8802  Fincfn 8921  ℂcc 11073  0cc0 11075  1c1 11076   + caddc 11078   − cmin 11412  ℕcn 12193  ℕ₀cn0 12449  ℤcz 12536  ℤ_≥cuz 12800  ...cfz 13475  ..^cfzo 13622  Basecbs 17186  +_gcplusg 17227  ._rcmulr 17228  Scalarcsca 17230   ·_𝑠 cvsca 17231  0_gc0g 17409   Σ_g cgsu 17410  Mndcmnd 18668  Grpcgrp 18872  -_gcsg 18874  ._gcmg 19006  CMndccmn 19717  Abelcabl 19718  mulGrpcmgp 20056  1_rcur 20097  Ringcrg 20149  CRingccrg 20150  LModclmod 20773  var₁cv1 22067  Poly₁cpl1 22068   Mat cmat 22301   matToPolyMat cmat2pmat 22598

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5237  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-pss 3937  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-tp 4597  df-op 4599  df-ot 4601  df-uni 4875  df-int 4914  df-iun 4960  df-iin 4961  df-br 5111  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5536  df-eprel 5541  df-po 5549  df-so 5550  df-fr 5594  df-se 5595  df-we 5596  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-isom 6523  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-of 7656  df-ofr 7657  df-om 7846  df-1st 7971  df-2nd 7972  df-supp 8143  df-frecs 8263  df-wrecs 8294  df-recs 8343  df-rdg 8381  df-1o 8437  df-2o 8438  df-er 8674  df-map 8804  df-pm 8805  df-ixp 8874  df-en 8922  df-dom 8923  df-sdom 8924  df-fin 8925  df-fsupp 9320  df-sup 9400  df-oi 9470  df-card 9899  df-pnf 11217  df-mnf 11218  df-xr 11219  df-ltxr 11220  df-le 11221  df-sub 11414  df-neg 11415  df-nn 12194  df-2 12256  df-3 12257  df-4 12258  df-5 12259  df-6 12260  df-7 12261  df-8 12262  df-9 12263  df-n0 12450  df-z 12537  df-dec 12657  df-uz 12801  df-fz 13476  df-fzo 13623  df-seq 13974  df-hash 14303  df-struct 17124  df-sets 17141  df-slot 17159  df-ndx 17171  df-base 17187  df-ress 17208  df-plusg 17240  df-mulr 17241  df-sca 17243  df-vsca 17244  df-ip 17245  df-tset 17246  df-ple 17247  df-ds 17249  df-hom 17251  df-cco 17252  df-0g 17411  df-gsum 17412  df-prds 17417  df-pws 17419  df-mre 17554  df-mrc 17555  df-acs 17557  df-mgm 18574  df-sgrp 18653  df-mnd 18669  df-mhm 18717  df-submnd 18718  df-grp 18875  df-minusg 18876  df-sbg 18877  df-mulg 19007  df-subg 19062  df-ghm 19152  df-cntz 19256  df-cmn 19719  df-abl 19720  df-mgp 20057  df-rng 20069  df-ur 20098  df-ring 20151  df-cring 20152  df-subrng 20462  df-subrg 20486  df-lmod 20775  df-lss 20845  df-sra 21087  df-rgmod 21088  df-dsmm 21648  df-frlm 21663  df-assa 21769  df-ascl 21771  df-psr 21825  df-mvr 21826  df-mpl 21827  df-opsr 21829  df-psr1 22071  df-vr1 22072  df-ply1 22073  df-mamu 22285  df-mat 22302  df-mat2pmat 22601

This theorem is referenced by:  cpmadugsumfi  22771