Theorem chcoeffeqlem 21485

Description: Lemma for chcoeffeq 21486. (Contributed by AV, 21-Nov-2019.) (Proof shortened by AV, 7-Dec-2019.) (Revised by AV, 15-Dec-2019.)

Hypotheses

Ref	Expression
chcoeffeq.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
chcoeffeq.b	⊢ 𝐵 = (Base‘𝐴)
chcoeffeq.p	⊢ 𝑃 = (Poly1‘𝑅)
chcoeffeq.y	⊢ 𝑌 = (𝑁 Mat 𝑃)
chcoeffeq.r	⊢ × = (.r‘𝑌)
chcoeffeq.s	⊢ − = (-g‘𝑌)
chcoeffeq.0	⊢ 0 = (0g‘𝑌)
chcoeffeq.t	⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
chcoeffeq.c	⊢ 𝐶 = (𝑁 CharPlyMat 𝑅)
chcoeffeq.k	⊢ 𝐾 = (𝐶‘𝑀)
chcoeffeq.g	⊢ 𝐺 = (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))))
chcoeffeq.w	⊢ 𝑊 = (Base‘𝑌)
chcoeffeq.1	⊢ 1 = (1r‘𝐴)
chcoeffeq.m	⊢ ∗ = ( ·𝑠 ‘𝐴)
chcoeffeq.u	⊢ 𝑈 = (𝑁 cPolyMatToMat 𝑅)

Assertion

Ref	Expression
chcoeffeqlem	⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑛))( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) = ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑛) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) → ∀𝑛 ∈ ℕ0 (𝑈‘(𝐺‘𝑛)) = (((coe1‘𝐾)‘𝑛) ∗ 1 )))

Distinct variable groups:   𝐴,𝑛   𝐵,𝑛   𝑛,𝐺   𝑛,𝐾   𝑛,𝑀   𝑛,𝑁   𝑅,𝑛   𝑈,𝑛   𝑛,𝑌   1 ,𝑛   ∗ ,𝑛   𝑛,𝑏   𝑛,𝑠

Allowed substitution hints:   𝐴(𝑠,𝑏)   𝐵(𝑠,𝑏)   𝐶(𝑛,𝑠,𝑏)   𝑃(𝑛,𝑠,𝑏)   𝑅(𝑠,𝑏)   𝑇(𝑛,𝑠,𝑏)   × (𝑛,𝑠,𝑏)   𝑈(𝑠,𝑏)   1 (𝑠,𝑏)   𝐺(𝑠,𝑏)   ∗ (𝑠,𝑏)   𝐾(𝑠,𝑏)   𝑀(𝑠,𝑏)   − (𝑛,𝑠,𝑏)   𝑁(𝑠,𝑏)   𝑊(𝑛,𝑠,𝑏)   𝑌(𝑠,𝑏)   0 (𝑛,𝑠,𝑏)

Proof of Theorem chcoeffeqlem

