Metamath Proof Explorer


Theorem chpscmatgsummon

Description: The characteristic polynomial of a (nonempty!) scalar matrix, expressed as finite group sum of scaled monomials. (Contributed by AV, 2-Sep-2019)

Ref Expression
Hypotheses chp0mat.c ⊢ C = N CharPlyMat R
chp0mat.p ⊢ P = Poly 1 ⁡ R
chp0mat.a ⊢ A = N Mat R
chp0mat.x ⊢ X = var 1 ⁡ R
chp0mat.g ⊢ G = mulGrp P
chp0mat.m ⊢ × ˙ = ⋅ G
chpscmat.d ⊢ D = m ∈ Base A | ∃ c ∈ Base R ∀ i ∈ N ∀ j ∈ N i m j = if i = j c 0 R
chpscmat.s ⊢ S = algSc ⁡ P
chpscmat.m ⊢ - ˙ = - P
chpscmatgsum.f ⊢ F = ⋅ P
chpscmatgsum.h ⊢ H = mulGrp R
chpscmatgsum.e ⊢ E = ⋅ H
chpscmatgsum.i ⊢ I = inv g ⁡ R
chpscmatgsum.s ⊢ · ˙ = ⋅ P
chpscmatgsum.z ⊢ Z = ⋅ R
Assertion chpscmatgsummon ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → C ⁡ M = ∑ P l = 0 N ( N l) Z N − l E I ⁡ J M J · ˙ l × ˙ X

Proof

