Step | Hyp | Ref
| Expression |
1 | | marep01ma.r |
. . . . . . . . 9
โข ๐
โ CRing |
2 | | smadiadetlem.g |
. . . . . . . . . 10
โข ๐บ = (mulGrpโ๐
) |
3 | 2 | crngmgp 19980 |
. . . . . . . . 9
โข (๐
โ CRing โ ๐บ โ CMnd) |
4 | 1, 3 | mp1i 13 |
. . . . . . . 8
โข ((๐ โ ๐ต โง ๐พ โ ๐) โ ๐บ โ CMnd) |
5 | | marep01ma.a |
. . . . . . . . . . 11
โข ๐ด = (๐ Mat ๐
) |
6 | | marep01ma.b |
. . . . . . . . . . 11
โข ๐ต = (Baseโ๐ด) |
7 | 5, 6 | matrcl 21782 |
. . . . . . . . . 10
โข (๐ โ ๐ต โ (๐ โ Fin โง ๐
โ V)) |
8 | 7 | simpld 496 |
. . . . . . . . 9
โข (๐ โ ๐ต โ ๐ โ Fin) |
9 | 8 | adantr 482 |
. . . . . . . 8
โข ((๐ โ ๐ต โง ๐พ โ ๐) โ ๐ โ Fin) |
10 | 4, 9 | jca 513 |
. . . . . . 7
โข ((๐ โ ๐ต โง ๐พ โ ๐) โ (๐บ โ CMnd โง ๐ โ Fin)) |
11 | 10 | adantr 482 |
. . . . . 6
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง ๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ}) โ (๐บ โ CMnd โง ๐ โ Fin)) |
12 | | simprl 770 |
. . . . . . . . . . 11
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง (๐ โ ๐ โง ๐ โ ๐)) โ ๐ โ ๐) |
13 | | simprr 772 |
. . . . . . . . . . 11
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง (๐ โ ๐ โง ๐ โ ๐)) โ ๐ โ ๐) |
14 | 6 | eleq2i 2826 |
. . . . . . . . . . . . . 14
โข (๐ โ ๐ต โ ๐ โ (Baseโ๐ด)) |
15 | 14 | biimpi 215 |
. . . . . . . . . . . . 13
โข (๐ โ ๐ต โ ๐ โ (Baseโ๐ด)) |
16 | 15 | adantr 482 |
. . . . . . . . . . . 12
โข ((๐ โ ๐ต โง ๐พ โ ๐) โ ๐ โ (Baseโ๐ด)) |
17 | 16 | adantr 482 |
. . . . . . . . . . 11
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง (๐ โ ๐ โง ๐ โ ๐)) โ ๐ โ (Baseโ๐ด)) |
18 | | eqid 2733 |
. . . . . . . . . . . 12
โข
(Baseโ๐
) =
(Baseโ๐
) |
19 | 5, 18 | matecl 21797 |
. . . . . . . . . . 11
โข ((๐ โ ๐ โง ๐ โ ๐ โง ๐ โ (Baseโ๐ด)) โ (๐๐๐) โ (Baseโ๐
)) |
20 | 12, 13, 17, 19 | syl3anc 1372 |
. . . . . . . . . 10
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง (๐ โ ๐ โง ๐ โ ๐)) โ (๐๐๐) โ (Baseโ๐
)) |
21 | 2, 18 | mgpbas 19910 |
. . . . . . . . . 10
โข
(Baseโ๐
) =
(Baseโ๐บ) |
22 | 20, 21 | eleqtrdi 2844 |
. . . . . . . . 9
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง (๐ โ ๐ โง ๐ โ ๐)) โ (๐๐๐) โ (Baseโ๐บ)) |
23 | 22 | ralrimivva 3194 |
. . . . . . . 8
โข ((๐ โ ๐ต โง ๐พ โ ๐) โ โ๐ โ ๐ โ๐ โ ๐ (๐๐๐) โ (Baseโ๐บ)) |
24 | 23 | adantr 482 |
. . . . . . 7
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง ๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ}) โ โ๐ โ ๐ โ๐ โ ๐ (๐๐๐) โ (Baseโ๐บ)) |
25 | | crngring 19984 |
. . . . . . . . 9
โข (๐
โ CRing โ ๐
โ Ring) |
26 | | marep01ma.0 |
. . . . . . . . . 10
โข 0 =
(0gโ๐
) |
27 | 18, 26 | ring0cl 19998 |
. . . . . . . . 9
โข (๐
โ Ring โ 0 โ
(Baseโ๐
)) |
28 | 1, 25, 27 | mp2b 10 |
. . . . . . . 8
โข 0 โ
(Baseโ๐
) |
29 | 28, 21 | eleqtri 2832 |
. . . . . . 7
โข 0 โ
(Baseโ๐บ) |
30 | 24, 29 | jctir 522 |
. . . . . 6
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง ๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ}) โ (โ๐ โ ๐ โ๐ โ ๐ (๐๐๐) โ (Baseโ๐บ) โง 0 โ (Baseโ๐บ))) |
31 | | simpr 486 |
. . . . . . 7
โข ((๐ โ ๐ต โง ๐พ โ ๐) โ ๐พ โ ๐) |
32 | 31 | adantr 482 |
. . . . . 6
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง ๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ}) โ ๐พ โ ๐) |
33 | | simpr 486 |
. . . . . 6
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง ๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ}) โ ๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ}) |
34 | | smadiadetlem.p |
. . . . . . 7
โข ๐ =
(Baseโ(SymGrpโ๐)) |
35 | | eqid 2733 |
. . . . . . 7
โข {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ} = {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ} |
36 | | marep01ma.1 |
. . . . . . . 8
โข 1 =
(1rโ๐
) |
37 | 2, 36 | ringidval 19923 |
. . . . . . 7
โข 1 =
(0gโ๐บ) |
38 | | eqid 2733 |
. . . . . . 7
โข
(Baseโ๐บ) =
(Baseโ๐บ) |
39 | 34, 35, 37, 38 | gsummatr01 22031 |
. . . . . 6
โข (((๐บ โ CMnd โง ๐ โ Fin) โง
(โ๐ โ ๐ โ๐ โ ๐ (๐๐๐) โ (Baseโ๐บ) โง 0 โ (Baseโ๐บ)) โง (๐พ โ ๐ โง ๐พ โ ๐ โง ๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ})) โ (๐บ ฮฃg (๐ โ ๐ โฆ (๐(๐ โ ๐, ๐ โ ๐ โฆ if(๐ = ๐พ, if(๐ = ๐พ, 1 , 0 ), (๐๐๐)))(๐โ๐)))) = (๐บ ฮฃg (๐ โ (๐ โ {๐พ}) โฆ (๐(๐ โ (๐ โ {๐พ}), ๐ โ (๐ โ {๐พ}) โฆ (๐๐๐))(๐โ๐))))) |
40 | 11, 30, 32, 32, 33, 39 | syl113anc 1383 |
. . . . 5
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง ๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ}) โ (๐บ ฮฃg (๐ โ ๐ โฆ (๐(๐ โ ๐, ๐ โ ๐ โฆ if(๐ = ๐พ, if(๐ = ๐พ, 1 , 0 ), (๐๐๐)))(๐โ๐)))) = (๐บ ฮฃg (๐ โ (๐ โ {๐พ}) โฆ (๐(๐ โ (๐ โ {๐พ}), ๐ โ (๐ โ {๐พ}) โฆ (๐๐๐))(๐โ๐))))) |
41 | 40 | oveq2d 7377 |
. . . 4
โข (((๐ โ ๐ต โง ๐พ โ ๐) โง ๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ}) โ (((๐ โ ๐)โ๐)(.rโ๐
)(๐บ ฮฃg (๐ โ ๐ โฆ (๐(๐ โ ๐, ๐ โ ๐ โฆ if(๐ = ๐พ, if(๐ = ๐พ, 1 , 0 ), (๐๐๐)))(๐โ๐))))) = (((๐ โ ๐)โ๐)(.rโ๐
)(๐บ ฮฃg (๐ โ (๐ โ {๐พ}) โฆ (๐(๐ โ (๐ โ {๐พ}), ๐ โ (๐ โ {๐พ}) โฆ (๐๐๐))(๐โ๐)))))) |
42 | 41 | mpteq2dva 5209 |
. . 3
โข ((๐ โ ๐ต โง ๐พ โ ๐) โ (๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ} โฆ (((๐ โ ๐)โ๐)(.rโ๐
)(๐บ ฮฃg (๐ โ ๐ โฆ (๐(๐ โ ๐, ๐ โ ๐ โฆ if(๐ = ๐พ, if(๐ = ๐พ, 1 , 0 ), (๐๐๐)))(๐โ๐)))))) = (๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ} โฆ (((๐ โ ๐)โ๐)(.rโ๐
)(๐บ ฮฃg (๐ โ (๐ โ {๐พ}) โฆ (๐(๐ โ (๐ โ {๐พ}), ๐ โ (๐ โ {๐พ}) โฆ (๐๐๐))(๐โ๐))))))) |
43 | 42 | oveq2d 7377 |
. 2
โข ((๐ โ ๐ต โง ๐พ โ ๐) โ (๐
ฮฃg (๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ} โฆ (((๐ โ ๐)โ๐)(.rโ๐
)(๐บ ฮฃg (๐ โ ๐ โฆ (๐(๐ โ ๐, ๐ โ ๐ โฆ if(๐ = ๐พ, if(๐ = ๐พ, 1 , 0 ), (๐๐๐)))(๐โ๐))))))) = (๐
ฮฃg (๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ} โฆ (((๐ โ ๐)โ๐)(.rโ๐
)(๐บ ฮฃg (๐ โ (๐ โ {๐พ}) โฆ (๐(๐ โ (๐ โ {๐พ}), ๐ โ (๐ โ {๐พ}) โฆ (๐๐๐))(๐โ๐)))))))) |
44 | | madetminlem.y |
. . 3
โข ๐ = (โคRHomโ๐
) |
45 | | madetminlem.s |
. . 3
โข ๐ = (pmSgnโ๐) |
46 | | madetminlem.t |
. . 3
โข ยท =
(.rโ๐
) |
47 | | smadiadetlem.w |
. . 3
โข ๐ =
(Baseโ(SymGrpโ(๐ โ {๐พ}))) |
48 | | smadiadetlem.z |
. . 3
โข ๐ = (pmSgnโ(๐ โ {๐พ})) |
49 | 5, 6, 1, 26, 36, 34, 2, 44, 45, 46, 47, 48 | smadiadetlem3 22040 |
. 2
โข ((๐ โ ๐ต โง ๐พ โ ๐) โ (๐
ฮฃg (๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ} โฆ (((๐ โ ๐)โ๐)(.rโ๐
)(๐บ ฮฃg (๐ โ (๐ โ {๐พ}) โฆ (๐(๐ โ (๐ โ {๐พ}), ๐ โ (๐ โ {๐พ}) โฆ (๐๐๐))(๐โ๐))))))) = (๐
ฮฃg (๐ โ ๐ โฆ (((๐ โ ๐)โ๐)(.rโ๐
)(๐บ ฮฃg (๐ โ (๐ โ {๐พ}) โฆ (๐(๐ โ (๐ โ {๐พ}), ๐ โ (๐ โ {๐พ}) โฆ (๐๐๐))(๐โ๐)))))))) |
50 | 43, 49 | eqtrd 2773 |
1
โข ((๐ โ ๐ต โง ๐พ โ ๐) โ (๐
ฮฃg (๐ โ {๐ โ ๐ โฃ (๐โ๐พ) = ๐พ} โฆ (((๐ โ ๐)โ๐)(.rโ๐
)(๐บ ฮฃg (๐ โ ๐ โฆ (๐(๐ โ ๐, ๐ โ ๐ โฆ if(๐ = ๐พ, if(๐ = ๐พ, 1 , 0 ), (๐๐๐)))(๐โ๐))))))) = (๐
ฮฃg (๐ โ ๐ โฆ (((๐ โ ๐)โ๐)(.rโ๐
)(๐บ ฮฃg (๐ โ (๐ โ {๐พ}) โฆ (๐(๐ โ (๐ โ {๐พ}), ๐ โ (๐ โ {๐พ}) โฆ (๐๐๐))(๐โ๐)))))))) |