Step | Hyp | Ref
| Expression |
1 | | prmnn 16608 |
. . . 4
โข (๐ โ โ โ ๐ โ
โ) |
2 | | nnnn0 12476 |
. . . 4
โข (๐พ โ โ โ ๐พ โ
โ0) |
3 | | nnexpcl 14037 |
. . . 4
โข ((๐ โ โ โง ๐พ โ โ0)
โ (๐โ๐พ) โ
โ) |
4 | 1, 2, 3 | syl2an 597 |
. . 3
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ๐พ) โ โ) |
5 | | phival 16697 |
. . 3
โข ((๐โ๐พ) โ โ โ (ฯโ(๐โ๐พ)) = (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1})) |
6 | 4, 5 | syl 17 |
. 2
โข ((๐ โ โ โง ๐พ โ โ) โ
(ฯโ(๐โ๐พ)) = (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1})) |
7 | | nnm1nn0 12510 |
. . . . . 6
โข (๐พ โ โ โ (๐พ โ 1) โ
โ0) |
8 | | nnexpcl 14037 |
. . . . . 6
โข ((๐ โ โ โง (๐พ โ 1) โ
โ0) โ (๐โ(๐พ โ 1)) โ
โ) |
9 | 1, 7, 8 | syl2an 597 |
. . . . 5
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ(๐พ โ 1)) โ
โ) |
10 | 9 | nncnd 12225 |
. . . 4
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ(๐พ โ 1)) โ
โ) |
11 | 1 | nncnd 12225 |
. . . . 5
โข (๐ โ โ โ ๐ โ
โ) |
12 | 11 | adantr 482 |
. . . 4
โข ((๐ โ โ โง ๐พ โ โ) โ ๐ โ
โ) |
13 | | ax-1cn 11165 |
. . . . 5
โข 1 โ
โ |
14 | | subdi 11644 |
. . . . 5
โข (((๐โ(๐พ โ 1)) โ โ โง ๐ โ โ โง 1 โ
โ) โ ((๐โ(๐พ โ 1)) ยท (๐ โ 1)) = (((๐โ(๐พ โ 1)) ยท ๐) โ ((๐โ(๐พ โ 1)) ยท 1))) |
15 | 13, 14 | mp3an3 1451 |
. . . 4
โข (((๐โ(๐พ โ 1)) โ โ โง ๐ โ โ) โ ((๐โ(๐พ โ 1)) ยท (๐ โ 1)) = (((๐โ(๐พ โ 1)) ยท ๐) โ ((๐โ(๐พ โ 1)) ยท 1))) |
16 | 10, 12, 15 | syl2anc 585 |
. . 3
โข ((๐ โ โ โง ๐พ โ โ) โ ((๐โ(๐พ โ 1)) ยท (๐ โ 1)) = (((๐โ(๐พ โ 1)) ยท ๐) โ ((๐โ(๐พ โ 1)) ยท 1))) |
17 | 10 | mulridd 11228 |
. . . 4
โข ((๐ โ โ โง ๐พ โ โ) โ ((๐โ(๐พ โ 1)) ยท 1) = (๐โ(๐พ โ 1))) |
18 | 17 | oveq2d 7422 |
. . 3
โข ((๐ โ โ โง ๐พ โ โ) โ (((๐โ(๐พ โ 1)) ยท ๐) โ ((๐โ(๐พ โ 1)) ยท 1)) = (((๐โ(๐พ โ 1)) ยท ๐) โ (๐โ(๐พ โ 1)))) |
19 | | fzfi 13934 |
. . . . . . 7
โข
(1...(๐โ๐พ)) โ Fin |
20 | | ssrab2 4077 |
. . . . . . 7
โข {๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โ (1...(๐โ๐พ)) |
21 | | ssfi 9170 |
. . . . . . 7
โข
(((1...(๐โ๐พ)) โ Fin โง {๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โ (1...(๐โ๐พ))) โ {๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โ Fin) |
22 | 19, 20, 21 | mp2an 691 |
. . . . . 6
โข {๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โ Fin |
23 | | ssrab2 4077 |
. . . . . . 7
โข {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)} โ (1...(๐โ๐พ)) |
24 | | ssfi 9170 |
. . . . . . 7
โข
(((1...(๐โ๐พ)) โ Fin โง {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)} โ (1...(๐โ๐พ))) โ {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)} โ Fin) |
25 | 19, 23, 24 | mp2an 691 |
. . . . . 6
โข {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)} โ Fin |
26 | | inrab 4306 |
. . . . . . 7
โข ({๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โฉ {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)}) = {๐ฅ โ (1...(๐โ๐พ)) โฃ ((๐ฅ gcd (๐โ๐พ)) = 1 โง ๐ โฅ (๐ฅ โ 0))} |
27 | | elfzelz 13498 |
. . . . . . . . . . . 12
โข (๐ฅ โ (1...(๐โ๐พ)) โ ๐ฅ โ โค) |
28 | | prmz 16609 |
. . . . . . . . . . . . . . . . 17
โข (๐ โ โ โ ๐ โ
โค) |
29 | | rpexp 16656 |
. . . . . . . . . . . . . . . . 17
โข ((๐ โ โค โง ๐ฅ โ โค โง ๐พ โ โ) โ (((๐โ๐พ) gcd ๐ฅ) = 1 โ (๐ gcd ๐ฅ) = 1)) |
30 | 28, 29 | syl3an1 1164 |
. . . . . . . . . . . . . . . 16
โข ((๐ โ โ โง ๐ฅ โ โค โง ๐พ โ โ) โ (((๐โ๐พ) gcd ๐ฅ) = 1 โ (๐ gcd ๐ฅ) = 1)) |
31 | 30 | 3expa 1119 |
. . . . . . . . . . . . . . 15
โข (((๐ โ โ โง ๐ฅ โ โค) โง ๐พ โ โ) โ (((๐โ๐พ) gcd ๐ฅ) = 1 โ (๐ gcd ๐ฅ) = 1)) |
32 | 31 | an32s 651 |
. . . . . . . . . . . . . 14
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ (((๐โ๐พ) gcd ๐ฅ) = 1 โ (๐ gcd ๐ฅ) = 1)) |
33 | | simpr 486 |
. . . . . . . . . . . . . . . 16
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ ๐ฅ โ
โค) |
34 | | zexpcl 14039 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ โ โค โง ๐พ โ โ0)
โ (๐โ๐พ) โ
โค) |
35 | 28, 2, 34 | syl2an 597 |
. . . . . . . . . . . . . . . . 17
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ๐พ) โ โค) |
36 | 35 | adantr 482 |
. . . . . . . . . . . . . . . 16
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ (๐โ๐พ) โ โค) |
37 | 33, 36 | gcdcomd 16452 |
. . . . . . . . . . . . . . 15
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ (๐ฅ gcd (๐โ๐พ)) = ((๐โ๐พ) gcd ๐ฅ)) |
38 | 37 | eqeq1d 2735 |
. . . . . . . . . . . . . 14
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ ((๐ฅ gcd (๐โ๐พ)) = 1 โ ((๐โ๐พ) gcd ๐ฅ) = 1)) |
39 | | coprm 16645 |
. . . . . . . . . . . . . . 15
โข ((๐ โ โ โง ๐ฅ โ โค) โ (ยฌ
๐ โฅ ๐ฅ โ (๐ gcd ๐ฅ) = 1)) |
40 | 39 | adantlr 714 |
. . . . . . . . . . . . . 14
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ (ยฌ
๐ โฅ ๐ฅ โ (๐ gcd ๐ฅ) = 1)) |
41 | 32, 38, 40 | 3bitr4d 311 |
. . . . . . . . . . . . 13
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ ((๐ฅ gcd (๐โ๐พ)) = 1 โ ยฌ ๐ โฅ ๐ฅ)) |
42 | | zcn 12560 |
. . . . . . . . . . . . . . . . 17
โข (๐ฅ โ โค โ ๐ฅ โ
โ) |
43 | 42 | adantl 483 |
. . . . . . . . . . . . . . . 16
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ ๐ฅ โ
โ) |
44 | 43 | subid1d 11557 |
. . . . . . . . . . . . . . 15
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ (๐ฅ โ 0) = ๐ฅ) |
45 | 44 | breq2d 5160 |
. . . . . . . . . . . . . 14
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ (๐ โฅ (๐ฅ โ 0) โ ๐ โฅ ๐ฅ)) |
46 | 45 | notbid 318 |
. . . . . . . . . . . . 13
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ (ยฌ
๐ โฅ (๐ฅ โ 0) โ ยฌ ๐ โฅ ๐ฅ)) |
47 | 41, 46 | bitr4d 282 |
. . . . . . . . . . . 12
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ โค) โ ((๐ฅ gcd (๐โ๐พ)) = 1 โ ยฌ ๐ โฅ (๐ฅ โ 0))) |
48 | 27, 47 | sylan2 594 |
. . . . . . . . . . 11
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ (1...(๐โ๐พ))) โ ((๐ฅ gcd (๐โ๐พ)) = 1 โ ยฌ ๐ โฅ (๐ฅ โ 0))) |
49 | 48 | biimpd 228 |
. . . . . . . . . 10
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ (1...(๐โ๐พ))) โ ((๐ฅ gcd (๐โ๐พ)) = 1 โ ยฌ ๐ โฅ (๐ฅ โ 0))) |
50 | | imnan 401 |
. . . . . . . . . 10
โข (((๐ฅ gcd (๐โ๐พ)) = 1 โ ยฌ ๐ โฅ (๐ฅ โ 0)) โ ยฌ ((๐ฅ gcd (๐โ๐พ)) = 1 โง ๐ โฅ (๐ฅ โ 0))) |
51 | 49, 50 | sylib 217 |
. . . . . . . . 9
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ (1...(๐โ๐พ))) โ ยฌ ((๐ฅ gcd (๐โ๐พ)) = 1 โง ๐ โฅ (๐ฅ โ 0))) |
52 | 51 | ralrimiva 3147 |
. . . . . . . 8
โข ((๐ โ โ โง ๐พ โ โ) โ
โ๐ฅ โ
(1...(๐โ๐พ)) ยฌ ((๐ฅ gcd (๐โ๐พ)) = 1 โง ๐ โฅ (๐ฅ โ 0))) |
53 | | rabeq0 4384 |
. . . . . . . 8
โข ({๐ฅ โ (1...(๐โ๐พ)) โฃ ((๐ฅ gcd (๐โ๐พ)) = 1 โง ๐ โฅ (๐ฅ โ 0))} = โ
โ โ๐ฅ โ (1...(๐โ๐พ)) ยฌ ((๐ฅ gcd (๐โ๐พ)) = 1 โง ๐ โฅ (๐ฅ โ 0))) |
54 | 52, 53 | sylibr 233 |
. . . . . . 7
โข ((๐ โ โ โง ๐พ โ โ) โ {๐ฅ โ (1...(๐โ๐พ)) โฃ ((๐ฅ gcd (๐โ๐พ)) = 1 โง ๐ โฅ (๐ฅ โ 0))} = โ
) |
55 | 26, 54 | eqtrid 2785 |
. . . . . 6
โข ((๐ โ โ โง ๐พ โ โ) โ ({๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โฉ {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)}) = โ
) |
56 | | hashun 14339 |
. . . . . 6
โข (({๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โ Fin โง {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)} โ Fin โง ({๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โฉ {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)}) = โ
) โ
(โฏโ({๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โช {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)})) = ((โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) + (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)}))) |
57 | 22, 25, 55, 56 | mp3an12i 1466 |
. . . . 5
โข ((๐ โ โ โง ๐พ โ โ) โ
(โฏโ({๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โช {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)})) = ((โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) + (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)}))) |
58 | | unrab 4305 |
. . . . . . . 8
โข ({๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โช {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)}) = {๐ฅ โ (1...(๐โ๐พ)) โฃ ((๐ฅ gcd (๐โ๐พ)) = 1 โจ ๐ โฅ (๐ฅ โ 0))} |
59 | 48 | biimprd 247 |
. . . . . . . . . . . 12
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ (1...(๐โ๐พ))) โ (ยฌ ๐ โฅ (๐ฅ โ 0) โ (๐ฅ gcd (๐โ๐พ)) = 1)) |
60 | 59 | con1d 145 |
. . . . . . . . . . 11
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ (1...(๐โ๐พ))) โ (ยฌ (๐ฅ gcd (๐โ๐พ)) = 1 โ ๐ โฅ (๐ฅ โ 0))) |
61 | 60 | orrd 862 |
. . . . . . . . . 10
โข (((๐ โ โ โง ๐พ โ โ) โง ๐ฅ โ (1...(๐โ๐พ))) โ ((๐ฅ gcd (๐โ๐พ)) = 1 โจ ๐ โฅ (๐ฅ โ 0))) |
62 | 61 | ralrimiva 3147 |
. . . . . . . . 9
โข ((๐ โ โ โง ๐พ โ โ) โ
โ๐ฅ โ
(1...(๐โ๐พ))((๐ฅ gcd (๐โ๐พ)) = 1 โจ ๐ โฅ (๐ฅ โ 0))) |
63 | | rabid2 3465 |
. . . . . . . . 9
โข
((1...(๐โ๐พ)) = {๐ฅ โ (1...(๐โ๐พ)) โฃ ((๐ฅ gcd (๐โ๐พ)) = 1 โจ ๐ โฅ (๐ฅ โ 0))} โ โ๐ฅ โ (1...(๐โ๐พ))((๐ฅ gcd (๐โ๐พ)) = 1 โจ ๐ โฅ (๐ฅ โ 0))) |
64 | 62, 63 | sylibr 233 |
. . . . . . . 8
โข ((๐ โ โ โง ๐พ โ โ) โ
(1...(๐โ๐พ)) = {๐ฅ โ (1...(๐โ๐พ)) โฃ ((๐ฅ gcd (๐โ๐พ)) = 1 โจ ๐ โฅ (๐ฅ โ 0))}) |
65 | 58, 64 | eqtr4id 2792 |
. . . . . . 7
โข ((๐ โ โ โง ๐พ โ โ) โ ({๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โช {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)}) = (1...(๐โ๐พ))) |
66 | 65 | fveq2d 6893 |
. . . . . 6
โข ((๐ โ โ โง ๐พ โ โ) โ
(โฏโ({๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โช {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)})) = (โฏโ(1...(๐โ๐พ)))) |
67 | 4 | nnnn0d 12529 |
. . . . . . 7
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ๐พ) โ
โ0) |
68 | | hashfz1 14303 |
. . . . . . 7
โข ((๐โ๐พ) โ โ0 โ
(โฏโ(1...(๐โ๐พ))) = (๐โ๐พ)) |
69 | 67, 68 | syl 17 |
. . . . . 6
โข ((๐ โ โ โง ๐พ โ โ) โ
(โฏโ(1...(๐โ๐พ))) = (๐โ๐พ)) |
70 | | expm1t 14053 |
. . . . . . 7
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ๐พ) = ((๐โ(๐พ โ 1)) ยท ๐)) |
71 | 11, 70 | sylan 581 |
. . . . . 6
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ๐พ) = ((๐โ(๐พ โ 1)) ยท ๐)) |
72 | 66, 69, 71 | 3eqtrd 2777 |
. . . . 5
โข ((๐ โ โ โง ๐พ โ โ) โ
(โฏโ({๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โช {๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)})) = ((๐โ(๐พ โ 1)) ยท ๐)) |
73 | 1 | adantr 482 |
. . . . . . . . 9
โข ((๐ โ โ โง ๐พ โ โ) โ ๐ โ
โ) |
74 | | 1zzd 12590 |
. . . . . . . . 9
โข ((๐ โ โ โง ๐พ โ โ) โ 1 โ
โค) |
75 | | nn0uz 12861 |
. . . . . . . . . . 11
โข
โ0 = (โคโฅโ0) |
76 | | 1m1e0 12281 |
. . . . . . . . . . . 12
โข (1
โ 1) = 0 |
77 | 76 | fveq2i 6892 |
. . . . . . . . . . 11
โข
(โคโฅโ(1 โ 1)) =
(โคโฅโ0) |
78 | 75, 77 | eqtr4i 2764 |
. . . . . . . . . 10
โข
โ0 = (โคโฅโ(1 โ
1)) |
79 | 67, 78 | eleqtrdi 2844 |
. . . . . . . . 9
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ๐พ) โ (โคโฅโ(1
โ 1))) |
80 | | 0zd 12567 |
. . . . . . . . 9
โข ((๐ โ โ โง ๐พ โ โ) โ 0 โ
โค) |
81 | 73, 74, 79, 80 | hashdvds 16705 |
. . . . . . . 8
โข ((๐ โ โ โง ๐พ โ โ) โ
(โฏโ{๐ฅ โ
(1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)}) = ((โโ(((๐โ๐พ) โ 0) / ๐)) โ (โโ(((1 โ 1)
โ 0) / ๐)))) |
82 | 4 | nncnd 12225 |
. . . . . . . . . . . . . 14
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ๐พ) โ โ) |
83 | 82 | subid1d 11557 |
. . . . . . . . . . . . 13
โข ((๐ โ โ โง ๐พ โ โ) โ ((๐โ๐พ) โ 0) = (๐โ๐พ)) |
84 | 83 | oveq1d 7421 |
. . . . . . . . . . . 12
โข ((๐ โ โ โง ๐พ โ โ) โ (((๐โ๐พ) โ 0) / ๐) = ((๐โ๐พ) / ๐)) |
85 | 73 | nnne0d 12259 |
. . . . . . . . . . . . 13
โข ((๐ โ โ โง ๐พ โ โ) โ ๐ โ 0) |
86 | | nnz 12576 |
. . . . . . . . . . . . . 14
โข (๐พ โ โ โ ๐พ โ
โค) |
87 | 86 | adantl 483 |
. . . . . . . . . . . . 13
โข ((๐ โ โ โง ๐พ โ โ) โ ๐พ โ
โค) |
88 | 12, 85, 87 | expm1d 14118 |
. . . . . . . . . . . 12
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ(๐พ โ 1)) = ((๐โ๐พ) / ๐)) |
89 | 84, 88 | eqtr4d 2776 |
. . . . . . . . . . 11
โข ((๐ โ โ โง ๐พ โ โ) โ (((๐โ๐พ) โ 0) / ๐) = (๐โ(๐พ โ 1))) |
90 | 89 | fveq2d 6893 |
. . . . . . . . . 10
โข ((๐ โ โ โง ๐พ โ โ) โ
(โโ(((๐โ๐พ) โ 0) / ๐)) = (โโ(๐โ(๐พ โ 1)))) |
91 | 9 | nnzd 12582 |
. . . . . . . . . . 11
โข ((๐ โ โ โง ๐พ โ โ) โ (๐โ(๐พ โ 1)) โ
โค) |
92 | | flid 13770 |
. . . . . . . . . . 11
โข ((๐โ(๐พ โ 1)) โ โค โ
(โโ(๐โ(๐พ โ 1))) = (๐โ(๐พ โ 1))) |
93 | 91, 92 | syl 17 |
. . . . . . . . . 10
โข ((๐ โ โ โง ๐พ โ โ) โ
(โโ(๐โ(๐พ โ 1))) = (๐โ(๐พ โ 1))) |
94 | 90, 93 | eqtrd 2773 |
. . . . . . . . 9
โข ((๐ โ โ โง ๐พ โ โ) โ
(โโ(((๐โ๐พ) โ 0) / ๐)) = (๐โ(๐พ โ 1))) |
95 | 76 | oveq1i 7416 |
. . . . . . . . . . . . . 14
โข ((1
โ 1) โ 0) = (0 โ 0) |
96 | | 0m0e0 12329 |
. . . . . . . . . . . . . 14
โข (0
โ 0) = 0 |
97 | 95, 96 | eqtri 2761 |
. . . . . . . . . . . . 13
โข ((1
โ 1) โ 0) = 0 |
98 | 97 | oveq1i 7416 |
. . . . . . . . . . . 12
โข (((1
โ 1) โ 0) / ๐)
= (0 / ๐) |
99 | 12, 85 | div0d 11986 |
. . . . . . . . . . . 12
โข ((๐ โ โ โง ๐พ โ โ) โ (0 /
๐) = 0) |
100 | 98, 99 | eqtrid 2785 |
. . . . . . . . . . 11
โข ((๐ โ โ โง ๐พ โ โ) โ (((1
โ 1) โ 0) / ๐)
= 0) |
101 | 100 | fveq2d 6893 |
. . . . . . . . . 10
โข ((๐ โ โ โง ๐พ โ โ) โ
(โโ(((1 โ 1) โ 0) / ๐)) = (โโ0)) |
102 | | 0z 12566 |
. . . . . . . . . . 11
โข 0 โ
โค |
103 | | flid 13770 |
. . . . . . . . . . 11
โข (0 โ
โค โ (โโ0) = 0) |
104 | 102, 103 | ax-mp 5 |
. . . . . . . . . 10
โข
(โโ0) = 0 |
105 | 101, 104 | eqtrdi 2789 |
. . . . . . . . 9
โข ((๐ โ โ โง ๐พ โ โ) โ
(โโ(((1 โ 1) โ 0) / ๐)) = 0) |
106 | 94, 105 | oveq12d 7424 |
. . . . . . . 8
โข ((๐ โ โ โง ๐พ โ โ) โ
((โโ(((๐โ๐พ) โ 0) / ๐)) โ (โโ(((1 โ 1)
โ 0) / ๐))) = ((๐โ(๐พ โ 1)) โ 0)) |
107 | 10 | subid1d 11557 |
. . . . . . . 8
โข ((๐ โ โ โง ๐พ โ โ) โ ((๐โ(๐พ โ 1)) โ 0) = (๐โ(๐พ โ 1))) |
108 | 81, 106, 107 | 3eqtrd 2777 |
. . . . . . 7
โข ((๐ โ โ โง ๐พ โ โ) โ
(โฏโ{๐ฅ โ
(1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)}) = (๐โ(๐พ โ 1))) |
109 | 108 | oveq2d 7422 |
. . . . . 6
โข ((๐ โ โ โง ๐พ โ โ) โ
((โฏโ{๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) + (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)})) = ((โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) + (๐โ(๐พ โ 1)))) |
110 | | hashcl 14313 |
. . . . . . . . 9
โข ({๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1} โ Fin โ
(โฏโ{๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) โ
โ0) |
111 | 22, 110 | ax-mp 5 |
. . . . . . . 8
โข
(โฏโ{๐ฅ
โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) โ
โ0 |
112 | 111 | nn0cni 12481 |
. . . . . . 7
โข
(โฏโ{๐ฅ
โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) โ โ |
113 | | addcom 11397 |
. . . . . . 7
โข
(((โฏโ{๐ฅ
โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) โ โ โง (๐โ(๐พ โ 1)) โ โ) โ
((โฏโ{๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) + (๐โ(๐พ โ 1))) = ((๐โ(๐พ โ 1)) + (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}))) |
114 | 112, 10, 113 | sylancr 588 |
. . . . . 6
โข ((๐ โ โ โง ๐พ โ โ) โ
((โฏโ{๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) + (๐โ(๐พ โ 1))) = ((๐โ(๐พ โ 1)) + (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}))) |
115 | 109, 114 | eqtrd 2773 |
. . . . 5
โข ((๐ โ โ โง ๐พ โ โ) โ
((โฏโ{๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) + (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ ๐ โฅ (๐ฅ โ 0)})) = ((๐โ(๐พ โ 1)) + (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}))) |
116 | 57, 72, 115 | 3eqtr3rd 2782 |
. . . 4
โข ((๐ โ โ โง ๐พ โ โ) โ ((๐โ(๐พ โ 1)) + (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1})) = ((๐โ(๐พ โ 1)) ยท ๐)) |
117 | 10, 12 | mulcld 11231 |
. . . . 5
โข ((๐ โ โ โง ๐พ โ โ) โ ((๐โ(๐พ โ 1)) ยท ๐) โ โ) |
118 | 112 | a1i 11 |
. . . . 5
โข ((๐ โ โ โง ๐พ โ โ) โ
(โฏโ{๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) โ โ) |
119 | 117, 10, 118 | subaddd 11586 |
. . . 4
โข ((๐ โ โ โง ๐พ โ โ) โ
((((๐โ(๐พ โ 1)) ยท ๐) โ (๐โ(๐พ โ 1))) = (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) โ ((๐โ(๐พ โ 1)) + (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1})) = ((๐โ(๐พ โ 1)) ยท ๐))) |
120 | 116, 119 | mpbird 257 |
. . 3
โข ((๐ โ โ โง ๐พ โ โ) โ (((๐โ(๐พ โ 1)) ยท ๐) โ (๐โ(๐พ โ 1))) = (โฏโ{๐ฅ โ (1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1})) |
121 | 16, 18, 120 | 3eqtrrd 2778 |
. 2
โข ((๐ โ โ โง ๐พ โ โ) โ
(โฏโ{๐ฅ โ
(1...(๐โ๐พ)) โฃ (๐ฅ gcd (๐โ๐พ)) = 1}) = ((๐โ(๐พ โ 1)) ยท (๐ โ 1))) |
122 | 6, 121 | eqtrd 2773 |
1
โข ((๐ โ โ โง ๐พ โ โ) โ
(ฯโ(๐โ๐พ)) = ((๐โ(๐พ โ 1)) ยท (๐ โ 1))) |