Dummy variable 𝑙 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2819	. . . . 5 ⊢ (Poly1‘𝐴) = (Poly1‘𝐴)
2		eqid 2819	. . . . 5 ⊢ (var1‘𝐴) = (var1‘𝐴)
3		eqid 2819	. . . . 5 ⊢ (.g‘(mulGrp‘(Poly1‘𝐴))) = (.g‘(mulGrp‘(Poly1‘𝐴)))
4		crngring 19300	. . . . . . . 8 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
5		chcoeffeq.a	. . . . . . . . 9 ⊢ 𝐴 = (𝑁 Mat 𝑅)
6	5	matring 21044	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝐴 ∈ Ring)
7	4, 6	sylan2 594	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝐴 ∈ Ring)
8	7	3adant3 1126	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝐴 ∈ Ring)
9	8	adantr 483	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝐴 ∈ Ring)
10		chcoeffeq.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐴)
11		eqid 2819	. . . . 5 ⊢ ( ·𝑠 ‘(Poly1‘𝐴)) = ( ·𝑠 ‘(Poly1‘𝐴))
12		eqid 2819	. . . . 5 ⊢ (0g‘𝐴) = (0g‘𝐴)
13		chcoeffeq.p	. . . . . . . 8 ⊢ 𝑃 = (Poly1‘𝑅)
14		chcoeffeq.y	. . . . . . . 8 ⊢ 𝑌 = (𝑁 Mat 𝑃)
15		chcoeffeq.t	. . . . . . . 8 ⊢ 𝑇 = (𝑁 matToPolyMat 𝑅)
16		chcoeffeq.r	. . . . . . . 8 ⊢ × = (.r‘𝑌)
17		chcoeffeq.s	. . . . . . . 8 ⊢ − = (-g‘𝑌)
18		chcoeffeq.0	. . . . . . . 8 ⊢ 0 = (0g‘𝑌)
19		chcoeffeq.g	. . . . . . . 8 ⊢ 𝐺 = (𝑛 ∈ ℕ0 ↦ if(𝑛 = 0, ( 0 − ((𝑇‘𝑀) × (𝑇‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), (𝑇‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, 0 , ((𝑇‘(𝑏‘(𝑛 − 1))) − ((𝑇‘𝑀) × (𝑇‘(𝑏‘𝑛))))))))
20		eqid 2819	. . . . . . . 8 ⊢ (𝑁 ConstPolyMat 𝑅) = (𝑁 ConstPolyMat 𝑅)
21		eqid 2819	. . . . . . . 8 ⊢ ( ·𝑠 ‘𝑌) = ( ·𝑠 ‘𝑌)
22		eqid 2819	. . . . . . . 8 ⊢ (1r‘𝑌) = (1r‘𝑌)
23		eqid 2819	. . . . . . . 8 ⊢ (var1‘𝑅) = (var1‘𝑅)
24		eqid 2819	. . . . . . . 8 ⊢ (((var1‘𝑅)( ·𝑠 ‘𝑌)(1r‘𝑌)) − (𝑇‘𝑀)) = (((var1‘𝑅)( ·𝑠 ‘𝑌)(1r‘𝑌)) − (𝑇‘𝑀))
25		eqid 2819	. . . . . . . 8 ⊢ (𝑁 maAdju 𝑃) = (𝑁 maAdju 𝑃)
26		chcoeffeq.w	. . . . . . . 8 ⊢ 𝑊 = (Base‘𝑌)
27		chcoeffeq.u	. . . . . . . 8 ⊢ 𝑈 = (𝑁 cPolyMatToMat 𝑅)
28	5, 10, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 1, 2, 11, 3, 27	cpmadumatpolylem1 21481	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑠 ∈ ℕ) ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑈 ∘ 𝐺) ∈ (𝐵 ↑m ℕ0))
29	28	anasss 469	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑈 ∘ 𝐺) ∈ (𝐵 ↑m ℕ0))
30	5, 10, 13, 14, 16, 17, 18, 15, 19, 20	chfacfisfcpmat 21455	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝐺:ℕ0⟶(𝑁 ConstPolyMat 𝑅))
31	4, 30	syl3anl2 1407	. . . . . . . . . 10 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝐺:ℕ0⟶(𝑁 ConstPolyMat 𝑅))
32	31	adantr 483	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ (𝑈 ∘ 𝐺) ∈ (𝐵 ↑m ℕ0)) → 𝐺:ℕ0⟶(𝑁 ConstPolyMat 𝑅))
33		fvco3 6753	. . . . . . . . . 10 ⊢ ((𝐺:ℕ0⟶(𝑁 ConstPolyMat 𝑅) ∧ 𝑙 ∈ ℕ0) → ((𝑈 ∘ 𝐺)‘𝑙) = (𝑈‘(𝐺‘𝑙)))
34	33	eqcomd 2825	. . . . . . . . 9 ⊢ ((𝐺:ℕ0⟶(𝑁 ConstPolyMat 𝑅) ∧ 𝑙 ∈ ℕ0) → (𝑈‘(𝐺‘𝑙)) = ((𝑈 ∘ 𝐺)‘𝑙))
35	32, 34	sylan 582	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ (𝑈 ∘ 𝐺) ∈ (𝐵 ↑m ℕ0)) ∧ 𝑙 ∈ ℕ0) → (𝑈‘(𝐺‘𝑙)) = ((𝑈 ∘ 𝐺)‘𝑙))
36		elmapi 8420	. . . . . . . . . 10 ⊢ ((𝑈 ∘ 𝐺) ∈ (𝐵 ↑m ℕ0) → (𝑈 ∘ 𝐺):ℕ0⟶𝐵)
37	36	adantl 484	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ (𝑈 ∘ 𝐺) ∈ (𝐵 ↑m ℕ0)) → (𝑈 ∘ 𝐺):ℕ0⟶𝐵)
38	37	ffvelrnda 6844	. . . . . . . 8 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ (𝑈 ∘ 𝐺) ∈ (𝐵 ↑m ℕ0)) ∧ 𝑙 ∈ ℕ0) → ((𝑈 ∘ 𝐺)‘𝑙) ∈ 𝐵)
39	35, 38	eqeltrd 2911	. . . . . . 7 ⊢ (((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ (𝑈 ∘ 𝐺) ∈ (𝐵 ↑m ℕ0)) ∧ 𝑙 ∈ ℕ0) → (𝑈‘(𝐺‘𝑙)) ∈ 𝐵)
40	39	ralrimiva 3180	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ (𝑈 ∘ 𝐺) ∈ (𝐵 ↑m ℕ0)) → ∀𝑙 ∈ ℕ0 (𝑈‘(𝐺‘𝑙)) ∈ 𝐵)
41	29, 40	mpdan 685	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ∀𝑙 ∈ ℕ0 (𝑈‘(𝐺‘𝑙)) ∈ 𝐵)
42	4	anim2i 618	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
43	42	3adant3 1126	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
44	43	adantr 483	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
45	5, 10, 20, 27	cpm2mf 21352	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝑈:(𝑁 ConstPolyMat 𝑅)⟶𝐵)
46	44, 45	syl 17	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝑈:(𝑁 ConstPolyMat 𝑅)⟶𝐵)
47		fcompt 6888	. . . . . . 7 ⊢ ((𝑈:(𝑁 ConstPolyMat 𝑅)⟶𝐵 ∧ 𝐺:ℕ0⟶(𝑁 ConstPolyMat 𝑅)) → (𝑈 ∘ 𝐺) = (𝑙 ∈ ℕ0 ↦ (𝑈‘(𝐺‘𝑙))))
48	46, 31, 47	syl2anc 586	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑈 ∘ 𝐺) = (𝑙 ∈ ℕ0 ↦ (𝑈‘(𝐺‘𝑙))))
49	5, 10, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 1, 2, 11, 3, 27	cpmadumatpolylem2 21482	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑠 ∈ ℕ) ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠))) → (𝑈 ∘ 𝐺) finSupp (0g‘𝐴))
50	49	anasss 469	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑈 ∘ 𝐺) finSupp (0g‘𝐴))
51	48, 50	eqbrtrrd 5081	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑙 ∈ ℕ0 ↦ (𝑈‘(𝐺‘𝑙))) finSupp (0g‘𝐴))
52		simpll1 1206	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑙 ∈ ℕ0) → 𝑁 ∈ Fin)
53	4	3ad2ant2 1128	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 ∈ Ring)
54	53	ad2antrr 724	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑙 ∈ ℕ0) → 𝑅 ∈ Ring)
55		chcoeffeq.k	. . . . . . . . . 10 ⊢ 𝐾 = (𝐶‘𝑀)
56		chcoeffeq.c	. . . . . . . . . . 11 ⊢ 𝐶 = (𝑁 CharPlyMat 𝑅)
57		eqid 2819	. . . . . . . . . . 11 ⊢ (Base‘𝑃) = (Base‘𝑃)
58	56, 5, 10, 13, 57	chpmatply1 21432	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝐶‘𝑀) ∈ (Base‘𝑃))
59	55, 58	eqeltrid 2915	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝐾 ∈ (Base‘𝑃))
60		eqid 2819	. . . . . . . . . 10 ⊢ (coe1‘𝐾) = (coe1‘𝐾)
61		eqid 2819	. . . . . . . . . 10 ⊢ (Base‘𝑅) = (Base‘𝑅)
62	60, 57, 13, 61	coe1fvalcl 20372	. . . . . . . . 9 ⊢ ((𝐾 ∈ (Base‘𝑃) ∧ 𝑙 ∈ ℕ0) → ((coe1‘𝐾)‘𝑙) ∈ (Base‘𝑅))
63	59, 62	sylan 582	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ 𝑙 ∈ ℕ0) → ((coe1‘𝐾)‘𝑙) ∈ (Base‘𝑅))
64	63	adantlr 713	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑙 ∈ ℕ0) → ((coe1‘𝐾)‘𝑙) ∈ (Base‘𝑅))
65		chcoeffeq.1	. . . . . . . . . 10 ⊢ 1 = (1r‘𝐴)
66	10, 65	ringidcl 19310	. . . . . . . . 9 ⊢ (𝐴 ∈ Ring → 1 ∈ 𝐵)
67	8, 66	syl 17	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 1 ∈ 𝐵)
68	67	ad2antrr 724	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑙 ∈ ℕ0) → 1 ∈ 𝐵)
69		chcoeffeq.m	. . . . . . . 8 ⊢ ∗ = ( ·𝑠 ‘𝐴)
70	61, 5, 10, 69	matvscl 21032	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) ∧ (((coe1‘𝐾)‘𝑙) ∈ (Base‘𝑅) ∧ 1 ∈ 𝐵)) → (((coe1‘𝐾)‘𝑙) ∗ 1 ) ∈ 𝐵)
71	52, 54, 64, 68, 70	syl22anc 836	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑙 ∈ ℕ0) → (((coe1‘𝐾)‘𝑙) ∗ 1 ) ∈ 𝐵)
72	71	ralrimiva 3180	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ∀𝑙 ∈ ℕ0 (((coe1‘𝐾)‘𝑙) ∗ 1 ) ∈ 𝐵)
73		nn0ex 11895	. . . . . . 7 ⊢ ℕ0 ∈ V
74	73	a1i 11	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ℕ0 ∈ V)
75	5	matlmod 21030	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → 𝐴 ∈ LMod)
76	4, 75	sylan2 594	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝐴 ∈ LMod)
77	76	3adant3 1126	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝐴 ∈ LMod)
78	77	adantr 483	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → 𝐴 ∈ LMod)
79		eqidd 2820	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (Scalar‘𝐴) = (Scalar‘𝐴))
80		fvexd 6678	. . . . . 6 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ 𝑙 ∈ ℕ0) → ((coe1‘𝐾)‘𝑙) ∈ V)
81		eqid 2819	. . . . . 6 ⊢ (0g‘(Scalar‘𝐴)) = (0g‘(Scalar‘𝐴))
82	5	matsca2 21021	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑅 = (Scalar‘𝐴))
83	82	3adant3 1126	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝑅 = (Scalar‘𝐴))
84	83, 53	eqeltrrd 2912	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Scalar‘𝐴) ∈ Ring)
85	83	eqcomd 2825	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Scalar‘𝐴) = 𝑅)
86	85	fveq2d 6667	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Poly1‘(Scalar‘𝐴)) = (Poly1‘𝑅))
87	86, 13	syl6eqr 2872	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Poly1‘(Scalar‘𝐴)) = 𝑃)
88	87	fveq2d 6667	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (Base‘(Poly1‘(Scalar‘𝐴))) = (Base‘𝑃))
89	59, 88	eleqtrrd 2914	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → 𝐾 ∈ (Base‘(Poly1‘(Scalar‘𝐴))))
90		eqid 2819	. . . . . . . . 9 ⊢ (Poly1‘(Scalar‘𝐴)) = (Poly1‘(Scalar‘𝐴))
91		eqid 2819	. . . . . . . . 9 ⊢ (Base‘(Poly1‘(Scalar‘𝐴))) = (Base‘(Poly1‘(Scalar‘𝐴)))
92	90, 91, 81	mptcoe1fsupp 20375	. . . . . . . 8 ⊢ (((Scalar‘𝐴) ∈ Ring ∧ 𝐾 ∈ (Base‘(Poly1‘(Scalar‘𝐴)))) → (𝑙 ∈ ℕ0 ↦ ((coe1‘𝐾)‘𝑙)) finSupp (0g‘(Scalar‘𝐴)))
93	84, 89, 92	syl2anc 586	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑙 ∈ ℕ0 ↦ ((coe1‘𝐾)‘𝑙)) finSupp (0g‘(Scalar‘𝐴)))
94	93	adantr 483	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑙 ∈ ℕ0 ↦ ((coe1‘𝐾)‘𝑙)) finSupp (0g‘(Scalar‘𝐴)))
95	74, 78, 79, 10, 80, 68, 12, 81, 69, 94	mptscmfsupp0 19691	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (𝑙 ∈ ℕ0 ↦ (((coe1‘𝐾)‘𝑙) ∗ 1 )) finSupp (0g‘𝐴))
96		2fveq3 6668	. . . . . . . . 9 ⊢ (𝑛 = 𝑙 → (𝑈‘(𝐺‘𝑛)) = (𝑈‘(𝐺‘𝑙)))
97		oveq1 7155	. . . . . . . . 9 ⊢ (𝑛 = 𝑙 → (𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴)) = (𝑙(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴)))
98	96, 97	oveq12d 7166	. . . . . . . 8 ⊢ (𝑛 = 𝑙 → ((𝑈‘(𝐺‘𝑛))( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))) = ((𝑈‘(𝐺‘𝑙))( ·𝑠 ‘(Poly1‘𝐴))(𝑙(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))
99	98	cbvmptv 5160	. . . . . . 7 ⊢ (𝑛 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑛))( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴)))) = (𝑙 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑙))( ·𝑠 ‘(Poly1‘𝐴))(𝑙(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))
100	99	oveq2i 7159	. . . . . 6 ⊢ ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑛))( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) = ((Poly1‘𝐴) Σg (𝑙 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑙))( ·𝑠 ‘(Poly1‘𝐴))(𝑙(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴)))))
101	100	a1i 11	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑛))( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) = ((Poly1‘𝐴) Σg (𝑙 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑙))( ·𝑠 ‘(Poly1‘𝐴))(𝑙(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))))
102		fveq2 6663	. . . . . . . . . 10 ⊢ (𝑛 = 𝑙 → ((coe1‘𝐾)‘𝑛) = ((coe1‘𝐾)‘𝑙))
103	102	oveq1d 7163	. . . . . . . . 9 ⊢ (𝑛 = 𝑙 → (((coe1‘𝐾)‘𝑛) ∗ 1 ) = (((coe1‘𝐾)‘𝑙) ∗ 1 ))
104	103, 97	oveq12d 7166	. . . . . . . 8 ⊢ (𝑛 = 𝑙 → ((((coe1‘𝐾)‘𝑛) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))) = ((((coe1‘𝐾)‘𝑙) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑙(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))
105	104	cbvmptv 5160	. . . . . . 7 ⊢ (𝑛 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑛) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴)))) = (𝑙 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑙) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑙(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))
106	105	oveq2i 7159	. . . . . 6 ⊢ ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑛) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) = ((Poly1‘𝐴) Σg (𝑙 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑙) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑙(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴)))))
107	106	a1i 11	. . . . 5 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑛) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) = ((Poly1‘𝐴) Σg (𝑙 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑙) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑙(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))))
108	1, 2, 3, 9, 10, 11, 12, 41, 51, 72, 95, 101, 107	gsumply1eq 20465	. . . 4 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑛))( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) = ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑛) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) ↔ ∀𝑙 ∈ ℕ0 (𝑈‘(𝐺‘𝑙)) = (((coe1‘𝐾)‘𝑙) ∗ 1 )))
109	108	biimpa 479	. . 3 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑛))( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) = ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑛) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴)))))) → ∀𝑙 ∈ ℕ0 (𝑈‘(𝐺‘𝑙)) = (((coe1‘𝐾)‘𝑙) ∗ 1 ))
110	96, 103	eqeq12d 2835	. . . 4 ⊢ (𝑛 = 𝑙 → ((𝑈‘(𝐺‘𝑛)) = (((coe1‘𝐾)‘𝑛) ∗ 1 ) ↔ (𝑈‘(𝐺‘𝑙)) = (((coe1‘𝐾)‘𝑙) ∗ 1 )))
111	110	cbvralvw 3448	. . 3 ⊢ (∀𝑛 ∈ ℕ0 (𝑈‘(𝐺‘𝑛)) = (((coe1‘𝐾)‘𝑛) ∗ 1 ) ↔ ∀𝑙 ∈ ℕ0 (𝑈‘(𝐺‘𝑙)) = (((coe1‘𝐾)‘𝑙) ∗ 1 ))
112	109, 111	sylibr 236	. 2 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) ∧ ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑛))( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) = ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑛) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴)))))) → ∀𝑛 ∈ ℕ0 (𝑈‘(𝐺‘𝑛)) = (((coe1‘𝐾)‘𝑛) ∗ 1 ))
113	112	ex 415	1 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑m (0...𝑠)))) → (((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((𝑈‘(𝐺‘𝑛))( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) = ((Poly1‘𝐴) Σg (𝑛 ∈ ℕ0 ↦ ((((coe1‘𝐾)‘𝑛) ∗ 1 )( ·𝑠 ‘(Poly1‘𝐴))(𝑛(.g‘(mulGrp‘(Poly1‘𝐴)))(var1‘𝐴))))) → ∀𝑛 ∈ ℕ0 (𝑈‘(𝐺‘𝑛)) = (((coe1‘𝐾)‘𝑛) ∗ 1 )))

Syntax hints:   → wi 4   ∧ wa 398   ∧ w3a 1081   = wceq 1530   ∈ wcel 2107  ∀wral 3136  Vcvv 3493  ifcif 4465   class class class wbr 5057   ↦ cmpt 5137   ∘ ccom 5552  ⟶wf 6344  ‘cfv 6348  (class class class)co 7148   ↑_m cmap 8398  Fincfn 8501   finSupp cfsupp 8825  0cc0 10529  1c1 10530   + caddc 10532   < clt 10667   − cmin 10862  ℕcn 11630  ℕ₀cn0 11889  ...cfz 12884  Basecbs 16475  ._rcmulr 16558  Scalarcsca 16560   ·_𝑠 cvsca 16561  0_gc0g 16705   Σ_g cgsu 16706  -_gcsg 18097  ._gcmg 18216  mulGrpcmgp 19231  1_rcur 19243  Ringcrg 19289  CRingccrg 19290  LModclmod 19626  var₁cv1 20336  Poly₁cpl1 20337  coe₁cco1 20338   Mat cmat 21008   maAdju cmadu 21233   ConstPolyMat ccpmat 21303   matToPolyMat cmat2pmat 21304   cPolyMatToMat ccpmat2mat 21305   CharPlyMat cchpmat 21426

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1904  ax-6 1963  ax-7 2008  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2153  ax-12 2169  ax-ext 2791  ax-rep 5181  ax-sep 5194  ax-nul 5201  ax-pow 5257  ax-pr 5320  ax-un 7453  ax-cnex 10585  ax-resscn 10586  ax-1cn 10587  ax-icn 10588  ax-addcl 10589  ax-addrcl 10590  ax-mulcl 10591  ax-mulrcl 10592  ax-mulcom 10593  ax-addass 10594  ax-mulass 10595  ax-distr 10596  ax-i2m1 10597  ax-1ne0 10598  ax-1rid 10599  ax-rnegex 10600  ax-rrecex 10601  ax-cnre 10602  ax-pre-lttri 10603  ax-pre-lttrn 10604  ax-pre-ltadd 10605  ax-pre-mulgt0 10606  ax-addf 10608  ax-mulf 10609

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1082  df-3an 1083  df-xor 1498  df-tru 1533  df-fal 1543  df-ex 1774  df-nf 1778  df-sb 2063  df-mo 2616  df-eu 2648  df-clab 2798  df-cleq 2812  df-clel 2891  df-nfc 2961  df-ne 3015  df-nel 3122  df-ral 3141  df-rex 3142  df-reu 3143  df-rmo 3144  df-rab 3145  df-v 3495  df-sbc 3771  df-csb 3882  df-dif 3937  df-un 3939  df-in 3941  df-ss 3950  df-pss 3952  df-nul 4290  df-if 4466  df-pw 4539  df-sn 4560  df-pr 4562  df-tp 4564  df-op 4566  df-ot 4568  df-uni 4831  df-int 4868  df-iun 4912  df-iin 4913  df-br 5058  df-opab 5120  df-mpt 5138  df-tr 5164  df-id 5453  df-eprel 5458  df-po 5467  df-so 5468  df-fr 5507  df-se 5508  df-we 5509  df-xp 5554  df-rel 5555  df-cnv 5556  df-co 5557  df-dm 5558  df-rn 5559  df-res 5560  df-ima 5561  df-pred 6141  df-ord 6187  df-on 6188  df-lim 6189  df-suc 6190  df-iota 6307  df-fun 6350  df-fn 6351  df-f 6352  df-f1 6353  df-fo 6354  df-f1o 6355  df-fv 6356  df-isom 6357  df-riota 7106  df-ov 7151  df-oprab 7152  df-mpo 7153  df-of 7401  df-ofr 7402  df-om 7573  df-1st 7681  df-2nd 7682  df-supp 7823  df-tpos 7884  df-wrecs 7939  df-recs 8000  df-rdg 8038  df-1o 8094  df-2o 8095  df-oadd 8098  df-er 8281  df-map 8400  df-pm 8401  df-ixp 8454  df-en 8502  df-dom 8503  df-sdom 8504  df-fin 8505  df-fsupp 8826  df-sup 8898  df-oi 8966  df-card 9360  df-pnf 10669  df-mnf 10670  df-xr 10671  df-ltxr 10672  df-le 10673  df-sub 10864  df-neg 10865  df-div 11290  df-nn 11631  df-2 11692  df-3 11693  df-4 11694  df-5 11695  df-6 11696  df-7 11697  df-8 11698  df-9 11699  df-n0 11890  df-xnn0 11960  df-z 11974  df-dec 12091  df-uz 12236  df-rp 12382  df-fz 12885  df-fzo 13026  df-seq 13362  df-exp 13422  df-hash 13683  df-word 13854  df-lsw 13907  df-concat 13915  df-s1 13942  df-substr 13995  df-pfx 14025  df-splice 14104  df-reverse 14113  df-s2 14202  df-struct 16477  df-ndx 16478  df-slot 16479  df-base 16481  df-sets 16482  df-ress 16483  df-plusg 16570  df-mulr 16571  df-starv 16572  df-sca 16573  df-vsca 16574  df-ip 16575  df-tset 16576  df-ple 16577  df-ds 16579  df-unif 16580  df-hom 16581  df-cco 16582  df-0g 16707  df-gsum 16708  df-prds 16713  df-pws 16715  df-mre 16849  df-mrc 16850  df-acs 16852  df-mgm 17844  df-sgrp 17893  df-mnd 17904  df-mhm 17948  df-submnd 17949  df-efmnd 18026  df-grp 18098  df-minusg 18099  df-sbg 18100  df-mulg 18217  df-subg 18268  df-ghm 18348  df-gim 18391  df-cntz 18439  df-oppg 18466  df-symg 18488  df-pmtr 18562  df-psgn 18611  df-cmn 18900  df-abl 18901  df-mgp 19232  df-ur 19244  df-srg 19248  df-ring 19291  df-cring 19292  df-oppr 19365  df-dvdsr 19383  df-unit 19384  df-invr 19414  df-dvr 19425  df-rnghom 19459  df-drng 19496  df-subrg 19525  df-lmod 19628  df-lss 19696  df-sra 19936  df-rgmod 19937  df-ascl 20079  df-psr 20128  df-mvr 20129  df-mpl 20130  df-opsr 20132  df-psr1 20340  df-vr1 20341  df-ply1 20342  df-coe1 20343  df-cnfld 20538  df-zring 20610  df-zrh 20643  df-dsmm 20868  df-frlm 20883  df-mamu 20987  df-mat 21009  df-mdet 21186  df-cpmat 21306  df-mat2pmat 21307  df-cpmat2mat 21308  df-chpmat 21427

This theorem is referenced by:  chcoeffeq  21486