cayleyhamiltonALT - Metamath Proof Explorer

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

Theorem cayleyhamiltonALT 23057

Description: Alternate proof of cayleyhamilton 23056, the Cayley-Hamilton theorem. This proof does not use cayleyhamilton0 23055 directly, but has the same structure as the proof of cayleyhamilton0 23055. In contrast to the proof of cayleyhamilton0 23055, only the definitions required to formulate the theorem itself are used, causing the definitions used in the lemmas being expanded, which makes the proof longer and more difficult to read. (Contributed by AV, 25-Nov-2019.) (New usage is discouraged.) (Proof modification is discouraged.)

**Hypotheses**
Ref	Expression
cayleyhamilton.a	⊢ 𝐴 = (𝑁 Mat 𝑅)
cayleyhamilton.b	⊢ 𝐵 = (Base‘𝐴)
cayleyhamilton.0	⊢ 0 = (0_g‘𝐴)
cayleyhamilton.c	⊢ 𝐶 = (𝑁 CharPlyMat 𝑅)
cayleyhamilton.k	⊢ 𝐾 = (coe₁‘(𝐶‘𝑀))
cayleyhamilton.m	⊢ ∗ = ( ·_𝑠 ‘𝐴)
cayleyhamilton.e	⊢ ↑ = (._g‘(mulGrp‘𝐴))

**Assertion**
Ref	Expression
cayleyhamiltonALT	⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝐾‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = 0 )

Distinct variable groups: 𝐴,𝑛 𝐵,𝑛 𝐶,𝑛 𝑛,𝑀 𝑛,𝑁 𝑅,𝑛 ∗ ,𝑛 ↑ ,𝑛 Allowed substitution hints: 𝐾(𝑛) 0 (𝑛)

