Step | Hyp | Ref
| Expression |
1 | | 2dvdseven 46311 |
. . . . . . . 8
โข (๐ โ Even โ 2 โฅ
๐) |
2 | 1 | ad2antlr 725 |
. . . . . . 7
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ 2 โฅ ๐) |
3 | | 2prm 16628 |
. . . . . . . 8
โข 2 โ
โ |
4 | | simpll 765 |
. . . . . . . 8
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ๐ โ โ) |
5 | | pcelnn 16802 |
. . . . . . . 8
โข ((2
โ โ โง ๐
โ โ) โ ((2 pCnt ๐) โ โ โ 2 โฅ ๐)) |
6 | 3, 4, 5 | sylancr 587 |
. . . . . . 7
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ((2 pCnt ๐) โ โ โ 2
โฅ ๐)) |
7 | 2, 6 | mpbird 256 |
. . . . . 6
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2 pCnt ๐) โ
โ) |
8 | 7 | nnzd 12584 |
. . . . 5
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2 pCnt ๐) โ
โค) |
9 | 8 | peano2zd 12668 |
. . . 4
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ((2 pCnt ๐) + 1) โ
โค) |
10 | | pcdvds 16796 |
. . . . . . . . 9
โข ((2
โ โ โง ๐
โ โ) โ (2โ(2 pCnt ๐)) โฅ ๐) |
11 | 3, 4, 10 | sylancr 587 |
. . . . . . . 8
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2โ(2 pCnt ๐)) โฅ ๐) |
12 | | 2nn 12284 |
. . . . . . . . . 10
โข 2 โ
โ |
13 | 7 | nnnn0d 12531 |
. . . . . . . . . 10
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2 pCnt ๐) โ
โ0) |
14 | | nnexpcl 14039 |
. . . . . . . . . 10
โข ((2
โ โ โง (2 pCnt ๐) โ โ0) โ
(2โ(2 pCnt ๐)) โ
โ) |
15 | 12, 13, 14 | sylancr 587 |
. . . . . . . . 9
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2โ(2 pCnt ๐)) โ
โ) |
16 | | nndivdvds 16205 |
. . . . . . . . 9
โข ((๐ โ โ โง (2โ(2
pCnt ๐)) โ โ)
โ ((2โ(2 pCnt ๐))
โฅ ๐ โ (๐ / (2โ(2 pCnt ๐))) โ
โ)) |
17 | 4, 15, 16 | syl2anc 584 |
. . . . . . . 8
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ((2โ(2 pCnt ๐)) โฅ ๐ โ (๐ / (2โ(2 pCnt ๐))) โ โ)) |
18 | 11, 17 | mpbid 231 |
. . . . . . 7
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (๐ / (2โ(2 pCnt ๐))) โ โ) |
19 | 18 | nnzd 12584 |
. . . . . . . 8
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (๐ / (2โ(2 pCnt ๐))) โ โค) |
20 | | pcndvds2 16800 |
. . . . . . . . 9
โข ((2
โ โ โง ๐
โ โ) โ ยฌ 2 โฅ (๐ / (2โ(2 pCnt ๐)))) |
21 | 3, 4, 20 | sylancr 587 |
. . . . . . . 8
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ยฌ 2 โฅ (๐ / (2โ(2 pCnt ๐)))) |
22 | | isodd3 46310 |
. . . . . . . 8
โข ((๐ / (2โ(2 pCnt ๐))) โ Odd โ ((๐ / (2โ(2 pCnt ๐))) โ โค โง ยฌ 2
โฅ (๐ / (2โ(2
pCnt ๐))))) |
23 | 19, 21, 22 | sylanbrc 583 |
. . . . . . 7
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (๐ / (2โ(2 pCnt ๐))) โ Odd ) |
24 | | simpr 485 |
. . . . . . . 8
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (1 ฯ ๐) = (2 ยท ๐)) |
25 | | nncn 12219 |
. . . . . . . . . . 11
โข (๐ โ โ โ ๐ โ
โ) |
26 | 25 | ad2antrr 724 |
. . . . . . . . . 10
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ๐ โ โ) |
27 | 15 | nncnd 12227 |
. . . . . . . . . 10
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2โ(2 pCnt ๐)) โ
โ) |
28 | 15 | nnne0d 12261 |
. . . . . . . . . 10
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2โ(2 pCnt ๐)) โ 0) |
29 | 26, 27, 28 | divcan2d 11991 |
. . . . . . . . 9
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ((2โ(2 pCnt ๐)) ยท (๐ / (2โ(2 pCnt ๐)))) = ๐) |
30 | 29 | oveq2d 7424 |
. . . . . . . 8
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (1 ฯ ((2โ(2
pCnt ๐)) ยท (๐ / (2โ(2 pCnt ๐))))) = (1 ฯ ๐)) |
31 | 29 | oveq2d 7424 |
. . . . . . . 8
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2 ยท
((2โ(2 pCnt ๐))
ยท (๐ / (2โ(2
pCnt ๐))))) = (2 ยท
๐)) |
32 | 24, 30, 31 | 3eqtr4d 2782 |
. . . . . . 7
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (1 ฯ ((2โ(2
pCnt ๐)) ยท (๐ / (2โ(2 pCnt ๐))))) = (2 ยท ((2โ(2
pCnt ๐)) ยท (๐ / (2โ(2 pCnt ๐)))))) |
33 | 7, 18, 23, 32 | perfectALTVlem2 46380 |
. . . . . 6
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ((๐ / (2โ(2 pCnt ๐))) โ โ โง (๐ / (2โ(2 pCnt ๐))) = ((2โ((2 pCnt ๐) + 1)) โ 1))) |
34 | 33 | simprd 496 |
. . . . 5
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (๐ / (2โ(2 pCnt ๐))) = ((2โ((2 pCnt ๐) + 1)) โ 1)) |
35 | 33 | simpld 495 |
. . . . 5
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (๐ / (2โ(2 pCnt ๐))) โ โ) |
36 | 34, 35 | eqeltrrd 2834 |
. . . 4
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ((2โ((2 pCnt
๐) + 1)) โ 1) โ
โ) |
37 | 7 | nncnd 12227 |
. . . . . . . . 9
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2 pCnt ๐) โ
โ) |
38 | | ax-1cn 11167 |
. . . . . . . . 9
โข 1 โ
โ |
39 | | pncan 11465 |
. . . . . . . . 9
โข (((2 pCnt
๐) โ โ โง 1
โ โ) โ (((2 pCnt ๐) + 1) โ 1) = (2 pCnt ๐)) |
40 | 37, 38, 39 | sylancl 586 |
. . . . . . . 8
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (((2 pCnt ๐) + 1) โ 1) = (2 pCnt
๐)) |
41 | 40 | eqcomd 2738 |
. . . . . . 7
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2 pCnt ๐) = (((2 pCnt ๐) + 1) โ 1)) |
42 | 41 | oveq2d 7424 |
. . . . . 6
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ (2โ(2 pCnt ๐)) = (2โ(((2 pCnt ๐) + 1) โ
1))) |
43 | 42, 34 | oveq12d 7426 |
. . . . 5
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ((2โ(2 pCnt ๐)) ยท (๐ / (2โ(2 pCnt ๐)))) = ((2โ(((2 pCnt ๐) + 1) โ 1)) ยท ((2โ((2
pCnt ๐) + 1)) โ
1))) |
44 | 29, 43 | eqtr3d 2774 |
. . . 4
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ ๐ = ((2โ(((2 pCnt ๐) + 1) โ 1)) ยท ((2โ((2
pCnt ๐) + 1)) โ
1))) |
45 | | oveq2 7416 |
. . . . . . . 8
โข (๐ = ((2 pCnt ๐) + 1) โ (2โ๐) = (2โ((2 pCnt ๐) + 1))) |
46 | 45 | oveq1d 7423 |
. . . . . . 7
โข (๐ = ((2 pCnt ๐) + 1) โ ((2โ๐) โ 1) = ((2โ((2 pCnt ๐) + 1)) โ
1)) |
47 | 46 | eleq1d 2818 |
. . . . . 6
โข (๐ = ((2 pCnt ๐) + 1) โ (((2โ๐) โ 1) โ โ โ
((2โ((2 pCnt ๐) + 1))
โ 1) โ โ)) |
48 | | oveq1 7415 |
. . . . . . . . 9
โข (๐ = ((2 pCnt ๐) + 1) โ (๐ โ 1) = (((2 pCnt ๐) + 1) โ 1)) |
49 | 48 | oveq2d 7424 |
. . . . . . . 8
โข (๐ = ((2 pCnt ๐) + 1) โ (2โ(๐ โ 1)) = (2โ(((2 pCnt ๐) + 1) โ
1))) |
50 | 49, 46 | oveq12d 7426 |
. . . . . . 7
โข (๐ = ((2 pCnt ๐) + 1) โ ((2โ(๐ โ 1)) ยท ((2โ๐) โ 1)) = ((2โ(((2
pCnt ๐) + 1) โ 1))
ยท ((2โ((2 pCnt ๐) + 1)) โ 1))) |
51 | 50 | eqeq2d 2743 |
. . . . . 6
โข (๐ = ((2 pCnt ๐) + 1) โ (๐ = ((2โ(๐ โ 1)) ยท ((2โ๐) โ 1)) โ ๐ = ((2โ(((2 pCnt ๐) + 1) โ 1)) ยท
((2โ((2 pCnt ๐) + 1))
โ 1)))) |
52 | 47, 51 | anbi12d 631 |
. . . . 5
โข (๐ = ((2 pCnt ๐) + 1) โ ((((2โ๐) โ 1) โ โ โง ๐ = ((2โ(๐ โ 1)) ยท ((2โ๐) โ 1))) โ
(((2โ((2 pCnt ๐) + 1))
โ 1) โ โ โง ๐ = ((2โ(((2 pCnt ๐) + 1) โ 1)) ยท ((2โ((2
pCnt ๐) + 1)) โ
1))))) |
53 | 52 | rspcev 3612 |
. . . 4
โข ((((2
pCnt ๐) + 1) โ โค
โง (((2โ((2 pCnt ๐)
+ 1)) โ 1) โ โ โง ๐ = ((2โ(((2 pCnt ๐) + 1) โ 1)) ยท ((2โ((2
pCnt ๐) + 1)) โ 1))))
โ โ๐ โ
โค (((2โ๐)
โ 1) โ โ โง ๐ = ((2โ(๐ โ 1)) ยท ((2โ๐) โ 1)))) |
54 | 9, 36, 44, 53 | syl12anc 835 |
. . 3
โข (((๐ โ โ โง ๐ โ Even ) โง (1 ฯ
๐) = (2 ยท ๐)) โ โ๐ โ โค (((2โ๐) โ 1) โ โ
โง ๐ = ((2โ(๐ โ 1)) ยท
((2โ๐) โ
1)))) |
55 | 54 | ex 413 |
. 2
โข ((๐ โ โ โง ๐ โ Even ) โ ((1
ฯ ๐) = (2 ยท
๐) โ โ๐ โ โค (((2โ๐) โ 1) โ โ
โง ๐ = ((2โ(๐ โ 1)) ยท
((2โ๐) โ
1))))) |
56 | | perfect1 26728 |
. . . . . 6
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ (1 ฯ ((2โ(๐ โ 1)) ยท ((2โ๐) โ 1))) = ((2โ๐) ยท ((2โ๐) โ 1))) |
57 | | 2cn 12286 |
. . . . . . . . 9
โข 2 โ
โ |
58 | | mersenne 26727 |
. . . . . . . . . 10
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ ๐
โ โ) |
59 | | prmnn 16610 |
. . . . . . . . . 10
โข (๐ โ โ โ ๐ โ
โ) |
60 | 58, 59 | syl 17 |
. . . . . . . . 9
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ ๐
โ โ) |
61 | | expm1t 14055 |
. . . . . . . . 9
โข ((2
โ โ โง ๐
โ โ) โ (2โ๐) = ((2โ(๐ โ 1)) ยท 2)) |
62 | 57, 60, 61 | sylancr 587 |
. . . . . . . 8
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ (2โ๐) = ((2โ(๐ โ 1)) ยท 2)) |
63 | | nnm1nn0 12512 |
. . . . . . . . . . 11
โข (๐ โ โ โ (๐ โ 1) โ
โ0) |
64 | 60, 63 | syl 17 |
. . . . . . . . . 10
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ (๐
โ 1) โ โ0) |
65 | | expcl 14044 |
. . . . . . . . . 10
โข ((2
โ โ โง (๐
โ 1) โ โ0) โ (2โ(๐ โ 1)) โ โ) |
66 | 57, 64, 65 | sylancr 587 |
. . . . . . . . 9
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ (2โ(๐ โ 1)) โ โ) |
67 | | mulcom 11195 |
. . . . . . . . 9
โข
(((2โ(๐ โ
1)) โ โ โง 2 โ โ) โ ((2โ(๐ โ 1)) ยท 2) = (2 ยท
(2โ(๐ โ
1)))) |
68 | 66, 57, 67 | sylancl 586 |
. . . . . . . 8
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ ((2โ(๐ โ 1)) ยท 2) = (2 ยท
(2โ(๐ โ
1)))) |
69 | 62, 68 | eqtrd 2772 |
. . . . . . 7
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ (2โ๐) = (2 ยท (2โ(๐ โ 1)))) |
70 | 69 | oveq1d 7423 |
. . . . . 6
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ ((2โ๐) ยท ((2โ๐) โ 1)) = ((2 ยท (2โ(๐ โ 1))) ยท
((2โ๐) โ
1))) |
71 | | 2cnd 12289 |
. . . . . . 7
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ 2 โ โ) |
72 | | prmnn 16610 |
. . . . . . . . 9
โข
(((2โ๐) โ
1) โ โ โ ((2โ๐) โ 1) โ โ) |
73 | 72 | adantl 482 |
. . . . . . . 8
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ ((2โ๐) โ 1) โ โ) |
74 | 73 | nncnd 12227 |
. . . . . . 7
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ ((2โ๐) โ 1) โ โ) |
75 | 71, 66, 74 | mulassd 11236 |
. . . . . 6
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ ((2 ยท (2โ(๐ โ 1))) ยท ((2โ๐) โ 1)) = (2 ยท
((2โ(๐ โ 1))
ยท ((2โ๐)
โ 1)))) |
76 | 56, 70, 75 | 3eqtrd 2776 |
. . . . 5
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ (1 ฯ ((2โ(๐ โ 1)) ยท ((2โ๐) โ 1))) = (2 ยท
((2โ(๐ โ 1))
ยท ((2โ๐)
โ 1)))) |
77 | | oveq2 7416 |
. . . . . 6
โข (๐ = ((2โ(๐ โ 1)) ยท ((2โ๐) โ 1)) โ (1 ฯ
๐) = (1 ฯ
((2โ(๐ โ 1))
ยท ((2โ๐)
โ 1)))) |
78 | | oveq2 7416 |
. . . . . 6
โข (๐ = ((2โ(๐ โ 1)) ยท ((2โ๐) โ 1)) โ (2 ยท
๐) = (2 ยท
((2โ(๐ โ 1))
ยท ((2โ๐)
โ 1)))) |
79 | 77, 78 | eqeq12d 2748 |
. . . . 5
โข (๐ = ((2โ(๐ โ 1)) ยท ((2โ๐) โ 1)) โ ((1 ฯ
๐) = (2 ยท ๐) โ (1 ฯ
((2โ(๐ โ 1))
ยท ((2โ๐)
โ 1))) = (2 ยท ((2โ(๐ โ 1)) ยท ((2โ๐) โ
1))))) |
80 | 76, 79 | syl5ibrcom 246 |
. . . 4
โข ((๐ โ โค โง
((2โ๐) โ 1)
โ โ) โ (๐ =
((2โ(๐ โ 1))
ยท ((2โ๐)
โ 1)) โ (1 ฯ ๐) = (2 ยท ๐))) |
81 | 80 | impr 455 |
. . 3
โข ((๐ โ โค โง
(((2โ๐) โ 1)
โ โ โง ๐ =
((2โ(๐ โ 1))
ยท ((2โ๐)
โ 1)))) โ (1 ฯ ๐) = (2 ยท ๐)) |
82 | 81 | rexlimiva 3147 |
. 2
โข
(โ๐ โ
โค (((2โ๐)
โ 1) โ โ โง ๐ = ((2โ(๐ โ 1)) ยท ((2โ๐) โ 1))) โ (1 ฯ
๐) = (2 ยท ๐)) |
83 | 55, 82 | impbid1 224 |
1
โข ((๐ โ โ โง ๐ โ Even ) โ ((1
ฯ ๐) = (2 ยท
๐) โ โ๐ โ โค (((2โ๐) โ 1) โ โ
โง ๐ = ((2โ(๐ โ 1)) ยท
((2โ๐) โ
1))))) |