Step | Hyp | Ref
| Expression |
1 | | pmatcollpw1.p |
. . . . 5
โข ๐ = (Poly1โ๐
) |
2 | | pmatcollpw1.c |
. . . . 5
โข ๐ถ = (๐ Mat ๐) |
3 | | pmatcollpw1.b |
. . . . 5
โข ๐ต = (Baseโ๐ถ) |
4 | | pmatcollpw1.m |
. . . . 5
โข ร = (
ยท๐ โ๐) |
5 | | pmatcollpw1.e |
. . . . 5
โข โ =
(.gโ(mulGrpโ๐)) |
6 | | pmatcollpw1.x |
. . . . 5
โข ๐ = (var1โ๐
) |
7 | 1, 2, 3, 4, 5, 6 | pmatcollpw1lem2 22268 |
. . . 4
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ (๐๐๐) = (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))))) |
8 | | eqidd 2733 |
. . . . 5
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ (๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))))) = (๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))))) |
9 | | oveq12 7414 |
. . . . . . . . 9
โข ((๐ = ๐ โง ๐ = ๐) โ (๐(๐ decompPMat ๐)๐) = (๐(๐ decompPMat ๐)๐)) |
10 | 9 | oveq1d 7420 |
. . . . . . . 8
โข ((๐ = ๐ โง ๐ = ๐) โ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)) = ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))) |
11 | 10 | mpteq2dv 5249 |
. . . . . . 7
โข ((๐ = ๐ โง ๐ = ๐) โ (๐ โ โ0 โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))) = (๐ โ โ0 โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))) |
12 | 11 | oveq2d 7421 |
. . . . . 6
โข ((๐ = ๐ โง ๐ = ๐) โ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))) = (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))))) |
13 | 12 | adantl 482 |
. . . . 5
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โง (๐ = ๐ โง ๐ = ๐)) โ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))) = (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))))) |
14 | | simprl 769 |
. . . . 5
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ ๐ โ ๐) |
15 | | simprr 771 |
. . . . 5
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ ๐ โ ๐) |
16 | | eqid 2732 |
. . . . . 6
โข
(Baseโ๐) =
(Baseโ๐) |
17 | | eqid 2732 |
. . . . . 6
โข
(0gโ๐) = (0gโ๐) |
18 | 1 | ply1ring 21761 |
. . . . . . . . 9
โข (๐
โ Ring โ ๐ โ Ring) |
19 | | ringcmn 20092 |
. . . . . . . . 9
โข (๐ โ Ring โ ๐ โ CMnd) |
20 | 18, 19 | syl 17 |
. . . . . . . 8
โข (๐
โ Ring โ ๐ โ CMnd) |
21 | 20 | 3ad2ant2 1134 |
. . . . . . 7
โข ((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โ ๐ โ CMnd) |
22 | 21 | adantr 481 |
. . . . . 6
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ ๐ โ CMnd) |
23 | | nn0ex 12474 |
. . . . . . 7
โข
โ0 โ V |
24 | 23 | a1i 11 |
. . . . . 6
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ โ0 โ
V) |
25 | | simpl2 1192 |
. . . . . . . . 9
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ ๐
โ Ring) |
26 | 25 | adantr 481 |
. . . . . . . 8
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โง ๐ โ โ0) โ ๐
โ Ring) |
27 | | eqid 2732 |
. . . . . . . . 9
โข (๐ Mat ๐
) = (๐ Mat ๐
) |
28 | | eqid 2732 |
. . . . . . . . 9
โข
(Baseโ๐
) =
(Baseโ๐
) |
29 | | eqid 2732 |
. . . . . . . . 9
โข
(Baseโ(๐ Mat
๐
)) = (Baseโ(๐ Mat ๐
)) |
30 | | simplrl 775 |
. . . . . . . . 9
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โง ๐ โ โ0) โ ๐ โ ๐) |
31 | 15 | adantr 481 |
. . . . . . . . 9
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โง ๐ โ โ0) โ ๐ โ ๐) |
32 | | simpl3 1193 |
. . . . . . . . . . 11
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ ๐ โ ๐ต) |
33 | 32 | adantr 481 |
. . . . . . . . . 10
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โง ๐ โ โ0) โ ๐ โ ๐ต) |
34 | | simpr 485 |
. . . . . . . . . 10
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โง ๐ โ โ0) โ ๐ โ
โ0) |
35 | 1, 2, 3, 27, 29 | decpmatcl 22260 |
. . . . . . . . . 10
โข ((๐
โ Ring โง ๐ โ ๐ต โง ๐ โ โ0) โ (๐ decompPMat ๐) โ (Baseโ(๐ Mat ๐
))) |
36 | 26, 33, 34, 35 | syl3anc 1371 |
. . . . . . . . 9
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โง ๐ โ โ0) โ (๐ decompPMat ๐) โ (Baseโ(๐ Mat ๐
))) |
37 | 27, 28, 29, 30, 31, 36 | matecld 21919 |
. . . . . . . 8
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โง ๐ โ โ0) โ (๐(๐ decompPMat ๐)๐) โ (Baseโ๐
)) |
38 | | eqid 2732 |
. . . . . . . . 9
โข
(mulGrpโ๐) =
(mulGrpโ๐) |
39 | 28, 1, 6, 4, 38, 5,
16 | ply1tmcl 21785 |
. . . . . . . 8
โข ((๐
โ Ring โง (๐(๐ decompPMat ๐)๐) โ (Baseโ๐
) โง ๐ โ โ0) โ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)) โ (Baseโ๐)) |
40 | 26, 37, 34, 39 | syl3anc 1371 |
. . . . . . 7
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โง ๐ โ โ0) โ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)) โ (Baseโ๐)) |
41 | 40 | fmpttd 7111 |
. . . . . 6
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ (๐ โ โ0 โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))):โ0โถ(Baseโ๐)) |
42 | 1, 2, 3, 4, 5, 6 | pmatcollpw1lem1 22267 |
. . . . . . 7
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โ (๐ โ โ0 โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))) finSupp (0gโ๐)) |
43 | 42 | 3expb 1120 |
. . . . . 6
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ (๐ โ โ0 โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))) finSupp (0gโ๐)) |
44 | 16, 17, 22, 24, 41, 43 | gsumcl 19777 |
. . . . 5
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))) โ (Baseโ๐)) |
45 | 8, 13, 14, 15, 44 | ovmpod 7556 |
. . . 4
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ (๐(๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))))๐) = (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))))) |
46 | 7, 45 | eqtr4d 2775 |
. . 3
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง (๐ โ ๐ โง ๐ โ ๐)) โ (๐๐๐) = (๐(๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))))๐)) |
47 | 46 | ralrimivva 3200 |
. 2
โข ((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โ โ๐ โ ๐ โ๐ โ ๐ (๐๐๐) = (๐(๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))))๐)) |
48 | | simp3 1138 |
. . 3
โข ((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โ ๐ โ ๐ต) |
49 | | simp1 1136 |
. . . 4
โข ((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โ ๐ โ Fin) |
50 | 18 | 3ad2ant2 1134 |
. . . 4
โข ((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โ ๐ โ Ring) |
51 | 21 | 3ad2ant1 1133 |
. . . . 5
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โ ๐ โ CMnd) |
52 | 23 | a1i 11 |
. . . . 5
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โ โ0 โ
V) |
53 | | simpl12 1249 |
. . . . . . 7
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โง ๐ โ โ0) โ ๐
โ Ring) |
54 | | simpl2 1192 |
. . . . . . . 8
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โง ๐ โ โ0) โ ๐ โ ๐) |
55 | | simpl3 1193 |
. . . . . . . 8
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โง ๐ โ โ0) โ ๐ โ ๐) |
56 | 48 | 3ad2ant1 1133 |
. . . . . . . . . 10
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โ ๐ โ ๐ต) |
57 | 56 | adantr 481 |
. . . . . . . . 9
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โง ๐ โ โ0) โ ๐ โ ๐ต) |
58 | | simpr 485 |
. . . . . . . . 9
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โง ๐ โ โ0) โ ๐ โ
โ0) |
59 | 53, 57, 58, 35 | syl3anc 1371 |
. . . . . . . 8
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โง ๐ โ โ0) โ (๐ decompPMat ๐) โ (Baseโ(๐ Mat ๐
))) |
60 | 27, 28, 29, 54, 55, 59 | matecld 21919 |
. . . . . . 7
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โง ๐ โ โ0) โ (๐(๐ decompPMat ๐)๐) โ (Baseโ๐
)) |
61 | 28, 1, 6, 4, 38, 5,
16 | ply1tmcl 21785 |
. . . . . . 7
โข ((๐
โ Ring โง (๐(๐ decompPMat ๐)๐) โ (Baseโ๐
) โง ๐ โ โ0) โ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)) โ (Baseโ๐)) |
62 | 53, 60, 58, 61 | syl3anc 1371 |
. . . . . 6
โข ((((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โง ๐ โ โ0) โ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)) โ (Baseโ๐)) |
63 | 62 | fmpttd 7111 |
. . . . 5
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โ (๐ โ โ0 โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))):โ0โถ(Baseโ๐)) |
64 | 1, 2, 3, 4, 5, 6 | pmatcollpw1lem1 22267 |
. . . . 5
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โ (๐ โ โ0 โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))) finSupp (0gโ๐)) |
65 | 16, 17, 51, 52, 63, 64 | gsumcl 19777 |
. . . 4
โข (((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โง ๐ โ ๐ โง ๐ โ ๐) โ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))) โ (Baseโ๐)) |
66 | 2, 16, 3, 49, 50, 65 | matbas2d 21916 |
. . 3
โข ((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โ (๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))))) โ ๐ต) |
67 | 2, 3 | eqmat 21917 |
. . 3
โข ((๐ โ ๐ต โง (๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))))) โ ๐ต) โ (๐ = (๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))))) โ โ๐ โ ๐ โ๐ โ ๐ (๐๐๐) = (๐(๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))))๐))) |
68 | 48, 66, 67 | syl2anc 584 |
. 2
โข ((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โ (๐ = (๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐))))) โ โ๐ โ ๐ โ๐ โ ๐ (๐๐๐) = (๐(๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))))๐))) |
69 | 47, 68 | mpbird 256 |
1
โข ((๐ โ Fin โง ๐
โ Ring โง ๐ โ ๐ต) โ ๐ = (๐ โ ๐, ๐ โ ๐ โฆ (๐ ฮฃg (๐ โ โ0
โฆ ((๐(๐ decompPMat ๐)๐) ร (๐ โ ๐)))))) |