Step | Hyp | Ref
| Expression |
1 | | oveq2 7385 |
. . . . 5
โข ((๐ด mod ๐) = 0 โ (((๐ด โ 1) mod ๐) โ (๐ด mod ๐)) = (((๐ด โ 1) mod ๐) โ 0)) |
2 | 1 | adantl 482 |
. . . 4
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ด mod ๐) = 0) โ (((๐ด โ 1) mod ๐) โ (๐ด mod ๐)) = (((๐ด โ 1) mod ๐) โ 0)) |
3 | | peano2zm 12570 |
. . . . . . . . . 10
โข (๐ด โ โค โ (๐ด โ 1) โ
โค) |
4 | 3 | zred 12631 |
. . . . . . . . 9
โข (๐ด โ โค โ (๐ด โ 1) โ
โ) |
5 | 4 | adantr 481 |
. . . . . . . 8
โข ((๐ด โ โค โง ๐ โ โ) โ (๐ด โ 1) โ
โ) |
6 | | nnrp 12950 |
. . . . . . . . 9
โข (๐ โ โ โ ๐ โ
โ+) |
7 | 6 | adantl 482 |
. . . . . . . 8
โข ((๐ด โ โค โง ๐ โ โ) โ ๐ โ
โ+) |
8 | 5, 7 | modcld 13805 |
. . . . . . 7
โข ((๐ด โ โค โง ๐ โ โ) โ ((๐ด โ 1) mod ๐) โ
โ) |
9 | 8 | recnd 11207 |
. . . . . 6
โข ((๐ด โ โค โง ๐ โ โ) โ ((๐ด โ 1) mod ๐) โ
โ) |
10 | 9 | subid1d 11525 |
. . . . 5
โข ((๐ด โ โค โง ๐ โ โ) โ (((๐ด โ 1) mod ๐) โ 0) = ((๐ด โ 1) mod ๐)) |
11 | 10 | adantr 481 |
. . . 4
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ด mod ๐) = 0) โ (((๐ด โ 1) mod ๐) โ 0) = ((๐ด โ 1) mod ๐)) |
12 | | mod0mul 46758 |
. . . . . 6
โข ((๐ด โ โค โง ๐ โ โ) โ ((๐ด mod ๐) = 0 โ โ๐ฅ โ โค ๐ด = (๐ฅ ยท ๐))) |
13 | 12 | imp 407 |
. . . . 5
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ด mod ๐) = 0) โ โ๐ฅ โ โค ๐ด = (๐ฅ ยท ๐)) |
14 | | oveq1 7384 |
. . . . . . . . 9
โข (๐ด = (๐ฅ ยท ๐) โ (๐ด โ 1) = ((๐ฅ ยท ๐) โ 1)) |
15 | 14 | oveq1d 7392 |
. . . . . . . 8
โข (๐ด = (๐ฅ ยท ๐) โ ((๐ด โ 1) mod ๐) = (((๐ฅ ยท ๐) โ 1) mod ๐)) |
16 | | zcn 12528 |
. . . . . . . . . . . . . . . 16
โข (๐ฅ โ โค โ ๐ฅ โ
โ) |
17 | | nncn 12185 |
. . . . . . . . . . . . . . . . 17
โข (๐ โ โ โ ๐ โ
โ) |
18 | 17 | adantl 482 |
. . . . . . . . . . . . . . . 16
โข ((๐ด โ โค โง ๐ โ โ) โ ๐ โ
โ) |
19 | | mulcl 11159 |
. . . . . . . . . . . . . . . 16
โข ((๐ฅ โ โ โง ๐ โ โ) โ (๐ฅ ยท ๐) โ โ) |
20 | 16, 18, 19 | syl2anr 597 |
. . . . . . . . . . . . . . 15
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (๐ฅ ยท ๐) โ โ) |
21 | 18 | adantr 481 |
. . . . . . . . . . . . . . 15
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ ๐ โ
โ) |
22 | 20, 21 | npcand 11540 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (((๐ฅ ยท ๐) โ ๐) + ๐) = (๐ฅ ยท ๐)) |
23 | 22 | eqcomd 2737 |
. . . . . . . . . . . . 13
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (๐ฅ ยท ๐) = (((๐ฅ ยท ๐) โ ๐) + ๐)) |
24 | 16 | adantl 482 |
. . . . . . . . . . . . . . 15
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ ๐ฅ โ
โ) |
25 | 24, 21 | mulsubfacd 11640 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ ((๐ฅ ยท ๐) โ ๐) = ((๐ฅ โ 1) ยท ๐)) |
26 | 25 | oveq1d 7392 |
. . . . . . . . . . . . 13
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (((๐ฅ ยท ๐) โ ๐) + ๐) = (((๐ฅ โ 1) ยท ๐) + ๐)) |
27 | 23, 26 | eqtrd 2771 |
. . . . . . . . . . . 12
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (๐ฅ ยท ๐) = (((๐ฅ โ 1) ยท ๐) + ๐)) |
28 | 27 | oveq1d 7392 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ ((๐ฅ ยท ๐) โ 1) = ((((๐ฅ โ 1) ยท ๐) + ๐) โ 1)) |
29 | | peano2zm 12570 |
. . . . . . . . . . . . . 14
โข (๐ฅ โ โค โ (๐ฅ โ 1) โ
โค) |
30 | 29 | zcnd 12632 |
. . . . . . . . . . . . 13
โข (๐ฅ โ โค โ (๐ฅ โ 1) โ
โ) |
31 | | mulcl 11159 |
. . . . . . . . . . . . 13
โข (((๐ฅ โ 1) โ โ โง
๐ โ โ) โ
((๐ฅ โ 1) ยท
๐) โ
โ) |
32 | 30, 18, 31 | syl2anr 597 |
. . . . . . . . . . . 12
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ ((๐ฅ โ 1) ยท ๐) โ
โ) |
33 | | 1cnd 11174 |
. . . . . . . . . . . 12
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ 1 โ
โ) |
34 | 32, 21, 33 | addsubassd 11556 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ
((((๐ฅ โ 1) ยท
๐) + ๐) โ 1) = (((๐ฅ โ 1) ยท ๐) + (๐ โ 1))) |
35 | 28, 34 | eqtrd 2771 |
. . . . . . . . . 10
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ ((๐ฅ ยท ๐) โ 1) = (((๐ฅ โ 1) ยท ๐) + (๐ โ 1))) |
36 | 35 | oveq1d 7392 |
. . . . . . . . 9
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (((๐ฅ ยท ๐) โ 1) mod ๐) = ((((๐ฅ โ 1) ยท ๐) + (๐ โ 1)) mod ๐)) |
37 | | nnre 12184 |
. . . . . . . . . . . . . . 15
โข (๐ โ โ โ ๐ โ
โ) |
38 | | peano2rem 11492 |
. . . . . . . . . . . . . . 15
โข (๐ โ โ โ (๐ โ 1) โ
โ) |
39 | 37, 38 | syl 17 |
. . . . . . . . . . . . . 14
โข (๐ โ โ โ (๐ โ 1) โ
โ) |
40 | 39 | recnd 11207 |
. . . . . . . . . . . . 13
โข (๐ โ โ โ (๐ โ 1) โ
โ) |
41 | 40 | adantl 482 |
. . . . . . . . . . . 12
โข ((๐ด โ โค โง ๐ โ โ) โ (๐ โ 1) โ
โ) |
42 | 41 | adantr 481 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (๐ โ 1) โ
โ) |
43 | 32, 42 | addcomd 11381 |
. . . . . . . . . 10
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (((๐ฅ โ 1) ยท ๐) + (๐ โ 1)) = ((๐ โ 1) + ((๐ฅ โ 1) ยท ๐))) |
44 | 43 | oveq1d 7392 |
. . . . . . . . 9
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ
((((๐ฅ โ 1) ยท
๐) + (๐ โ 1)) mod ๐) = (((๐ โ 1) + ((๐ฅ โ 1) ยท ๐)) mod ๐)) |
45 | 39 | adantl 482 |
. . . . . . . . . . . 12
โข ((๐ด โ โค โง ๐ โ โ) โ (๐ โ 1) โ
โ) |
46 | 45 | adantr 481 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (๐ โ 1) โ
โ) |
47 | 7 | adantr 481 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ ๐ โ
โ+) |
48 | 29 | adantl 482 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (๐ฅ โ 1) โ
โค) |
49 | | modcyc 13836 |
. . . . . . . . . . 11
โข (((๐ โ 1) โ โ โง
๐ โ
โ+ โง (๐ฅ โ 1) โ โค) โ (((๐ โ 1) + ((๐ฅ โ 1) ยท ๐)) mod ๐) = ((๐ โ 1) mod ๐)) |
50 | 46, 47, 48, 49 | syl3anc 1371 |
. . . . . . . . . 10
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (((๐ โ 1) + ((๐ฅ โ 1) ยท ๐)) mod ๐) = ((๐ โ 1) mod ๐)) |
51 | 39, 6 | jca 512 |
. . . . . . . . . . . . 13
โข (๐ โ โ โ ((๐ โ 1) โ โ โง
๐ โ
โ+)) |
52 | 51 | adantl 482 |
. . . . . . . . . . . 12
โข ((๐ด โ โค โง ๐ โ โ) โ ((๐ โ 1) โ โ โง
๐ โ
โ+)) |
53 | 52 | adantr 481 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ ((๐ โ 1) โ โ โง
๐ โ
โ+)) |
54 | | nnm1ge0 12595 |
. . . . . . . . . . . . 13
โข (๐ โ โ โ 0 โค
(๐ โ
1)) |
55 | 54 | adantl 482 |
. . . . . . . . . . . 12
โข ((๐ด โ โค โง ๐ โ โ) โ 0 โค
(๐ โ
1)) |
56 | 55 | adantr 481 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ 0 โค
(๐ โ
1)) |
57 | 37 | ltm1d 12111 |
. . . . . . . . . . . . 13
โข (๐ โ โ โ (๐ โ 1) < ๐) |
58 | 57 | adantl 482 |
. . . . . . . . . . . 12
โข ((๐ด โ โค โง ๐ โ โ) โ (๐ โ 1) < ๐) |
59 | 58 | adantr 481 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (๐ โ 1) < ๐) |
60 | | modid 13826 |
. . . . . . . . . . 11
โข ((((๐ โ 1) โ โ โง
๐ โ
โ+) โง (0 โค (๐ โ 1) โง (๐ โ 1) < ๐)) โ ((๐ โ 1) mod ๐) = (๐ โ 1)) |
61 | 53, 56, 59, 60 | syl12anc 835 |
. . . . . . . . . 10
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ ((๐ โ 1) mod ๐) = (๐ โ 1)) |
62 | 50, 61 | eqtrd 2771 |
. . . . . . . . 9
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (((๐ โ 1) + ((๐ฅ โ 1) ยท ๐)) mod ๐) = (๐ โ 1)) |
63 | 36, 44, 62 | 3eqtrd 2775 |
. . . . . . . 8
โข (((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โ (((๐ฅ ยท ๐) โ 1) mod ๐) = (๐ โ 1)) |
64 | 15, 63 | sylan9eqr 2793 |
. . . . . . 7
โข ((((๐ด โ โค โง ๐ โ โ) โง ๐ฅ โ โค) โง ๐ด = (๐ฅ ยท ๐)) โ ((๐ด โ 1) mod ๐) = (๐ โ 1)) |
65 | 64 | rexlimdva2 3156 |
. . . . . 6
โข ((๐ด โ โค โง ๐ โ โ) โ
(โ๐ฅ โ โค
๐ด = (๐ฅ ยท ๐) โ ((๐ด โ 1) mod ๐) = (๐ โ 1))) |
66 | 65 | adantr 481 |
. . . . 5
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ด mod ๐) = 0) โ (โ๐ฅ โ โค ๐ด = (๐ฅ ยท ๐) โ ((๐ด โ 1) mod ๐) = (๐ โ 1))) |
67 | 13, 66 | mpd 15 |
. . . 4
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ด mod ๐) = 0) โ ((๐ด โ 1) mod ๐) = (๐ โ 1)) |
68 | 2, 11, 67 | 3eqtrrd 2776 |
. . 3
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ด mod ๐) = 0) โ (๐ โ 1) = (((๐ด โ 1) mod ๐) โ (๐ด mod ๐))) |
69 | | df-ne 2940 |
. . . . 5
โข ((๐ด mod ๐) โ 0 โ ยฌ (๐ด mod ๐) = 0) |
70 | | modn0mul 46759 |
. . . . . 6
โข ((๐ด โ โค โง ๐ โ โ) โ ((๐ด mod ๐) โ 0 โ โ๐ฅ โ โค โ๐ฆ โ (1..^๐)๐ด = ((๐ฅ ยท ๐) + ๐ฆ))) |
71 | | oveq1 7384 |
. . . . . . . . . . . . 13
โข (๐ด = ((๐ฅ ยท ๐) + ๐ฆ) โ (๐ด โ 1) = (((๐ฅ ยท ๐) + ๐ฆ) โ 1)) |
72 | 71 | oveq1d 7392 |
. . . . . . . . . . . 12
โข (๐ด = ((๐ฅ ยท ๐) + ๐ฆ) โ ((๐ด โ 1) mod ๐) = ((((๐ฅ ยท ๐) + ๐ฆ) โ 1) mod ๐)) |
73 | | oveq1 7384 |
. . . . . . . . . . . 12
โข (๐ด = ((๐ฅ ยท ๐) + ๐ฆ) โ (๐ด mod ๐) = (((๐ฅ ยท ๐) + ๐ฆ) mod ๐)) |
74 | 72, 73 | oveq12d 7395 |
. . . . . . . . . . 11
โข (๐ด = ((๐ฅ ยท ๐) + ๐ฆ) โ (((๐ด โ 1) mod ๐) โ (๐ด mod ๐)) = (((((๐ฅ ยท ๐) + ๐ฆ) โ 1) mod ๐) โ (((๐ฅ ยท ๐) + ๐ฆ) mod ๐))) |
75 | 16 | adantr 481 |
. . . . . . . . . . . . . . . . 17
โข ((๐ฅ โ โค โง ๐ฆ โ (1..^๐)) โ ๐ฅ โ โ) |
76 | 75, 18, 19 | syl2anr 597 |
. . . . . . . . . . . . . . . 16
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (๐ฅ ยท ๐) โ โ) |
77 | | elfzoelz 13597 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ฆ โ (1..^๐) โ ๐ฆ โ โค) |
78 | 77 | zcnd 12632 |
. . . . . . . . . . . . . . . . . 18
โข (๐ฆ โ (1..^๐) โ ๐ฆ โ โ) |
79 | 78 | adantl 482 |
. . . . . . . . . . . . . . . . 17
โข ((๐ฅ โ โค โง ๐ฆ โ (1..^๐)) โ ๐ฆ โ โ) |
80 | 79 | adantl 482 |
. . . . . . . . . . . . . . . 16
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ๐ฆ โ โ) |
81 | | 1cnd 11174 |
. . . . . . . . . . . . . . . 16
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ 1 โ
โ) |
82 | 76, 80, 81 | addsubassd 11556 |
. . . . . . . . . . . . . . 15
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (((๐ฅ ยท ๐) + ๐ฆ) โ 1) = ((๐ฅ ยท ๐) + (๐ฆ โ 1))) |
83 | | peano2zm 12570 |
. . . . . . . . . . . . . . . . . . . 20
โข (๐ฆ โ โค โ (๐ฆ โ 1) โ
โค) |
84 | 77, 83 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ฆ โ (1..^๐) โ (๐ฆ โ 1) โ โค) |
85 | 84 | zcnd 12632 |
. . . . . . . . . . . . . . . . . 18
โข (๐ฆ โ (1..^๐) โ (๐ฆ โ 1) โ โ) |
86 | 85 | adantl 482 |
. . . . . . . . . . . . . . . . 17
โข ((๐ฅ โ โค โง ๐ฆ โ (1..^๐)) โ (๐ฆ โ 1) โ โ) |
87 | 86 | adantl 482 |
. . . . . . . . . . . . . . . 16
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (๐ฆ โ 1) โ โ) |
88 | 76, 87 | addcomd 11381 |
. . . . . . . . . . . . . . 15
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ((๐ฅ ยท ๐) + (๐ฆ โ 1)) = ((๐ฆ โ 1) + (๐ฅ ยท ๐))) |
89 | 82, 88 | eqtrd 2771 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (((๐ฅ ยท ๐) + ๐ฆ) โ 1) = ((๐ฆ โ 1) + (๐ฅ ยท ๐))) |
90 | 89 | oveq1d 7392 |
. . . . . . . . . . . . 13
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ((((๐ฅ ยท ๐) + ๐ฆ) โ 1) mod ๐) = (((๐ฆ โ 1) + (๐ฅ ยท ๐)) mod ๐)) |
91 | 84 | zred 12631 |
. . . . . . . . . . . . . . . 16
โข (๐ฆ โ (1..^๐) โ (๐ฆ โ 1) โ โ) |
92 | 91 | adantl 482 |
. . . . . . . . . . . . . . 15
โข ((๐ฅ โ โค โง ๐ฆ โ (1..^๐)) โ (๐ฆ โ 1) โ โ) |
93 | 92 | adantl 482 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (๐ฆ โ 1) โ โ) |
94 | 7 | adantr 481 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ๐ โ
โ+) |
95 | | simprl 769 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ๐ฅ โ โค) |
96 | | modcyc 13836 |
. . . . . . . . . . . . . 14
โข (((๐ฆ โ 1) โ โ โง
๐ โ
โ+ โง ๐ฅ
โ โค) โ (((๐ฆ
โ 1) + (๐ฅ ยท
๐)) mod ๐) = ((๐ฆ โ 1) mod ๐)) |
97 | 93, 94, 95, 96 | syl3anc 1371 |
. . . . . . . . . . . . 13
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (((๐ฆ โ 1) + (๐ฅ ยท ๐)) mod ๐) = ((๐ฆ โ 1) mod ๐)) |
98 | 90, 97 | eqtrd 2771 |
. . . . . . . . . . . 12
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ((((๐ฅ ยท ๐) + ๐ฆ) โ 1) mod ๐) = ((๐ฆ โ 1) mod ๐)) |
99 | 76, 80 | addcomd 11381 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ((๐ฅ ยท ๐) + ๐ฆ) = (๐ฆ + (๐ฅ ยท ๐))) |
100 | 99 | oveq1d 7392 |
. . . . . . . . . . . . 13
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (((๐ฅ ยท ๐) + ๐ฆ) mod ๐) = ((๐ฆ + (๐ฅ ยท ๐)) mod ๐)) |
101 | 77 | zred 12631 |
. . . . . . . . . . . . . . . 16
โข (๐ฆ โ (1..^๐) โ ๐ฆ โ โ) |
102 | 101 | adantl 482 |
. . . . . . . . . . . . . . 15
โข ((๐ฅ โ โค โง ๐ฆ โ (1..^๐)) โ ๐ฆ โ โ) |
103 | 102 | adantl 482 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ๐ฆ โ โ) |
104 | | modcyc 13836 |
. . . . . . . . . . . . . 14
โข ((๐ฆ โ โ โง ๐ โ โ+
โง ๐ฅ โ โค)
โ ((๐ฆ + (๐ฅ ยท ๐)) mod ๐) = (๐ฆ mod ๐)) |
105 | 103, 94, 95, 104 | syl3anc 1371 |
. . . . . . . . . . . . 13
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ((๐ฆ + (๐ฅ ยท ๐)) mod ๐) = (๐ฆ mod ๐)) |
106 | 7, 102 | anim12ci 614 |
. . . . . . . . . . . . . . 15
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (๐ฆ โ โ โง ๐ โ
โ+)) |
107 | | elfzole1 13605 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ฆ โ (1..^๐) โ 1 โค ๐ฆ) |
108 | | 0lt1 11701 |
. . . . . . . . . . . . . . . . . . . 20
โข 0 <
1 |
109 | | 0red 11182 |
. . . . . . . . . . . . . . . . . . . . 21
โข (๐ฆ โ (1..^๐) โ 0 โ โ) |
110 | | 1red 11180 |
. . . . . . . . . . . . . . . . . . . . 21
โข (๐ฆ โ (1..^๐) โ 1 โ โ) |
111 | | ltleletr 11272 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((0
โ โ โง 1 โ โ โง ๐ฆ โ โ) โ ((0 < 1 โง 1
โค ๐ฆ) โ 0 โค ๐ฆ)) |
112 | 109, 110,
101, 111 | syl3anc 1371 |
. . . . . . . . . . . . . . . . . . . 20
โข (๐ฆ โ (1..^๐) โ ((0 < 1 โง 1 โค ๐ฆ) โ 0 โค ๐ฆ)) |
113 | 108, 112 | mpani 694 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ฆ โ (1..^๐) โ (1 โค ๐ฆ โ 0 โค ๐ฆ)) |
114 | 107, 113 | mpd 15 |
. . . . . . . . . . . . . . . . . 18
โข (๐ฆ โ (1..^๐) โ 0 โค ๐ฆ) |
115 | | elfzolt2 13606 |
. . . . . . . . . . . . . . . . . 18
โข (๐ฆ โ (1..^๐) โ ๐ฆ < ๐) |
116 | 114, 115 | jca 512 |
. . . . . . . . . . . . . . . . 17
โข (๐ฆ โ (1..^๐) โ (0 โค ๐ฆ โง ๐ฆ < ๐)) |
117 | 116 | adantl 482 |
. . . . . . . . . . . . . . . 16
โข ((๐ฅ โ โค โง ๐ฆ โ (1..^๐)) โ (0 โค ๐ฆ โง ๐ฆ < ๐)) |
118 | 117 | adantl 482 |
. . . . . . . . . . . . . . 15
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (0 โค ๐ฆ โง ๐ฆ < ๐)) |
119 | 106, 118 | jca 512 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ((๐ฆ โ โ โง ๐ โ โ+) โง (0 โค
๐ฆ โง ๐ฆ < ๐))) |
120 | | modid 13826 |
. . . . . . . . . . . . . 14
โข (((๐ฆ โ โ โง ๐ โ โ+)
โง (0 โค ๐ฆ โง ๐ฆ < ๐)) โ (๐ฆ mod ๐) = ๐ฆ) |
121 | 119, 120 | syl 17 |
. . . . . . . . . . . . 13
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (๐ฆ mod ๐) = ๐ฆ) |
122 | 100, 105,
121 | 3eqtrd 2775 |
. . . . . . . . . . . 12
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (((๐ฅ ยท ๐) + ๐ฆ) mod ๐) = ๐ฆ) |
123 | 98, 122 | oveq12d 7395 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (((((๐ฅ ยท ๐) + ๐ฆ) โ 1) mod ๐) โ (((๐ฅ ยท ๐) + ๐ฆ) mod ๐)) = (((๐ฆ โ 1) mod ๐) โ ๐ฆ)) |
124 | 74, 123 | sylan9eqr 2793 |
. . . . . . . . . 10
โข ((((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โง ๐ด = ((๐ฅ ยท ๐) + ๐ฆ)) โ (((๐ด โ 1) mod ๐) โ (๐ด mod ๐)) = (((๐ฆ โ 1) mod ๐) โ ๐ฆ)) |
125 | 7, 92 | anim12ci 614 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ((๐ฆ โ 1) โ โ โง ๐ โ
โ+)) |
126 | | elfzo2 13600 |
. . . . . . . . . . . . . . . . 17
โข (๐ฆ โ (1..^๐) โ (๐ฆ โ (โคโฅโ1)
โง ๐ โ โค
โง ๐ฆ < ๐)) |
127 | | eluz2 12793 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ฆ โ
(โคโฅโ1) โ (1 โ โค โง ๐ฆ โ โค โง 1 โค
๐ฆ)) |
128 | | zre 12527 |
. . . . . . . . . . . . . . . . . . . . 21
โข (๐ฆ โ โค โ ๐ฆ โ
โ) |
129 | | zre 12527 |
. . . . . . . . . . . . . . . . . . . . 21
โข (1 โ
โค โ 1 โ โ) |
130 | | subge0 11692 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((๐ฆ โ โ โง 1 โ
โ) โ (0 โค (๐ฆ
โ 1) โ 1 โค ๐ฆ)) |
131 | 128, 129,
130 | syl2anr 597 |
. . . . . . . . . . . . . . . . . . . 20
โข ((1
โ โค โง ๐ฆ
โ โค) โ (0 โค (๐ฆ โ 1) โ 1 โค ๐ฆ)) |
132 | 131 | biimp3ar 1470 |
. . . . . . . . . . . . . . . . . . 19
โข ((1
โ โค โง ๐ฆ
โ โค โง 1 โค ๐ฆ) โ 0 โค (๐ฆ โ 1)) |
133 | 127, 132 | sylbi 216 |
. . . . . . . . . . . . . . . . . 18
โข (๐ฆ โ
(โคโฅโ1) โ 0 โค (๐ฆ โ 1)) |
134 | 133 | 3ad2ant1 1133 |
. . . . . . . . . . . . . . . . 17
โข ((๐ฆ โ
(โคโฅโ1) โง ๐ โ โค โง ๐ฆ < ๐) โ 0 โค (๐ฆ โ 1)) |
135 | 126, 134 | sylbi 216 |
. . . . . . . . . . . . . . . 16
โข (๐ฆ โ (1..^๐) โ 0 โค (๐ฆ โ 1)) |
136 | 135 | adantl 482 |
. . . . . . . . . . . . . . 15
โข ((๐ฅ โ โค โง ๐ฆ โ (1..^๐)) โ 0 โค (๐ฆ โ 1)) |
137 | 136 | adantl 482 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ 0 โค (๐ฆ โ 1)) |
138 | | eluzelz 12797 |
. . . . . . . . . . . . . . . . . . . . . 22
โข (๐ฆ โ
(โคโฅโ1) โ ๐ฆ โ โค) |
139 | 138 | zred 12631 |
. . . . . . . . . . . . . . . . . . . . 21
โข (๐ฆ โ
(โคโฅโ1) โ ๐ฆ โ โ) |
140 | | zre 12527 |
. . . . . . . . . . . . . . . . . . . . 21
โข (๐ โ โค โ ๐ โ
โ) |
141 | | ltle 11267 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((๐ฆ โ โ โง ๐ โ โ) โ (๐ฆ < ๐ โ ๐ฆ โค ๐)) |
142 | 139, 140,
141 | syl2an 596 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ฆ โ
(โคโฅโ1) โง ๐ โ โค) โ (๐ฆ < ๐ โ ๐ฆ โค ๐)) |
143 | 142 | 3impia 1117 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ฆ โ
(โคโฅโ1) โง ๐ โ โค โง ๐ฆ < ๐) โ ๐ฆ โค ๐) |
144 | 138 | anim1i 615 |
. . . . . . . . . . . . . . . . . . . . 21
โข ((๐ฆ โ
(โคโฅโ1) โง ๐ โ โค) โ (๐ฆ โ โค โง ๐ โ โค)) |
145 | 144 | 3adant3 1132 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ฆ โ
(โคโฅโ1) โง ๐ โ โค โง ๐ฆ < ๐) โ (๐ฆ โ โค โง ๐ โ โค)) |
146 | | zlem1lt 12579 |
. . . . . . . . . . . . . . . . . . . 20
โข ((๐ฆ โ โค โง ๐ โ โค) โ (๐ฆ โค ๐ โ (๐ฆ โ 1) < ๐)) |
147 | 145, 146 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
โข ((๐ฆ โ
(โคโฅโ1) โง ๐ โ โค โง ๐ฆ < ๐) โ (๐ฆ โค ๐ โ (๐ฆ โ 1) < ๐)) |
148 | 143, 147 | mpbid 231 |
. . . . . . . . . . . . . . . . . 18
โข ((๐ฆ โ
(โคโฅโ1) โง ๐ โ โค โง ๐ฆ < ๐) โ (๐ฆ โ 1) < ๐) |
149 | 148 | a1d 25 |
. . . . . . . . . . . . . . . . 17
โข ((๐ฆ โ
(โคโฅโ1) โง ๐ โ โค โง ๐ฆ < ๐) โ ((๐ด โ โค โง ๐ โ โ) โ (๐ฆ โ 1) < ๐)) |
150 | 126, 149 | sylbi 216 |
. . . . . . . . . . . . . . . 16
โข (๐ฆ โ (1..^๐) โ ((๐ด โ โค โง ๐ โ โ) โ (๐ฆ โ 1) < ๐)) |
151 | 150 | adantl 482 |
. . . . . . . . . . . . . . 15
โข ((๐ฅ โ โค โง ๐ฆ โ (1..^๐)) โ ((๐ด โ โค โง ๐ โ โ) โ (๐ฆ โ 1) < ๐)) |
152 | 151 | impcom 408 |
. . . . . . . . . . . . . 14
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (๐ฆ โ 1) < ๐) |
153 | | modid 13826 |
. . . . . . . . . . . . . 14
โข ((((๐ฆ โ 1) โ โ โง
๐ โ
โ+) โง (0 โค (๐ฆ โ 1) โง (๐ฆ โ 1) < ๐)) โ ((๐ฆ โ 1) mod ๐) = (๐ฆ โ 1)) |
154 | 125, 137,
152, 153 | syl12anc 835 |
. . . . . . . . . . . . 13
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ((๐ฆ โ 1) mod ๐) = (๐ฆ โ 1)) |
155 | 154 | oveq1d 7392 |
. . . . . . . . . . . 12
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (((๐ฆ โ 1) mod ๐) โ ๐ฆ) = ((๐ฆ โ 1) โ ๐ฆ)) |
156 | | 1cnd 11174 |
. . . . . . . . . . . . . . . . 17
โข (๐ฆ โ (1..^๐) โ 1 โ โ) |
157 | 78, 156, 78 | sub32d 11568 |
. . . . . . . . . . . . . . . 16
โข (๐ฆ โ (1..^๐) โ ((๐ฆ โ 1) โ ๐ฆ) = ((๐ฆ โ ๐ฆ) โ 1)) |
158 | 78 | subidd 11524 |
. . . . . . . . . . . . . . . . 17
โข (๐ฆ โ (1..^๐) โ (๐ฆ โ ๐ฆ) = 0) |
159 | 158 | oveq1d 7392 |
. . . . . . . . . . . . . . . 16
โข (๐ฆ โ (1..^๐) โ ((๐ฆ โ ๐ฆ) โ 1) = (0 โ
1)) |
160 | 157, 159 | eqtrd 2771 |
. . . . . . . . . . . . . . 15
โข (๐ฆ โ (1..^๐) โ ((๐ฆ โ 1) โ ๐ฆ) = (0 โ 1)) |
161 | 160 | adantl 482 |
. . . . . . . . . . . . . 14
โข ((๐ฅ โ โค โง ๐ฆ โ (1..^๐)) โ ((๐ฆ โ 1) โ ๐ฆ) = (0 โ 1)) |
162 | 161 | adantl 482 |
. . . . . . . . . . . . 13
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ((๐ฆ โ 1) โ ๐ฆ) = (0 โ 1)) |
163 | | df-neg 11412 |
. . . . . . . . . . . . 13
โข -1 = (0
โ 1) |
164 | 162, 163 | eqtr4di 2789 |
. . . . . . . . . . . 12
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ ((๐ฆ โ 1) โ ๐ฆ) = -1) |
165 | 155, 164 | eqtrd 2771 |
. . . . . . . . . . 11
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (((๐ฆ โ 1) mod ๐) โ ๐ฆ) = -1) |
166 | 165 | adantr 481 |
. . . . . . . . . 10
โข ((((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โง ๐ด = ((๐ฅ ยท ๐) + ๐ฆ)) โ (((๐ฆ โ 1) mod ๐) โ ๐ฆ) = -1) |
167 | 124, 166 | eqtrd 2771 |
. . . . . . . . 9
โข ((((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โง ๐ด = ((๐ฅ ยท ๐) + ๐ฆ)) โ (((๐ด โ 1) mod ๐) โ (๐ด mod ๐)) = -1) |
168 | 167 | eqcomd 2737 |
. . . . . . . 8
โข ((((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โง ๐ด = ((๐ฅ ยท ๐) + ๐ฆ)) โ -1 = (((๐ด โ 1) mod ๐) โ (๐ด mod ๐))) |
169 | 168 | ex 413 |
. . . . . . 7
โข (((๐ด โ โค โง ๐ โ โ) โง (๐ฅ โ โค โง ๐ฆ โ (1..^๐))) โ (๐ด = ((๐ฅ ยท ๐) + ๐ฆ) โ -1 = (((๐ด โ 1) mod ๐) โ (๐ด mod ๐)))) |
170 | 169 | rexlimdvva 3210 |
. . . . . 6
โข ((๐ด โ โค โง ๐ โ โ) โ
(โ๐ฅ โ โค
โ๐ฆ โ (1..^๐)๐ด = ((๐ฅ ยท ๐) + ๐ฆ) โ -1 = (((๐ด โ 1) mod ๐) โ (๐ด mod ๐)))) |
171 | 70, 170 | syld 47 |
. . . . 5
โข ((๐ด โ โค โง ๐ โ โ) โ ((๐ด mod ๐) โ 0 โ -1 = (((๐ด โ 1) mod ๐) โ (๐ด mod ๐)))) |
172 | 69, 171 | biimtrrid 242 |
. . . 4
โข ((๐ด โ โค โง ๐ โ โ) โ (ยฌ
(๐ด mod ๐) = 0 โ -1 = (((๐ด โ 1) mod ๐) โ (๐ด mod ๐)))) |
173 | 172 | imp 407 |
. . 3
โข (((๐ด โ โค โง ๐ โ โ) โง ยฌ
(๐ด mod ๐) = 0) โ -1 = (((๐ด โ 1) mod ๐) โ (๐ด mod ๐))) |
174 | 68, 173 | ifeqda 4542 |
. 2
โข ((๐ด โ โค โง ๐ โ โ) โ
if((๐ด mod ๐) = 0, (๐ โ 1), -1) = (((๐ด โ 1) mod ๐) โ (๐ด mod ๐))) |
175 | 174 | eqcomd 2737 |
1
โข ((๐ด โ โค โง ๐ โ โ) โ (((๐ด โ 1) mod ๐) โ (๐ด mod ๐)) = if((๐ด mod ๐) = 0, (๐ โ 1), -1)) |