Proof of Theorem cayleyhamiltonALT Dummy variables 𝑏 𝑚 𝑠 𝑥 𝑦 𝑙 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		cayleyhamilton.a	. . . 4 ⊢ 𝐴 = (𝑁 Mat 𝑅)
2		cayleyhamilton.b	. . . 4 ⊢ 𝐵 = (Base‘𝐴)
3		eqid 2763	. . . 4 ⊢ (Poly₁‘𝑅) = (Poly₁‘𝑅)
4		eqid 2763	. . . 4 ⊢ (𝑁 Mat (Poly₁‘𝑅)) = (𝑁 Mat (Poly₁‘𝑅))
5		eqid 2763	. . . 4 ⊢ (._r‘(𝑁 Mat (Poly₁‘𝑅))) = (._r‘(𝑁 Mat (Poly₁‘𝑅)))
6		eqid 2763	. . . 4 ⊢ (-_g‘(𝑁 Mat (Poly₁‘𝑅))) = (-_g‘(𝑁 Mat (Poly₁‘𝑅)))
7		eqid 2763	. . . 4 ⊢ (0_g‘(𝑁 Mat (Poly₁‘𝑅))) = (0_g‘(𝑁 Mat (Poly₁‘𝑅)))
8		eqid 2763	. . . 4 ⊢ (𝑁 matToPolyMat 𝑅) = (𝑁 matToPolyMat 𝑅)
9		cayleyhamilton.c	. . . 4 ⊢ 𝐶 = (𝑁 CharPlyMat 𝑅)
10		eqid 2763	. . . 4 ⊢ (𝐶‘𝑀) = (𝐶‘𝑀)
11		eqeq1 2767	. . . . . 6 ⊢ (𝑙 = 𝑛 → (𝑙 = 0 ↔ 𝑛 = 0))
12		eqeq1 2767	. . . . . . 7 ⊢ (𝑙 = 𝑛 → (𝑙 = (𝑠 + 1) ↔ 𝑛 = (𝑠 + 1)))
13		breq2 5113	. . . . . . . 8 ⊢ (𝑙 = 𝑛 → ((𝑠 + 1) < 𝑙 ↔ (𝑠 + 1) < 𝑛))
14		oveq1 7417	. . . . . . . . . . 11 ⊢ (𝑙 = 𝑛 → (𝑙 − 1) = (𝑛 − 1))
15	14	fveq2d 6885	. . . . . . . . . 10 ⊢ (𝑙 = 𝑛 → (𝑏‘(𝑙 − 1)) = (𝑏‘(𝑛 − 1)))
16	15	fveq2d 6885	. . . . . . . . 9 ⊢ (𝑙 = 𝑛 → ((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1))) = ((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑛 − 1))))
17		fveq2 6881	. . . . . . . . . . 11 ⊢ (𝑙 = 𝑛 → (𝑏‘𝑙) = (𝑏‘𝑛))
18	17	fveq2d 6885	. . . . . . . . . 10 ⊢ (𝑙 = 𝑛 → ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙)) = ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑛)))
19	18	oveq2d 7426	. . . . . . . . 9 ⊢ (𝑙 = 𝑛 → (((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))) = (((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑛))))
20	16, 19	oveq12d 7428	. . . . . . . 8 ⊢ (𝑙 = 𝑛 → (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙)))) = (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑛 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑛)))))
21	13, 20	ifbieq2d 4514	. . . . . . 7 ⊢ (𝑙 = 𝑛 → if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))) = if((𝑠 + 1) < 𝑛, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑛 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑛))))))
22	12, 21	ifbieq2d 4514	. . . . . 6 ⊢ (𝑙 = 𝑛 → if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙)))))) = if(𝑛 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑛 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑛)))))))
23	11, 22	ifbieq2d 4514	. . . . 5 ⊢ (𝑙 = 𝑛 → if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))) = if(𝑛 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑛 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑛))))))))
24	23	cbvmptv 5215	. . . 4 ⊢ (𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙)))))))) = (𝑛 ∈ ℕ₀ ↦ if(𝑛 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑛 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑛, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑛 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑛))))))))
25		eqid 2763	. . . 4 ⊢ (Base‘(𝑁 Mat (Poly₁‘𝑅))) = (Base‘(𝑁 Mat (Poly₁‘𝑅)))
26		eqid 2763	. . . 4 ⊢ (1_r‘𝐴) = (1_r‘𝐴)
27		cayleyhamilton.m	. . . 4 ⊢ ∗ = ( ·_𝑠 ‘𝐴)
28		eqid 2763	. . . 4 ⊢ (𝑁 cPolyMatToMat 𝑅) = (𝑁 cPolyMatToMat 𝑅)
29		cayleyhamilton.e	. . . 4 ⊢ ↑ = (._g‘(mulGrp‘𝐴))
30		eqid 2763	. . . 4 ⊢ (._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅)))) = (._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))
31	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 24, 25, 26, 27, 28, 29, 30	cayhamlem4 23054	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ∃𝑠 ∈ ℕ ∃𝑏 ∈ (𝐵 ↑_m (0...𝑠))(𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑁 cPolyMatToMat 𝑅)‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))))
32		eqid 2763	. . . . . . . . 9 ⊢ (𝑁 ConstPolyMat 𝑅) = (𝑁 ConstPolyMat 𝑅)
33	28, 32	cpm2mfval 22915	. . . . . . . 8 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 cPolyMatToMat 𝑅) = (𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0))))
34	33	eqcomd 2769	. . . . . . 7 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0))) = (𝑁 cPolyMatToMat 𝑅))
35	34	3adant3 1150	. . . . . 6 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0))) = (𝑁 cPolyMatToMat 𝑅))
36	35	fveq1d 6883	. . . . 5 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))) = ((𝑁 cPolyMatToMat 𝑅)‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))))
37	36	eqeq2d 2774	. . . 4 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ((𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))) ↔ (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑁 cPolyMatToMat 𝑅)‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))))))
38	37	2rexbidv 3230	. . 3 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (∃𝑠 ∈ ℕ ∃𝑏 ∈ (𝐵 ↑_m (0...𝑠))(𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))) ↔ ∃𝑠 ∈ ℕ ∃𝑏 ∈ (𝐵 ↑_m (0...𝑠))(𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑁 cPolyMatToMat 𝑅)‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))))))
39	31, 38	mpbird 260	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ∃𝑠 ∈ ℕ ∃𝑏 ∈ (𝐵 ↑_m (0...𝑠))(𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))))
40		cayleyhamilton.k	. . . . . . . . . . . . 13 ⊢ 𝐾 = (coe₁‘(𝐶‘𝑀))
41	40	eqcomi 2772	. . . . . . . . . . . 12 ⊢ (coe₁‘(𝐶‘𝑀)) = 𝐾
42	41	a1i 11	. . . . . . . . . . 11 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑛 ∈ ℕ₀) → (coe₁‘(𝐶‘𝑀)) = 𝐾)
43	42	fveq1d 6883	. . . . . . . . . 10 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑛 ∈ ℕ₀) → ((coe₁‘(𝐶‘𝑀))‘𝑛) = (𝐾‘𝑛))
44	43	oveq1d 7425	. . . . . . . . 9 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ 𝑛 ∈ ℕ₀) → (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)) = ((𝐾‘𝑛) ∗ (𝑛 ↑ 𝑀)))
45	44	mpteq2dva 5204	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀))) = (𝑛 ∈ ℕ₀ ↦ ((𝐾‘𝑛) ∗ (𝑛 ↑ 𝑀))))
46	45	oveq2d 7426	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝐾‘𝑛) ∗ (𝑛 ↑ 𝑀)))))
47	46	eqeq1d 2765	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))) ↔ (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝐾‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))))))
48	47	biimpa 481	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))))) → (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝐾‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))))
49		oveq1 7417	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑗 → (𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀)) = (𝑗(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀)))
50		fveq2 6881	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑗 → ((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛) = ((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑗))
51	49, 50	oveq12d 7428	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑗 → ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)) = ((𝑗(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑗)))
52	51	cbvmptv 5215	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))) = (𝑗 ∈ ℕ₀ ↦ ((𝑗(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑗)))
53	52	oveq2i 7421	. . . . . . . . 9 ⊢ ((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))) = ((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑗 ∈ ℕ₀ ↦ ((𝑗(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑗))))
54	53	a1i 11	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))) = ((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑗 ∈ ℕ₀ ↦ ((𝑗(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑗)))))
55	1, 2, 3, 4, 5, 6, 7, 8, 24, 30	cayhamlem1 23032	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑗 ∈ ℕ₀ ↦ ((𝑗(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑗)))) = (0_g‘(𝑁 Mat (Poly₁‘𝑅))))
56	54, 55	eqtrd 2798	. . . . . . 7 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))) = (0_g‘(𝑁 Mat (Poly₁‘𝑅))))
57		fveq2 6881	. . . . . . . 8 ⊢ (((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))) = (0_g‘(𝑁 Mat (Poly₁‘𝑅))) → ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘(0_g‘(𝑁 Mat (Poly₁‘𝑅)))))
58		crngring 20331	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ CRing → 𝑅 ∈ Ring)
59	58	anim2i 628	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
60	59	3adant3 1150	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝑁 ∈ Fin ∧ 𝑅 ∈ Ring))
61	28, 32	cpm2mfval 22915	. . . . . . . . . . . . . 14 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝑁 cPolyMatToMat 𝑅) = (𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0))))
62	61	eqcomd 2769	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → (𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0))) = (𝑁 cPolyMatToMat 𝑅))
63	62	fveq1d 6883	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘(0_g‘(𝑁 Mat (Poly₁‘𝑅)))) = ((𝑁 cPolyMatToMat 𝑅)‘(0_g‘(𝑁 Mat (Poly₁‘𝑅)))))
64		eqid 2763	. . . . . . . . . . . . 13 ⊢ (0_g‘𝐴) = (0_g‘𝐴)
65	1, 28, 3, 4, 64, 7	m2cpminv0 22927	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → ((𝑁 cPolyMatToMat 𝑅)‘(0_g‘(𝑁 Mat (Poly₁‘𝑅)))) = (0_g‘𝐴))
66	63, 65	eqtrd 2798	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ Ring) → ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘(0_g‘(𝑁 Mat (Poly₁‘𝑅)))) = (0_g‘𝐴))
67	60, 66	syl 18	. . . . . . . . . 10 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘(0_g‘(𝑁 Mat (Poly₁‘𝑅)))) = (0_g‘𝐴))
68		cayleyhamilton.0	. . . . . . . . . 10 ⊢ 0 = (0_g‘𝐴)
69	67, 68	eqtr4di 2816	. . . . . . . . 9 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘(0_g‘(𝑁 Mat (Poly₁‘𝑅)))) = 0 )
70	69	adantr 485	. . . . . . . 8 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘(0_g‘(𝑁 Mat (Poly₁‘𝑅)))) = 0 )
71	57, 70	sylan9eqr 2820	. . . . . . 7 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ ((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))) = (0_g‘(𝑁 Mat (Poly₁‘𝑅)))) → ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))) = 0 )
72	56, 71	mpdan 699	. . . . . 6 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))) = 0 )
73	72	adantr 485	. . . . 5 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))))) → ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))) = 0 )
74	48, 73	eqtrd 2798	. . . 4 ⊢ ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) ∧ (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛)))))) → (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝐾‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = 0 )
75	74	ex 417	. . 3 ⊢ (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) ∧ (𝑠 ∈ ℕ ∧ 𝑏 ∈ (𝐵 ↑_m (0...𝑠)))) → ((𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))) → (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝐾‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = 0 ))
76	75	rexlimdvva 3222	. 2 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (∃𝑠 ∈ ℕ ∃𝑏 ∈ (𝐵 ↑_m (0...𝑠))(𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ (((coe₁‘(𝐶‘𝑀))‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = ((𝑚 ∈ (𝑁 ConstPolyMat 𝑅) ↦ (𝑥 ∈ 𝑁, 𝑦 ∈ 𝑁 ↦ ((coe₁‘(𝑥𝑚𝑦))‘0)))‘((𝑁 Mat (Poly₁‘𝑅)) Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝑛(._g‘(mulGrp‘(𝑁 Mat (Poly₁‘𝑅))))((𝑁 matToPolyMat 𝑅)‘𝑀))(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑙 ∈ ℕ₀ ↦ if(𝑙 = 0, ((0_g‘(𝑁 Mat (Poly₁‘𝑅)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘0)))), if(𝑙 = (𝑠 + 1), ((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑠)), if((𝑠 + 1) < 𝑙, (0_g‘(𝑁 Mat (Poly₁‘𝑅))), (((𝑁 matToPolyMat 𝑅)‘(𝑏‘(𝑙 − 1)))(-_g‘(𝑁 Mat (Poly₁‘𝑅)))(((𝑁 matToPolyMat 𝑅)‘𝑀)(._r‘(𝑁 Mat (Poly₁‘𝑅)))((𝑁 matToPolyMat 𝑅)‘(𝑏‘𝑙))))))))‘𝑛))))) → (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝐾‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = 0 ))
77	39, 76	mpd 16	1 ⊢ ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing ∧ 𝑀 ∈ 𝐵) → (𝐴 Σ_g (𝑛 ∈ ℕ₀ ↦ ((𝐾‘𝑛) ∗ (𝑛 ↑ 𝑀)))) = 0 )

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 400 ∧ w3a 1103 = wceq 1570 ∈ wcel 2143 ∃wrex 3089 ifcif 4487 class class class wbr 5109 ↦ cmpt 5192 ‘cfv 6536 (class class class)co 7410 ∈ cmpo 7412 ↑_m cmap 8820 Fincfn 8939 0cc0 11104 1c1 11105 + caddc 11107 < clt 11247 − cmin 11445 ℕcn 12237 ℕ₀cn0 12508 ...cfz 13539 Basecbs 17273 ._rcmulr 17315 ·_𝑠 cvsca 17318 0_gc0g 17496 Σ_g cgsu 17497 -_gcsg 19006 ._gcmg 19137 mulGrpcmgp 20220 1_rcur 20267 Ringcrg 20319 CRingccrg 20320 Poly₁cpl1 22346 coe₁cco1 22347 Mat cmat 22573 ConstPolyMat ccpmat 22869 matToPolyMat cmat2pmat 22870 cPolyMatToMat ccpmat2mat 22871 CharPlyMat cchpmat 22992

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-rep 5238 ax-sep 5257 ax-nul 5269 ax-pow 5336 ax-pr 5404 ax-un 7732 ax-cnex 11160 ax-resscn 11161 ax-1cn 11162 ax-icn 11163 ax-addcl 11164 ax-addrcl 11165 ax-mulcl 11166 ax-mulrcl 11167 ax-mulcom 11168 ax-addass 11169 ax-mulass 11170 ax-distr 11171 ax-i2m1 11172 ax-1ne0 11173 ax-1rid 11174 ax-rnegex 11175 ax-rrecex 11176 ax-cnre 11177 ax-pre-lttri 11178 ax-pre-lttrn 11179 ax-pre-ltadd 11180 ax-pre-mulgt0 11181 ax-addf 11183 ax-mulf 11184

