chfacfpmmulgsum - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > chfacfpmmulgsum		Structured version Visualization version GIF version

Theorem chfacfpmmulgsum 21921

Description: Breaking up a sum of values of the "characteristic factor function" multiplied with a constant polynomial matrix. (Contributed by AV, 23-Nov-2019.)

**Hypotheses**
Ref	Expression
cayhamlem1.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
cayhamlem1.b	⊢ 𝐵 = (Base‘𝐴)
cayhamlem1.p	⊢ 𝑃 = (Poly₁‘𝑅)
cayhamlem1.y	⊢ 𝑌 = (𝑁 Mat 𝑃)
cayhamlem1.r	⊢ × = (._r‘𝑌)
cayhamlem1.s	⊢ − = (-_g‘𝑌)
cayhamlem1.0	⊢ 0 = (0_g‘𝑌)
cayhamlem1.t	⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
cayhamlem1.g	⊢ 𝐺 = (𝑛 ∈ ℕ₀ ↦ if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))))
cayhamlem1.e	⊢ ↑ = (._g‘(mulGrp‘𝑌))
chfacfpmmulgsum.p	⊢ + = (+_g‘𝑌)

**Assertion**
Ref	Expression
chfacfpmmulgsum	⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ ℕ₀ ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))

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

**Proof of Theorem chfacfpmmulgsum**
Step	Hyp	Ref	Expression
1		eqid 2738	. . 3 ⊢ (Base‘𝑌) = (Base‘𝑌)
2		cayhamlem1.0	. . 3 ⊢ 0 = (0_g‘𝑌)
3		chfacfpmmulgsum.p	. . 3 ⊢ + = (+_g‘𝑌)
4		crngring 19710	. . . . . . . 8 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
5	4	anim2i 616	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
6	5	3adant3 1130	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
7		cayhamlem1.p	. . . . . . 7 ⊢ 𝑃 = (Poly₁‘𝑅)
8		cayhamlem1.y	. . . . . . 7 ⊢ 𝑌 = (𝑁 Mat 𝑃)
9	7, 8	pmatring 21749	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑌 ∈ Ring)
10	6, 9	syl 17	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Ring)
11		ringcmn 19735	. . . . 5 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ CMnd)
12	10, 11	syl 17	. . . 4 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ CMnd)
13	12	adantr 480	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝑌 ∈ CMnd)
14		nn0ex 12169	. . . 4 ⊢ ℕ₀ ∈ V
15	14	a1i 11	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ℕ₀ ∈ V)
16		simpll 763	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ ℕ₀) → (𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵))
17		simplr 765	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ ℕ₀) → (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠))))
18		simpr 484	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ ℕ₀) → 𝑖 ∈ ℕ₀)
19	16, 17, 18	3jca 1126	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ ℕ₀) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠))) ∧ 𝑖 ∈ ℕ₀))
20		cayhamlem1.a	. . . . 5 ⊢ 𝐴 = (𝑁 Mat 𝑅)
21		cayhamlem1.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐴)
22		cayhamlem1.r	. . . . 5 ⊢ × = (._r‘𝑌)
23		cayhamlem1.s	. . . . 5 ⊢ − = (-_g‘𝑌)
24		cayhamlem1.t	. . . . 5 ⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
25		cayhamlem1.g	. . . . 5 ⊢ 𝐺 = (𝑛 ∈ ℕ₀ ↦ if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))))
26		cayhamlem1.e	. . . . 5 ⊢ ↑ = (._g‘(mulGrp‘𝑌))
27	20, 21, 7, 8, 22, 23, 2, 24, 25, 26	chfacfpmmulcl 21918	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠))) ∧ 𝑖 ∈ ℕ₀) → ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) ∈ (Base‘𝑌))
28	19, 27	syl 17	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ ℕ₀) → ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) ∈ (Base‘𝑌))
29	20, 21, 7, 8, 22, 23, 2, 24, 25, 26	chfacfpmmulfsupp 21920	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑖 ∈ ℕ₀ ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖))) finSupp 0 )
30		nn0disj 13301	. . . 4 ⊢ ((0...(𝑠 + 1)) ∩ (ℤ_≥‘((𝑠 + 1) + 1))) = ∅
31	30	a1i 11	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((0...(𝑠 + 1)) ∩ (ℤ_≥‘((𝑠 + 1) + 1))) = ∅)
32		nnnn0 12170	. . . . . 6 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ ℕ₀)
33		peano2nn0 12203	. . . . . 6 ⊢ (𝑠 ∈ ℕ₀ → (𝑠 + 1) ∈ ℕ₀)
34	32, 33	syl 17	. . . . 5 ⊢ (𝑠 ∈ ℕ → (𝑠 + 1) ∈ ℕ₀)
35		nn0split 13300	. . . . 5 ⊢ ((𝑠 + 1) ∈ ℕ₀ → ℕ₀ = ((0...(𝑠 + 1)) ∪ (ℤ_≥‘((𝑠 + 1) + 1))))
36	34, 35	syl 17	. . . 4 ⊢ (𝑠 ∈ ℕ → ℕ₀ = ((0...(𝑠 + 1)) ∪ (ℤ_≥‘((𝑠 + 1) + 1))))
37	36	ad2antrl 724	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ℕ₀ = ((0...(𝑠 + 1)) ∪ (ℤ_≥‘((𝑠 + 1) + 1))))
38	1, 2, 3, 13, 15, 28, 29, 31, 37	gsumsplit2 19445	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ ℕ₀ ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = ((𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + (𝑌 Σ_g (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖))))))
39		simpll 763	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1))) → (𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵))
40		simplr 765	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1))) → (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠))))
41		nncn 11911	. . . . . . . . . . . . 13 ⊢ (𝑠 ∈ ℕ → 𝑠 ∈ ℂ)
42		add1p1 12154	. . . . . . . . . . . . 13 ⊢ (𝑠 ∈ ℂ → ((𝑠 + 1) + 1) = (𝑠 + 2))
43	41, 42	syl 17	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ ℕ → ((𝑠 + 1) + 1) = (𝑠 + 2))
44	43	ad2antrl 724	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑠 + 1) + 1) = (𝑠 + 2))
45	44	fveq2d 6760	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (ℤ_≥‘((𝑠 + 1) + 1)) = (ℤ_≥‘(𝑠 + 2)))
46	45	eleq2d 2824	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↔ 𝑖 ∈ (ℤ_≥‘(𝑠 + 2))))
47	46	biimpa 476	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1))) → 𝑖 ∈ (ℤ_≥‘(𝑠 + 2)))
48	20, 21, 7, 8, 22, 23, 2, 24, 25, 26	chfacfpmmul0 21919	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠))) ∧ 𝑖 ∈ (ℤ_≥‘(𝑠 + 2))) → ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) = 0 )
49	39, 40, 47, 48	syl3anc 1369	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1))) → ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) = 0 )
50	49	mpteq2dva 5170	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖))) = (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↦ 0 ))
51	50	oveq2d 7271	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = (𝑌 Σ_g (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↦ 0 )))
52	4, 9	sylan2 592	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑌 ∈ Ring)
53		ringmnd 19708	. . . . . . . . . 10 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Mnd)
54	52, 53	syl 17	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑌 ∈ Mnd)
55	54	3adant3 1130	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Mnd)
56		fvex 6769	. . . . . . . 8 ⊢ (ℤ_≥‘((𝑠 + 1) + 1)) ∈ V
57	55, 56	jctir 520	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑌 ∈ Mnd ∧ (ℤ_≥‘((𝑠 + 1) + 1)) ∈ V))
58	57	adantr 480	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 ∈ Mnd ∧ (ℤ_≥‘((𝑠 + 1) + 1)) ∈ V))
59	2	gsumz 18389	. . . . . 6 ⊢ ((𝑌 ∈ Mnd ∧ (ℤ_≥‘((𝑠 + 1) + 1)) ∈ V) → (𝑌 Σ_g (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↦ 0 )) = 0 )
60	58, 59	syl 17	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↦ 0 )) = 0 )
61	51, 60	eqtrd 2778	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = 0 )
62	61	oveq2d 7271	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + (𝑌 Σ_g (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖))))) = ((𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + 0 ))
63		fzfid 13621	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (0...(𝑠 + 1)) ∈ Fin)
64		elfznn0 13278	. . . . . . . 8 ⊢ (𝑖 ∈ (0...(𝑠 + 1)) → 𝑖 ∈ ℕ₀)
65	64, 19	sylan2 592	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 + 1))) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠))) ∧ 𝑖 ∈ ℕ₀))
66	65, 27	syl 17	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (0...(𝑠 + 1))) → ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) ∈ (Base‘𝑌))
67	66	ralrimiva 3107	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ∀𝑖 ∈ (0...(𝑠 + 1))((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) ∈ (Base‘𝑌))
68	1, 13, 63, 67	gsummptcl 19483	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) ∈ (Base‘𝑌))
69	1, 3, 2	mndrid 18321	. . . 4 ⊢ ((𝑌 ∈ Mnd ∧ (𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) ∈ (Base‘𝑌)) → ((𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + 0 ) = (𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))))
70	55, 68, 69	syl2an2r 681	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + 0 ) = (𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))))
71	62, 70	eqtrd 2778	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + (𝑌 Σ_g (𝑖 ∈ (ℤ_≥‘((𝑠 + 1) + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖))))) = (𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))))
72	32	ad2antrl 724	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝑠 ∈ ℕ₀)
73	1, 3, 13, 72, 66	gsummptfzsplit 19448	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = ((𝑌 Σ_g (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + (𝑌 Σ_g (𝑖 ∈ {(𝑠 + 1)} ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖))))))
74		elfznn0 13278	. . . . . . 7 ⊢ (𝑖 ∈ (0...𝑠) → 𝑖 ∈ ℕ₀)
75	74, 28	sylan2 592	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) ∈ (Base‘𝑌))
76	1, 3, 13, 72, 75	gsummptfzsplitl 19449	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + (𝑌 Σ_g (𝑖 ∈ {0} ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖))))))
77	55	adantr 480	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝑌 ∈ Mnd)
78		0nn0 12178	. . . . . . . 8 ⊢ 0 ∈ ℕ₀
79	78	a1i 11	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 0 ∈ ℕ₀)
80	20, 21, 7, 8, 22, 23, 2, 24, 25, 26	chfacfpmmulcl 21918	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠))) ∧ 0 ∈ ℕ₀) → ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) ∈ (Base‘𝑌))
81	79, 80	mpd3an3 1460	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) ∈ (Base‘𝑌))
82		oveq1 7262	. . . . . . . . 9 ⊢ (𝑖 = 0 → (𝑖 ↑ (𝑇‘𝑀)) = (0 ↑ (𝑇‘𝑀)))
83		fveq2 6756	. . . . . . . . 9 ⊢ (𝑖 = 0 → (𝐺‘𝑖) = (𝐺‘0))
84	82, 83	oveq12d 7273	. . . . . . . 8 ⊢ (𝑖 = 0 → ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) = ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)))
85	1, 84	gsumsn 19470	. . . . . . 7 ⊢ ((𝑌 ∈ Mnd ∧ 0 ∈ ℕ₀ ∧ ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) ∈ (Base‘𝑌)) → (𝑌 Σ_g (𝑖 ∈ {0} ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)))
86	77, 79, 81, 85	syl3anc 1369	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ {0} ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)))
87	86	oveq2d 7271	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + (𝑌 Σ_g (𝑖 ∈ {0} ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖))))) = ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0))))
88	76, 87	eqtrd 2778	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0))))
89		ovexd 7290	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑠 + 1) ∈ V)
90		1nn0 12179	. . . . . . . 8 ⊢ 1 ∈ ℕ₀
91	90	a1i 11	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 1 ∈ ℕ₀)
92	72, 91	nn0addcld 12227	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑠 + 1) ∈ ℕ₀)
93	20, 21, 7, 8, 22, 23, 2, 24, 25, 26	chfacfpmmulcl 21918	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠))) ∧ (𝑠 + 1) ∈ ℕ₀) → (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))) ∈ (Base‘𝑌))
94	92, 93	mpd3an3 1460	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))) ∈ (Base‘𝑌))
95		oveq1 7262	. . . . . . 7 ⊢ (𝑖 = (𝑠 + 1) → (𝑖 ↑ (𝑇‘𝑀)) = ((𝑠 + 1) ↑ (𝑇‘𝑀)))
96		fveq2 6756	. . . . . . 7 ⊢ (𝑖 = (𝑠 + 1) → (𝐺‘𝑖) = (𝐺‘(𝑠 + 1)))
97	95, 96	oveq12d 7273	. . . . . 6 ⊢ (𝑖 = (𝑠 + 1) → ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) = (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))))
98	1, 97	gsumsn 19470	. . . . 5 ⊢ ((𝑌 ∈ Mnd ∧ (𝑠 + 1) ∈ V ∧ (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))) ∈ (Base‘𝑌)) → (𝑌 Σ_g (𝑖 ∈ {(𝑠 + 1)} ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))))
99	77, 89, 94, 98	syl3anc 1369	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ {(𝑠 + 1)} ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))))
100	88, 99	oveq12d 7273	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑌 Σ_g (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + (𝑌 Σ_g (𝑖 ∈ {(𝑠 + 1)} ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖))))) = (((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0))) + (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1)))))
101		fzfid 13621	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (1...𝑠) ∈ Fin)
102		simpll 763	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵))
103		simplr 765	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠))))
104		elfznn 13214	. . . . . . . . . 10 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℕ)
105	104	nnnn0d 12223	. . . . . . . . 9 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℕ₀)
106	105	adantl 481	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → 𝑖 ∈ ℕ₀)
107	102, 103, 106, 27	syl3anc 1369	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) ∈ (Base‘𝑌))
108	107	ralrimiva 3107	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ∀𝑖 ∈ (1...𝑠)((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) ∈ (Base‘𝑌))
109	1, 13, 101, 108	gsummptcl 19483	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) ∈ (Base‘𝑌))
110	1, 3	mndass 18309	. . . . 5 ⊢ ((𝑌 ∈ Mnd ∧ ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) ∈ (Base‘𝑌) ∧ ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) ∈ (Base‘𝑌) ∧ (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))) ∈ (Base‘𝑌))) → (((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0))) + (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1)))) = ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + (((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) + (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))))))
111	77, 109, 81, 94, 110	syl13anc 1370	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0))) + (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1)))) = ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + (((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) + (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))))))
112	104	nnne0d 11953	. . . . . . . . . . . . . 14 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ≠ 0)
113	112	ad2antlr 723	. . . . . . . . . . . . 13 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑖 ≠ 0)
114		neeq1 3005	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑖 → (𝑛 ≠ 0 ↔ 𝑖 ≠ 0))
115	114	adantl 481	. . . . . . . . . . . . 13 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → (𝑛 ≠ 0 ↔ 𝑖 ≠ 0))
116	113, 115	mpbird 256	. . . . . . . . . . . 12 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑛 ≠ 0)
117		eqneqall 2953	. . . . . . . . . . . 12 ⊢ (𝑛 = 0 → (𝑛 ≠ 0 → 0 = (𝑇‘(𝑏‘(𝑖 − 1)))))
118	116, 117	mpan9 506	. . . . . . . . . . 11 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → 0 = (𝑇‘(𝑏‘(𝑖 − 1))))
119		simplr 765	. . . . . . . . . . . . . . 15 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → 𝑛 = 𝑖)
120		eqeq1 2742	. . . . . . . . . . . . . . . . 17 ⊢ (0 = 𝑛 → (0 = 𝑖 ↔ 𝑛 = 𝑖))
121	120	eqcoms 2746	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 0 → (0 = 𝑖 ↔ 𝑛 = 𝑖))
122	121	adantl 481	. . . . . . . . . . . . . . 15 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → (0 = 𝑖 ↔ 𝑛 = 𝑖))
123	119, 122	mpbird 256	. . . . . . . . . . . . . 14 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → 0 = 𝑖)
124	123	fveq2d 6760	. . . . . . . . . . . . 13 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → (𝑏‘0) = (𝑏‘𝑖))
125	124	fveq2d 6760	. . . . . . . . . . . 12 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → (𝑇‘(𝑏‘0)) = (𝑇‘(𝑏‘𝑖)))
126	125	oveq2d 7271	. . . . . . . . . . 11 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))
127	118, 126	oveq12d 7273	. . . . . . . . . 10 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ 𝑛 = 0) → ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
128		elfz2 13175	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑖 ∈ (1...𝑠) ↔ ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ (1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠)))
129		zleltp1 12301	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝑖 ∈ ℤ ∧ 𝑠 ∈ ℤ) → (𝑖 ≤ 𝑠 ↔ 𝑖 < (𝑠 + 1)))
130	129	ancoms 458	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑖 ≤ 𝑠 ↔ 𝑖 < (𝑠 + 1)))
131	130	3adant1 1128	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑖 ≤ 𝑠 ↔ 𝑖 < (𝑠 + 1)))
132	131	biimpcd 248	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑖 ≤ 𝑠 → ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → 𝑖 < (𝑠 + 1)))
133	132	adantl 481	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠) → ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → 𝑖 < (𝑠 + 1)))
134	133	impcom 407	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ (1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠)) → 𝑖 < (𝑠 + 1))
135	134	orcd 869	. . . . . . . . . . . . . . . . . . 19 ⊢ (((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ (1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠)) → (𝑖 < (𝑠 + 1) ∨ (𝑠 + 1) < 𝑖))
136		zre 12253	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑠 ∈ ℤ → 𝑠 ∈ ℝ)
137		1red 10907	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑠 ∈ ℤ → 1 ∈ ℝ)
138	136, 137	readdcld 10935	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑠 ∈ ℤ → (𝑠 + 1) ∈ ℝ)
139		zre 12253	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑖 ∈ ℤ → 𝑖 ∈ ℝ)
140	138, 139	anim12ci 613	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑖 ∈ ℝ ∧ (𝑠 + 1) ∈ ℝ))
141	140	3adant1 1128	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑖 ∈ ℝ ∧ (𝑠 + 1) ∈ ℝ))
142		lttri2 10988	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑖 ∈ ℝ ∧ (𝑠 + 1) ∈ ℝ) → (𝑖 ≠ (𝑠 + 1) ↔ (𝑖 < (𝑠 + 1) ∨ (𝑠 + 1) < 𝑖)))
143	141, 142	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑖 ≠ (𝑠 + 1) ↔ (𝑖 < (𝑠 + 1) ∨ (𝑠 + 1) < 𝑖)))
144	143	adantr 480	. . . . . . . . . . . . . . . . . . 19 ⊢ (((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ (1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠)) → (𝑖 ≠ (𝑠 + 1) ↔ (𝑖 < (𝑠 + 1) ∨ (𝑠 + 1) < 𝑖)))
145	135, 144	mpbird 256	. . . . . . . . . . . . . . . . . 18 ⊢ (((1 ∈ ℤ ∧ 𝑠 ∈ ℤ ∧ 𝑖 ∈ ℤ) ∧ (1 ≤ 𝑖 ∧ 𝑖 ≤ 𝑠)) → 𝑖 ≠ (𝑠 + 1))
146	128, 145	sylbi 216	. . . . . . . . . . . . . . . . 17 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ≠ (𝑠 + 1))
147	146	ad2antlr 723	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑖 ≠ (𝑠 + 1))
148		neeq1 3005	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 = 𝑖 → (𝑛 ≠ (𝑠 + 1) ↔ 𝑖 ≠ (𝑠 + 1)))
149	148	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → (𝑛 ≠ (𝑠 + 1) ↔ 𝑖 ≠ (𝑠 + 1)))
150	147, 149	mpbird 256	. . . . . . . . . . . . . . 15 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑛 ≠ (𝑠 + 1))
151	150	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) → 𝑛 ≠ (𝑠 + 1))
152	151	neneqd 2947	. . . . . . . . . . . . 13 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) → ¬ 𝑛 = (𝑠 + 1))
153	152	pm2.21d 121	. . . . . . . . . . . 12 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) → (𝑛 = (𝑠 + 1) → (𝑇‘(𝑏‘𝑠)) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
154	153	imp 406	. . . . . . . . . . 11 ⊢ (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ 𝑛 = (𝑠 + 1)) → (𝑇‘(𝑏‘𝑠)) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
155	104	nnred 11918	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 ∈ ℝ)
156		eleq1w 2821	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 = 𝑖 → (𝑛 ∈ ℝ ↔ 𝑖 ∈ ℝ))
157	155, 156	syl5ibrcom 246	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑖 ∈ (1...𝑠) → (𝑛 = 𝑖 → 𝑛 ∈ ℝ))
158	157	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝑛 = 𝑖 → 𝑛 ∈ ℝ))
159	158	imp 406	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑛 ∈ ℝ)
160	72	nn0red 12224	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝑠 ∈ ℝ)
161	160	ad2antrr 722	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑠 ∈ ℝ)
162		1red 10907	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 1 ∈ ℝ)
163	161, 162	readdcld 10935	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → (𝑠 + 1) ∈ ℝ)
164	128, 134	sylbi 216	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑖 ∈ (1...𝑠) → 𝑖 < (𝑠 + 1))
165	164	ad2antlr 723	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑖 < (𝑠 + 1))
166		breq1 5073	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 = 𝑖 → (𝑛 < (𝑠 + 1) ↔ 𝑖 < (𝑠 + 1)))
167	166	adantl 481	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → (𝑛 < (𝑠 + 1) ↔ 𝑖 < (𝑠 + 1)))
168	165, 167	mpbird 256	. . . . . . . . . . . . . . . 16 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → 𝑛 < (𝑠 + 1))
169	159, 163, 168	ltnsymd 11054	. . . . . . . . . . . . . . 15 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → ¬ (𝑠 + 1) < 𝑛)
170	169	pm2.21d 121	. . . . . . . . . . . . . 14 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → ((𝑠 + 1) < 𝑛 → 0 = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
171	170	ad2antrr 722	. . . . . . . . . . . . 13 ⊢ (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) → ((𝑠 + 1) < 𝑛 → 0 = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
172	171	imp 406	. . . . . . . . . . . 12 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ (𝑠 + 1) < 𝑛) → 0 = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
173		simp-4r 780	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → 𝑛 = 𝑖)
174	173	fvoveq1d 7277	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → (𝑏‘(𝑛 − 1)) = (𝑏‘(𝑖 − 1)))
175	174	fveq2d 6760	. . . . . . . . . . . . 13 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → (𝑇‘(𝑏‘(𝑛 − 1))) = (𝑇‘(𝑏‘(𝑖 − 1))))
176	173	fveq2d 6760	. . . . . . . . . . . . . . 15 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → (𝑏‘𝑛) = (𝑏‘𝑖))
177	176	fveq2d 6760	. . . . . . . . . . . . . 14 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → (𝑇‘(𝑏‘𝑛)) = (𝑇‘(𝑏‘𝑖)))
178	177	oveq2d 7271	. . . . . . . . . . . . 13 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))) = ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))
179	175, 178	oveq12d 7273	. . . . . . . . . . . 12 ⊢ ((((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) ∧ ¬ (𝑠 + 1) < 𝑛) → ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛)))) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
180	172, 179	ifeqda 4492	. . . . . . . . . . 11 ⊢ (((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) ∧ ¬ 𝑛 = (𝑠 + 1)) → if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
181	154, 180	ifeqda 4492	. . . . . . . . . 10 ⊢ ((((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) ∧ ¬ 𝑛 = 0) → if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛)))))) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
182	127, 181	ifeqda 4492	. . . . . . . . 9 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) ∧ 𝑛 = 𝑖) → if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
183		ovexd 7290	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))) ∈ V)
184	25, 182, 106, 183	fvmptd2 6865	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → (𝐺‘𝑖) = ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))
185	184	oveq2d 7271	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑖 ∈ (1...𝑠)) → ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)) = ((𝑖 ↑ (𝑇‘𝑀)) × ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))
186	185	mpteq2dva 5170	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖))) = (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖)))))))
187	186	oveq2d 7271	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = (𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))))
188		nn0p1gt0 12192	. . . . . . . . . . . . . 14 ⊢ (𝑠 ∈ ℕ₀ → 0 < (𝑠 + 1))
189		0red 10909	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 ∈ ℕ₀ → 0 ∈ ℝ)
190		ltne 11002	. . . . . . . . . . . . . . . 16 ⊢ ((0 ∈ ℝ ∧ 0 < (𝑠 + 1)) → (𝑠 + 1) ≠ 0)
191	189, 190	sylan 579	. . . . . . . . . . . . . . 15 ⊢ ((𝑠 ∈ ℕ₀ ∧ 0 < (𝑠 + 1)) → (𝑠 + 1) ≠ 0)
192		neeq1 3005	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = (𝑠 + 1) → (𝑛 ≠ 0 ↔ (𝑠 + 1) ≠ 0))
193	191, 192	syl5ibrcom 246	. . . . . . . . . . . . . 14 ⊢ ((𝑠 ∈ ℕ₀ ∧ 0 < (𝑠 + 1)) → (𝑛 = (𝑠 + 1) → 𝑛 ≠ 0))
194	32, 188, 193	syl2anc2 584	. . . . . . . . . . . . 13 ⊢ (𝑠 ∈ ℕ → (𝑛 = (𝑠 + 1) → 𝑛 ≠ 0))
195	194	ad2antrl 724	. . . . . . . . . . . 12 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑛 = (𝑠 + 1) → 𝑛 ≠ 0))
196	195	imp 406	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑛 = (𝑠 + 1)) → 𝑛 ≠ 0)
197		eqneqall 2953	. . . . . . . . . . 11 ⊢ (𝑛 = 0 → (𝑛 ≠ 0 → ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = (𝑇‘(𝑏‘𝑠))))
198	196, 197	mpan9 506	. . . . . . . . . 10 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑛 = (𝑠 + 1)) ∧ 𝑛 = 0) → ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = (𝑇‘(𝑏‘𝑠)))
199		iftrue 4462	. . . . . . . . . . 11 ⊢ (𝑛 = (𝑠 + 1) → if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛)))))) = (𝑇‘(𝑏‘𝑠)))
200	199	ad2antlr 723	. . . . . . . . . 10 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑛 = (𝑠 + 1)) ∧ ¬ 𝑛 = 0) → if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛)))))) = (𝑇‘(𝑏‘𝑠)))
201	198, 200	ifeqda 4492	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑛 = (𝑠 + 1)) → if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))) = (𝑇‘(𝑏‘𝑠)))
202	72, 33	syl 17	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑠 + 1) ∈ ℕ₀)
203		fvexd 6771	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑇‘(𝑏‘𝑠)) ∈ V)
204	25, 201, 202, 203	fvmptd2 6865	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝐺‘(𝑠 + 1)) = (𝑇‘(𝑏‘𝑠)))
205	204	oveq2d 7271	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))) = (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))))
206	24, 20, 21, 7, 8	mat2pmatbas 21783	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) ∈ (Base‘𝑌))
207	4, 206	syl3an2 1162	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑇‘𝑀) ∈ (Base‘𝑌))
208		eqid 2738	. . . . . . . . . . . . . 14 ⊢ (mulGrp‘𝑌) = (mulGrp‘𝑌)
209	208, 1	mgpbas 19641	. . . . . . . . . . . . 13 ⊢ (Base‘𝑌) = (Base‘(mulGrp‘𝑌))
210		eqid 2738	. . . . . . . . . . . . 13 ⊢ (0_g‘(mulGrp‘𝑌)) = (0_g‘(mulGrp‘𝑌))
211	209, 210, 26	mulg0 18622	. . . . . . . . . . . 12 ⊢ ((𝑇‘𝑀) ∈ (Base‘𝑌) → (0 ↑ (𝑇‘𝑀)) = (0_g‘(mulGrp‘𝑌)))
212	207, 211	syl 17	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (0 ↑ (𝑇‘𝑀)) = (0_g‘(mulGrp‘𝑌)))
213		eqid 2738	. . . . . . . . . . . 12 ⊢ (1_r‘𝑌) = (1_r‘𝑌)
214	208, 213	ringidval 19654	. . . . . . . . . . 11 ⊢ (1_r‘𝑌) = (0_g‘(mulGrp‘𝑌))
215	212, 214	eqtr4di 2797	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (0 ↑ (𝑇‘𝑀)) = (1_r‘𝑌))
216	215	adantr 480	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (0 ↑ (𝑇‘𝑀)) = (1_r‘𝑌))
217	216	oveq1d 7270	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) = ((1_r‘𝑌) × (𝐺‘0)))
218	52	3adant3 1130	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Ring)
219	20, 21, 7, 8, 22, 23, 2, 24, 25	chfacfisf 21911	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝐺:ℕ₀⟶(Base‘𝑌))
220	4, 219	syl3anl2 1411	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝐺:ℕ₀⟶(Base‘𝑌))
221	220, 79	ffvelrnd 6944	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝐺‘0) ∈ (Base‘𝑌))
222	1, 22, 213	ringlidm 19725	. . . . . . . . 9 ⊢ ((𝑌 ∈ Ring ∧ (𝐺‘0) ∈ (Base‘𝑌)) → ((1_r‘𝑌) × (𝐺‘0)) = (𝐺‘0))
223	218, 221, 222	syl2an2r 681	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((1_r‘𝑌) × (𝐺‘0)) = (𝐺‘0))
224		iftrue 4462	. . . . . . . . 9 ⊢ (𝑛 = 0 → if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))) = ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
225		ovexd 7290	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) ∈ V)
226	25, 224, 79, 225	fvmptd3 6880	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝐺‘0) = ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
227	217, 223, 226	3eqtrd 2782	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) = ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
228	205, 227	oveq12d 7273	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))) + ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0))) = ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) + ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
229	1, 3	cmncom 19318	. . . . . . 7 ⊢ ((𝑌 ∈ CMnd ∧ ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) ∈ (Base‘𝑌) ∧ (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))) ∈ (Base‘𝑌)) → (((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) + (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1)))) = ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))) + ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0))))
230	13, 81, 94, 229	syl3anc 1369	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) + (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1)))) = ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))) + ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0))))
231		ringgrp 19703	. . . . . . . . 9 ⊢ (𝑌 ∈ Ring → 𝑌 ∈ Grp)
232	10, 231	syl 17	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Grp)
233	232	adantr 480	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝑌 ∈ Grp)
234	205, 94	eqeltrrd 2840	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌))
235	10	adantr 480	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝑌 ∈ Ring)
236	207	adantr 480	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑇‘𝑀) ∈ (Base‘𝑌))
237		simpl1 1189	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝑁 ∈ Fin)
238	4	3ad2ant2 1132	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Ring)
239	238	adantr 480	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝑅 ∈ Ring)
240		elmapi 8595	. . . . . . . . . . . 12 ⊢ (𝑏 ∈ (𝐵 ↑_m (0...𝑠)) → 𝑏:(0...𝑠)⟶𝐵)
241	240	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠))) → 𝑏:(0...𝑠)⟶𝐵)
242	241	adantl 481	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 𝑏:(0...𝑠)⟶𝐵)
243		0elfz 13282	. . . . . . . . . . . 12 ⊢ (𝑠 ∈ ℕ₀ → 0 ∈ (0...𝑠))
244	32, 243	syl 17	. . . . . . . . . . 11 ⊢ (𝑠 ∈ ℕ → 0 ∈ (0...𝑠))
245	244	ad2antrl 724	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → 0 ∈ (0...𝑠))
246	242, 245	ffvelrnd 6944	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑏‘0) ∈ 𝐵)
247	24, 20, 21, 7, 8	mat2pmatbas 21783	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ (𝑏‘0) ∈ 𝐵) → (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌))
248	237, 239, 246, 247	syl3anc 1369	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌))
249	1, 22	ringcl 19715	. . . . . . . 8 ⊢ ((𝑌 ∈ Ring ∧ (𝑇‘𝑀) ∈ (Base‘𝑌) ∧ (𝑇‘(𝑏‘0)) ∈ (Base‘𝑌)) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌))
250	235, 236, 248, 249	syl3anc 1369	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌))
251	1, 2, 23, 3	grpsubadd0sub 18577	. . . . . . 7 ⊢ ((𝑌 ∈ Grp ∧ (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) ∈ (Base‘𝑌) ∧ ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))) ∈ (Base‘𝑌)) → ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) + ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
252	233, 234, 250, 251	syl3anc 1369	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))) = ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) + ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
253	228, 230, 252	3eqtr4d 2788	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) + (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1)))) = ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))))
254	187, 253	oveq12d 7273	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + (((0 ↑ (𝑇‘𝑀)) × (𝐺‘0)) + (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1))))) = ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
255	111, 254	eqtrd 2778	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) + ((0 ↑ (𝑇‘𝑀)) × (𝐺‘0))) + (((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝐺‘(𝑠 + 1)))) = ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
256	73, 100, 255	3eqtrd 2782	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ (0...(𝑠 + 1)) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))
257	38, 71, 256	3eqtrd 2782	1 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑌 Σ_g (𝑖 ∈ ℕ₀ ↦ ((𝑖 ↑ (𝑇‘𝑀)) × (𝐺‘𝑖)))) = ((𝑌 Σ_g (𝑖 ∈ (1...𝑠) ↦ ((𝑖 ↑ (𝑇‘𝑀)) × ((𝑇‘(𝑏‘(𝑖 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑖))))))) + ((((𝑠 + 1) ↑ (𝑇‘𝑀)) × (𝑇‘(𝑏‘𝑠))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0))))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 395 ∨ wo 843 ∧ w3a 1085 = wceq 1539 ∈ wcel 2108 ≠ wne 2942 Vcvv 3422 ∪ cun 3881 ∩ cin 3882 ∅c0 4253 ifcif 4456 {csn 4558 class class class wbr 5070 ↦ cmpt 5153 ⟶wf 6414 ‘cfv 6418 (class class class)co 7255 ↑_m cmap 8573 Fincfn 8691 ℂcc 10800 ℝcr 10801 0cc0 10802 1c1 10803 + caddc 10805 < clt 10940 ≤ cle 10941 − cmin 11135 ℕcn 11903 2c2 11958 ℕ₀cn0 12163 ℤcz 12249 ℤ_≥cuz 12511 ...cfz 13168 Basecbs 16840 +_gcplusg 16888 ._rcmulr 16889 0_gc0g 17067 Σ_g cgsu 17068 Mndcmnd 18300 Grpcgrp 18492 -_gcsg 18494 ._gcmg 18615 CMndccmn 19301 mulGrpcmgp 19635 1_rcur 19652 Ringcrg 19698 CRingccrg 19699 Poly₁cpl1 21258 Mat cmat 21464 matToPolyMat cmat2pmat 21761

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1799 ax-4 1813 ax-5 1914 ax-6 1972 ax-7 2012 ax-8 2110 ax-9 2118 ax-10 2139 ax-11 2156 ax-12 2173 ax-ext 2709 ax-rep 5205 ax-sep 5218 ax-nul 5225 ax-pow 5283 ax-pr 5347 ax-un 7566 ax-cnex 10858 ax-resscn 10859 ax-1cn 10860 ax-icn 10861 ax-addcl 10862 ax-addrcl 10863 ax-mulcl 10864 ax-mulrcl 10865 ax-mulcom 10866 ax-addass 10867 ax-mulass 10868 ax-distr 10869 ax-i2m1 10870 ax-1ne0 10871 ax-1rid 10872 ax-rnegex 10873 ax-rrecex 10874 ax-cnre 10875 ax-pre-lttri 10876 ax-pre-lttrn 10877 ax-pre-ltadd 10878 ax-pre-mulgt0 10879

This theorem depends on definitions: df-bi 206 df-an 396 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1784 df-nf 1788 df-sb 2069 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2817 df-nfc 2888 df-ne 2943 df-nel 3049 df-ral 3068 df-rex 3069 df-reu 3070 df-rmo 3071 df-rab 3072 df-v 3424 df-sbc 3712 df-csb 3829 df-dif 3886 df-un 3888 df-in 3890 df-ss 3900 df-pss 3902 df-nul 4254 df-if 4457 df-pw 4532 df-sn 4559 df-pr 4561 df-tp 4563 df-op 4565 df-ot 4567 df-uni 4837 df-int 4877 df-iun 4923 df-iin 4924 df-br 5071 df-opab 5133 df-mpt 5154 df-tr 5188 df-id 5480 df-eprel 5486 df-po 5494 df-so 5495 df-fr 5535 df-se 5536 df-we 5537 df-xp 5586 df-rel 5587 df-cnv 5588 df-co 5589 df-dm 5590 df-rn 5591 df-res 5592 df-ima 5593 df-pred 6191 df-ord 6254 df-on 6255 df-lim 6256 df-suc 6257 df-iota 6376 df-fun 6420 df-fn 6421 df-f 6422 df-f1 6423 df-fo 6424 df-f1o 6425 df-fv 6426 df-isom 6427 df-riota 7212 df-ov 7258 df-oprab 7259 df-mpo 7260 df-of 7511 df-ofr 7512 df-om 7688 df-1st 7804 df-2nd 7805 df-supp 7949 df-frecs 8068 df-wrecs 8099 df-recs 8173 df-rdg 8212 df-1o 8267 df-er 8456 df-map 8575 df-pm 8576 df-ixp 8644 df-en 8692 df-dom 8693 df-sdom 8694 df-fin 8695 df-fsupp 9059 df-sup 9131 df-oi 9199 df-card 9628 df-pnf 10942 df-mnf 10943 df-xr 10944 df-ltxr 10945 df-le 10946 df-sub 11137 df-neg 11138 df-nn 11904 df-2 11966 df-3 11967 df-4 11968 df-5 11969 df-6 11970 df-7 11971 df-8 11972 df-9 11973 df-n0 12164 df-z 12250 df-dec 12367 df-uz 12512 df-rp 12660 df-fz 13169 df-fzo 13312 df-seq 13650 df-hash 13973 df-struct 16776 df-sets 16793 df-slot 16811 df-ndx 16823 df-base 16841 df-ress 16868 df-plusg 16901 df-mulr 16902 df-sca 16904 df-vsca 16905 df-ip 16906 df-tset 16907 df-ple 16908 df-ds 16910 df-hom 16912 df-cco 16913 df-0g 17069 df-gsum 17070 df-prds 17075 df-pws 17077 df-mre 17212 df-mrc 17213 df-acs 17215 df-mgm 18241 df-sgrp 18290 df-mnd 18301 df-mhm 18345 df-submnd 18346 df-grp 18495 df-minusg 18496 df-sbg 18497 df-mulg 18616 df-subg 18667 df-ghm 18747 df-cntz 18838 df-cmn 19303 df-abl 19304 df-mgp 19636 df-ur 19653 df-ring 19700 df-cring 19701 df-subrg 19937 df-lmod 20040 df-lss 20109 df-sra 20349 df-rgmod 20350 df-dsmm 20849 df-frlm 20864 df-ascl 20972 df-psr 21022 df-mpl 21024 df-opsr 21026 df-psr1 21261 df-ply1 21263 df-mamu 21443 df-mat 21465 df-mat2pmat 21764

This theorem is referenced by: chfacfpmmulgsum2 21922

W3C validator