Step | Hyp | Ref
| Expression |
1 | | fzfid 13935 |
. . . . 5
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β (0...((πβπ΄) β 1)) β Fin) |
2 | | odf1.1 |
. . . . . . . . . . . . 13
β’ π = (BaseβπΊ) |
3 | | odf1.3 |
. . . . . . . . . . . . 13
β’ Β· =
(.gβπΊ) |
4 | 2, 3 | mulgcl 18966 |
. . . . . . . . . . . 12
β’ ((πΊ β Grp β§ π₯ β β€ β§ π΄ β π) β (π₯ Β· π΄) β π) |
5 | 4 | 3expa 1119 |
. . . . . . . . . . 11
β’ (((πΊ β Grp β§ π₯ β β€) β§ π΄ β π) β (π₯ Β· π΄) β π) |
6 | 5 | an32s 651 |
. . . . . . . . . 10
β’ (((πΊ β Grp β§ π΄ β π) β§ π₯ β β€) β (π₯ Β· π΄) β π) |
7 | 6 | adantlr 714 |
. . . . . . . . 9
β’ ((((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β (π₯ Β· π΄) β π) |
8 | | odf1.4 |
. . . . . . . . 9
β’ πΉ = (π₯ β β€ β¦ (π₯ Β· π΄)) |
9 | 7, 8 | fmptd 7111 |
. . . . . . . 8
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β πΉ:β€βΆπ) |
10 | | frn 6722 |
. . . . . . . 8
β’ (πΉ:β€βΆπ β ran πΉ β π) |
11 | 2 | fvexi 6903 |
. . . . . . . . 9
β’ π β V |
12 | 11 | ssex 5321 |
. . . . . . . 8
β’ (ran
πΉ β π β ran πΉ β V) |
13 | 9, 10, 12 | 3syl 18 |
. . . . . . 7
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β ran πΉ β V) |
14 | | elfzelz 13498 |
. . . . . . . . . . 11
β’ (π¦ β (0...((πβπ΄) β 1)) β π¦ β β€) |
15 | 14 | adantl 483 |
. . . . . . . . . 10
β’ ((((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β§ π¦ β (0...((πβπ΄) β 1))) β π¦ β β€) |
16 | | ovex 7439 |
. . . . . . . . . 10
β’ (π¦ Β· π΄) β V |
17 | | oveq1 7413 |
. . . . . . . . . . 11
β’ (π₯ = π¦ β (π₯ Β· π΄) = (π¦ Β· π΄)) |
18 | 8, 17 | elrnmpt1s 5955 |
. . . . . . . . . 10
β’ ((π¦ β β€ β§ (π¦ Β· π΄) β V) β (π¦ Β· π΄) β ran πΉ) |
19 | 15, 16, 18 | sylancl 587 |
. . . . . . . . 9
β’ ((((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β§ π¦ β (0...((πβπ΄) β 1))) β (π¦ Β· π΄) β ran πΉ) |
20 | 19 | ralrimiva 3147 |
. . . . . . . 8
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β βπ¦ β (0...((πβπ΄) β 1))(π¦ Β· π΄) β ran πΉ) |
21 | | zmodfz 13855 |
. . . . . . . . . . . . 13
β’ ((π₯ β β€ β§ (πβπ΄) β β) β (π₯ mod (πβπ΄)) β (0...((πβπ΄) β 1))) |
22 | 21 | ancoms 460 |
. . . . . . . . . . . 12
β’ (((πβπ΄) β β β§ π₯ β β€) β (π₯ mod (πβπ΄)) β (0...((πβπ΄) β 1))) |
23 | 22 | adantll 713 |
. . . . . . . . . . 11
β’ ((((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β (π₯ mod (πβπ΄)) β (0...((πβπ΄) β 1))) |
24 | | simpllr 775 |
. . . . . . . . . . . . . 14
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β (πβπ΄) β β) |
25 | | simplr 768 |
. . . . . . . . . . . . . 14
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β π₯ β β€) |
26 | 14 | adantl 483 |
. . . . . . . . . . . . . 14
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β π¦ β β€) |
27 | | moddvds 16205 |
. . . . . . . . . . . . . 14
β’ (((πβπ΄) β β β§ π₯ β β€ β§ π¦ β β€) β ((π₯ mod (πβπ΄)) = (π¦ mod (πβπ΄)) β (πβπ΄) β₯ (π₯ β π¦))) |
28 | 24, 25, 26, 27 | syl3anc 1372 |
. . . . . . . . . . . . 13
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β ((π₯ mod (πβπ΄)) = (π¦ mod (πβπ΄)) β (πβπ΄) β₯ (π₯ β π¦))) |
29 | 26 | zred 12663 |
. . . . . . . . . . . . . . . 16
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β π¦ β β) |
30 | 24 | nnrpd 13011 |
. . . . . . . . . . . . . . . 16
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β (πβπ΄) β
β+) |
31 | | 0z 12566 |
. . . . . . . . . . . . . . . . . . 19
β’ 0 β
β€ |
32 | | nnz 12576 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((πβπ΄) β β β (πβπ΄) β β€) |
33 | 32 | adantl 483 |
. . . . . . . . . . . . . . . . . . . 20
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β (πβπ΄) β β€) |
34 | 33 | adantr 482 |
. . . . . . . . . . . . . . . . . . 19
β’ ((((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β (πβπ΄) β β€) |
35 | | elfzm11 13569 |
. . . . . . . . . . . . . . . . . . 19
β’ ((0
β β€ β§ (πβπ΄) β β€) β (π¦ β (0...((πβπ΄) β 1)) β (π¦ β β€ β§ 0 β€ π¦ β§ π¦ < (πβπ΄)))) |
36 | 31, 34, 35 | sylancr 588 |
. . . . . . . . . . . . . . . . . 18
β’ ((((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β (π¦ β (0...((πβπ΄) β 1)) β (π¦ β β€ β§ 0 β€ π¦ β§ π¦ < (πβπ΄)))) |
37 | 36 | biimpa 478 |
. . . . . . . . . . . . . . . . 17
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β (π¦ β β€ β§ 0 β€ π¦ β§ π¦ < (πβπ΄))) |
38 | 37 | simp2d 1144 |
. . . . . . . . . . . . . . . 16
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β 0 β€ π¦) |
39 | 37 | simp3d 1145 |
. . . . . . . . . . . . . . . 16
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β π¦ < (πβπ΄)) |
40 | | modid 13858 |
. . . . . . . . . . . . . . . 16
β’ (((π¦ β β β§ (πβπ΄) β β+) β§ (0 β€
π¦ β§ π¦ < (πβπ΄))) β (π¦ mod (πβπ΄)) = π¦) |
41 | 29, 30, 38, 39, 40 | syl22anc 838 |
. . . . . . . . . . . . . . 15
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β (π¦ mod (πβπ΄)) = π¦) |
42 | 41 | eqeq2d 2744 |
. . . . . . . . . . . . . 14
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β ((π₯ mod (πβπ΄)) = (π¦ mod (πβπ΄)) β (π₯ mod (πβπ΄)) = π¦)) |
43 | | eqcom 2740 |
. . . . . . . . . . . . . 14
β’ ((π₯ mod (πβπ΄)) = π¦ β π¦ = (π₯ mod (πβπ΄))) |
44 | 42, 43 | bitrdi 287 |
. . . . . . . . . . . . 13
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β ((π₯ mod (πβπ΄)) = (π¦ mod (πβπ΄)) β π¦ = (π₯ mod (πβπ΄)))) |
45 | | simp-4l 782 |
. . . . . . . . . . . . . 14
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β πΊ β Grp) |
46 | | simp-4r 783 |
. . . . . . . . . . . . . 14
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β π΄ β π) |
47 | | odf1.2 |
. . . . . . . . . . . . . . 15
β’ π = (odβπΊ) |
48 | | eqid 2733 |
. . . . . . . . . . . . . . 15
β’
(0gβπΊ) = (0gβπΊ) |
49 | 2, 47, 3, 48 | odcong 19412 |
. . . . . . . . . . . . . 14
β’ ((πΊ β Grp β§ π΄ β π β§ (π₯ β β€ β§ π¦ β β€)) β ((πβπ΄) β₯ (π₯ β π¦) β (π₯ Β· π΄) = (π¦ Β· π΄))) |
50 | 45, 46, 25, 26, 49 | syl112anc 1375 |
. . . . . . . . . . . . 13
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β ((πβπ΄) β₯ (π₯ β π¦) β (π₯ Β· π΄) = (π¦ Β· π΄))) |
51 | 28, 44, 50 | 3bitr3rd 310 |
. . . . . . . . . . . 12
β’
(((((πΊ β Grp
β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β§ π¦ β (0...((πβπ΄) β 1))) β ((π₯ Β· π΄) = (π¦ Β· π΄) β π¦ = (π₯ mod (πβπ΄)))) |
52 | 51 | ralrimiva 3147 |
. . . . . . . . . . 11
β’ ((((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β βπ¦ β (0...((πβπ΄) β 1))((π₯ Β· π΄) = (π¦ Β· π΄) β π¦ = (π₯ mod (πβπ΄)))) |
53 | | reu6i 3724 |
. . . . . . . . . . 11
β’ (((π₯ mod (πβπ΄)) β (0...((πβπ΄) β 1)) β§ βπ¦ β (0...((πβπ΄) β 1))((π₯ Β· π΄) = (π¦ Β· π΄) β π¦ = (π₯ mod (πβπ΄)))) β β!π¦ β (0...((πβπ΄) β 1))(π₯ Β· π΄) = (π¦ Β· π΄)) |
54 | 23, 52, 53 | syl2anc 585 |
. . . . . . . . . 10
β’ ((((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β§ π₯ β β€) β β!π¦ β (0...((πβπ΄) β 1))(π₯ Β· π΄) = (π¦ Β· π΄)) |
55 | 54 | ralrimiva 3147 |
. . . . . . . . 9
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β βπ₯ β β€ β!π¦ β (0...((πβπ΄) β 1))(π₯ Β· π΄) = (π¦ Β· π΄)) |
56 | | ovex 7439 |
. . . . . . . . . . 11
β’ (π₯ Β· π΄) β V |
57 | 56 | rgenw 3066 |
. . . . . . . . . 10
β’
βπ₯ β
β€ (π₯ Β· π΄) β V |
58 | | eqeq1 2737 |
. . . . . . . . . . . 12
β’ (π§ = (π₯ Β· π΄) β (π§ = (π¦ Β· π΄) β (π₯ Β· π΄) = (π¦ Β· π΄))) |
59 | 58 | reubidv 3395 |
. . . . . . . . . . 11
β’ (π§ = (π₯ Β· π΄) β (β!π¦ β (0...((πβπ΄) β 1))π§ = (π¦ Β· π΄) β β!π¦ β (0...((πβπ΄) β 1))(π₯ Β· π΄) = (π¦ Β· π΄))) |
60 | 8, 59 | ralrnmptw 7093 |
. . . . . . . . . 10
β’
(βπ₯ β
β€ (π₯ Β· π΄) β V β (βπ§ β ran πΉβ!π¦ β (0...((πβπ΄) β 1))π§ = (π¦ Β· π΄) β βπ₯ β β€ β!π¦ β (0...((πβπ΄) β 1))(π₯ Β· π΄) = (π¦ Β· π΄))) |
61 | 57, 60 | ax-mp 5 |
. . . . . . . . 9
β’
(βπ§ β
ran πΉβ!π¦ β (0...((πβπ΄) β 1))π§ = (π¦ Β· π΄) β βπ₯ β β€ β!π¦ β (0...((πβπ΄) β 1))(π₯ Β· π΄) = (π¦ Β· π΄)) |
62 | 55, 61 | sylibr 233 |
. . . . . . . 8
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β βπ§ β ran πΉβ!π¦ β (0...((πβπ΄) β 1))π§ = (π¦ Β· π΄)) |
63 | | eqid 2733 |
. . . . . . . . 9
β’ (π¦ β (0...((πβπ΄) β 1)) β¦ (π¦ Β· π΄)) = (π¦ β (0...((πβπ΄) β 1)) β¦ (π¦ Β· π΄)) |
64 | 63 | f1ompt 7108 |
. . . . . . . 8
β’ ((π¦ β (0...((πβπ΄) β 1)) β¦ (π¦ Β· π΄)):(0...((πβπ΄) β 1))β1-1-ontoβran
πΉ β (βπ¦ β (0...((πβπ΄) β 1))(π¦ Β· π΄) β ran πΉ β§ βπ§ β ran πΉβ!π¦ β (0...((πβπ΄) β 1))π§ = (π¦ Β· π΄))) |
65 | 20, 62, 64 | sylanbrc 584 |
. . . . . . 7
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β (π¦ β (0...((πβπ΄) β 1)) β¦ (π¦ Β· π΄)):(0...((πβπ΄) β 1))β1-1-ontoβran
πΉ) |
66 | | f1oen2g 8961 |
. . . . . . 7
β’
(((0...((πβπ΄) β 1)) β Fin β§ ran πΉ β V β§ (π¦ β (0...((πβπ΄) β 1)) β¦ (π¦ Β· π΄)):(0...((πβπ΄) β 1))β1-1-ontoβran
πΉ) β (0...((πβπ΄) β 1)) β ran πΉ) |
67 | 1, 13, 65, 66 | syl3anc 1372 |
. . . . . 6
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β (0...((πβπ΄) β 1)) β ran πΉ) |
68 | | enfi 9187 |
. . . . . 6
β’
((0...((πβπ΄) β 1)) β ran πΉ β ((0...((πβπ΄) β 1)) β Fin β ran πΉ β Fin)) |
69 | 67, 68 | syl 17 |
. . . . 5
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β ((0...((πβπ΄) β 1)) β Fin β ran πΉ β Fin)) |
70 | 1, 69 | mpbid 231 |
. . . 4
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β ran πΉ β Fin) |
71 | 70 | iftrued 4536 |
. . 3
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β if(ran πΉ β Fin, (β―βran
πΉ), 0) = (β―βran
πΉ)) |
72 | | fz01en 13526 |
. . . . . 6
β’ ((πβπ΄) β β€ β (0...((πβπ΄) β 1)) β (1...(πβπ΄))) |
73 | | ensym 8996 |
. . . . . 6
β’
((0...((πβπ΄) β 1)) β (1...(πβπ΄)) β (1...(πβπ΄)) β (0...((πβπ΄) β 1))) |
74 | 33, 72, 73 | 3syl 18 |
. . . . 5
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β (1...(πβπ΄)) β (0...((πβπ΄) β 1))) |
75 | | entr 8999 |
. . . . 5
β’
(((1...(πβπ΄)) β (0...((πβπ΄) β 1)) β§ (0...((πβπ΄) β 1)) β ran πΉ) β (1...(πβπ΄)) β ran πΉ) |
76 | 74, 67, 75 | syl2anc 585 |
. . . 4
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β (1...(πβπ΄)) β ran πΉ) |
77 | | fzfid 13935 |
. . . . 5
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β (1...(πβπ΄)) β Fin) |
78 | | hashen 14304 |
. . . . 5
β’
(((1...(πβπ΄)) β Fin β§ ran πΉ β Fin) β
((β―β(1...(πβπ΄))) = (β―βran πΉ) β (1...(πβπ΄)) β ran πΉ)) |
79 | 77, 70, 78 | syl2anc 585 |
. . . 4
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β
((β―β(1...(πβπ΄))) = (β―βran πΉ) β (1...(πβπ΄)) β ran πΉ)) |
80 | 76, 79 | mpbird 257 |
. . 3
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β
(β―β(1...(πβπ΄))) = (β―βran πΉ)) |
81 | | nnnn0 12476 |
. . . . 5
β’ ((πβπ΄) β β β (πβπ΄) β
β0) |
82 | 81 | adantl 483 |
. . . 4
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β (πβπ΄) β
β0) |
83 | | hashfz1 14303 |
. . . 4
β’ ((πβπ΄) β β0 β
(β―β(1...(πβπ΄))) = (πβπ΄)) |
84 | 82, 83 | syl 17 |
. . 3
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β
(β―β(1...(πβπ΄))) = (πβπ΄)) |
85 | 71, 80, 84 | 3eqtr2rd 2780 |
. 2
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) β β) β (πβπ΄) = if(ran πΉ β Fin, (β―βran πΉ), 0)) |
86 | | simp3 1139 |
. . . 4
β’ ((πΊ β Grp β§ π΄ β π β§ (πβπ΄) = 0) β (πβπ΄) = 0) |
87 | 2, 47, 3, 8 | odinf 19426 |
. . . . 5
β’ ((πΊ β Grp β§ π΄ β π β§ (πβπ΄) = 0) β Β¬ ran πΉ β Fin) |
88 | 87 | iffalsed 4539 |
. . . 4
β’ ((πΊ β Grp β§ π΄ β π β§ (πβπ΄) = 0) β if(ran πΉ β Fin, (β―βran πΉ), 0) = 0) |
89 | 86, 88 | eqtr4d 2776 |
. . 3
β’ ((πΊ β Grp β§ π΄ β π β§ (πβπ΄) = 0) β (πβπ΄) = if(ran πΉ β Fin, (β―βran πΉ), 0)) |
90 | 89 | 3expa 1119 |
. 2
β’ (((πΊ β Grp β§ π΄ β π) β§ (πβπ΄) = 0) β (πβπ΄) = if(ran πΉ β Fin, (β―βran πΉ), 0)) |
91 | 2, 47 | odcl 19399 |
. . . 4
β’ (π΄ β π β (πβπ΄) β
β0) |
92 | 91 | adantl 483 |
. . 3
β’ ((πΊ β Grp β§ π΄ β π) β (πβπ΄) β
β0) |
93 | | elnn0 12471 |
. . 3
β’ ((πβπ΄) β β0 β ((πβπ΄) β β β¨ (πβπ΄) = 0)) |
94 | 92, 93 | sylib 217 |
. 2
β’ ((πΊ β Grp β§ π΄ β π) β ((πβπ΄) β β β¨ (πβπ΄) = 0)) |
95 | 85, 90, 94 | mpjaodan 958 |
1
β’ ((πΊ β Grp β§ π΄ β π) β (πβπ΄) = if(ran πΉ β Fin, (β―βran πΉ), 0)) |