Step | Hyp | Ref
| Expression |
1 | | fermltlchr.1 |
. 2
β’ π΄ = ((β€RHomβπΉ)βπΈ) |
2 | | fermltlchr.2 |
. . . . . . . . 9
β’ (π β π β β) |
3 | | prmnn 16608 |
. . . . . . . . . 10
β’ (π β β β π β
β) |
4 | 3 | nnnn0d 12529 |
. . . . . . . . 9
β’ (π β β β π β
β0) |
5 | 2, 4 | syl 17 |
. . . . . . . 8
β’ (π β π β
β0) |
6 | 5 | adantr 482 |
. . . . . . 7
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β π β
β0) |
7 | | fermltlchr.3 |
. . . . . . . 8
β’ (π β πΈ β β€) |
8 | 7 | adantr 482 |
. . . . . . 7
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β πΈ β β€) |
9 | | eqid 2733 |
. . . . . . . 8
β’
((mulGrpββfld) βΎs β€) =
((mulGrpββfld) βΎs
β€) |
10 | | zsscn 12563 |
. . . . . . . . 9
β’ β€
β β |
11 | | eqid 2733 |
. . . . . . . . . 10
β’
(mulGrpββfld) =
(mulGrpββfld) |
12 | | cnfldbas 20941 |
. . . . . . . . . 10
β’ β =
(Baseββfld) |
13 | 11, 12 | mgpbas 19988 |
. . . . . . . . 9
β’ β =
(Baseβ(mulGrpββfld)) |
14 | 10, 13 | sseqtri 4018 |
. . . . . . . 8
β’ β€
β (Baseβ(mulGrpββfld)) |
15 | | eqid 2733 |
. . . . . . . 8
β’
(.gβ(mulGrpββfld)) =
(.gβ(mulGrpββfld)) |
16 | | eqid 2733 |
. . . . . . . 8
β’
(invgβ(mulGrpββfld)) =
(invgβ(mulGrpββfld)) |
17 | | cnring 20960 |
. . . . . . . . . 10
β’
βfld β Ring |
18 | 11 | ringmgp 20056 |
. . . . . . . . . 10
β’
(βfld β Ring β
(mulGrpββfld) β Mnd) |
19 | 17, 18 | ax-mp 5 |
. . . . . . . . 9
β’
(mulGrpββfld) β Mnd |
20 | | cnfld1 20963 |
. . . . . . . . . . 11
β’ 1 =
(1rββfld) |
21 | 11, 20 | ringidval 20001 |
. . . . . . . . . 10
β’ 1 =
(0gβ(mulGrpββfld)) |
22 | | 1z 12589 |
. . . . . . . . . 10
β’ 1 β
β€ |
23 | 21, 22 | eqeltrri 2831 |
. . . . . . . . 9
β’
(0gβ(mulGrpββfld)) β
β€ |
24 | | eqid 2733 |
. . . . . . . . . 10
β’
(0gβ(mulGrpββfld)) =
(0gβ(mulGrpββfld)) |
25 | 9, 13, 24 | ress0g 18650 |
. . . . . . . . 9
β’
(((mulGrpββfld) β Mnd β§
(0gβ(mulGrpββfld)) β β€ β§
β€ β β) β
(0gβ(mulGrpββfld)) =
(0gβ((mulGrpββfld) βΎs
β€))) |
26 | 19, 23, 10, 25 | mp3an 1462 |
. . . . . . . 8
β’
(0gβ(mulGrpββfld)) =
(0gβ((mulGrpββfld) βΎs
β€)) |
27 | 9, 14, 15, 16, 26 | ressmulgnn0 32173 |
. . . . . . 7
β’ ((π β β0
β§ πΈ β β€)
β (π(.gβ((mulGrpββfld)
βΎs β€))πΈ) = (π(.gβ(mulGrpββfld))πΈ)) |
28 | 6, 8, 27 | syl2anc 585 |
. . . . . 6
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β (π(.gβ((mulGrpββfld)
βΎs β€))πΈ) = (π(.gβ(mulGrpββfld))πΈ)) |
29 | 8 | zcnd 12664 |
. . . . . . 7
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β πΈ β β) |
30 | | cnfldexp 20971 |
. . . . . . 7
β’ ((πΈ β β β§ π β β0)
β (π(.gβ(mulGrpββfld))πΈ) = (πΈβπ)) |
31 | 29, 6, 30 | syl2anc 585 |
. . . . . 6
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β (π(.gβ(mulGrpββfld))πΈ) = (πΈβπ)) |
32 | 28, 31 | eqtrd 2773 |
. . . . 5
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β (π(.gβ((mulGrpββfld)
βΎs β€))πΈ) = (πΈβπ)) |
33 | 32 | fveq2d 6893 |
. . . 4
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β ((β€RHomβπΉ)β(π(.gβ((mulGrpββfld)
βΎs β€))πΈ)) =
((β€RHomβπΉ)β(πΈβπ))) |
34 | | fermltlchr.4 |
. . . . . . . . 9
β’ (π β πΉ β CRing) |
35 | 34 | crngringd 20063 |
. . . . . . . 8
β’ (π β πΉ β Ring) |
36 | | eqid 2733 |
. . . . . . . . 9
β’
(β€RHomβπΉ) = (β€RHomβπΉ) |
37 | 36 | zrhrhm 21053 |
. . . . . . . 8
β’ (πΉ β Ring β
(β€RHomβπΉ)
β (β€ring RingHom πΉ)) |
38 | 35, 37 | syl 17 |
. . . . . . 7
β’ (π β (β€RHomβπΉ) β (β€ring
RingHom πΉ)) |
39 | | zringmpg 21033 |
. . . . . . . 8
β’
((mulGrpββfld) βΎs β€) =
(mulGrpββ€ring) |
40 | | eqid 2733 |
. . . . . . . 8
β’
(mulGrpβπΉ) =
(mulGrpβπΉ) |
41 | 39, 40 | rhmmhm 20251 |
. . . . . . 7
β’
((β€RHomβπΉ) β (β€ring RingHom
πΉ) β
(β€RHomβπΉ)
β (((mulGrpββfld) βΎs β€)
MndHom (mulGrpβπΉ))) |
42 | 38, 41 | syl 17 |
. . . . . 6
β’ (π β (β€RHomβπΉ) β
(((mulGrpββfld) βΎs β€) MndHom
(mulGrpβπΉ))) |
43 | 42 | adantr 482 |
. . . . 5
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β (β€RHomβπΉ) β
(((mulGrpββfld) βΎs β€) MndHom
(mulGrpβπΉ))) |
44 | 9, 13 | ressbas2 17179 |
. . . . . . 7
β’ (β€
β β β β€ =
(Baseβ((mulGrpββfld) βΎs
β€))) |
45 | 10, 44 | ax-mp 5 |
. . . . . 6
β’ β€ =
(Baseβ((mulGrpββfld) βΎs
β€)) |
46 | | eqid 2733 |
. . . . . 6
β’
(.gβ((mulGrpββfld)
βΎs β€)) =
(.gβ((mulGrpββfld) βΎs
β€)) |
47 | | fermltlchr.p |
. . . . . 6
β’ β =
(.gβ(mulGrpβπΉ)) |
48 | 45, 46, 47 | mhmmulg 18990 |
. . . . 5
β’
(((β€RHomβπΉ) β
(((mulGrpββfld) βΎs β€) MndHom
(mulGrpβπΉ)) β§
π β
β0 β§ πΈ
β β€) β ((β€RHomβπΉ)β(π(.gβ((mulGrpββfld)
βΎs β€))πΈ)) = (π β ((β€RHomβπΉ)βπΈ))) |
49 | 43, 6, 8, 48 | syl3anc 1372 |
. . . 4
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β ((β€RHomβπΉ)β(π(.gβ((mulGrpββfld)
βΎs β€))πΈ)) = (π β ((β€RHomβπΉ)βπΈ))) |
50 | 7, 5 | zexpcld 14050 |
. . . . . . . . 9
β’ (π β (πΈβπ) β β€) |
51 | | eqid 2733 |
. . . . . . . . . 10
β’
(-gββ€ring) =
(-gββ€ring) |
52 | 51 | zringsubgval 21032 |
. . . . . . . . 9
β’ (((πΈβπ) β β€ β§ πΈ β β€) β ((πΈβπ) β πΈ) = ((πΈβπ)(-gββ€ring)πΈ)) |
53 | 50, 7, 52 | syl2anc 585 |
. . . . . . . 8
β’ (π β ((πΈβπ) β πΈ) = ((πΈβπ)(-gββ€ring)πΈ)) |
54 | 53 | fveq2d 6893 |
. . . . . . 7
β’ (π β ((β€RHomβπΉ)β((πΈβπ) β πΈ)) = ((β€RHomβπΉ)β((πΈβπ)(-gββ€ring)πΈ))) |
55 | 50 | zred 12663 |
. . . . . . . . . . 11
β’ (π β (πΈβπ) β β) |
56 | 7 | zred 12663 |
. . . . . . . . . . 11
β’ (π β πΈ β β) |
57 | 2, 3 | syl 17 |
. . . . . . . . . . . 12
β’ (π β π β β) |
58 | 57 | nnrpd 13011 |
. . . . . . . . . . 11
β’ (π β π β
β+) |
59 | | fermltl 16714 |
. . . . . . . . . . . 12
β’ ((π β β β§ πΈ β β€) β ((πΈβπ) mod π) = (πΈ mod π)) |
60 | 2, 7, 59 | syl2anc 585 |
. . . . . . . . . . 11
β’ (π β ((πΈβπ) mod π) = (πΈ mod π)) |
61 | | eqidd 2734 |
. . . . . . . . . . 11
β’ (π β (πΈ mod π) = (πΈ mod π)) |
62 | 55, 56, 56, 56, 58, 60, 61 | modsub12d 13890 |
. . . . . . . . . 10
β’ (π β (((πΈβπ) β πΈ) mod π) = ((πΈ β πΈ) mod π)) |
63 | | zcn 12560 |
. . . . . . . . . . . . 13
β’ (πΈ β β€ β πΈ β
β) |
64 | 63 | subidd 11556 |
. . . . . . . . . . . 12
β’ (πΈ β β€ β (πΈ β πΈ) = 0) |
65 | 7, 64 | syl 17 |
. . . . . . . . . . 11
β’ (π β (πΈ β πΈ) = 0) |
66 | 65 | oveq1d 7421 |
. . . . . . . . . 10
β’ (π β ((πΈ β πΈ) mod π) = (0 mod π)) |
67 | | 0mod 13864 |
. . . . . . . . . . 11
β’ (π β β+
β (0 mod π) =
0) |
68 | 58, 67 | syl 17 |
. . . . . . . . . 10
β’ (π β (0 mod π) = 0) |
69 | 62, 66, 68 | 3eqtrd 2777 |
. . . . . . . . 9
β’ (π β (((πΈβπ) β πΈ) mod π) = 0) |
70 | 50, 7 | zsubcld 12668 |
. . . . . . . . . 10
β’ (π β ((πΈβπ) β πΈ) β β€) |
71 | | dvdsval3 16198 |
. . . . . . . . . 10
β’ ((π β β β§ ((πΈβπ) β πΈ) β β€) β (π β₯ ((πΈβπ) β πΈ) β (((πΈβπ) β πΈ) mod π) = 0)) |
72 | 57, 70, 71 | syl2anc 585 |
. . . . . . . . 9
β’ (π β (π β₯ ((πΈβπ) β πΈ) β (((πΈβπ) β πΈ) mod π) = 0)) |
73 | 69, 72 | mpbird 257 |
. . . . . . . 8
β’ (π β π β₯ ((πΈβπ) β πΈ)) |
74 | | fermltlchr.z |
. . . . . . . . . 10
β’ π = (chrβπΉ) |
75 | | eqid 2733 |
. . . . . . . . . 10
β’
(0gβπΉ) = (0gβπΉ) |
76 | 74, 36, 75 | chrdvds 21072 |
. . . . . . . . 9
β’ ((πΉ β Ring β§ ((πΈβπ) β πΈ) β β€) β (π β₯ ((πΈβπ) β πΈ) β ((β€RHomβπΉ)β((πΈβπ) β πΈ)) = (0gβπΉ))) |
77 | 35, 70, 76 | syl2anc 585 |
. . . . . . . 8
β’ (π β (π β₯ ((πΈβπ) β πΈ) β ((β€RHomβπΉ)β((πΈβπ) β πΈ)) = (0gβπΉ))) |
78 | 73, 77 | mpbid 231 |
. . . . . . 7
β’ (π β ((β€RHomβπΉ)β((πΈβπ) β πΈ)) = (0gβπΉ)) |
79 | | rhmghm 20255 |
. . . . . . . . 9
β’
((β€RHomβπΉ) β (β€ring RingHom
πΉ) β
(β€RHomβπΉ)
β (β€ring GrpHom πΉ)) |
80 | 38, 79 | syl 17 |
. . . . . . . 8
β’ (π β (β€RHomβπΉ) β (β€ring
GrpHom πΉ)) |
81 | | zringbas 21016 |
. . . . . . . . 9
β’ β€ =
(Baseββ€ring) |
82 | | eqid 2733 |
. . . . . . . . 9
β’
(-gβπΉ) = (-gβπΉ) |
83 | 81, 51, 82 | ghmsub 19095 |
. . . . . . . 8
β’
(((β€RHomβπΉ) β (β€ring GrpHom
πΉ) β§ (πΈβπ) β β€ β§ πΈ β β€) β
((β€RHomβπΉ)β((πΈβπ)(-gββ€ring)πΈ)) = (((β€RHomβπΉ)β(πΈβπ))(-gβπΉ)((β€RHomβπΉ)βπΈ))) |
84 | 80, 50, 7, 83 | syl3anc 1372 |
. . . . . . 7
β’ (π β ((β€RHomβπΉ)β((πΈβπ)(-gββ€ring)πΈ)) = (((β€RHomβπΉ)β(πΈβπ))(-gβπΉ)((β€RHomβπΉ)βπΈ))) |
85 | 54, 78, 84 | 3eqtr3rd 2782 |
. . . . . 6
β’ (π β (((β€RHomβπΉ)β(πΈβπ))(-gβπΉ)((β€RHomβπΉ)βπΈ)) = (0gβπΉ)) |
86 | 34 | crnggrpd 20064 |
. . . . . . 7
β’ (π β πΉ β Grp) |
87 | | eqid 2733 |
. . . . . . . . . 10
β’
(BaseβπΉ) =
(BaseβπΉ) |
88 | 81, 87 | rhmf 20256 |
. . . . . . . . 9
β’
((β€RHomβπΉ) β (β€ring RingHom
πΉ) β
(β€RHomβπΉ):β€βΆ(BaseβπΉ)) |
89 | 38, 88 | syl 17 |
. . . . . . . 8
β’ (π β (β€RHomβπΉ):β€βΆ(BaseβπΉ)) |
90 | 89, 50 | ffvelcdmd 7085 |
. . . . . . 7
β’ (π β ((β€RHomβπΉ)β(πΈβπ)) β (BaseβπΉ)) |
91 | 89, 7 | ffvelcdmd 7085 |
. . . . . . 7
β’ (π β ((β€RHomβπΉ)βπΈ) β (BaseβπΉ)) |
92 | 87, 75, 82 | grpsubeq0 18906 |
. . . . . . 7
β’ ((πΉ β Grp β§
((β€RHomβπΉ)β(πΈβπ)) β (BaseβπΉ) β§ ((β€RHomβπΉ)βπΈ) β (BaseβπΉ)) β ((((β€RHomβπΉ)β(πΈβπ))(-gβπΉ)((β€RHomβπΉ)βπΈ)) = (0gβπΉ) β ((β€RHomβπΉ)β(πΈβπ)) = ((β€RHomβπΉ)βπΈ))) |
93 | 86, 90, 91, 92 | syl3anc 1372 |
. . . . . 6
β’ (π β
((((β€RHomβπΉ)β(πΈβπ))(-gβπΉ)((β€RHomβπΉ)βπΈ)) = (0gβπΉ) β ((β€RHomβπΉ)β(πΈβπ)) = ((β€RHomβπΉ)βπΈ))) |
94 | 85, 93 | mpbid 231 |
. . . . 5
β’ (π β ((β€RHomβπΉ)β(πΈβπ)) = ((β€RHomβπΉ)βπΈ)) |
95 | 94 | adantr 482 |
. . . 4
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β ((β€RHomβπΉ)β(πΈβπ)) = ((β€RHomβπΉ)βπΈ)) |
96 | 33, 49, 95 | 3eqtr3d 2781 |
. . 3
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β (π β
((β€RHomβπΉ)βπΈ)) = ((β€RHomβπΉ)βπΈ)) |
97 | | oveq2 7414 |
. . . 4
β’ (π΄ = ((β€RHomβπΉ)βπΈ) β (π β π΄) = (π β
((β€RHomβπΉ)βπΈ))) |
98 | 97 | adantl 483 |
. . 3
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β (π β π΄) = (π β
((β€RHomβπΉ)βπΈ))) |
99 | | simpr 486 |
. . 3
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β π΄ = ((β€RHomβπΉ)βπΈ)) |
100 | 96, 98, 99 | 3eqtr4d 2783 |
. 2
β’ ((π β§ π΄ = ((β€RHomβπΉ)βπΈ)) β (π β π΄) = π΄) |
101 | 1, 100 | mpan2 690 |
1
β’ (π β (π β π΄) = π΄) |