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

Theorem chpscmatgsumbin 22275
Description: The characteristic polynomial of a (nonempty!) scalar matrix, expressed as finite group sum of binomials. (Contributed by AV, 2-Sep-2019.)
Hypotheses
Ref Expression
chp0mat.c 𝐶 = (𝑁 CharPlyMat 𝑅)
chp0mat.p 𝑃 = (Poly1𝑅)
chp0mat.a 𝐴 = (𝑁 Mat 𝑅)
chp0mat.x 𝑋 = (var1𝑅)
chp0mat.g 𝐺 = (mulGrp‘𝑃)
chp0mat.m = (.g𝐺)
chpscmat.d 𝐷 = {𝑚 ∈ (Base‘𝐴) ∣ ∃𝑐 ∈ (Base‘𝑅)∀𝑖𝑁𝑗𝑁 (𝑖𝑚𝑗) = if(𝑖 = 𝑗, 𝑐, (0g𝑅))}
chpscmat.s 𝑆 = (algSc‘𝑃)
chpscmat.m = (-g𝑃)
chpscmatgsum.f 𝐹 = (.g𝑃)
chpscmatgsum.h 𝐻 = (mulGrp‘𝑅)
chpscmatgsum.e 𝐸 = (.g𝐻)
chpscmatgsum.i 𝐼 = (invg𝑅)
chpscmatgsum.s · = ( ·𝑠𝑃)
Assertion
Ref Expression
chpscmatgsumbin (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝐶𝑀) = (𝑃 Σg (𝑙 ∈ (0...(♯‘𝑁)) ↦ (((♯‘𝑁)C𝑙)𝐹((((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) · (𝑙 𝑋))))))
Distinct variable groups:   𝑖,𝑗,𝐴   𝑖,𝑁,𝑗   𝑃,𝑖,𝑗   𝑅,𝑖,𝑗   𝑖,𝑋,𝑗   𝐴,𝑐,𝑚   𝐷,𝑛   𝑛,𝐸   𝑛,𝐼   𝑀,𝑐,𝑖,𝑗,𝑚,𝑛   𝑁,𝑐,𝑚,𝑛   𝑃,𝑛   𝑅,𝑐,𝑚,𝑛   𝑆,𝑛   𝐷,𝑙   𝐹,𝑙   𝐼,𝑙   𝐽,𝑙,𝑛   𝑀,𝑙   𝑁,𝑙   𝑃,𝑙   𝑅,𝑙   𝑆,𝑙   𝑋,𝑙   ,𝑙
Allowed substitution hints:   𝐴(𝑛,𝑙)   𝐶(𝑖,𝑗,𝑚,𝑛,𝑐,𝑙)   𝐷(𝑖,𝑗,𝑚,𝑐)   𝑃(𝑚,𝑐)   𝑆(𝑖,𝑗,𝑚,𝑐)   · (𝑖,𝑗,𝑚,𝑛,𝑐,𝑙)   𝐸(𝑖,𝑗,𝑚,𝑐,𝑙)   (𝑖,𝑗,𝑚,𝑛,𝑐)   𝐹(𝑖,𝑗,𝑚,𝑛,𝑐)   𝐺(𝑖,𝑗,𝑚,𝑛,𝑐,𝑙)   𝐻(𝑖,𝑗,𝑚,𝑛,𝑐,𝑙)   𝐼(𝑖,𝑗,𝑚,𝑐)   𝐽(𝑖,𝑗,𝑚,𝑐)   (𝑖,𝑗,𝑚,𝑛,𝑐,𝑙)   𝑋(𝑚,𝑛,𝑐)

Proof of Theorem chpscmatgsumbin
StepHypRef Expression
1 chp0mat.c . . 3 𝐶 = (𝑁 CharPlyMat 𝑅)
2 chp0mat.p . . 3 𝑃 = (Poly1𝑅)
3 chp0mat.a . . 3 𝐴 = (𝑁 Mat 𝑅)
4 chp0mat.x . . 3 𝑋 = (var1𝑅)
5 chp0mat.g . . 3 𝐺 = (mulGrp‘𝑃)
6 chp0mat.m . . 3 = (.g𝐺)
7 chpscmat.d . . 3 𝐷 = {𝑚 ∈ (Base‘𝐴) ∣ ∃𝑐 ∈ (Base‘𝑅)∀𝑖𝑁𝑗𝑁 (𝑖𝑚𝑗) = if(𝑖 = 𝑗, 𝑐, (0g𝑅))}
8 chpscmat.s . . 3 𝑆 = (algSc‘𝑃)
9 chpscmat.m . . 3 = (-g𝑃)
101, 2, 3, 4, 5, 6, 7, 8, 9chpscmat0 22274 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝐶𝑀) = ((♯‘𝑁) (𝑋 (𝑆‘(𝐽𝑀𝐽)))))
11 crngring 20026 . . . . . . . 8 (𝑅 ∈ CRing → 𝑅 ∈ Ring)
1211adantl 482 . . . . . . 7 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑅 ∈ Ring)
13 eqid 2731 . . . . . . . 8 (Base‘𝑃) = (Base‘𝑃)
144, 2, 13vr1cl 21670 . . . . . . 7 (𝑅 ∈ Ring → 𝑋 ∈ (Base‘𝑃))
1512, 14syl 17 . . . . . 6 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑋 ∈ (Base‘𝑃))
1615adantr 481 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → 𝑋 ∈ (Base‘𝑃))
1711ad2antlr 725 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → 𝑅 ∈ Ring)
18 eqid 2731 . . . . . . . 8 (Scalar‘𝑃) = (Scalar‘𝑃)
192ply1ring 21701 . . . . . . . 8 (𝑅 ∈ Ring → 𝑃 ∈ Ring)
202ply1lmod 21705 . . . . . . . 8 (𝑅 ∈ Ring → 𝑃 ∈ LMod)
21 eqid 2731 . . . . . . . 8 (Base‘(Scalar‘𝑃)) = (Base‘(Scalar‘𝑃))
228, 18, 19, 20, 21, 13asclf 21367 . . . . . . 7 (𝑅 ∈ Ring → 𝑆:(Base‘(Scalar‘𝑃))⟶(Base‘𝑃))
2317, 22syl 17 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → 𝑆:(Base‘(Scalar‘𝑃))⟶(Base‘𝑃))
24 simpr2 1195 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → 𝐽𝑁)
25 elrabi 3673 . . . . . . . . . . . 12 (𝑀 ∈ {𝑚 ∈ (Base‘𝐴) ∣ ∃𝑐 ∈ (Base‘𝑅)∀𝑖𝑁𝑗𝑁 (𝑖𝑚𝑗) = if(𝑖 = 𝑗, 𝑐, (0g𝑅))} → 𝑀 ∈ (Base‘𝐴))
2625a1d 25 . . . . . . . . . . 11 (𝑀 ∈ {𝑚 ∈ (Base‘𝐴) ∣ ∃𝑐 ∈ (Base‘𝑅)∀𝑖𝑁𝑗𝑁 (𝑖𝑚𝑗) = if(𝑖 = 𝑗, 𝑐, (0g𝑅))} → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑀 ∈ (Base‘𝐴)))
2726, 7eleq2s 2850 . . . . . . . . . 10 (𝑀𝐷 → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑀 ∈ (Base‘𝐴)))
28273ad2ant1 1133 . . . . . . . . 9 ((𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽)) → ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑀 ∈ (Base‘𝐴)))
2928impcom 408 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → 𝑀 ∈ (Base‘𝐴))
30 eqid 2731 . . . . . . . . 9 (Base‘𝑅) = (Base‘𝑅)
313, 30matecl 21856 . . . . . . . 8 ((𝐽𝑁𝐽𝑁𝑀 ∈ (Base‘𝐴)) → (𝐽𝑀𝐽) ∈ (Base‘𝑅))
3224, 24, 29, 31syl3anc 1371 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝐽𝑀𝐽) ∈ (Base‘𝑅))
332ply1sca 21706 . . . . . . . . . . 11 (𝑅 ∈ CRing → 𝑅 = (Scalar‘𝑃))
3433adantl 482 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑅 = (Scalar‘𝑃))
3534eqcomd 2737 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (Scalar‘𝑃) = 𝑅)
3635adantr 481 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (Scalar‘𝑃) = 𝑅)
3736fveq2d 6882 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (Base‘(Scalar‘𝑃)) = (Base‘𝑅))
3832, 37eleqtrrd 2835 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝐽𝑀𝐽) ∈ (Base‘(Scalar‘𝑃)))
3923, 38ffvelcdmd 7072 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝑆‘(𝐽𝑀𝐽)) ∈ (Base‘𝑃))
40 eqid 2731 . . . . . 6 (+g𝑃) = (+g𝑃)
41 eqid 2731 . . . . . 6 (invg𝑃) = (invg𝑃)
4213, 40, 41, 9grpsubval 18845 . . . . 5 ((𝑋 ∈ (Base‘𝑃) ∧ (𝑆‘(𝐽𝑀𝐽)) ∈ (Base‘𝑃)) → (𝑋 (𝑆‘(𝐽𝑀𝐽))) = (𝑋(+g𝑃)((invg𝑃)‘(𝑆‘(𝐽𝑀𝐽)))))
4316, 39, 42syl2anc 584 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝑋 (𝑆‘(𝐽𝑀𝐽))) = (𝑋(+g𝑃)((invg𝑃)‘(𝑆‘(𝐽𝑀𝐽)))))
4412, 20syl 17 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑃 ∈ LMod)
4544adantr 481 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → 𝑃 ∈ LMod)
4612, 19syl 17 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑃 ∈ Ring)
4746adantr 481 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → 𝑃 ∈ Ring)
48 eqid 2731 . . . . . . . 8 (invg‘(Scalar‘𝑃)) = (invg‘(Scalar‘𝑃))
498, 18, 21, 48, 41asclinvg 21374 . . . . . . 7 ((𝑃 ∈ LMod ∧ 𝑃 ∈ Ring ∧ (𝐽𝑀𝐽) ∈ (Base‘(Scalar‘𝑃))) → ((invg𝑃)‘(𝑆‘(𝐽𝑀𝐽))) = (𝑆‘((invg‘(Scalar‘𝑃))‘(𝐽𝑀𝐽))))
5045, 47, 38, 49syl3anc 1371 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → ((invg𝑃)‘(𝑆‘(𝐽𝑀𝐽))) = (𝑆‘((invg‘(Scalar‘𝑃))‘(𝐽𝑀𝐽))))
51 chpscmatgsum.i . . . . . . . . 9 𝐼 = (invg𝑅)
5234fveq2d 6882 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (invg𝑅) = (invg‘(Scalar‘𝑃)))
5352adantr 481 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (invg𝑅) = (invg‘(Scalar‘𝑃)))
5451, 53eqtr2id 2784 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (invg‘(Scalar‘𝑃)) = 𝐼)
5554fveq1d 6880 . . . . . . 7 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → ((invg‘(Scalar‘𝑃))‘(𝐽𝑀𝐽)) = (𝐼‘(𝐽𝑀𝐽)))
5655fveq2d 6882 . . . . . 6 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝑆‘((invg‘(Scalar‘𝑃))‘(𝐽𝑀𝐽))) = (𝑆‘(𝐼‘(𝐽𝑀𝐽))))
5750, 56eqtrd 2771 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → ((invg𝑃)‘(𝑆‘(𝐽𝑀𝐽))) = (𝑆‘(𝐼‘(𝐽𝑀𝐽))))
5857oveq2d 7409 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝑋(+g𝑃)((invg𝑃)‘(𝑆‘(𝐽𝑀𝐽)))) = (𝑋(+g𝑃)(𝑆‘(𝐼‘(𝐽𝑀𝐽)))))
5943, 58eqtrd 2771 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝑋 (𝑆‘(𝐽𝑀𝐽))) = (𝑋(+g𝑃)(𝑆‘(𝐼‘(𝐽𝑀𝐽)))))
6059oveq2d 7409 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → ((♯‘𝑁) (𝑋 (𝑆‘(𝐽𝑀𝐽)))) = ((♯‘𝑁) (𝑋(+g𝑃)(𝑆‘(𝐼‘(𝐽𝑀𝐽))))))
61 simplr 767 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → 𝑅 ∈ CRing)
62 hashcl 14298 . . . . 5 (𝑁 ∈ Fin → (♯‘𝑁) ∈ ℕ0)
6362ad2antrr 724 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (♯‘𝑁) ∈ ℕ0)
64 ringgrp 20019 . . . . . . 7 (𝑅 ∈ Ring → 𝑅 ∈ Grp)
6511, 64syl 17 . . . . . 6 (𝑅 ∈ CRing → 𝑅 ∈ Grp)
6665ad2antlr 725 . . . . 5 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → 𝑅 ∈ Grp)
6730, 51grpinvcl 18847 . . . . 5 ((𝑅 ∈ Grp ∧ (𝐽𝑀𝐽) ∈ (Base‘𝑅)) → (𝐼‘(𝐽𝑀𝐽)) ∈ (Base‘𝑅))
6866, 32, 67syl2anc 584 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝐼‘(𝐽𝑀𝐽)) ∈ (Base‘𝑅))
69 eqid 2731 . . . . 5 (.r𝑃) = (.r𝑃)
70 chpscmatgsum.f . . . . 5 𝐹 = (.g𝑃)
71 chpscmatgsum.h . . . . 5 𝐻 = (mulGrp‘𝑅)
72 chpscmatgsum.e . . . . 5 𝐸 = (.g𝐻)
732, 4, 40, 69, 70, 5, 6, 30, 8, 71, 72lply1binomsc 21760 . . . 4 ((𝑅 ∈ CRing ∧ (♯‘𝑁) ∈ ℕ0 ∧ (𝐼‘(𝐽𝑀𝐽)) ∈ (Base‘𝑅)) → ((♯‘𝑁) (𝑋(+g𝑃)(𝑆‘(𝐼‘(𝐽𝑀𝐽))))) = (𝑃 Σg (𝑙 ∈ (0...(♯‘𝑁)) ↦ (((♯‘𝑁)C𝑙)𝐹((𝑆‘(((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))))(.r𝑃)(𝑙 𝑋))))))
7461, 63, 68, 73syl3anc 1371 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → ((♯‘𝑁) (𝑋(+g𝑃)(𝑆‘(𝐼‘(𝐽𝑀𝐽))))) = (𝑃 Σg (𝑙 ∈ (0...(♯‘𝑁)) ↦ (((♯‘𝑁)C𝑙)𝐹((𝑆‘(((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))))(.r𝑃)(𝑙 𝑋))))))
752ply1assa 21652 . . . . . . . . 9 (𝑅 ∈ CRing → 𝑃 ∈ AssAlg)
7675adantl 482 . . . . . . . 8 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝑃 ∈ AssAlg)
7776ad2antrr 724 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → 𝑃 ∈ AssAlg)
78 eqid 2731 . . . . . . . . 9 (Base‘𝐻) = (Base‘𝐻)
7971ringmgp 20020 . . . . . . . . . . 11 (𝑅 ∈ Ring → 𝐻 ∈ Mnd)
8012, 79syl 17 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → 𝐻 ∈ Mnd)
8180ad2antrr 724 . . . . . . . . 9 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → 𝐻 ∈ Mnd)
82 fznn0sub 13515 . . . . . . . . . 10 (𝑙 ∈ (0...(♯‘𝑁)) → ((♯‘𝑁) − 𝑙) ∈ ℕ0)
8382adantl 482 . . . . . . . . 9 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → ((♯‘𝑁) − 𝑙) ∈ ℕ0)
8471, 30mgpbas 19952 . . . . . . . . . . 11 (Base‘𝑅) = (Base‘𝐻)
8568, 84eleqtrdi 2842 . . . . . . . . . 10 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝐼‘(𝐽𝑀𝐽)) ∈ (Base‘𝐻))
8685adantr 481 . . . . . . . . 9 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → (𝐼‘(𝐽𝑀𝐽)) ∈ (Base‘𝐻))
8778, 72, 81, 83, 86mulgnn0cld 18947 . . . . . . . 8 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → (((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) ∈ (Base‘𝐻))
8835fveq2d 6882 . . . . . . . . . 10 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (Base‘(Scalar‘𝑃)) = (Base‘𝑅))
8988, 84eqtrdi 2787 . . . . . . . . 9 ((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) → (Base‘(Scalar‘𝑃)) = (Base‘𝐻))
9089ad2antrr 724 . . . . . . . 8 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → (Base‘(Scalar‘𝑃)) = (Base‘𝐻))
9187, 90eleqtrrd 2835 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → (((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) ∈ (Base‘(Scalar‘𝑃)))
925, 13mgpbas 19952 . . . . . . . . 9 (Base‘𝑃) = (Base‘𝐺)
935ringmgp 20020 . . . . . . . . . . 11 (𝑃 ∈ Ring → 𝐺 ∈ Mnd)
9411, 19, 933syl 18 . . . . . . . . . 10 (𝑅 ∈ CRing → 𝐺 ∈ Mnd)
9594ad2antlr 725 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → 𝐺 ∈ Mnd)
96 elfznn0 13576 . . . . . . . . . 10 (𝑙 ∈ (0...(♯‘𝑁)) → 𝑙 ∈ ℕ0)
9796adantl 482 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → 𝑙 ∈ ℕ0)
9815adantr 481 . . . . . . . . 9 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → 𝑋 ∈ (Base‘𝑃))
9992, 6, 95, 97, 98mulgnn0cld 18947 . . . . . . . 8 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → (𝑙 𝑋) ∈ (Base‘𝑃))
10099adantlr 713 . . . . . . 7 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → (𝑙 𝑋) ∈ (Base‘𝑃))
101 chpscmatgsum.s . . . . . . . 8 · = ( ·𝑠𝑃)
1028, 18, 21, 13, 69, 101asclmul1 21371 . . . . . . 7 ((𝑃 ∈ AssAlg ∧ (((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) ∈ (Base‘(Scalar‘𝑃)) ∧ (𝑙 𝑋) ∈ (Base‘𝑃)) → ((𝑆‘(((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))))(.r𝑃)(𝑙 𝑋)) = ((((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) · (𝑙 𝑋)))
10377, 91, 100, 102syl3anc 1371 . . . . . 6 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → ((𝑆‘(((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))))(.r𝑃)(𝑙 𝑋)) = ((((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) · (𝑙 𝑋)))
104103oveq2d 7409 . . . . 5 ((((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) ∧ 𝑙 ∈ (0...(♯‘𝑁))) → (((♯‘𝑁)C𝑙)𝐹((𝑆‘(((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))))(.r𝑃)(𝑙 𝑋))) = (((♯‘𝑁)C𝑙)𝐹((((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) · (𝑙 𝑋))))
105104mpteq2dva 5241 . . . 4 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝑙 ∈ (0...(♯‘𝑁)) ↦ (((♯‘𝑁)C𝑙)𝐹((𝑆‘(((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))))(.r𝑃)(𝑙 𝑋)))) = (𝑙 ∈ (0...(♯‘𝑁)) ↦ (((♯‘𝑁)C𝑙)𝐹((((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) · (𝑙 𝑋)))))
106105oveq2d 7409 . . 3 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝑃 Σg (𝑙 ∈ (0...(♯‘𝑁)) ↦ (((♯‘𝑁)C𝑙)𝐹((𝑆‘(((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))))(.r𝑃)(𝑙 𝑋))))) = (𝑃 Σg (𝑙 ∈ (0...(♯‘𝑁)) ↦ (((♯‘𝑁)C𝑙)𝐹((((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) · (𝑙 𝑋))))))
10774, 106eqtrd 2771 . 2 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → ((♯‘𝑁) (𝑋(+g𝑃)(𝑆‘(𝐼‘(𝐽𝑀𝐽))))) = (𝑃 Σg (𝑙 ∈ (0...(♯‘𝑁)) ↦ (((♯‘𝑁)C𝑙)𝐹((((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) · (𝑙 𝑋))))))
10810, 60, 1073eqtrd 2775 1 (((𝑁 ∈ Fin ∧ 𝑅 ∈ CRing) ∧ (𝑀𝐷𝐽𝑁 ∧ ∀𝑛𝑁 (𝑛𝑀𝑛) = (𝐽𝑀𝐽))) → (𝐶𝑀) = (𝑃 Σg (𝑙 ∈ (0...(♯‘𝑁)) ↦ (((♯‘𝑁)C𝑙)𝐹((((♯‘𝑁) − 𝑙)𝐸(𝐼‘(𝐽𝑀𝐽))) · (𝑙 𝑋))))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3a 1087   = wceq 1541  wcel 2106  wral 3060  wrex 3069  {crab 3431  ifcif 4522  cmpt 5224  wf 6528  cfv 6532  (class class class)co 7393  Fincfn 8922  0cc0 11092  cmin 11426  0cn0 12454  ...cfz 13466  Ccbc 14244  chash 14272  Basecbs 17126  +gcplusg 17179  .rcmulr 17180  Scalarcsca 17182   ·𝑠 cvsca 17183  0gc0g 17367   Σg cgsu 17368  Mndcmnd 18602  Grpcgrp 18794  invgcminusg 18795  -gcsg 18796  .gcmg 18922  mulGrpcmgp 19946  Ringcrg 20014  CRingccrg 20015  LModclmod 20420  AssAlgcasa 21338  algSccascl 21340  var1cv1 21629  Poly1cpl1 21630   Mat cmat 21836   CharPlyMat cchpmat 22257
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420  ax-un 7708  ax-cnex 11148  ax-resscn 11149  ax-1cn 11150  ax-icn 11151  ax-addcl 11152  ax-addrcl 11153  ax-mulcl 11154  ax-mulrcl 11155  ax-mulcom 11156  ax-addass 11157  ax-mulass 11158  ax-distr 11159  ax-i2m1 11160  ax-1ne0 11161  ax-1rid 11162  ax-rnegex 11163  ax-rrecex 11164  ax-cnre 11165  ax-pre-lttri 11166  ax-pre-lttrn 11167  ax-pre-ltadd 11168  ax-pre-mulgt0 11169  ax-addf 11171  ax-mulf 11172
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-xor 1510  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  df-sbc 3774  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3963  df-nul 4319  df-if 4523  df-pw 4598  df-sn 4623  df-pr 4625  df-tp 4627  df-op 4629  df-ot 4631  df-uni 4902  df-int 4944  df-iun 4992  df-iin 4993  df-br 5142  df-opab 5204  df-mpt 5225  df-tr 5259  df-id 5567  df-eprel 5573  df-po 5581  df-so 5582  df-fr 5624  df-se 5625  df-we 5626  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-pred 6289  df-ord 6356  df-on 6357  df-lim 6358  df-suc 6359  df-iota 6484  df-fun 6534  df-fn 6535  df-f 6536  df-f1 6537  df-fo 6538  df-f1o 6539  df-fv 6540  df-isom 6541  df-riota 7349  df-ov 7396  df-oprab 7397  df-mpo 7398  df-of 7653  df-ofr 7654  df-om 7839  df-1st 7957  df-2nd 7958  df-supp 8129  df-tpos 8193  df-frecs 8248  df-wrecs 8279  df-recs 8353  df-rdg 8392  df-1o 8448  df-2o 8449  df-er 8686  df-map 8805  df-pm 8806  df-ixp 8875  df-en 8923  df-dom 8924  df-sdom 8925  df-fin 8926  df-fsupp 9345  df-sup 9419  df-oi 9487  df-card 9916  df-pnf 11232  df-mnf 11233  df-xr 11234  df-ltxr 11235  df-le 11236  df-sub 11428  df-neg 11429  df-div 11854  df-nn 12195  df-2 12257  df-3 12258  df-4 12259  df-5 12260  df-6 12261  df-7 12262  df-8 12263  df-9 12264  df-n0 12455  df-xnn0 12527  df-z 12541  df-dec 12660  df-uz 12805  df-rp 12957  df-fz 13467  df-fzo 13610  df-seq 13949  df-exp 14010  df-fac 14216  df-bc 14245  df-hash 14273  df-word 14447  df-lsw 14495  df-concat 14503  df-s1 14528  df-substr 14573  df-pfx 14603  df-splice 14682  df-reverse 14691  df-s2 14781  df-struct 17062  df-sets 17079  df-slot 17097  df-ndx 17109  df-base 17127  df-ress 17156  df-plusg 17192  df-mulr 17193  df-starv 17194  df-sca 17195  df-vsca 17196  df-ip 17197  df-tset 17198  df-ple 17199  df-ds 17201  df-unif 17202  df-hom 17203  df-cco 17204  df-0g 17369  df-gsum 17370  df-prds 17375  df-pws 17377  df-mre 17512  df-mrc 17513  df-acs 17515  df-mgm 18543  df-sgrp 18592  df-mnd 18603  df-mhm 18647  df-submnd 18648  df-efmnd 18725  df-grp 18797  df-minusg 18798  df-sbg 18799  df-mulg 18923  df-subg 18975  df-ghm 19056  df-gim 19099  df-cntz 19147  df-oppg 19174  df-symg 19199  df-pmtr 19274  df-psgn 19323  df-cmn 19614  df-abl 19615  df-mgp 19947  df-ur 19964  df-srg 19968  df-ring 20016  df-cring 20017  df-oppr 20102  df-dvdsr 20123  df-unit 20124  df-invr 20154  df-dvr 20165  df-rnghom 20201  df-drng 20267  df-subrg 20310  df-lmod 20422  df-lss 20492  df-sra 20734  df-rgmod 20735  df-cnfld 20879  df-zring 20952  df-zrh 20986  df-dsmm 21220  df-frlm 21235  df-assa 21341  df-ascl 21343  df-psr 21393  df-mvr 21394  df-mpl 21395  df-opsr 21397  df-psr1 21633  df-vr1 21634  df-ply1 21635  df-mamu 21815  df-mat 21837  df-mdet 22016  df-mat2pmat 22138  df-chpmat 22258
This theorem is referenced by:  chpscmatgsummon  22276
  Copyright terms: Public domain W3C validator