Step Hyp Ref Expression
1 chp0mat.c ⊢ C = N CharPlyMat R
2 chp0mat.p ⊢ P = Poly 1 ⁡ R
3 chp0mat.a ⊢ A = N Mat R
4 chp0mat.x ⊢ X = var 1 ⁡ R
5 chp0mat.g ⊢ G = mulGrp P
6 chp0mat.m ⊢ × ˙ = ⋅ G
7 chpscmat.d ⊢ D = m ∈ Base A | ∃ c ∈ Base R ∀ i ∈ N ∀ j ∈ N i m j = if i = j c 0 R
8 chpscmat.s ⊢ S = algSc ⁡ P
9 chpscmat.m ⊢ - ˙ = - P
10 chpscmatgsum.f ⊢ F = ⋅ P
11 chpscmatgsum.h ⊢ H = mulGrp R
12 chpscmatgsum.e ⊢ E = ⋅ H
13 chpscmatgsum.i ⊢ I = inv g ⁡ R
14 chpscmatgsum.s ⊢ · ˙ = ⋅ P
15 chpscmatgsum.z ⊢ Z = ⋅ R
16 1 2 3 4 5 6 7 8 9 10 11 12 13 14 chpscmatgsumbin ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → C ⁡ M = ∑ P l = 0 N ( N l) F N − l E I ⁡ J M J · ˙ l × ˙ X
17 crngring ⊢ R ∈ CRing → R ∈ Ring
18 17 adantl ⊢ N ∈ Fin ∧ R ∈ CRing → R ∈ Ring
19 2 ply1lmod ⊢ R ∈ Ring → P ∈ LMod
20 18 19 syl ⊢ N ∈ Fin ∧ R ∈ CRing → P ∈ LMod
21 20 ad2antrr ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → P ∈ LMod
22 eqid ⊢ Base R = Base R
23 11 22 mgpbas ⊢ Base R = Base H
24 11 ringmgp ⊢ R ∈ Ring → H ∈ Mnd
25 18 24 syl ⊢ N ∈ Fin ∧ R ∈ CRing → H ∈ Mnd
26 25 ad2antrr ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → H ∈ Mnd
27 fznn0sub ⊢ l ∈ 0 … N → N − l ∈ ℕ 0
28 27 adantl ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → N − l ∈ ℕ 0
29 ringgrp ⊢ R ∈ Ring → R ∈ Grp
30 17 29 syl ⊢ R ∈ CRing → R ∈ Grp
31 30 adantl ⊢ N ∈ Fin ∧ R ∈ CRing → R ∈ Grp
32 simp2 ⊢ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → J ∈ N
33 elrabi ⊢ M ∈ m ∈ Base A | ∃ c ∈ Base R ∀ i ∈ N ∀ j ∈ N i m j = if i = j c 0 R → M ∈ Base A
34 33 7 eleq2s ⊢ M ∈ D → M ∈ Base A
35 34 3ad2ant1 ⊢ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → M ∈ Base A
36 32 32 35 3jca ⊢ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → J ∈ N ∧ J ∈ N ∧ M ∈ Base A
37 36 adantl ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → J ∈ N ∧ J ∈ N ∧ M ∈ Base A
38 3 22 matecl ⊢ J ∈ N ∧ J ∈ N ∧ M ∈ Base A → J M J ∈ Base R
39 37 38 syl ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → J M J ∈ Base R
40 22 13 grpinvcl ⊢ R ∈ Grp ∧ J M J ∈ Base R → I ⁡ J M J ∈ Base R
41 31 39 40 syl2an2r ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → I ⁡ J M J ∈ Base R
42 41 adantr ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → I ⁡ J M J ∈ Base R
43 23 12 26 28 42 mulgnn0cld ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → N − l E I ⁡ J M J ∈ Base R
44 2 ply1sca ⊢ R ∈ CRing → R = Scalar ⁡ P
45 44 adantl ⊢ N ∈ Fin ∧ R ∈ CRing → R = Scalar ⁡ P
46 45 eqcomd ⊢ N ∈ Fin ∧ R ∈ CRing → Scalar ⁡ P = R
47 46 fveq2d ⊢ N ∈ Fin ∧ R ∈ CRing → Base Scalar ⁡ P = Base R
48 47 ad2antrr ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → Base Scalar ⁡ P = Base R
49 43 48 eleqtrrd ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → N − l E I ⁡ J M J ∈ Base Scalar ⁡ P
50 hashcl ⊢ N ∈ Fin → N ∈ ℕ 0
51 50 ad2antrr ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → N ∈ ℕ 0
52 elfzelz ⊢ l ∈ 0 … N → l ∈ ℤ
53 bccl ⊢ N ∈ ℕ 0 ∧ l ∈ ℤ → ( N l) ∈ ℕ 0
54 51 52 53 syl2an ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → ( N l) ∈ ℕ 0
55 eqid ⊢ Base P = Base P
56 5 55 mgpbas ⊢ Base P = Base G
57 2 ply1ring ⊢ R ∈ Ring → P ∈ Ring
58 5 ringmgp ⊢ P ∈ Ring → G ∈ Mnd
59 17 57 58 3syl ⊢ R ∈ CRing → G ∈ Mnd
60 59 adantl ⊢ N ∈ Fin ∧ R ∈ CRing → G ∈ Mnd
61 60 ad2antrr ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → G ∈ Mnd
62 elfznn0 ⊢ l ∈ 0 … N → l ∈ ℕ 0
63 62 adantl ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → l ∈ ℕ 0
64 4 2 55 vr1cl ⊢ R ∈ Ring → X ∈ Base P
65 18 64 syl ⊢ N ∈ Fin ∧ R ∈ CRing → X ∈ Base P
66 65 ad2antrr ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → X ∈ Base P
67 56 6 61 63 66 mulgnn0cld ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → l × ˙ X ∈ Base P
68 eqid ⊢ Scalar ⁡ P = Scalar ⁡ P
69 eqid ⊢ Base Scalar ⁡ P = Base Scalar ⁡ P
70 eqid ⊢ ⋅ Scalar ⁡ P = ⋅ Scalar ⁡ P
71 55 68 14 69 10 70 lmodvsmmulgdi ⊢ P ∈ LMod ∧ N − l E I ⁡ J M J ∈ Base Scalar ⁡ P ∧ ( N l) ∈ ℕ 0 ∧ l × ˙ X ∈ Base P → ( N l) F N − l E I ⁡ J M J · ˙ l × ˙ X = ( N l) ⋅ Scalar ⁡ P N − l E I ⁡ J M J · ˙ l × ˙ X
72 21 49 54 67 71 syl13anc ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → ( N l) F N − l E I ⁡ J M J · ˙ l × ˙ X = ( N l) ⋅ Scalar ⁡ P N − l E I ⁡ J M J · ˙ l × ˙ X
73 45 fveq2d ⊢ N ∈ Fin ∧ R ∈ CRing → ⋅ R = ⋅ Scalar ⁡ P
74 15 73 eqtr2id ⊢ N ∈ Fin ∧ R ∈ CRing → ⋅ Scalar ⁡ P = Z
75 74 ad2antrr ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → ⋅ Scalar ⁡ P = Z
76 75 oveqd ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → ( N l) ⋅ Scalar ⁡ P N − l E I ⁡ J M J = ( N l) Z N − l E I ⁡ J M J
77 76 oveq1d ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → ( N l) ⋅ Scalar ⁡ P N − l E I ⁡ J M J · ˙ l × ˙ X = ( N l) Z N − l E I ⁡ J M J · ˙ l × ˙ X
78 72 77 eqtrd ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J ∧ l ∈ 0 … N → ( N l) F N − l E I ⁡ J M J · ˙ l × ˙ X = ( N l) Z N − l E I ⁡ J M J · ˙ l × ˙ X
79 78 mpteq2dva ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → l ∈ 0 … N ⟼ ( N l) F N − l E I ⁡ J M J · ˙ l × ˙ X = l ∈ 0 … N ⟼ ( N l) Z N − l E I ⁡ J M J · ˙ l × ˙ X
80 79 oveq2d ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → ∑ P l = 0 N ( N l) F N − l E I ⁡ J M J · ˙ l × ˙ X = ∑ P l = 0 N ( N l) Z N − l E I ⁡ J M J · ˙ l × ˙ X
81 16 80 eqtrd ⊢ N ∈ Fin ∧ R ∈ CRing ∧ M ∈ D ∧ J ∈ N ∧ ∀ n ∈ N n M n = J M J → C ⁡ M = ∑ P l = 0 N ( N l) Z N − l E I ⁡ J M J · ˙ l × ˙ X