Theorem chfacfscmulgsum 22749

Description: Breaking up a sum of values of the "characteristic factor function" scaled by a polynomial. (Contributed by AV, 9-Nov-2019.)

Hypotheses

Ref	Expression
chfacfisf.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
chfacfisf.b	⊢ 𝐵 = (Base‘𝐴)
chfacfisf.p	⊢ 𝑃 = (Poly1‘𝑅)
chfacfisf.y	⊢ 𝑌 = (𝑁 Mat 𝑃)
chfacfisf.r	⊢ × = (.r‘𝑌)
chfacfisf.s	⊢ − = (-g‘𝑌)
chfacfisf.0	⊢ 0 = (0g‘𝑌)
chfacfisf.t	⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
chfacfisf.g	⊢ 𝐺 = (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))))
chfacfscmulcl.x	⊢ 𝑋 = (var1‘𝑅)
chfacfscmulcl.m	⊢ · = ( ·𝑠 ‘𝑌)
chfacfscmulcl.e	⊢ ↑ = (.g‘(mulGrp‘𝑃))
chfacfscmulgsum.p	⊢ + = (+g‘𝑌)

Assertion

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

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

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

Proof of Theorem chfacfscmulgsum

Step	Hyp	Ref	Expression
1		eqid 2727	. . 3 ⊢ (Base‘𝑌) = (Base‘𝑌)
2		chfacfisf.0	. . 3 ⊢ 0 = (0g‘𝑌)
3		chfacfscmulgsum.p	. . 3 ⊢ + = (+g‘𝑌)
4		crngring 20176	. . . . . . . 8 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
5	4	anim2i 616	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
6	5	3adant3 1130	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
7		chfacfisf.p	. . . . . . 7 ⊢ 𝑃 = (Poly1‘𝑅)
8		chfacfisf.y	. . . . . . 7 ⊢ 𝑌 = (𝑁 Mat 𝑃)
9	7, 8	pmatring 22581	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑌 ∈ Ring)
10	6, 9	syl 17	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Ring)
11		ringcmn 20207	. . . . 5 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ CMnd)
12	10, 11	syl 17	. . . 4 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ CMnd)
13	12	adantr 480	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ CMnd)
14		nn0ex 12500	. . . 4 ⊢ ℕ0 ∈ V
15	14	a1i 11	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ℕ0 ∈ V)
16		simpll 766	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ ℕ0) → (𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵))
17		simplr 768	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ ℕ0) → (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))))
18		simpr 484	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ ℕ0) → 𝑖 ∈ ℕ0)
19	16, 17, 18	3jca 1126	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ ℕ0) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ ℕ0))
20		chfacfisf.a	. . . . 5 ⊢ 𝐴 = (𝑁 Mat 𝑅)
21		chfacfisf.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐴)
22		chfacfisf.r	. . . . 5 ⊢ × = (.r‘𝑌)
23		chfacfisf.s	. . . . 5 ⊢ − = (-g‘𝑌)
24		chfacfisf.t	. . . . 5 ⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
25		chfacfisf.g	. . . . 5 ⊢ 𝐺 = (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))))
26		chfacfscmulcl.x	. . . . 5 ⊢ 𝑋 = (var1‘𝑅)
27		chfacfscmulcl.m	. . . . 5 ⊢ · = ( ·𝑠 ‘𝑌)
28		chfacfscmulcl.e	. . . . 5 ⊢ ↑ = (.g‘(mulGrp‘𝑃))
29	20, 21, 7, 8, 22, 23, 2, 24, 25, 26, 27, 28	chfacfscmulcl 22746	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ ℕ0) → ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) ∈ (Base‘𝑌))
30	19, 29	syl 17	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ ℕ0) → ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) ∈ (Base‘𝑌))
31	20, 21, 7, 8, 22, 23, 2, 24, 25, 26, 27, 28	chfacfscmulfsupp 22748	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ ℕ0 ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖))) finSupp 0 )
32		nn0disj 13641	. . . 4 ⊢ ((0...(𝑠 + 1)) ∩ (ℤ≥‘((𝑠 + 1) + 1))) = ∅
33	32	a1i 11	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0...(𝑠 + 1)) ∩ (ℤ≥‘((𝑠 + 1) + 1))) = ∅)
34		nnnn0 12501	. . . . . 6 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ ℕ0)
35		peano2nn0 12534	. . . . . 6 ⊢ (𝑠 ∈ ℕ0 → (𝑠 + 1) ∈ ℕ0)
36	34, 35	syl 17	. . . . 5 ⊢ (𝑠 ∈ ℕ → (𝑠 + 1) ∈ ℕ0)
37		nn0split 13640	. . . . 5 ⊢ ((𝑠 + 1) ∈ ℕ0 → ℕ0 = ((0...(𝑠 + 1)) ∪ (ℤ≥‘((𝑠 + 1) + 1))))
38	36, 37	syl 17	. . . 4 ⊢ (𝑠 ∈ ℕ → ℕ0 = ((0...(𝑠 + 1)) ∪ (ℤ≥‘((𝑠 + 1) + 1))))
39	38	ad2antrl 727	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ℕ0 = ((0...(𝑠 + 1)) ∪ (ℤ≥‘((𝑠 + 1) + 1))))
40	1, 2, 3, 13, 15, 30, 31, 33, 39	gsumsplit2 19875	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ ℕ0 ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = ((𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + (𝑌 Σg (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖))))))
41		simpll 766	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1))) → (𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵))
42		simplr 768	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1))) → (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))))
43		nncn 12242	. . . . . . . . . . . . 13 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ ℂ)
44		add1p1 12485	. . . . . . . . . . . . 13 ⊢ (𝑠 ∈ ℂ → ((𝑠 + 1) + 1) = (𝑠 + 2))
45	43, 44	syl 17	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ ℕ → ((𝑠 + 1) + 1) = (𝑠 + 2))
46	45	ad2antrl 727	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑠 + 1) + 1) = (𝑠 + 2))
47	46	fveq2d 6895	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (ℤ≥‘((𝑠 + 1) + 1)) = (ℤ≥‘(𝑠 + 2)))
48	47	eleq2d 2814	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↔ 𝑖 ∈ (ℤ≥‘(𝑠 + 2))))
49	48	biimpa 476	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1))) → 𝑖 ∈ (ℤ≥‘(𝑠 + 2)))
50	20, 21, 7, 8, 22, 23, 2, 24, 25, 26, 27, 28	chfacfscmul0 22747	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ (ℤ≥‘(𝑠 + 2))) → ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) = 0 )
51	41, 42, 49, 50	syl3anc 1369	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1))) → ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) = 0 )
52	51	mpteq2dva 5242	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖))) = (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↦ 0 ))
53	52	oveq2d 7430	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = (𝑌 Σg (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↦ 0 )))
54	4, 9	sylan2 592	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑌 ∈ Ring)
55		ringmnd 20174	. . . . . . . . . 10 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Mnd)
56	54, 55	syl 17	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑌 ∈ Mnd)
57	56	3adant3 1130	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Mnd)
58		fvex 6904	. . . . . . . 8 ⊢ (ℤ≥‘((𝑠 + 1) + 1)) ∈ V
59	57, 58	jctir 520	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑌 ∈ Mnd ∧ (ℤ≥‘((𝑠 + 1) + 1)) ∈ V))
60	59	adantr 480	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 ∈ Mnd ∧ (ℤ≥‘((𝑠 + 1) + 1)) ∈ V))
61	2	gsumz 18779	. . . . . 6 ⊢ ((𝑌 ∈ Mnd ∧ (ℤ≥‘((𝑠 + 1) + 1)) ∈ V) → (𝑌 Σg (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↦ 0 )) = 0 )
62	60, 61	syl 17	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↦ 0 )) = 0 )
63	53, 62	eqtrd 2767	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = 0 )
64	63	oveq2d 7430	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + (𝑌 Σg (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖))))) = ((𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + 0 ))
65		fzfid 13962	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0...(𝑠 + 1)) ∈ Fin)
66		elfznn0 13618	. . . . . . . 8 ⊢ (𝑖 ∈ (0...(𝑠 + 1)) → 𝑖 ∈ ℕ0)
67	66, 19	sylan2 592	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 + 1))) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ ℕ0))
68	67, 29	syl 17	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 + 1))) → ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) ∈ (Base‘𝑌))
69	68	ralrimiva 3141	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ∀𝑖 ∈ (0...(𝑠 + 1))((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) ∈ (Base‘𝑌))
70	1, 13, 65, 69	gsummptcl 19913	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) ∈ (Base‘𝑌))
71	1, 3, 2	mndrid 18706	. . . 4 ⊢ ((𝑌 ∈ Mnd ∧ (𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) ∈ (Base‘𝑌)) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + 0 ) = (𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))))
72	57, 70, 71	syl2an2r 684	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + 0 ) = (𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))))
73	64, 72	eqtrd 2767	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + (𝑌 Σg (𝑖 ∈ (ℤ≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖))))) = (𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))))
74	34	ad2antrl 727	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑠 ∈ ℕ0)
75	1, 3, 13, 74, 68	gsummptfzsplit 19878	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = ((𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + (𝑌 Σg (𝑖 ∈ {(𝑠 + 1)} ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖))))))
76		elfznn0 13618	. . . . . . 7 ⊢ (𝑖 ∈ (0...𝑠) → 𝑖 ∈ ℕ0)
77	76, 30	sylan2 592	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) ∈ (Base‘𝑌))
78	1, 3, 13, 74, 77	gsummptfzsplitl 19879	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖))))))
79	57	adantr 480	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Mnd)
80		0nn0 12509	. . . . . . . 8 ⊢ 0 ∈ ℕ0
81	80	a1i 11	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 0 ∈ ℕ0)
82	20, 21, 7, 8, 22, 23, 2, 24, 25, 26, 27, 28	chfacfscmulcl 22746	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 0 ∈ ℕ0) → ((0 ↑ 𝑋) · (𝐺‘0)) ∈ (Base‘𝑌))
83	81, 82	mpd3an3 1459	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · (𝐺‘0)) ∈ (Base‘𝑌))
84		oveq1 7421	. . . . . . . . 9 ⊢ (𝑖 = 0 → (𝑖 ↑ 𝑋) = (0 ↑ 𝑋))
85		fveq2 6891	. . . . . . . . 9 ⊢ (𝑖 = 0 → (𝐺‘𝑖) = (𝐺‘0))
86	84, 85	oveq12d 7432	. . . . . . . 8 ⊢ (𝑖 = 0 → ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) = ((0 ↑ 𝑋) · (𝐺‘0)))
87	1, 86	gsumsn 19900	. . . . . . 7 ⊢ ((𝑌 ∈ Mnd ∧ 0 ∈ ℕ0 ∧ ((0 ↑ 𝑋) · (𝐺‘0)) ∈ (Base‘𝑌)) → (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = ((0 ↑ 𝑋) · (𝐺‘0)))
88	79, 81, 83, 87	syl3anc 1369	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = ((0 ↑ 𝑋) · (𝐺‘0)))
89	88	oveq2d 7430	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + (𝑌 Σg (𝑖 ∈ {0} ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + ((0 ↑ 𝑋) · (𝐺‘0))))
90	78, 89	eqtrd 2767	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + ((0 ↑ 𝑋) · (𝐺‘0))))
91		ovexd 7449	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑠 + 1) ∈ V)
92		1nn0 12510	. . . . . . . 8 ⊢ 1 ∈ ℕ0
93	92	a1i 11	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 1 ∈ ℕ0)
94	74, 93	nn0addcld 12558	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑠 + 1) ∈ ℕ0)
95	20, 21, 7, 8, 22, 23, 2, 24, 25, 26, 27, 28	chfacfscmulcl 22746	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ (𝑠 + 1) ∈ ℕ0) → (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))) ∈ (Base‘𝑌))
96	94, 95	mpd3an3 1459	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))) ∈ (Base‘𝑌))
97		oveq1 7421	. . . . . . 7 ⊢ (𝑖 = (𝑠 + 1) → (𝑖 ↑ 𝑋) = ((𝑠 + 1) ↑ 𝑋))
98		fveq2 6891	. . . . . . 7 ⊢ (𝑖 = (𝑠 + 1) → (𝐺‘𝑖) = (𝐺‘(𝑠 + 1)))
99	97, 98	oveq12d 7432	. . . . . 6 ⊢ (𝑖 = (𝑠 + 1) → ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) = (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))))
100	1, 99	gsumsn 19900	. . . . 5 ⊢ ((𝑌 ∈ Mnd ∧ (𝑠 + 1) ∈ V ∧ (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))) ∈ (Base‘𝑌)) → (𝑌 Σg (𝑖 ∈ {(𝑠 + 1)} ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))))
101	79, 91, 96, 100	syl3anc 1369	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ {(𝑠 + 1)} ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))))
102	90, 101	oveq12d 7432	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + (𝑌 Σg (𝑖 ∈ {(𝑠 + 1)} ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖))))) = (((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + ((0 ↑ 𝑋) · (𝐺‘0))) + (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1)))))
103		fzfid 13962	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (1...𝑠) ∈ Fin)
104		simpll 766	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵))
105		simplr 768	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))))
106		elfznn 13554	. . . . . . . . . 10 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℕ)
107	106	nnnn0d 12554	. . . . . . . . 9 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℕ0)
108	107	adantl 481	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑖 ∈ ℕ0)
109	104, 105, 108, 29	syl3anc 1369	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) ∈ (Base‘𝑌))
110	109	ralrimiva 3141	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ∀𝑖 ∈ (1...𝑠)((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) ∈ (Base‘𝑌))
111	1, 13, 103, 110	gsummptcl 19913	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) ∈ (Base‘𝑌))
112	1, 3	mndass 18694	. . . . 5 ⊢ ((𝑌 ∈ Mnd ∧ ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) ∈ (Base‘𝑌) ∧ ((0 ↑ 𝑋) · (𝐺‘0)) ∈ (Base‘𝑌) ∧ (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))) ∈ (Base‘𝑌))) → (((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + ((0 ↑ 𝑋) · (𝐺‘0))) + (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + (((0 ↑ 𝑋) · (𝐺‘0)) + (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))))))
113	79, 111, 83, 96, 112	syl13anc 1370	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + ((0 ↑ 𝑋) · (𝐺‘0))) + (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + (((0 ↑ 𝑋) · (𝐺‘0)) + (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))))))
114	106	nnne0d 12284	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ≠ 0)
115	114	ad2antlr 726	. . . . . . . . . . . . 13 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑖 ≠ 0)
116		neeq1 2998	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑖 → (𝑛 ≠ 0 ↔ 𝑖 ≠ 0))
117	116	adantl 481	. . . . . . . . . . . . 13 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → (𝑛 ≠ 0 ↔ 𝑖 ≠ 0))
118	115, 117	mpbird 257	. . . . . . . . . . . 12 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑛 ≠ 0)
119		eqneqall 2946	. . . . . . . . . . . 12 ⊢ (𝑛 = 0 → (𝑛 ≠ 0 → 0 = (𝑇‘(𝑏‘(𝑖 − 1)))))
120	118, 119	mpan9 506	. . . . . . . . . . 11 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → 0 = (𝑇‘(𝑏‘(𝑖 − 1))))
121		simplr 768	. . . . . . . . . . . . . . 15 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → 𝑛 = 𝑖)
122		eqeq1 2731	. . . . . . . . . . . . . . . . 17 ⊢ (0 = 𝑛 → (0 = 𝑖 ↔ 𝑛 = 𝑖))
123	122	eqcoms 2735	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 0 → (0 = 𝑖 ↔ 𝑛 = 𝑖))
124	123	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → (0 = 𝑖 ↔ 𝑛 = 𝑖))
125	121, 124	mpbird 257	. . . . . . . . . . . . . 14 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → 0 = 𝑖)
126	125	fveq2d 6895	. . . . . . . . . . . . 13 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → (𝑏‘0) = (𝑏‘𝑖))
127	126	fveq2d 6895	. . . . . . . . . . . 12 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → (𝑇‘(𝑏‘0)) = (𝑇‘(𝑏‘𝑖)))
128	127	oveq2d 7430	. . . . . . . . . . 11 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))
129	120, 128	oveq12d 7432	. . . . . . . . . 10 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
130		elfz2 13515	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑖 ∈ (1...𝑠) ↔ ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ (1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠)))
131		zleltp1 12635	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑖 ∈ ℤ ∧ 𝑠 ∈ ℤ) → (𝑖 ≤ 𝑠 ↔ 𝑖 < (𝑠 + 1)))
132	131	ancoms 458	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑖 ≤ 𝑠 ↔ 𝑖 < (𝑠 + 1)))
133	132	3adant1 1128	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑖 ≤ 𝑠 ↔ 𝑖 < (𝑠 + 1)))
134	133	biimpcd 248	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑖 ≤ 𝑠 → ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → 𝑖 < (𝑠 + 1)))
135	134	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠) → ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → 𝑖 < (𝑠 + 1)))
136	135	impcom 407	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ (1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠)) → 𝑖 < (𝑠 + 1))
137	136	orcd 872	. . . . . . . . . . . . . . . . . . 19 ⊢ (((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ (1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠)) → (𝑖 < (𝑠 + 1) ∨ (𝑠 + 1) < 𝑖))
138		zre 12584	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑠 ∈ ℤ → 𝑠 ∈ ℝ)
139		1red 11237	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑠 ∈ ℤ → 1 ∈ ℝ)
140	138, 139	readdcld 11265	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑠 ∈ ℤ → (𝑠 + 1) ∈ ℝ)
141		zre 12584	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑖 ∈ ℤ → 𝑖 ∈ ℝ)
142	140, 141	anim12ci 613	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑖 ∈ ℝ ∧ (𝑠 + 1) ∈ ℝ))
143	142	3adant1 1128	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑖 ∈ ℝ ∧ (𝑠 + 1) ∈ ℝ))
144		lttri2 11318	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑖 ∈ ℝ ∧ (𝑠 + 1) ∈ ℝ) → (𝑖 ≠ (𝑠 + 1) ↔ (𝑖 < (𝑠 + 1) ∨ (𝑠 + 1) < 𝑖)))
145	143, 144	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑖 ≠ (𝑠 + 1) ↔ (𝑖 < (𝑠 + 1) ∨ (𝑠 + 1) < 𝑖)))
146	145	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ (((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ (1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠)) → (𝑖 ≠ (𝑠 + 1) ↔ (𝑖 < (𝑠 + 1) ∨ (𝑠 + 1) < 𝑖)))
147	137, 146	mpbird 257	. . . . . . . . . . . . . . . . . 18 ⊢ (((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ (1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠)) → 𝑖 ≠ (𝑠 + 1))
148	130, 147	sylbi 216	. . . . . . . . . . . . . . . . 17 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ≠ (𝑠 + 1))
149	148	ad2antlr 726	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑖 ≠ (𝑠 + 1))
150		neeq1 2998	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = 𝑖 → (𝑛 ≠ (𝑠 + 1) ↔ 𝑖 ≠ (𝑠 + 1)))
151	150	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → (𝑛 ≠ (𝑠 + 1) ↔ 𝑖 ≠ (𝑠 + 1)))
152	149, 151	mpbird 257	. . . . . . . . . . . . . . 15 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑛 ≠ (𝑠 + 1))
153	152	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) → 𝑛 ≠ (𝑠 + 1))
154	153	neneqd 2940	. . . . . . . . . . . . 13 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) → ¬ 𝑛 = (𝑠 + 1))
155	154	pm2.21d 121	. . . . . . . . . . . 12 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) → (𝑛 = (𝑠 + 1) → (𝑇‘(𝑏‘𝑠)) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
156	155	imp 406	. . . . . . . . . . 11 ⊢ (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ 𝑛 = (𝑠 + 1)) → (𝑇‘(𝑏‘𝑠)) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
157	106	nnred 12249	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℝ)
158		eleq1w 2811	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 = 𝑖 → (𝑛 ∈ ℝ ↔ 𝑖 ∈ ℝ))
159	157, 158	syl5ibrcom 246	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑖 ∈ (1...𝑠) → (𝑛 = 𝑖 → 𝑛 ∈ ℝ))
160	159	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑛 = 𝑖 → 𝑛 ∈ ℝ))
161	160	imp 406	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑛 ∈ ℝ)
162	74	nn0red 12555	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑠 ∈ ℝ)
163	162	ad2antrr 725	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑠 ∈ ℝ)
164		1red 11237	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 1 ∈ ℝ)
165	163, 164	readdcld 11265	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → (𝑠 + 1) ∈ ℝ)
166	130, 136	sylbi 216	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 < (𝑠 + 1))
167	166	ad2antlr 726	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑖 < (𝑠 + 1))
168		breq1 5145	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 = 𝑖 → (𝑛 < (𝑠 + 1) ↔ 𝑖 < (𝑠 + 1)))
169	168	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → (𝑛 < (𝑠 + 1) ↔ 𝑖 < (𝑠 + 1)))
170	167, 169	mpbird 257	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑛 < (𝑠 + 1))
171	161, 165, 170	ltnsymd 11385	. . . . . . . . . . . . . . 15 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → ¬ (𝑠 + 1) < 𝑛)
172	171	pm2.21d 121	. . . . . . . . . . . . . 14 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → ((𝑠 + 1) < 𝑛 → 0 = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
173	172	ad2antrr 725	. . . . . . . . . . . . 13 ⊢ (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) → ((𝑠 + 1) < 𝑛 → 0 = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
174	173	imp 406	. . . . . . . . . . . 12 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ (𝑠 + 1) < 𝑛) → 0 = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
175		simp-4r 783	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → 𝑛 = 𝑖)
176	175	fvoveq1d 7436	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → (𝑏‘(𝑛 − 1)) = (𝑏‘(𝑖 − 1)))
177	176	fveq2d 6895	. . . . . . . . . . . . 13 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → (𝑇‘(𝑏‘(𝑛 − 1))) = (𝑇‘(𝑏‘(𝑖 − 1))))
178	175	fveq2d 6895	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → (𝑏‘𝑛) = (𝑏‘𝑖))
179	178	fveq2d 6895	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → (𝑇‘(𝑏‘𝑛)) = (𝑇‘(𝑏‘𝑖)))
180	179	oveq2d 7430	. . . . . . . . . . . . 13 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))
181	177, 180	oveq12d 7432	. . . . . . . . . . . 12 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛)))) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
182	174, 181	ifeqda 4560	. . . . . . . . . . 11 ⊢ (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) → if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
183	156, 182	ifeqda 4560	. . . . . . . . . 10 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) → if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛)))))) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
184	129, 183	ifeqda 4560	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
185		ovexd 7449	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ V)
186	25, 184, 108, 185	fvmptd2 7007	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝐺‘𝑖) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
187	186	oveq2d 7430	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)) = ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
188	187	mpteq2dva 5242	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))
189	188	oveq2d 7430	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = (𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
190		nn0p1gt0 12523	. . . . . . . . . . . . . 14 ⊢ (𝑠 ∈ ℕ0 → 0 < (𝑠 + 1))
191		0red 11239	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 ∈ ℕ0 → 0 ∈ ℝ)
192		ltne 11333	. . . . . . . . . . . . . . . 16 ⊢ ((0 ∈ ℝ ∧ 0 < (𝑠 + 1)) → (𝑠 + 1) ≠ 0)
193	191, 192	sylan 579	. . . . . . . . . . . . . . 15 ⊢ ((𝑠 ∈ ℕ0 ∧ 0 < (𝑠 + 1)) → (𝑠 + 1) ≠ 0)
194		neeq1 2998	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = (𝑠 + 1) → (𝑛 ≠ 0 ↔ (𝑠 + 1) ≠ 0))
195	193, 194	syl5ibrcom 246	. . . . . . . . . . . . . 14 ⊢ ((𝑠 ∈ ℕ0 ∧ 0 < (𝑠 + 1)) → (𝑛 = (𝑠 + 1) → 𝑛 ≠ 0))
196	34, 190, 195	syl2anc2 584	. . . . . . . . . . . . 13 ⊢ (𝑠 ∈ ℕ → (𝑛 = (𝑠 + 1) → 𝑛 ≠ 0))
197	196	ad2antrl 727	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑛 = (𝑠 + 1) → 𝑛 ≠ 0))
198	197	imp 406	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑛 = (𝑠 + 1)) → 𝑛 ≠ 0)
199		eqneqall 2946	. . . . . . . . . . 11 ⊢ (𝑛 = 0 → (𝑛 ≠ 0 → ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = (𝑇‘(𝑏‘𝑠))))
200	198, 199	mpan9 506	. . . . . . . . . 10 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑛 = (𝑠 + 1)) ∧ 𝑛 = 0) → ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = (𝑇‘(𝑏‘𝑠)))
201		iftrue 4530	. . . . . . . . . . 11 ⊢ (𝑛 = (𝑠 + 1) → if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛)))))) = (𝑇‘(𝑏‘𝑠)))
202	201	ad2antlr 726	. . . . . . . . . 10 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑛 = (𝑠 + 1)) ∧ ¬ 𝑛 = 0) → if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛)))))) = (𝑇‘(𝑏‘𝑠)))
203	200, 202	ifeqda 4560	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑛 = (𝑠 + 1)) → if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))) = (𝑇‘(𝑏‘𝑠)))
204	74, 35	syl 17	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑠 + 1) ∈ ℕ0)
205		fvexd 6906	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑇‘(𝑏‘𝑠)) ∈ V)
206	25, 203, 204, 205	fvmptd2 7007	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝐺‘(𝑠 + 1)) = (𝑇‘(𝑏‘𝑠)))
207	206	oveq2d 7430	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))) = (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))))
208	4	3ad2ant2 1132	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Ring)
209		eqid 2727	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑃) = (Base‘𝑃)
210	26, 7, 209	vr1cl 22123	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → 𝑋 ∈ (Base‘𝑃))
211	208, 210	syl 17	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑋 ∈ (Base‘𝑃))
212		eqid 2727	. . . . . . . . . . . . . 14 ⊢ (mulGrp‘𝑃) = (mulGrp‘𝑃)
213	212, 209	mgpbas 20071	. . . . . . . . . . . . 13 ⊢ (Base‘𝑃) = (Base‘(mulGrp‘𝑃))
214		eqid 2727	. . . . . . . . . . . . . 14 ⊢ (1r‘𝑃) = (1r‘𝑃)
215	212, 214	ringidval 20114	. . . . . . . . . . . . 13 ⊢ (1r‘𝑃) = (0g‘(mulGrp‘𝑃))
216	213, 215, 28	mulg0 19021	. . . . . . . . . . . 12 ⊢ (𝑋 ∈ (Base‘𝑃) → (0 ↑ 𝑋) = (1r‘𝑃))
217	211, 216	syl 17	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (0 ↑ 𝑋) = (1r‘𝑃))
218	7	ply1crng 22104	. . . . . . . . . . . . . . 15 ⊢ (𝑅 ∈ CRing → 𝑃 ∈ CRing)
219	218	anim2i 616	. . . . . . . . . . . . . 14 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑃 ∈ CRing))
220	219	3adant3 1130	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑃 ∈ CRing))
221	8	matsca2 22309	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑃 ∈ CRing) → 𝑃 = (Scalar‘𝑌))
222	220, 221	syl 17	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 = (Scalar‘𝑌))
223	222	fveq2d 6895	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (1r‘𝑃) = (1r‘(Scalar‘𝑌)))
224	217, 223	eqtrd 2767	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (0 ↑ 𝑋) = (1r‘(Scalar‘𝑌)))
225	224	adantr 480	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0 ↑ 𝑋) = (1r‘(Scalar‘𝑌)))
226	225	oveq1d 7429	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · (𝐺‘0)) = ((1r‘(Scalar‘𝑌)) · (𝐺‘0)))
227	7, 8	pmatlmod 22582	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑌 ∈ LMod)
228	4, 227	sylan2 592	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑌 ∈ LMod)
229	228	3adant3 1130	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ LMod)
230	20, 21, 7, 8, 22, 23, 2, 24, 25	chfacfisf 22743	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝐺:ℕ0⟶(Base‘𝑌))
231	4, 230	syl3anl2 1411	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝐺:ℕ0⟶(Base‘𝑌))
232	231, 81	ffvelcdmd 7089	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝐺‘0) ∈ (Base‘𝑌))
233		eqid 2727	. . . . . . . . . 10 ⊢ (Scalar‘𝑌) = (Scalar‘𝑌)
234		eqid 2727	. . . . . . . . . 10 ⊢ (1r‘(Scalar‘𝑌)) = (1r‘(Scalar‘𝑌))
235	1, 233, 27, 234	lmodvs1 20762	. . . . . . . . 9 ⊢ ((𝑌 ∈ LMod ∧ (𝐺‘0) ∈ (Base‘𝑌)) → ((1r‘(Scalar‘𝑌)) · (𝐺‘0)) = (𝐺‘0))
236	229, 232, 235	syl2an2r 684	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((1r‘(Scalar‘𝑌)) · (𝐺‘0)) = (𝐺‘0))
237		iftrue 4530	. . . . . . . . 9 ⊢ (𝑛 = 0 → if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))) = ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
238		ovexd 7449	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) ∈ V)
239	25, 237, 81, 238	fvmptd3 7022	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝐺‘0) = ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
240	226, 236, 239	3eqtrd 2771	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((0 ↑ 𝑋) · (𝐺‘0)) = ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
241	207, 240	oveq12d 7432	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))) + ((0 ↑ 𝑋) · (𝐺‘0))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
242	1, 3	cmncom 19744	. . . . . . 7 ⊢ ((𝑌 ∈ CMnd ∧ ((0 ↑ 𝑋) · (𝐺‘0)) ∈ (Base‘𝑌) ∧ (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))) ∈ (Base‘𝑌)) → (((0 ↑ 𝑋) · (𝐺‘0)) + (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1)))) = ((((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))) + ((0 ↑ 𝑋) · (𝐺‘0))))
243	13, 83, 96, 242	syl3anc 1369	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((0 ↑ 𝑋) · (𝐺‘0)) + (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1)))) = ((((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))) + ((0 ↑ 𝑋) · (𝐺‘0))))
244		ringgrp 20169	. . . . . . . . 9 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Grp)
245	10, 244	syl 17	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Grp)
246	245	adantr 480	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Grp)
247	207, 96	eqeltrrd 2829	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌))
248	10	adantr 480	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Ring)
249	24, 20, 21, 7, 8	mat2pmatbas 22615	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) ∈ (Base‘𝑌))
250	4, 249	syl3an2 1162	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) ∈ (Base‘𝑌))
251	250	adantr 480	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑇‘𝑀) ∈ (Base‘𝑌))
252		simpl1 1189	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑁 ∈ Fin)
253	208	adantr 480	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑅 ∈ Ring)
254		elmapi 8859	. . . . . . . . . . . 12 ⊢ (𝑏 ∈ (𝐵 ↑m (0...𝑠)) → 𝑏:(0...𝑠)⟶𝐵)
255	254	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → 𝑏:(0...𝑠)⟶𝐵)
256	255	adantl 481	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑏:(0...𝑠)⟶𝐵)
257		0elfz 13622	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ ℕ0 → 0 ∈ (0...𝑠))
258	34, 257	syl 17	. . . . . . . . . . 11 ⊢ (𝑠 ∈ ℕ → 0 ∈ (0...𝑠))
259	258	ad2antrl 727	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 0 ∈ (0...𝑠))
260	256, 259	ffvelcdmd 7089	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑏‘0) ∈ 𝐵)
261	24, 20, 21, 7, 8	mat2pmatbas 22615	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑏‘0) ∈ 𝐵) → (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌))
262	252, 253, 260, 261	syl3anc 1369	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌))
263	1, 22	ringcl 20181	. . . . . . . 8 ⊢ ((𝑌 ∈ Ring ∧ (𝑇‘𝑀) ∈ (Base‘𝑌) ∧ (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌)) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌))
264	248, 251, 262, 263	syl3anc 1369	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌))
265	1, 2, 23, 3	grpsubadd0sub 18974	. . . . . . 7 ⊢ ((𝑌 ∈ Grp ∧ (((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌) ∧ ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌)) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
266	246, 247, 264, 265	syl3anc 1369	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) + ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
267	241, 243, 266	3eqtr4d 2777	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((0 ↑ 𝑋) · (𝐺‘0)) + (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1)))) = ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
268	189, 267	oveq12d 7432	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + (((0 ↑ 𝑋) · (𝐺‘0)) + (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1))))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
269	113, 268	eqtrd 2767	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) + ((0 ↑ 𝑋) · (𝐺‘0))) + (((𝑠 + 1) ↑ 𝑋) · (𝐺‘(𝑠 + 1)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
270	75, 102, 269	3eqtrd 2771	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
271	40, 73, 270	3eqtrd 2771	1 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ ℕ0 ↦ ((𝑖 ↑ 𝑋) · (𝐺‘𝑖)))) = ((𝑌 Σg (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ 𝑋) · ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 395   ∨ wo 846   ∧ w3a 1085   = wceq 1534   ∈ wcel 2099   ≠ wne 2935  Vcvv 3469   ∪ cun 3942   ∩ cin 3943  ∅c0 4318  ifcif 4524  {csn 4624   class class class wbr 5142   ↦ cmpt 5225  ⟶wf 6538  ‘cfv 6542  (class class class)co 7414   ↑_m cmap 8836  Fincfn 8955  ℂcc 11128  ℝcr 11129  0cc0 11130  1c1 11131   + caddc 11133   < clt 11270   ≤ cle 11271   − cmin 11466  ℕcn 12234  2c2 12289  ℕ₀cn0 12494  ℤcz 12580  ℤ_≥cuz 12844  ...cfz 13508  Basecbs 17171  +_gcplusg 17224  ._rcmulr 17225  Scalarcsca 17227   ·_𝑠 cvsca 17228  0_gc0g 17412   Σ_g cgsu 17413  Mndcmnd 18685  Grpcgrp 18881  -_gcsg 18883  ._gcmg 19014  CMndccmn 19726  mulGrpcmgp 20065  1_rcur 20112  Ringcrg 20164  CRingccrg 20165  LModclmod 20732  var₁cv1 22082  Poly₁cpl1 22083   Mat cmat 22294   matToPolyMat cmat2pmat 22593

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2164  ax-ext 2698  ax-rep 5279  ax-sep 5293  ax-nul 5300  ax-pow 5359  ax-pr 5423  ax-un 7734  ax-cnex 11186  ax-resscn 11187  ax-1cn 11188  ax-icn 11189  ax-addcl 11190  ax-addrcl 11191  ax-mulcl 11192  ax-mulrcl 11193  ax-mulcom 11194  ax-addass 11195  ax-mulass 11196  ax-distr 11197  ax-i2m1 11198  ax-1ne0 11199  ax-1rid 11200  ax-rnegex 11201  ax-rrecex 11202  ax-cnre 11203  ax-pre-lttri 11204  ax-pre-lttrn 11205  ax-pre-ltadd 11206  ax-pre-mulgt0 11207

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2529  df-eu 2558  df-clab 2705  df-cleq 2719  df-clel 2805  df-nfc 2880  df-ne 2936  df-nel 3042  df-ral 3057  df-rex 3066  df-rmo 3371  df-reu 3372  df-rab 3428  df-v 3471  df-sbc 3775  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3963  df-nul 4319  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-tp 4629  df-op 4631  df-ot 4633  df-uni 4904  df-int 4945  df-iun 4993  df-iin 4994  df-br 5143  df-opab 5205  df-mpt 5226  df-tr 5260  df-id 5570  df-eprel 5576  df-po 5584  df-so 5585  df-fr 5627  df-se 5628  df-we 5629  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-pred 6299  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-isom 6551  df-riota 7370  df-ov 7417  df-oprab 7418  df-mpo 7419  df-of 7679  df-ofr 7680  df-om 7865  df-1st 7987  df-2nd 7988  df-supp 8160  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-1o 8480  df-er 8718  df-map 8838  df-pm 8839  df-ixp 8908  df-en 8956  df-dom 8957  df-sdom 8958  df-fin 8959  df-fsupp 9378  df-sup 9457  df-oi 9525  df-card 9954  df-pnf 11272  df-mnf 11273  df-xr 11274  df-ltxr 11275  df-le 11276  df-sub 11468  df-neg 11469  df-nn 12235  df-2 12297  df-3 12298  df-4 12299  df-5 12300  df-6 12301  df-7 12302  df-8 12303  df-9 12304  df-n0 12495  df-z 12581  df-dec 12700  df-uz 12845  df-rp 12999  df-fz 13509  df-fzo 13652  df-seq 13991  df-hash 14314  df-struct 17107  df-sets 17124  df-slot 17142  df-ndx 17154  df-base 17172  df-ress 17201  df-plusg 17237  df-mulr 17238  df-sca 17240  df-vsca 17241  df-ip 17242  df-tset 17243  df-ple 17244  df-ds 17246  df-hom 17248  df-cco 17249  df-0g 17414  df-gsum 17415  df-prds 17420  df-pws 17422  df-mre 17557  df-mrc 17558  df-acs 17560  df-mgm 18591  df-sgrp 18670  df-mnd 18686  df-mhm 18731  df-submnd 18732  df-grp 18884  df-minusg 18885  df-sbg 18886  df-mulg 19015  df-subg 19069  df-ghm 19159  df-cntz 19259  df-cmn 19728  df-abl 19729  df-mgp 20066  df-rng 20084  df-ur 20113  df-ring 20166  df-cring 20167  df-subrng 20472  df-subrg 20497  df-lmod 20734  df-lss 20805  df-sra 21047  df-rgmod 21048  df-dsmm 21653  df-frlm 21668  df-ascl 21776  df-psr 21829  df-mvr 21830  df-mpl 21831  df-opsr 21833  df-psr1 22086  df-vr1 22087  df-ply1 22088  df-mamu 22273  df-mat 22295  df-mat2pmat 22596

This theorem is referenced by:  cpmadugsum  22767