Step | Hyp | Ref
| Expression |
1 | | wrdf 14465 |
. . . . . . . 8
โข (๐ โ Word ๐ถ โ ๐ :(0..^(โฏโ๐ ))โถ๐ถ) |
2 | 1 | ad2antlr 725 |
. . . . . . 7
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ ๐ :(0..^(โฏโ๐ ))โถ๐ถ) |
3 | 2 | fdmd 6725 |
. . . . . 6
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ dom ๐ = (0..^(โฏโ๐ ))) |
4 | | fzofi 13935 |
. . . . . 6
โข
(0..^(โฏโ๐ )) โ Fin |
5 | 3, 4 | eqeltrdi 2841 |
. . . . 5
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ dom ๐ โ Fin) |
6 | 2 | ffdmd 6745 |
. . . . . . . . . 10
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ ๐ :dom ๐ โถ๐ถ) |
7 | 6 | ffvelcdmda 7083 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ (๐ โ๐) โ ๐ถ) |
8 | | oveq2 7413 |
. . . . . . . . . . . 12
โข (๐ = (๐ โ๐) โ (๐บ โพs ๐) = (๐บ โพs (๐ โ๐))) |
9 | 8 | eleq1d 2818 |
. . . . . . . . . . 11
โข (๐ = (๐ โ๐) โ ((๐บ โพs ๐) โ (CycGrp โฉ ran pGrp ) โ
(๐บ โพs
(๐ โ๐)) โ (CycGrp โฉ ran pGrp
))) |
10 | | ablfac.c |
. . . . . . . . . . 11
โข ๐ถ = {๐ โ (SubGrpโ๐บ) โฃ (๐บ โพs ๐) โ (CycGrp โฉ ran pGrp
)} |
11 | 9, 10 | elrab2 3685 |
. . . . . . . . . 10
โข ((๐ โ๐) โ ๐ถ โ ((๐ โ๐) โ (SubGrpโ๐บ) โง (๐บ โพs (๐ โ๐)) โ (CycGrp โฉ ran pGrp
))) |
12 | 11 | simplbi 498 |
. . . . . . . . 9
โข ((๐ โ๐) โ ๐ถ โ (๐ โ๐) โ (SubGrpโ๐บ)) |
13 | 7, 12 | syl 17 |
. . . . . . . 8
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ (๐ โ๐) โ (SubGrpโ๐บ)) |
14 | | ablfac.b |
. . . . . . . . 9
โข ๐ต = (Baseโ๐บ) |
15 | 14 | subgss 19001 |
. . . . . . . 8
โข ((๐ โ๐) โ (SubGrpโ๐บ) โ (๐ โ๐) โ ๐ต) |
16 | 13, 15 | syl 17 |
. . . . . . 7
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ (๐ โ๐) โ ๐ต) |
17 | 11 | simprbi 497 |
. . . . . . . . . . . 12
โข ((๐ โ๐) โ ๐ถ โ (๐บ โพs (๐ โ๐)) โ (CycGrp โฉ ran pGrp
)) |
18 | 7, 17 | syl 17 |
. . . . . . . . . . 11
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ (๐บ โพs (๐ โ๐)) โ (CycGrp โฉ ran pGrp
)) |
19 | 18 | elin1d 4197 |
. . . . . . . . . 10
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ (๐บ โพs (๐ โ๐)) โ CycGrp) |
20 | | eqid 2732 |
. . . . . . . . . . . 12
โข
(Baseโ(๐บ
โพs (๐ โ๐))) = (Baseโ(๐บ โพs (๐ โ๐))) |
21 | | eqid 2732 |
. . . . . . . . . . . 12
โข
(.gโ(๐บ โพs (๐ โ๐))) = (.gโ(๐บ โพs (๐ โ๐))) |
22 | 20, 21 | iscyg 19741 |
. . . . . . . . . . 11
โข ((๐บ โพs (๐ โ๐)) โ CycGrp โ ((๐บ โพs (๐ โ๐)) โ Grp โง โ๐ฅ โ (Baseโ(๐บ โพs (๐ โ๐)))ran (๐ โ โค โฆ (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ)) = (Baseโ(๐บ โพs (๐ โ๐))))) |
23 | 22 | simprbi 497 |
. . . . . . . . . 10
โข ((๐บ โพs (๐ โ๐)) โ CycGrp โ โ๐ฅ โ (Baseโ(๐บ โพs (๐ โ๐)))ran (๐ โ โค โฆ (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ)) = (Baseโ(๐บ โพs (๐ โ๐)))) |
24 | 19, 23 | syl 17 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ โ๐ฅ โ (Baseโ(๐บ โพs (๐ โ๐)))ran (๐ โ โค โฆ (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ)) = (Baseโ(๐บ โพs (๐ โ๐)))) |
25 | | eqid 2732 |
. . . . . . . . . . . 12
โข (๐บ โพs (๐ โ๐)) = (๐บ โพs (๐ โ๐)) |
26 | 25 | subgbas 19004 |
. . . . . . . . . . 11
โข ((๐ โ๐) โ (SubGrpโ๐บ) โ (๐ โ๐) = (Baseโ(๐บ โพs (๐ โ๐)))) |
27 | 13, 26 | syl 17 |
. . . . . . . . . 10
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ (๐ โ๐) = (Baseโ(๐บ โพs (๐ โ๐)))) |
28 | 27 | rexeqdv 3326 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ (โ๐ฅ โ (๐ โ๐)ran (๐ โ โค โฆ (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ)) = (Baseโ(๐บ โพs (๐ โ๐))) โ โ๐ฅ โ (Baseโ(๐บ โพs (๐ โ๐)))ran (๐ โ โค โฆ (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ)) = (Baseโ(๐บ โพs (๐ โ๐))))) |
29 | 24, 28 | mpbird 256 |
. . . . . . . 8
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ โ๐ฅ โ (๐ โ๐)ran (๐ โ โค โฆ (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ)) = (Baseโ(๐บ โพs (๐ โ๐)))) |
30 | 13 | ad2antrr 724 |
. . . . . . . . . . . . 13
โข
((((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โง ๐ฅ โ (๐ โ๐)) โง ๐ โ โค) โ (๐ โ๐) โ (SubGrpโ๐บ)) |
31 | | simpr 485 |
. . . . . . . . . . . . 13
โข
((((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โง ๐ฅ โ (๐ โ๐)) โง ๐ โ โค) โ ๐ โ โค) |
32 | | simplr 767 |
. . . . . . . . . . . . 13
โข
((((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โง ๐ฅ โ (๐ โ๐)) โง ๐ โ โค) โ ๐ฅ โ (๐ โ๐)) |
33 | | ablfac2.m |
. . . . . . . . . . . . . 14
โข ยท =
(.gโ๐บ) |
34 | 33, 25, 21 | subgmulg 19014 |
. . . . . . . . . . . . 13
โข (((๐ โ๐) โ (SubGrpโ๐บ) โง ๐ โ โค โง ๐ฅ โ (๐ โ๐)) โ (๐ ยท ๐ฅ) = (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ)) |
35 | 30, 31, 32, 34 | syl3anc 1371 |
. . . . . . . . . . . 12
โข
((((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โง ๐ฅ โ (๐ โ๐)) โง ๐ โ โค) โ (๐ ยท ๐ฅ) = (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ)) |
36 | 35 | mpteq2dva 5247 |
. . . . . . . . . . 11
โข
(((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โง ๐ฅ โ (๐ โ๐)) โ (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ โค โฆ (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ))) |
37 | 36 | rneqd 5935 |
. . . . . . . . . 10
โข
(((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โง ๐ฅ โ (๐ โ๐)) โ ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = ran (๐ โ โค โฆ (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ))) |
38 | 27 | adantr 481 |
. . . . . . . . . 10
โข
(((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โง ๐ฅ โ (๐ โ๐)) โ (๐ โ๐) = (Baseโ(๐บ โพs (๐ โ๐)))) |
39 | 37, 38 | eqeq12d 2748 |
. . . . . . . . 9
โข
(((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โง ๐ฅ โ (๐ โ๐)) โ (ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ๐) โ ran (๐ โ โค โฆ (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ)) = (Baseโ(๐บ โพs (๐ โ๐))))) |
40 | 39 | rexbidva 3176 |
. . . . . . . 8
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ (โ๐ฅ โ (๐ โ๐)ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ๐) โ โ๐ฅ โ (๐ โ๐)ran (๐ โ โค โฆ (๐(.gโ(๐บ โพs (๐ โ๐)))๐ฅ)) = (Baseโ(๐บ โพs (๐ โ๐))))) |
41 | 29, 40 | mpbird 256 |
. . . . . . 7
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ โ๐ฅ โ (๐ โ๐)ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ๐)) |
42 | | ssrexv 4050 |
. . . . . . 7
โข ((๐ โ๐) โ ๐ต โ (โ๐ฅ โ (๐ โ๐)ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ๐) โ โ๐ฅ โ ๐ต ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ๐))) |
43 | 16, 41, 42 | sylc 65 |
. . . . . 6
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง ๐ โ dom ๐ ) โ โ๐ฅ โ ๐ต ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ๐)) |
44 | 43 | ralrimiva 3146 |
. . . . 5
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ โ๐ โ dom ๐ โ๐ฅ โ ๐ต ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ๐)) |
45 | | oveq2 7413 |
. . . . . . . . 9
โข (๐ฅ = (๐คโ๐) โ (๐ ยท ๐ฅ) = (๐ ยท (๐คโ๐))) |
46 | 45 | mpteq2dv 5249 |
. . . . . . . 8
โข (๐ฅ = (๐คโ๐) โ (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) |
47 | 46 | rneqd 5935 |
. . . . . . 7
โข (๐ฅ = (๐คโ๐) โ ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = ran (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) |
48 | 47 | eqeq1d 2734 |
. . . . . 6
โข (๐ฅ = (๐คโ๐) โ (ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ๐) โ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) |
49 | 48 | ac6sfi 9283 |
. . . . 5
โข ((dom
๐ โ Fin โง
โ๐ โ dom ๐ โ๐ฅ โ ๐ต ran (๐ โ โค โฆ (๐ ยท ๐ฅ)) = (๐ โ๐)) โ โ๐ค(๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) |
50 | 5, 44, 49 | syl2anc 584 |
. . . 4
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ โ๐ค(๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) |
51 | | simprl 769 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐ค:dom ๐ โถ๐ต) |
52 | 3 | adantr 481 |
. . . . . . . . . 10
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ dom ๐ = (0..^(โฏโ๐ ))) |
53 | 52 | feq2d 6700 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ (๐ค:dom ๐ โถ๐ต โ ๐ค:(0..^(โฏโ๐ ))โถ๐ต)) |
54 | 51, 53 | mpbid 231 |
. . . . . . . 8
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐ค:(0..^(โฏโ๐ ))โถ๐ต) |
55 | | iswrdi 14464 |
. . . . . . . 8
โข (๐ค:(0..^(โฏโ๐ ))โถ๐ต โ ๐ค โ Word ๐ต) |
56 | 54, 55 | syl 17 |
. . . . . . 7
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐ค โ Word ๐ต) |
57 | 51 | fdmd 6725 |
. . . . . . . . . . . 12
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ dom ๐ค = dom ๐ ) |
58 | 57 | eleq2d 2819 |
. . . . . . . . . . 11
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ (๐ โ dom ๐ค โ ๐ โ dom ๐ )) |
59 | 58 | biimpa 477 |
. . . . . . . . . 10
โข
(((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โง ๐ โ dom ๐ค) โ ๐ โ dom ๐ ) |
60 | | simprr 771 |
. . . . . . . . . . . 12
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐)) |
61 | | simpl 483 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ = ๐ โง ๐ โ โค) โ ๐ = ๐) |
62 | 61 | fveq2d 6892 |
. . . . . . . . . . . . . . . . 17
โข ((๐ = ๐ โง ๐ โ โค) โ (๐คโ๐) = (๐คโ๐)) |
63 | 62 | oveq2d 7421 |
. . . . . . . . . . . . . . . 16
โข ((๐ = ๐ โง ๐ โ โค) โ (๐ ยท (๐คโ๐)) = (๐ ยท (๐คโ๐))) |
64 | 63 | mpteq2dva 5247 |
. . . . . . . . . . . . . . 15
โข (๐ = ๐ โ (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) |
65 | 64 | rneqd 5935 |
. . . . . . . . . . . . . 14
โข (๐ = ๐ โ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = ran (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) |
66 | | fveq2 6888 |
. . . . . . . . . . . . . 14
โข (๐ = ๐ โ (๐ โ๐) = (๐ โ๐)) |
67 | 65, 66 | eqeq12d 2748 |
. . . . . . . . . . . . 13
โข (๐ = ๐ โ (ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐) โ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) |
68 | 67 | rspccva 3611 |
. . . . . . . . . . . 12
โข
((โ๐ โ
dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐) โง ๐ โ dom ๐ ) โ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐)) |
69 | 60, 68 | sylan 580 |
. . . . . . . . . . 11
โข
(((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โง ๐ โ dom ๐ ) โ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐)) |
70 | 6 | adantr 481 |
. . . . . . . . . . . 12
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐ :dom ๐ โถ๐ถ) |
71 | 70 | ffvelcdmda 7083 |
. . . . . . . . . . 11
โข
(((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โง ๐ โ dom ๐ ) โ (๐ โ๐) โ ๐ถ) |
72 | 69, 71 | eqeltrd 2833 |
. . . . . . . . . 10
โข
(((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โง ๐ โ dom ๐ ) โ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) โ ๐ถ) |
73 | 59, 72 | syldan 591 |
. . . . . . . . 9
โข
(((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โง ๐ โ dom ๐ค) โ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) โ ๐ถ) |
74 | | ablfac2.s |
. . . . . . . . . 10
โข ๐ = (๐ โ dom ๐ค โฆ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) |
75 | | fveq2 6888 |
. . . . . . . . . . . . . 14
โข (๐ = ๐ โ (๐คโ๐) = (๐คโ๐)) |
76 | 75 | oveq2d 7421 |
. . . . . . . . . . . . 13
โข (๐ = ๐ โ (๐ ยท (๐คโ๐)) = (๐ ยท (๐คโ๐))) |
77 | 76 | mpteq2dv 5249 |
. . . . . . . . . . . 12
โข (๐ = ๐ โ (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) |
78 | 77 | rneqd 5935 |
. . . . . . . . . . 11
โข (๐ = ๐ โ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = ran (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) |
79 | 78 | cbvmptv 5260 |
. . . . . . . . . 10
โข (๐ โ dom ๐ค โฆ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) = (๐ โ dom ๐ค โฆ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) |
80 | 74, 79 | eqtri 2760 |
. . . . . . . . 9
โข ๐ = (๐ โ dom ๐ค โฆ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) |
81 | 73, 80 | fmptd 7110 |
. . . . . . . 8
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐:dom ๐คโถ๐ถ) |
82 | | simprl 769 |
. . . . . . . . . 10
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ ๐บdom DProd ๐ ) |
83 | 82 | adantr 481 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐บdom DProd ๐ ) |
84 | 57 | raleqdv 3325 |
. . . . . . . . . . . . 13
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ (โ๐ โ dom ๐คran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐) โ โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) |
85 | 60, 84 | mpbird 256 |
. . . . . . . . . . . 12
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ โ๐ โ dom ๐คran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐)) |
86 | | mpteq12 5239 |
. . . . . . . . . . . 12
โข ((dom
๐ค = dom ๐ โง โ๐ โ dom ๐คran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐)) โ (๐ โ dom ๐ค โฆ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) = (๐ โ dom ๐ โฆ (๐ โ๐))) |
87 | 57, 85, 86 | syl2anc 584 |
. . . . . . . . . . 11
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ (๐ โ dom ๐ค โฆ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐)))) = (๐ โ dom ๐ โฆ (๐ โ๐))) |
88 | 74, 87 | eqtrid 2784 |
. . . . . . . . . 10
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐ = (๐ โ dom ๐ โฆ (๐ โ๐))) |
89 | | dprdf 19870 |
. . . . . . . . . . . 12
โข (๐บdom DProd ๐ โ ๐ :dom ๐ โถ(SubGrpโ๐บ)) |
90 | 83, 89 | syl 17 |
. . . . . . . . . . 11
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐ :dom ๐ โถ(SubGrpโ๐บ)) |
91 | 90 | feqmptd 6957 |
. . . . . . . . . 10
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐ = (๐ โ dom ๐ โฆ (๐ โ๐))) |
92 | 88, 91 | eqtr4d 2775 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐ = ๐ ) |
93 | 83, 92 | breqtrrd 5175 |
. . . . . . . 8
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ ๐บdom DProd ๐) |
94 | 92 | oveq2d 7421 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ (๐บ DProd ๐) = (๐บ DProd ๐ )) |
95 | | simplrr 776 |
. . . . . . . . 9
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ (๐บ DProd ๐ ) = ๐ต) |
96 | 94, 95 | eqtrd 2772 |
. . . . . . . 8
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ (๐บ DProd ๐) = ๐ต) |
97 | 81, 93, 96 | 3jca 1128 |
. . . . . . 7
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ (๐:dom ๐คโถ๐ถ โง ๐บdom DProd ๐ โง (๐บ DProd ๐) = ๐ต)) |
98 | 56, 97 | jca 512 |
. . . . . 6
โข ((((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โง (๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐))) โ (๐ค โ Word ๐ต โง (๐:dom ๐คโถ๐ถ โง ๐บdom DProd ๐ โง (๐บ DProd ๐) = ๐ต))) |
99 | 98 | ex 413 |
. . . . 5
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ ((๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐)) โ (๐ค โ Word ๐ต โง (๐:dom ๐คโถ๐ถ โง ๐บdom DProd ๐ โง (๐บ DProd ๐) = ๐ต)))) |
100 | 99 | eximdv 1920 |
. . . 4
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ (โ๐ค(๐ค:dom ๐ โถ๐ต โง โ๐ โ dom ๐ ran (๐ โ โค โฆ (๐ ยท (๐คโ๐))) = (๐ โ๐)) โ โ๐ค(๐ค โ Word ๐ต โง (๐:dom ๐คโถ๐ถ โง ๐บdom DProd ๐ โง (๐บ DProd ๐) = ๐ต)))) |
101 | 50, 100 | mpd 15 |
. . 3
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ โ๐ค(๐ค โ Word ๐ต โง (๐:dom ๐คโถ๐ถ โง ๐บdom DProd ๐ โง (๐บ DProd ๐) = ๐ต))) |
102 | | df-rex 3071 |
. . 3
โข
(โ๐ค โ
Word ๐ต(๐:dom ๐คโถ๐ถ โง ๐บdom DProd ๐ โง (๐บ DProd ๐) = ๐ต) โ โ๐ค(๐ค โ Word ๐ต โง (๐:dom ๐คโถ๐ถ โง ๐บdom DProd ๐ โง (๐บ DProd ๐) = ๐ต))) |
103 | 101, 102 | sylibr 233 |
. 2
โข (((๐ โง ๐ โ Word ๐ถ) โง (๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) โ โ๐ค โ Word ๐ต(๐:dom ๐คโถ๐ถ โง ๐บdom DProd ๐ โง (๐บ DProd ๐) = ๐ต)) |
104 | | ablfac.1 |
. . 3
โข (๐ โ ๐บ โ Abel) |
105 | | ablfac.2 |
. . 3
โข (๐ โ ๐ต โ Fin) |
106 | 14, 10, 104, 105 | ablfac 19952 |
. 2
โข (๐ โ โ๐ โ Word ๐ถ(๐บdom DProd ๐ โง (๐บ DProd ๐ ) = ๐ต)) |
107 | 103, 106 | r19.29a 3162 |
1
โข (๐ โ โ๐ค โ Word ๐ต(๐:dom ๐คโถ๐ถ โง ๐บdom DProd ๐ โง (๐บ DProd ๐) = ๐ต)) |