Step | Hyp | Ref
| Expression |
1 | | eldifi 4126 |
. . . . . . 7
β’ (π β (β β {2})
β π β
β) |
2 | | prmnn 16608 |
. . . . . . 7
β’ (π β β β π β
β) |
3 | 1, 2 | syl 17 |
. . . . . 6
β’ (π β (β β {2})
β π β
β) |
4 | 3 | ad2antlr 726 |
. . . . 5
β’ (((π β β β§ π β (β β {2}))
β§ π β₯
(FermatNoβπ)) β
π β
β) |
5 | | nnnn0 12476 |
. . . . . . . . 9
β’ (π β β β π β
β0) |
6 | | fmtno 46184 |
. . . . . . . . 9
β’ (π β β0
β (FermatNoβπ) =
((2β(2βπ)) +
1)) |
7 | 5, 6 | syl 17 |
. . . . . . . 8
β’ (π β β β
(FermatNoβπ) =
((2β(2βπ)) +
1)) |
8 | 7 | breq2d 5160 |
. . . . . . 7
β’ (π β β β (π β₯ (FermatNoβπ) β π β₯ ((2β(2βπ)) + 1))) |
9 | 8 | adantr 482 |
. . . . . 6
β’ ((π β β β§ π β (β β {2}))
β (π β₯
(FermatNoβπ) β
π β₯
((2β(2βπ)) +
1))) |
10 | 9 | biimpa 478 |
. . . . 5
β’ (((π β β β§ π β (β β {2}))
β§ π β₯
(FermatNoβπ)) β
π β₯
((2β(2βπ)) +
1)) |
11 | | dvdsmod0 16200 |
. . . . 5
β’ ((π β β β§ π β₯ ((2β(2βπ)) + 1)) β
(((2β(2βπ)) + 1)
mod π) =
0) |
12 | 4, 10, 11 | syl2anc 585 |
. . . 4
β’ (((π β β β§ π β (β β {2}))
β§ π β₯
(FermatNoβπ)) β
(((2β(2βπ)) + 1)
mod π) =
0) |
13 | 12 | ex 414 |
. . 3
β’ ((π β β β§ π β (β β {2}))
β (π β₯
(FermatNoβπ) β
(((2β(2βπ)) + 1)
mod π) =
0)) |
14 | | 2nn 12282 |
. . . . . . . . . 10
β’ 2 β
β |
15 | 14 | a1i 11 |
. . . . . . . . 9
β’ (π β β β 2 β
β) |
16 | | 2nn0 12486 |
. . . . . . . . . . 11
β’ 2 β
β0 |
17 | 16 | a1i 11 |
. . . . . . . . . 10
β’ (π β β β 2 β
β0) |
18 | 17, 5 | nn0expcld 14206 |
. . . . . . . . 9
β’ (π β β β
(2βπ) β
β0) |
19 | 15, 18 | nnexpcld 14205 |
. . . . . . . 8
β’ (π β β β
(2β(2βπ)) β
β) |
20 | 19 | nnzd 12582 |
. . . . . . 7
β’ (π β β β
(2β(2βπ)) β
β€) |
21 | 20 | adantr 482 |
. . . . . 6
β’ ((π β β β§ π β (β β {2}))
β (2β(2βπ))
β β€) |
22 | | 1zzd 12590 |
. . . . . 6
β’ ((π β β β§ π β (β β {2}))
β 1 β β€) |
23 | 3 | adantl 483 |
. . . . . 6
β’ ((π β β β§ π β (β β {2}))
β π β
β) |
24 | | summodnegmod 16227 |
. . . . . 6
β’
(((2β(2βπ)) β β€ β§ 1 β β€
β§ π β β)
β ((((2β(2βπ)) + 1) mod π) = 0 β ((2β(2βπ)) mod π) = (-1 mod π))) |
25 | 21, 22, 23, 24 | syl3anc 1372 |
. . . . 5
β’ ((π β β β§ π β (β β {2}))
β ((((2β(2βπ)) + 1) mod π) = 0 β ((2β(2βπ)) mod π) = (-1 mod π))) |
26 | | neg1z 12595 |
. . . . . . . . . 10
β’ -1 β
β€ |
27 | 21, 26 | jctir 522 |
. . . . . . . . 9
β’ ((π β β β§ π β (β β {2}))
β ((2β(2βπ))
β β€ β§ -1 β β€)) |
28 | 27 | adantr 482 |
. . . . . . . 8
β’ (((π β β β§ π β (β β {2}))
β§ ((2β(2βπ))
mod π) = (-1 mod π)) β ((2β(2βπ)) β β€ β§ -1
β β€)) |
29 | 2 | nnrpd 13011 |
. . . . . . . . . . 11
β’ (π β β β π β
β+) |
30 | 1, 29 | syl 17 |
. . . . . . . . . 10
β’ (π β (β β {2})
β π β
β+) |
31 | 17, 30 | anim12i 614 |
. . . . . . . . 9
β’ ((π β β β§ π β (β β {2}))
β (2 β β0 β§ π β
β+)) |
32 | 31 | adantr 482 |
. . . . . . . 8
β’ (((π β β β§ π β (β β {2}))
β§ ((2β(2βπ))
mod π) = (-1 mod π)) β (2 β
β0 β§ π
β β+)) |
33 | | simpr 486 |
. . . . . . . 8
β’ (((π β β β§ π β (β β {2}))
β§ ((2β(2βπ))
mod π) = (-1 mod π)) β ((2β(2βπ)) mod π) = (-1 mod π)) |
34 | | modexp 14198 |
. . . . . . . 8
β’
((((2β(2βπ)) β β€ β§ -1 β β€)
β§ (2 β β0 β§ π β β+) β§
((2β(2βπ)) mod
π) = (-1 mod π)) β
(((2β(2βπ))β2) mod π) = ((-1β2) mod π)) |
35 | 28, 32, 33, 34 | syl3anc 1372 |
. . . . . . 7
β’ (((π β β β§ π β (β β {2}))
β§ ((2β(2βπ))
mod π) = (-1 mod π)) β
(((2β(2βπ))β2) mod π) = ((-1β2) mod π)) |
36 | 35 | ex 414 |
. . . . . 6
β’ ((π β β β§ π β (β β {2}))
β (((2β(2βπ)) mod π) = (-1 mod π) β (((2β(2βπ))β2) mod π) = ((-1β2) mod π))) |
37 | | 2cnd 12287 |
. . . . . . . . . . . . 13
β’ (π β β β 2 β
β) |
38 | 37, 18, 17 | 3jca 1129 |
. . . . . . . . . . . 12
β’ (π β β β (2 β
β β§ (2βπ)
β β0 β§ 2 β
β0)) |
39 | 38 | adantr 482 |
. . . . . . . . . . 11
β’ ((π β β β§ π β (β β {2}))
β (2 β β β§ (2βπ) β β0 β§ 2 β
β0)) |
40 | | expmul 14070 |
. . . . . . . . . . 11
β’ ((2
β β β§ (2βπ) β β0 β§ 2 β
β0) β (2β((2βπ) Β· 2)) = ((2β(2βπ))β2)) |
41 | 39, 40 | syl 17 |
. . . . . . . . . 10
β’ ((π β β β§ π β (β β {2}))
β (2β((2βπ)
Β· 2)) = ((2β(2βπ))β2)) |
42 | | 2cnd 12287 |
. . . . . . . . . . . . 13
β’ ((π β β β§ π β (β β {2}))
β 2 β β) |
43 | 5 | adantr 482 |
. . . . . . . . . . . . 13
β’ ((π β β β§ π β (β β {2}))
β π β
β0) |
44 | 42, 43 | expp1d 14109 |
. . . . . . . . . . . 12
β’ ((π β β β§ π β (β β {2}))
β (2β(π + 1)) =
((2βπ) Β·
2)) |
45 | 44 | eqcomd 2739 |
. . . . . . . . . . 11
β’ ((π β β β§ π β (β β {2}))
β ((2βπ) Β·
2) = (2β(π +
1))) |
46 | 45 | oveq2d 7422 |
. . . . . . . . . 10
β’ ((π β β β§ π β (β β {2}))
β (2β((2βπ)
Β· 2)) = (2β(2β(π + 1)))) |
47 | 41, 46 | eqtr3d 2775 |
. . . . . . . . 9
β’ ((π β β β§ π β (β β {2}))
β ((2β(2βπ))β2) = (2β(2β(π + 1)))) |
48 | 47 | oveq1d 7421 |
. . . . . . . 8
β’ ((π β β β§ π β (β β {2}))
β (((2β(2βπ))β2) mod π) = ((2β(2β(π + 1))) mod π)) |
49 | | neg1sqe1 14157 |
. . . . . . . . . . 11
β’
(-1β2) = 1 |
50 | 49 | a1i 11 |
. . . . . . . . . 10
β’ ((π β β β§ π β (β β {2}))
β (-1β2) = 1) |
51 | 50 | oveq1d 7421 |
. . . . . . . . 9
β’ ((π β β β§ π β (β β {2}))
β ((-1β2) mod π)
= (1 mod π)) |
52 | 3 | nnred 12224 |
. . . . . . . . . . 11
β’ (π β (β β {2})
β π β
β) |
53 | | prmgt1 16631 |
. . . . . . . . . . . 12
β’ (π β β β 1 <
π) |
54 | 1, 53 | syl 17 |
. . . . . . . . . . 11
β’ (π β (β β {2})
β 1 < π) |
55 | | 1mod 13865 |
. . . . . . . . . . 11
β’ ((π β β β§ 1 <
π) β (1 mod π) = 1) |
56 | 52, 54, 55 | syl2anc 585 |
. . . . . . . . . 10
β’ (π β (β β {2})
β (1 mod π) =
1) |
57 | 56 | adantl 483 |
. . . . . . . . 9
β’ ((π β β β§ π β (β β {2}))
β (1 mod π) =
1) |
58 | 51, 57 | eqtrd 2773 |
. . . . . . . 8
β’ ((π β β β§ π β (β β {2}))
β ((-1β2) mod π)
= 1) |
59 | 48, 58 | eqeq12d 2749 |
. . . . . . 7
β’ ((π β β β§ π β (β β {2}))
β ((((2β(2βπ))β2) mod π) = ((-1β2) mod π) β ((2β(2β(π + 1))) mod π) = 1)) |
60 | | simpll 766 |
. . . . . . . . . 10
β’ ((((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β§
(((2β(2βπ)) + 1)
mod π) = 0) β (π β β β§ π β (β β
{2}))) |
61 | 20 | adantr 482 |
. . . . . . . . . . . . . . . 16
β’ ((π β β β§ π β β) β
(2β(2βπ)) β
β€) |
62 | | 1zzd 12590 |
. . . . . . . . . . . . . . . 16
β’ ((π β β β§ π β β) β 1 β
β€) |
63 | 2 | adantl 483 |
. . . . . . . . . . . . . . . 16
β’ ((π β β β§ π β β) β π β
β) |
64 | 61, 62, 63 | 3jca 1129 |
. . . . . . . . . . . . . . 15
β’ ((π β β β§ π β β) β
((2β(2βπ)) β
β€ β§ 1 β β€ β§ π β β)) |
65 | 1, 64 | sylan2 594 |
. . . . . . . . . . . . . 14
β’ ((π β β β§ π β (β β {2}))
β ((2β(2βπ))
β β€ β§ 1 β β€ β§ π β β)) |
66 | 65 | adantr 482 |
. . . . . . . . . . . . 13
β’ (((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β
((2β(2βπ)) β
β€ β§ 1 β β€ β§ π β β)) |
67 | 66, 24 | syl 17 |
. . . . . . . . . . . 12
β’ (((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β
((((2β(2βπ)) + 1)
mod π) = 0 β
((2β(2βπ)) mod
π) = (-1 mod π))) |
68 | | m1modnnsub1 13879 |
. . . . . . . . . . . . . . . . . 18
β’ (π β β β (-1 mod
π) = (π β 1)) |
69 | 23, 68 | syl 17 |
. . . . . . . . . . . . . . . . 17
β’ ((π β β β§ π β (β β {2}))
β (-1 mod π) = (π β 1)) |
70 | | eldifsni 4793 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (β β {2})
β π β
2) |
71 | 70 | adantl 483 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β β§ π β (β β {2}))
β π β
2) |
72 | 71 | necomd 2997 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β β β§ π β (β β {2}))
β 2 β π) |
73 | 3 | nncnd 12225 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (π β (β β {2})
β π β
β) |
74 | 73 | adantl 483 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β β§ π β (β β {2}))
β π β
β) |
75 | | 1cnd 11206 |
. . . . . . . . . . . . . . . . . . . . 21
β’ ((π β β β§ π β (β β {2}))
β 1 β β) |
76 | 74, 75, 75 | subadd2d 11587 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((π β β β§ π β (β β {2}))
β ((π β 1) = 1
β (1 + 1) = π)) |
77 | | 1p1e2 12334 |
. . . . . . . . . . . . . . . . . . . . 21
β’ (1 + 1) =
2 |
78 | 77 | eqeq1i 2738 |
. . . . . . . . . . . . . . . . . . . 20
β’ ((1 + 1)
= π β 2 = π) |
79 | 76, 78 | bitrdi 287 |
. . . . . . . . . . . . . . . . . . 19
β’ ((π β β β§ π β (β β {2}))
β ((π β 1) = 1
β 2 = π)) |
80 | 79 | necon3bid 2986 |
. . . . . . . . . . . . . . . . . 18
β’ ((π β β β§ π β (β β {2}))
β ((π β 1) β
1 β 2 β π)) |
81 | 72, 80 | mpbird 257 |
. . . . . . . . . . . . . . . . 17
β’ ((π β β β§ π β (β β {2}))
β (π β 1) β
1) |
82 | 69, 81 | eqnetrd 3009 |
. . . . . . . . . . . . . . . 16
β’ ((π β β β§ π β (β β {2}))
β (-1 mod π) β
1) |
83 | 82 | adantr 482 |
. . . . . . . . . . . . . . 15
β’ (((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β (-1
mod π) β
1) |
84 | 83 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β§
((2β(2βπ)) mod
π) = (-1 mod π)) β (-1 mod π) β 1) |
85 | | eqeq1 2737 |
. . . . . . . . . . . . . . . 16
β’
(((2β(2βπ)) mod π) = (-1 mod π) β (((2β(2βπ)) mod π) = 1 β (-1 mod π) = 1)) |
86 | 85 | adantl 483 |
. . . . . . . . . . . . . . 15
β’ ((((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β§
((2β(2βπ)) mod
π) = (-1 mod π)) β
(((2β(2βπ)) mod
π) = 1 β (-1 mod π) = 1)) |
87 | 86 | necon3bid 2986 |
. . . . . . . . . . . . . 14
β’ ((((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β§
((2β(2βπ)) mod
π) = (-1 mod π)) β
(((2β(2βπ)) mod
π) β 1 β (-1 mod
π) β
1)) |
88 | 84, 87 | mpbird 257 |
. . . . . . . . . . . . 13
β’ ((((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β§
((2β(2βπ)) mod
π) = (-1 mod π)) β ((2β(2βπ)) mod π) β 1) |
89 | 88 | ex 414 |
. . . . . . . . . . . 12
β’ (((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β
(((2β(2βπ)) mod
π) = (-1 mod π) β ((2β(2βπ)) mod π) β 1)) |
90 | 67, 89 | sylbid 239 |
. . . . . . . . . . 11
β’ (((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β
((((2β(2βπ)) + 1)
mod π) = 0 β
((2β(2βπ)) mod
π) β
1)) |
91 | 90 | imp 408 |
. . . . . . . . . 10
β’ ((((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β§
(((2β(2βπ)) + 1)
mod π) = 0) β
((2β(2βπ)) mod
π) β 1) |
92 | | simplr 768 |
. . . . . . . . . 10
β’ ((((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β§
(((2β(2βπ)) + 1)
mod π) = 0) β
((2β(2β(π + 1)))
mod π) =
1) |
93 | | odz2prm2pw 46218 |
. . . . . . . . . 10
β’ (((π β β β§ π β (β β {2}))
β§ (((2β(2βπ))
mod π) β 1 β§
((2β(2β(π + 1)))
mod π) = 1)) β
((odβ€βπ)β2) = (2β(π + 1))) |
94 | 60, 91, 92, 93 | syl12anc 836 |
. . . . . . . . 9
β’ ((((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β§
(((2β(2βπ)) + 1)
mod π) = 0) β
((odβ€βπ)β2) = (2β(π + 1))) |
95 | 94 | ex 414 |
. . . . . . . 8
β’ (((π β β β§ π β (β β {2}))
β§ ((2β(2β(π +
1))) mod π) = 1) β
((((2β(2βπ)) + 1)
mod π) = 0 β
((odβ€βπ)β2) = (2β(π + 1)))) |
96 | 95 | ex 414 |
. . . . . . 7
β’ ((π β β β§ π β (β β {2}))
β (((2β(2β(π
+ 1))) mod π) = 1 β
((((2β(2βπ)) + 1)
mod π) = 0 β
((odβ€βπ)β2) = (2β(π + 1))))) |
97 | 59, 96 | sylbid 239 |
. . . . . 6
β’ ((π β β β§ π β (β β {2}))
β ((((2β(2βπ))β2) mod π) = ((-1β2) mod π) β ((((2β(2βπ)) + 1) mod π) = 0 β
((odβ€βπ)β2) = (2β(π + 1))))) |
98 | 36, 97 | syld 47 |
. . . . 5
β’ ((π β β β§ π β (β β {2}))
β (((2β(2βπ)) mod π) = (-1 mod π) β ((((2β(2βπ)) + 1) mod π) = 0 β
((odβ€βπ)β2) = (2β(π + 1))))) |
99 | 25, 98 | sylbid 239 |
. . . 4
β’ ((π β β β§ π β (β β {2}))
β ((((2β(2βπ)) + 1) mod π) = 0 β ((((2β(2βπ)) + 1) mod π) = 0 β
((odβ€βπ)β2) = (2β(π + 1))))) |
100 | 99 | pm2.43d 53 |
. . 3
β’ ((π β β β§ π β (β β {2}))
β ((((2β(2βπ)) + 1) mod π) = 0 β
((odβ€βπ)β2) = (2β(π + 1)))) |
101 | 13, 100 | syld 47 |
. 2
β’ ((π β β β§ π β (β β {2}))
β (π β₯
(FermatNoβπ) β
((odβ€βπ)β2) = (2β(π + 1)))) |
102 | 101 | 3impia 1118 |
1
β’ ((π β β β§ π β (β β {2})
β§ π β₯
(FermatNoβπ)) β
((odβ€βπ)β2) = (2β(π + 1))) |