Theorem cpmadugsumlemB 23000

Description: Lemma B for cpmadugsum 23004. (Contributed by AV, 2-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‘𝑌)

Assertion

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

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

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

Proof of Theorem cpmadugsumlemB

Step	Hyp	Ref	Expression
1		crngring 20327	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
2		cpmadugsum.p	. . . . . . . . . . . . 13 ⊢ 𝑃 = (Poly1‘𝑅)
3	2	ply1ring 22376	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring)
4	1, 3	syl 18	. . . . . . . . . . 11 ⊢ (𝑅 ∈ CRing → 𝑃 ∈ Ring)
5	4	3ad2ant2 1150	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 ∈ Ring)
6		eqid 2769	. . . . . . . . . . 11 ⊢ (mulGrp‘𝑃) = (mulGrp‘𝑃)
7	6	ringmgp 20321	. . . . . . . . . 10 ⊢ (𝑃 ∈ Ring → (mulGrp‘𝑃) ∈ Mnd)
8	5, 7	syl 18	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (mulGrp‘𝑃) ∈ Mnd)
9	8	ad2antrr 738	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (mulGrp‘𝑃) ∈ Mnd)
10		elfznn0 13648	. . . . . . . . 9 ⊢ (𝑖 ∈ (0...𝑠) → 𝑖 ∈ ℕ0)
11	10	adantl 486	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑖 ∈ ℕ0)
12		1nn0 12520	. . . . . . . . 9 ⊢ 1 ∈ ℕ0
13	12	a1i 11	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 1 ∈ ℕ0)
14	1	3ad2ant2 1150	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Ring)
15		cpmadugsum.x	. . . . . . . . . . 11 ⊢ 𝑋 = (var1‘𝑅)
16		eqid 2769	. . . . . . . . . . 11 ⊢ (Base‘𝑃) = (Base‘𝑃)
17	15, 2, 16	vr1cl 22346	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → 𝑋 ∈ (Base‘𝑃))
18	14, 17	syl 18	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑋 ∈ (Base‘𝑃))
19	18	ad2antrr 738	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑋 ∈ (Base‘𝑃))
20	6, 16	mgpbas 20221	. . . . . . . . 9 ⊢ (Base‘𝑃) = (Base‘(mulGrp‘𝑃))
21		cpmadugsum.e	. . . . . . . . 9 ⊢ ↑ = (.g‘(mulGrp‘𝑃))
22		eqid 2769	. . . . . . . . . 10 ⊢ (.r‘𝑃) = (.r‘𝑃)
23	6, 22	mgpplusg 20220	. . . . . . . . 9 ⊢ (.r‘𝑃) = (+g‘(mulGrp‘𝑃))
24	20, 21, 23	mulgnn0dir 19170	. . . . . . . 8 ⊢ (((mulGrp‘𝑃) ∈ Mnd ∧ (𝑖 ∈ ℕ0 ∧ 1 ∈ ℕ0 ∧ 𝑋 ∈ (Base‘𝑃))) → ((𝑖 + 1) ↑ 𝑋) = ((𝑖 ↑ 𝑋)(.r‘𝑃)(1 ↑ 𝑋)))
25	9, 11, 13, 19, 24	syl13anc 1397	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 + 1) ↑ 𝑋) = ((𝑖 ↑ 𝑋)(.r‘𝑃)(1 ↑ 𝑋)))
26	2	ply1crng 22327	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ CRing → 𝑃 ∈ CRing)
27	26	anim2i 628	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑃 ∈ CRing))
28	27	3adant3 1148	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑃 ∈ CRing))
29		cpmadugsum.y	. . . . . . . . . . . 12 ⊢ 𝑌 = (𝑁 Mat 𝑃)
30	29	matsca2 22546	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑃 ∈ CRing) → 𝑃 = (Scalar‘𝑌))
31	28, 30	syl 18	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑃 = (Scalar‘𝑌))
32	31	ad2antrr 738	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑃 = (Scalar‘𝑌))
33	32	fveq2d 6886	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (.r‘𝑃) = (.r‘(Scalar‘𝑌)))
34		eqidd 2770	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑖 ↑ 𝑋) = (𝑖 ↑ 𝑋))
35	20, 21	mulg1 19147	. . . . . . . . . 10 ⊢ (𝑋 ∈ (Base‘𝑃) → (1 ↑ 𝑋) = 𝑋)
36	18, 35	syl 18	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (1 ↑ 𝑋) = 𝑋)
37	36	ad2antrr 738	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (1 ↑ 𝑋) = 𝑋)
38	33, 34, 37	oveq123d 7432	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 ↑ 𝑋)(.r‘𝑃)(1 ↑ 𝑋)) = ((𝑖 ↑ 𝑋)(.r‘(Scalar‘𝑌))𝑋))
39	25, 38	eqtrd 2804	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 + 1) ↑ 𝑋) = ((𝑖 ↑ 𝑋)(.r‘(Scalar‘𝑌))𝑋))
40	4	anim2i 628	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑃 ∈ Ring))
41	40	3adant3 1148	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑃 ∈ Ring))
42	29	matring 22569	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring) → 𝑌 ∈ Ring)
43	41, 42	syl 18	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Ring)
44	43	ad2antrr 738	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑌 ∈ Ring)
45		simpll1 1229	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑁 ∈ Fin)
46	14	ad2antrr 738	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑅 ∈ Ring)
47		simplrl 788	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑠 ∈ ℕ0)
48		simprr 784	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑏 ∈ (𝐵 ↑m (0...𝑠)))
49	48	anim1i 626	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑏 ∈ (𝐵 ↑m (0...𝑠)) ∧ 𝑖 ∈ (0...𝑠)))
50		cpmadugsum.a	. . . . . . . . . 10 ⊢ 𝐴 = (𝑁 Mat 𝑅)
51		cpmadugsum.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐴)
52		cpmadugsum.t	. . . . . . . . . 10 ⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
53	50, 51, 2, 29, 52	m2pmfzmap 22873	. . . . . . . . 9 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑠 ∈ ℕ0) ∧ (𝑏 ∈ (𝐵 ↑m (0...𝑠)) ∧ 𝑖 ∈ (0...𝑠))) → (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))
54	45, 46, 47, 49, 53	syl31anc 1398	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))
55		eqid 2769	. . . . . . . . 9 ⊢ (Base‘𝑌) = (Base‘𝑌)
56		cpmadugsum.r	. . . . . . . . 9 ⊢ × = (.r‘𝑌)
57		cpmadugsum.1	. . . . . . . . 9 ⊢ 1 = (1r‘𝑌)
58	55, 56, 57	ringlidm 20352	. . . . . . . 8 ⊢ ((𝑌 ∈ Ring ∧ (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌)) → ( 1 × (𝑇‘(𝑏‘𝑖))) = (𝑇‘(𝑏‘𝑖)))
59	44, 54, 58	syl2anc 595	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ( 1 × (𝑇‘(𝑏‘𝑖))) = (𝑇‘(𝑏‘𝑖)))
60	59	eqcomd 2775	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑇‘(𝑏‘𝑖)) = ( 1 × (𝑇‘(𝑏‘𝑖))))
61	39, 60	oveq12d 7429	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) = (((𝑖 ↑ 𝑋)(.r‘(Scalar‘𝑌))𝑋) · ( 1 × (𝑇‘(𝑏‘𝑖)))))
62	29	matassa 22570	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑃 ∈ CRing) → 𝑌 ∈ AssAlg)
63	27, 62	syl 18	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑌 ∈ AssAlg)
64	63	3adant3 1148	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ AssAlg)
65	64	ad2antrr 738	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑌 ∈ AssAlg)
66	31	eqcomd 2775	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Scalar‘𝑌) = 𝑃)
67	66	fveq2d 6886	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Base‘(Scalar‘𝑌)) = (Base‘𝑃))
68	18, 67	eleqtrrd 2872	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑋 ∈ (Base‘(Scalar‘𝑌)))
69	68	ad2antrr 738	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑋 ∈ (Base‘(Scalar‘𝑌)))
70	20, 21, 9, 11, 19	mulgnn0cld 19161	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘𝑃))
71	67	ad2antrr 738	. . . . . . . 8 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (Base‘(Scalar‘𝑌)) = (Base‘𝑃))
72	70, 71	eleqtrrd 2872	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)))
73	40, 42	syl 18	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑌 ∈ Ring)
74	73	3adant3 1148	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ Ring)
75	55, 57	ringidcl 20348	. . . . . . . . 9 ⊢ (𝑌 ∈ Ring → 1 ∈ (Base‘𝑌))
76	74, 75	syl 18	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 1 ∈ (Base‘𝑌))
77	76	ad2antrr 738	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 1 ∈ (Base‘𝑌))
78		eqid 2769	. . . . . . . 8 ⊢ (Scalar‘𝑌) = (Scalar‘𝑌)
79		eqid 2769	. . . . . . . 8 ⊢ (Base‘(Scalar‘𝑌)) = (Base‘(Scalar‘𝑌))
80		eqid 2769	. . . . . . . 8 ⊢ (.r‘(Scalar‘𝑌)) = (.r‘(Scalar‘𝑌))
81		cpmadugsum.m	. . . . . . . 8 ⊢ · = ( ·𝑠 ‘𝑌)
82	55, 78, 79, 80, 81, 56	assa2ass 21982	. . . . . . 7 ⊢ ((𝑌 ∈ AssAlg ∧ (𝑋 ∈ (Base‘(Scalar‘𝑌)) ∧ (𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌))) ∧ ( 1 ∈ (Base‘𝑌) ∧ (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌))) → ((𝑋 · 1 ) × ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))) = (((𝑖 ↑ 𝑋)(.r‘(Scalar‘𝑌))𝑋) · ( 1 × (𝑇‘(𝑏‘𝑖)))))
83	65, 69, 72, 77, 54, 82	syl122anc 1404	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑋 · 1 ) × ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))) = (((𝑖 ↑ 𝑋)(.r‘(Scalar‘𝑌))𝑋) · ( 1 × (𝑇‘(𝑏‘𝑖)))))
84	83	eqcomd 2775	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (((𝑖 ↑ 𝑋)(.r‘(Scalar‘𝑌))𝑋) · ( 1 × (𝑇‘(𝑏‘𝑖)))) = ((𝑋 · 1 ) × ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))
85	61, 84	eqtrd 2804	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) = ((𝑋 · 1 ) × ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))
86	85	mpteq2dva 5208	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))) = (𝑖 ∈ (0...𝑠) ↦ ((𝑋 · 1 ) × ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))
87	86	oveq2d 7427	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))) = (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑋 · 1 ) × ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))))
88		eqid 2769	. . 3 ⊢ (0g‘𝑌) = (0g‘𝑌)
89	74	adantr 485	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑌 ∈ Ring)
90		ovexd 7446	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (0...𝑠) ∈ V)
91	29	matlmod 22555	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑃 ∈ Ring) → 𝑌 ∈ LMod)
92	40, 91	syl 18	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑌 ∈ LMod)
93	92	3adant3 1148	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑌 ∈ LMod)
94	1	adantl 486	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑅 ∈ Ring)
95	94, 17	syl 18	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑋 ∈ (Base‘𝑃))
96	27, 30	syl 18	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑃 = (Scalar‘𝑌))
97	96	eqcomd 2775	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (Scalar‘𝑌) = 𝑃)
98	97	fveq2d 6886	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (Base‘(Scalar‘𝑌)) = (Base‘𝑃))
99	95, 98	eleqtrrd 2872	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑋 ∈ (Base‘(Scalar‘𝑌)))
100	99	3adant3 1148	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑋 ∈ (Base‘(Scalar‘𝑌)))
101	43, 75	syl 18	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 1 ∈ (Base‘𝑌))
102	55, 78, 81, 79	lmodvscl 20977	. . . . 5 ⊢ ((𝑌 ∈ LMod ∧ 𝑋 ∈ (Base‘(Scalar‘𝑌)) ∧ 1 ∈ (Base‘𝑌)) → (𝑋 · 1 ) ∈ (Base‘𝑌))
103	93, 100, 101, 102	syl3anc 1396	. . . 4 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑋 · 1 ) ∈ (Base‘𝑌))
104	103	adantr 485	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑋 · 1 ) ∈ (Base‘𝑌))
105	93	ad2antrr 738	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → 𝑌 ∈ LMod)
106	30	eqcomd 2775	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑃 ∈ CRing) → (Scalar‘𝑌) = 𝑃)
107	106	fveq2d 6886	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑃 ∈ CRing) → (Base‘(Scalar‘𝑌)) = (Base‘𝑃))
108	28, 107	syl 18	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Base‘(Scalar‘𝑌)) = (Base‘𝑃))
109	108	eleq2d 2855	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ((𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ↔ (𝑖 ↑ 𝑋) ∈ (Base‘𝑃)))
110	109	ad2antrr 738	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ↔ (𝑖 ↑ 𝑋) ∈ (Base‘𝑃)))
111	70, 110	mpbird 260	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → (𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)))
112	55, 78, 81, 79	lmodvscl 20977	. . . 4 ⊢ ((𝑌 ∈ LMod ∧ (𝑖 ↑ 𝑋) ∈ (Base‘(Scalar‘𝑌)) ∧ (𝑇‘(𝑏‘𝑖)) ∈ (Base‘𝑌)) → ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
113	105, 111, 54, 112	syl3anc 1396	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ (Base‘𝑌))
114		simpl1 1208	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑁 ∈ Fin)
115	14	adantr 485	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑅 ∈ Ring)
116		simprl 782	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑠 ∈ ℕ0)
117		eqid 2769	. . . . 5 ⊢ (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))) = (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))
118		fzfid 14009	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑠 ∈ ℕ0) ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (0...𝑠) ∈ Fin)
119		ovexd 7446	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑠 ∈ ℕ0) ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) ∧ 𝑖 ∈ (0...𝑠)) → ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))) ∈ V)
120		fvexd 6897	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑠 ∈ ℕ0) ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (0g‘𝑌) ∈ V)
121	117, 118, 119, 120	fsuppmptdm 9336	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑠 ∈ ℕ0) ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))) finSupp (0g‘𝑌))
122	114, 115, 116, 48, 121	syl31anc 1398	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))) finSupp (0g‘𝑌))
123	55, 88, 56, 89, 90, 104, 113, 122	gsummulc2 20398	. 2 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑋 · 1 ) × ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = ((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))))
124	87, 123	eqtr2d 2805	1 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ0 ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((𝑋 · 1 ) × (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ ((𝑖 ↑ 𝑋) · (𝑇‘(𝑏‘𝑖)))))) = (𝑌 Σg (𝑖 ∈ (0...𝑠) ↦ (((𝑖 + 1) ↑ 𝑋) · (𝑇‘(𝑏‘𝑖))))))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149  Vcvv 3463   class class class wbr 5113   ↦ cmpt 5196  ‘cfv 6537  (class class class)co 7411   ↑_m cmap 8824  Fincfn 8943   finSupp cfsupp 9321  0cc0 11100  1c1 11101   + caddc 11103  ℕ₀cn0 12504  ...cfz 13535  Basecbs 17269  ._rcmulr 17311  Scalarcsca 17313   ·_𝑠 cvsca 17314  0_gc0g 17492   Σ_g cgsu 17493  Mndcmnd 18792  ._gcmg 19133  mulGrpcmgp 20216  1_rcur 20263  Ringcrg 20315  CRingccrg 20316  LModclmod 20959  AssAlgcasa 21969  var₁cv1 22305  Poly₁cpl1 22306   Mat cmat 22533   matToPolyMat cmat2pmat 22830

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-cnex 11156  ax-resscn 11157  ax-1cn 11158  ax-icn 11159  ax-addcl 11160  ax-addrcl 11161  ax-mulcl 11162  ax-mulrcl 11163  ax-mulcom 11164  ax-addass 11165  ax-mulass 11166  ax-distr 11167  ax-i2m1 11168  ax-1ne0 11169  ax-1rid 11170  ax-rnegex 11171  ax-rrecex 11172  ax-cnre 11173  ax-pre-lttri 11174  ax-pre-lttrn 11175  ax-pre-ltadd 11176  ax-pre-mulgt0 11177

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-ot 4603  df-uni 4877  df-int 4917  df-iun 4962  df-iin 4963  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-se 5616  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-of 7675  df-ofr 7676  df-om 7863  df-1st 7986  df-2nd 7987  df-supp 8157  df-frecs 8278  df-wrecs 8309  df-recs 8358  df-rdg 8397  df-1o 8453  df-2o 8454  df-er 8694  df-map 8826  df-pm 8827  df-ixp 8896  df-en 8944  df-dom 8945  df-sdom 8946  df-fin 8947  df-fsupp 9322  df-sup 9402  df-oi 9472  df-card 9925  df-pnf 11245  df-mnf 11246  df-xr 11247  df-ltxr 11248  df-le 11249  df-sub 11443  df-neg 11444  df-nn 12234  df-2 12303  df-3 12304  df-4 12305  df-5 12306  df-6 12307  df-7 12308  df-8 12309  df-9 12310  df-n0 12505  df-z 12592  df-dec 12712  df-uz 12863  df-fz 13536  df-fzo 13683  df-seq 14038  df-hash 14367  df-struct 17207  df-sets 17224  df-slot 17242  df-ndx 17254  df-base 17270  df-ress 17291  df-plusg 17323  df-mulr 17324  df-sca 17326  df-vsca 17327  df-ip 17328  df-tset 17329  df-ple 17330  df-ds 17332  df-hom 17334  df-cco 17335  df-0g 17494  df-gsum 17495  df-prds 17500  df-pws 17502  df-mre 17638  df-mrc 17639  df-acs 17641  df-mgm 18698  df-sgrp 18777  df-mnd 18793  df-mhm 18841  df-submnd 18842  df-grp 19003  df-minusg 19004  df-sbg 19005  df-mulg 19134  df-subg 19189  df-ghm 19284  df-cntz 19387  df-cmn 19852  df-abl 19853  df-mgp 20217  df-rng 20231  df-ur 20264  df-ring 20317  df-cring 20318  df-subrng 20631  df-subrg 20655  df-lmod 20961  df-lss 21031  df-sra 21272  df-rgmod 21273  df-dsmm 21851  df-frlm 21866  df-assa 21972  df-ascl 21974  df-psr 22028  df-mvr 22029  df-mpl 22030  df-opsr 22032  df-psr1 22309  df-vr1 22310  df-ply1 22311  df-mamu 22517  df-mat 22534  df-mat2pmat 22833

This theorem is referenced by:  cpmadugsumlemF  23002