This proof depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-xor 1542 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3745 df-csb 3854 df-dif 3908 df-un 3910 df-in 3912 df-ss 3922 df-pss 3925 df-nul 4287 df-if 4488 df-pw 4564 df-sn 4590 df-pr 4592 df-tp 4594 df-op 4596 df-ot 4598 df-uni 4873 df-int 4913 df-iun 4958 df-iin 4959 df-br 5110 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5556 df-eprel 5561 df-po 5569 df-so 5570 df-fr 5614 df-se 5615 df-we 5616 df-xp 5667 df-rel 5668 df-cnv 5669 df-co 5670 df-dm 5671 df-rn 5672 df-res 5673 df-ima 5674 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-isom 6545 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-of 7674 df-ofr 7675 df-om 7859 df-1st 7982 df-2nd 7983 df-supp 8153 df-tpos 8218 df-cur 8259 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-1o 8449 df-2o 8450 df-er 8690 df-map 8822 df-pm 8823 df-ixp 8892 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-fsupp 9318 df-sup 9398 df-oi 9468 df-card 9930 df-pnf 11249 df-mnf 11250 df-xr 11251 df-ltxr 11252 df-le 11253 df-sub 11447 df-neg 11448 df-div 11876 df-nn 12238 df-2 12307 df-3 12308 df-4 12309 df-5 12310 df-6 12311 df-7 12312 df-8 12313 df-9 12314 df-n0 12509 df-xnn0 12582 df-z 12596 df-dec 12716 df-uz 12867 df-rp 13021 df-fz 13540 df-fzo 13688 df-seq 14043 df-exp 14103 df-hash 14372 df-word 14556 df-lsw 14605 df-concat 14613 df-s1 14639 df-substr 14684 df-pfx 14714 df-splice 14792 df-reverse 14801 df-s2 14890 df-struct 17211 df-sets 17228 df-slot 17246 df-ndx 17258 df-base 17274 df-ress 17295 df-plusg 17327 df-mulr 17328 df-starv 17329 df-sca 17330 df-vsca 17331 df-ip 17332 df-tset 17333 df-ple 17334 df-ds 17336 df-unif 17337 df-hom 17338 df-cco 17339 df-0g 17498 df-gsum 17499 df-prds 17504 df-pws 17506 df-mre 17642 df-mrc 17643 df-acs 17645 df-mgm 18702 df-sgrp 18781 df-mnd 18797 df-mhm 18845 df-submnd 18846 df-efmnd 18932 df-grp 19007 df-minusg 19008 df-sbg 19009 df-mulg 19138 df-subg 19193 df-ghm 19288 df-gim 19333 df-cntz 19391 df-oppg 19420 df-symg 19444 df-pmtr 19516 df-psgn 19565 df-evpm 19566 df-cmn 19856 df-abl 19857 df-mgp 20221 df-rng 20235 df-ur 20268 df-srg 20273 df-ring 20321 df-cring 20322 df-oppr 20424 df-dvdsr 20444 df-unit 20445 df-invr 20475 df-dvr 20488 df-rhm 20559 df-subrng 20654 df-subrg 20678 df-drng 20838 df-lmod 20992 df-lss 21062 df-sra 21303 df-rgmod 21304 df-cnfld 21532 df-zring 21606 df-zrh 21662 df-dsmm 21891 df-frlm 21906 df-assa 22012 df-ascl 22014 df-psr 22068 df-mvr 22069 df-mpl 22070 df-opsr 22072 df-psr1 22349 df-vr1 22350 df-ply1 22351 df-coe1 22352 df-mamu 22557 df-mat 22574 df-mdet 22751 df-madu 22800 df-cpmat 22872 df-mat2pmat 22873 df-cpmat2mat 22874 df-decpmat 22929 df-pm2mp 22959 df-chpmat 22993

This theorem is used by: (None)

W3C validator