Step | Hyp | Ref
| Expression |
1 | | 1zzd 9282 |
. . . 4
โข (((๐ด โ โค โง ๐ โ โค) โง ๐ = 0) โ 1 โ
โค) |
2 | | 0zd 9267 |
. . . 4
โข (((๐ด โ โค โง ๐ โ โค) โง ๐ = 0) โ 0 โ
โค) |
3 | | zsqcl 10593 |
. . . . . 6
โข (๐ด โ โค โ (๐ดโ2) โ
โค) |
4 | 3 | ad2antrr 488 |
. . . . 5
โข (((๐ด โ โค โง ๐ โ โค) โง ๐ = 0) โ (๐ดโ2) โ โค) |
5 | | zdceq 9330 |
. . . . 5
โข (((๐ดโ2) โ โค โง 1
โ โค) โ DECID (๐ดโ2) = 1) |
6 | 4, 1, 5 | syl2anc 411 |
. . . 4
โข (((๐ด โ โค โง ๐ โ โค) โง ๐ = 0) โ
DECID (๐ดโ2) = 1) |
7 | 1, 2, 6 | ifcldcd 3572 |
. . 3
โข (((๐ด โ โค โง ๐ โ โค) โง ๐ = 0) โ if((๐ดโ2) = 1, 1, 0) โ
โค) |
8 | | neg1z 9287 |
. . . . . 6
โข -1 โ
โค |
9 | 8 | a1i 9 |
. . . . 5
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ -1 โ
โค) |
10 | | 1zzd 9282 |
. . . . 5
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ 1 โ
โค) |
11 | | simpr 110 |
. . . . . . 7
โข ((๐ด โ โค โง ๐ โ โค) โ ๐ โ
โค) |
12 | | 0zd 9267 |
. . . . . . 7
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ 0 โ
โค) |
13 | | zdclt 9332 |
. . . . . . 7
โข ((๐ โ โค โง 0 โ
โค) โ DECID ๐ < 0) |
14 | 11, 12, 13 | syl2an2r 595 |
. . . . . 6
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ
DECID ๐ <
0) |
15 | | simpl 109 |
. . . . . . 7
โข ((๐ด โ โค โง ๐ โ โค) โ ๐ด โ
โค) |
16 | | zdclt 9332 |
. . . . . . 7
โข ((๐ด โ โค โง 0 โ
โค) โ DECID ๐ด < 0) |
17 | 15, 12, 16 | syl2an2r 595 |
. . . . . 6
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ
DECID ๐ด <
0) |
18 | | dcan2 934 |
. . . . . 6
โข
(DECID ๐ < 0 โ (DECID ๐ด < 0 โ
DECID (๐
< 0 โง ๐ด <
0))) |
19 | 14, 17, 18 | sylc 62 |
. . . . 5
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ
DECID (๐
< 0 โง ๐ด <
0)) |
20 | 9, 10, 19 | ifcldcd 3572 |
. . . 4
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ if((๐ < 0 โง ๐ด < 0), -1, 1) โ
โค) |
21 | | nnuz 9565 |
. . . . . 6
โข โ =
(โคโฅโ1) |
22 | | lgsval.1 |
. . . . . . . 8
โข ๐น = (๐ โ โ โฆ if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1)) |
23 | | eleq1w 2238 |
. . . . . . . . 9
โข (๐ = ๐ โ (๐ โ โ โ ๐ โ โ)) |
24 | | eqeq1 2184 |
. . . . . . . . . . 11
โข (๐ = ๐ โ (๐ = 2 โ ๐ = 2)) |
25 | | oveq1 5884 |
. . . . . . . . . . . . . . . 16
โข (๐ = ๐ โ (๐ โ 1) = (๐ โ 1)) |
26 | 25 | oveq1d 5892 |
. . . . . . . . . . . . . . 15
โข (๐ = ๐ โ ((๐ โ 1) / 2) = ((๐ โ 1) / 2)) |
27 | 26 | oveq2d 5893 |
. . . . . . . . . . . . . 14
โข (๐ = ๐ โ (๐ดโ((๐ โ 1) / 2)) = (๐ดโ((๐ โ 1) / 2))) |
28 | 27 | oveq1d 5892 |
. . . . . . . . . . . . 13
โข (๐ = ๐ โ ((๐ดโ((๐ โ 1) / 2)) + 1) = ((๐ดโ((๐ โ 1) / 2)) + 1)) |
29 | | id 19 |
. . . . . . . . . . . . 13
โข (๐ = ๐ โ ๐ = ๐) |
30 | 28, 29 | oveq12d 5895 |
. . . . . . . . . . . 12
โข (๐ = ๐ โ (((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) = (((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐)) |
31 | 30 | oveq1d 5892 |
. . . . . . . . . . 11
โข (๐ = ๐ โ ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1) = ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1)) |
32 | 24, 31 | ifbieq2d 3560 |
. . . . . . . . . 10
โข (๐ = ๐ โ if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1)) = if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))) |
33 | | oveq1 5884 |
. . . . . . . . . 10
โข (๐ = ๐ โ (๐ pCnt ๐) = (๐ pCnt ๐)) |
34 | 32, 33 | oveq12d 5895 |
. . . . . . . . 9
โข (๐ = ๐ โ (if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)) = (if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐))) |
35 | 23, 34 | ifbieq1d 3558 |
. . . . . . . 8
โข (๐ = ๐ โ if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1) = if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1)) |
36 | | simpr 110 |
. . . . . . . 8
โข ((((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โง ๐ โ โ) โ ๐ โ
โ) |
37 | | 0zd 9267 |
. . . . . . . . . . . 12
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ๐ = 2) โ 0
โ โค) |
38 | | 1zzd 9282 |
. . . . . . . . . . . . 13
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ๐ = 2) โ 1
โ โค) |
39 | 38 | znegcld 9379 |
. . . . . . . . . . . . 13
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ๐ = 2) โ -1
โ โค) |
40 | | id 19 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ด โ โค โ ๐ด โ
โค) |
41 | | 8nn 9088 |
. . . . . . . . . . . . . . . . . . . 20
โข 8 โ
โ |
42 | 41 | a1i 9 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ด โ โค โ 8 โ
โ) |
43 | 40, 42 | zmodcld 10347 |
. . . . . . . . . . . . . . . . . 18
โข (๐ด โ โค โ (๐ด mod 8) โ
โ0) |
44 | 43 | nn0zd 9375 |
. . . . . . . . . . . . . . . . 17
โข (๐ด โ โค โ (๐ด mod 8) โ
โค) |
45 | | 1zzd 9282 |
. . . . . . . . . . . . . . . . 17
โข (๐ด โ โค โ 1 โ
โค) |
46 | | zdceq 9330 |
. . . . . . . . . . . . . . . . 17
โข (((๐ด mod 8) โ โค โง 1
โ โค) โ DECID (๐ด mod 8) = 1) |
47 | 44, 45, 46 | syl2anc 411 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โค โ
DECID (๐ด mod
8) = 1) |
48 | | 7nn 9087 |
. . . . . . . . . . . . . . . . . 18
โข 7 โ
โ |
49 | 48 | nnzi 9276 |
. . . . . . . . . . . . . . . . 17
โข 7 โ
โค |
50 | | zdceq 9330 |
. . . . . . . . . . . . . . . . 17
โข (((๐ด mod 8) โ โค โง 7
โ โค) โ DECID (๐ด mod 8) = 7) |
51 | 44, 49, 50 | sylancl 413 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โค โ
DECID (๐ด mod
8) = 7) |
52 | | dcor 935 |
. . . . . . . . . . . . . . . 16
โข
(DECID (๐ด mod 8) = 1 โ (DECID
(๐ด mod 8) = 7 โ
DECID ((๐ด
mod 8) = 1 โจ (๐ด mod 8) =
7))) |
53 | 47, 51, 52 | sylc 62 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โค โ
DECID ((๐ด
mod 8) = 1 โจ (๐ด mod 8) =
7)) |
54 | | elprg 3614 |
. . . . . . . . . . . . . . . . 17
โข ((๐ด mod 8) โ
โ0 โ ((๐ด mod 8) โ {1, 7} โ ((๐ด mod 8) = 1 โจ (๐ด mod 8) = 7))) |
55 | 43, 54 | syl 14 |
. . . . . . . . . . . . . . . 16
โข (๐ด โ โค โ ((๐ด mod 8) โ {1, 7} โ
((๐ด mod 8) = 1 โจ (๐ด mod 8) = 7))) |
56 | 55 | dcbid 838 |
. . . . . . . . . . . . . . 15
โข (๐ด โ โค โ
(DECID (๐ด
mod 8) โ {1, 7} โ DECID ((๐ด mod 8) = 1 โจ (๐ด mod 8) = 7))) |
57 | 53, 56 | mpbird 167 |
. . . . . . . . . . . . . 14
โข (๐ด โ โค โ
DECID (๐ด mod
8) โ {1, 7}) |
58 | 57 | ad5antr 496 |
. . . . . . . . . . . . 13
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ๐ = 2) โ
DECID (๐ด mod
8) โ {1, 7}) |
59 | 38, 39, 58 | ifcldcd 3572 |
. . . . . . . . . . . 12
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ๐ = 2) โ
if((๐ด mod 8) โ {1, 7},
1, -1) โ โค) |
60 | | 2nn 9082 |
. . . . . . . . . . . . . 14
โข 2 โ
โ |
61 | 60 | a1i 9 |
. . . . . . . . . . . . 13
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ๐ = 2) โ 2
โ โ) |
62 | | simp-5l 543 |
. . . . . . . . . . . . 13
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ๐ = 2) โ ๐ด โ
โค) |
63 | | dvdsdc 11807 |
. . . . . . . . . . . . 13
โข ((2
โ โ โง ๐ด
โ โค) โ DECID 2 โฅ ๐ด) |
64 | 61, 62, 63 | syl2anc 411 |
. . . . . . . . . . . 12
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ๐ = 2) โ
DECID 2 โฅ ๐ด) |
65 | 37, 59, 64 | ifcldcd 3572 |
. . . . . . . . . . 11
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ๐ = 2) โ if(2
โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1))
โ โค) |
66 | | simp-5l 543 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
๐ด โ
โค) |
67 | | simpr 110 |
. . . . . . . . . . . . . . . . . 18
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
ยฌ ๐ =
2) |
68 | | prm2orodd 12128 |
. . . . . . . . . . . . . . . . . . . 20
โข (๐ โ โ โ (๐ = 2 โจ ยฌ 2 โฅ ๐)) |
69 | 68 | orcomd 729 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ โ โ โ (ยฌ 2
โฅ ๐ โจ ๐ = 2)) |
70 | 69 | ad2antlr 489 |
. . . . . . . . . . . . . . . . . 18
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
(ยฌ 2 โฅ ๐ โจ
๐ = 2)) |
71 | 67, 70 | ecased 1349 |
. . . . . . . . . . . . . . . . 17
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
ยฌ 2 โฅ ๐) |
72 | | prmnn 12112 |
. . . . . . . . . . . . . . . . . . . 20
โข (๐ โ โ โ ๐ โ
โ) |
73 | 72 | nnnn0d 9231 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ โ โ โ ๐ โ
โ0) |
74 | | nn0oddm1d2 11916 |
. . . . . . . . . . . . . . . . . . 19
โข (๐ โ โ0
โ (ยฌ 2 โฅ ๐
โ ((๐ โ 1) / 2)
โ โ0)) |
75 | 73, 74 | syl 14 |
. . . . . . . . . . . . . . . . . 18
โข (๐ โ โ โ (ยฌ 2
โฅ ๐ โ ((๐ โ 1) / 2) โ
โ0)) |
76 | 75 | ad2antlr 489 |
. . . . . . . . . . . . . . . . 17
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
(ยฌ 2 โฅ ๐ โ
((๐ โ 1) / 2) โ
โ0)) |
77 | 71, 76 | mpbid 147 |
. . . . . . . . . . . . . . . 16
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
((๐ โ 1) / 2) โ
โ0) |
78 | | zexpcl 10537 |
. . . . . . . . . . . . . . . 16
โข ((๐ด โ โค โง ((๐ โ 1) / 2) โ
โ0) โ (๐ดโ((๐ โ 1) / 2)) โ
โค) |
79 | 66, 77, 78 | syl2anc 411 |
. . . . . . . . . . . . . . 15
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
(๐ดโ((๐ โ 1) / 2)) โ
โค) |
80 | 79 | peano2zd 9380 |
. . . . . . . . . . . . . 14
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
((๐ดโ((๐ โ 1) / 2)) + 1) โ
โค) |
81 | 36 | ad2antrr 488 |
. . . . . . . . . . . . . 14
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
๐ โ
โ) |
82 | 80, 81 | zmodcld 10347 |
. . . . . . . . . . . . 13
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
(((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ
โ0) |
83 | 82 | nn0zd 9375 |
. . . . . . . . . . . 12
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
(((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ
โค) |
84 | | 1zzd 9282 |
. . . . . . . . . . . 12
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ 1
โ โค) |
85 | 83, 84 | zsubcld 9382 |
. . . . . . . . . . 11
โข
((((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โง ยฌ ๐ = 2) โ
((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1) โ
โค) |
86 | | nnz 9274 |
. . . . . . . . . . . . 13
โข (๐ โ โ โ ๐ โ
โค) |
87 | 86 | ad2antlr 489 |
. . . . . . . . . . . 12
โข
(((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โ ๐ โ
โค) |
88 | | 2z 9283 |
. . . . . . . . . . . 12
โข 2 โ
โค |
89 | | zdceq 9330 |
. . . . . . . . . . . 12
โข ((๐ โ โค โง 2 โ
โค) โ DECID ๐ = 2) |
90 | 87, 88, 89 | sylancl 413 |
. . . . . . . . . . 11
โข
(((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โ DECID ๐ = 2) |
91 | 65, 85, 90 | ifcldadc 3565 |
. . . . . . . . . 10
โข
(((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โ if(๐ = 2, if(2
โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)),
((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1)) โ
โค) |
92 | | simpr 110 |
. . . . . . . . . . 11
โข
(((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โ ๐ โ
โ) |
93 | | simp-4r 542 |
. . . . . . . . . . 11
โข
(((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โ ๐ โ
โค) |
94 | | neqne 2355 |
. . . . . . . . . . . 12
โข (ยฌ
๐ = 0 โ ๐ โ 0) |
95 | 94 | ad3antlr 493 |
. . . . . . . . . . 11
โข
(((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โ ๐ โ
0) |
96 | | pczcl 12300 |
. . . . . . . . . . 11
โข ((๐ โ โ โง (๐ โ โค โง ๐ โ 0)) โ (๐ pCnt ๐) โ
โ0) |
97 | 92, 93, 95, 96 | syl12anc 1236 |
. . . . . . . . . 10
โข
(((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โ (๐ pCnt ๐) โ
โ0) |
98 | | zexpcl 10537 |
. . . . . . . . . 10
โข
((if(๐ = 2, if(2
โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)),
((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1)) โ โค
โง (๐ pCnt ๐) โ โ0)
โ (if(๐ = 2, if(2
โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)),
((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)) โ โค) |
99 | 91, 97, 98 | syl2anc 411 |
. . . . . . . . 9
โข
(((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ๐ โ โ)
โ (if(๐ = 2, if(2
โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)),
((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)) โ โค) |
100 | | 1zzd 9282 |
. . . . . . . . 9
โข
(((((๐ด โ
โค โง ๐ โ
โค) โง ยฌ ๐ = 0)
โง ๐ โ โ)
โง ยฌ ๐ โ
โ) โ 1 โ โค) |
101 | | prmdc 12132 |
. . . . . . . . . 10
โข (๐ โ โ โ
DECID ๐
โ โ) |
102 | 101 | adantl 277 |
. . . . . . . . 9
โข ((((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โง ๐ โ โ) โ
DECID ๐
โ โ) |
103 | 99, 100, 102 | ifcldadc 3565 |
. . . . . . . 8
โข ((((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โง ๐ โ โ) โ if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1) โ โค) |
104 | 22, 35, 36, 103 | fvmptd3 5611 |
. . . . . . 7
โข ((((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โง ๐ โ โ) โ (๐นโ๐) = if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1)) |
105 | 104, 103 | eqeltrd 2254 |
. . . . . 6
โข ((((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โง ๐ โ โ) โ (๐นโ๐) โ โค) |
106 | | zmulcl 9308 |
. . . . . . 7
โข ((๐ โ โค โง ๐ฃ โ โค) โ (๐ ยท ๐ฃ) โ โค) |
107 | 106 | adantl 277 |
. . . . . 6
โข ((((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โง (๐ โ โค โง ๐ฃ โ โค)) โ (๐ ยท ๐ฃ) โ โค) |
108 | 21, 10, 105, 107 | seqf 10463 |
. . . . 5
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ seq1(
ยท , ๐น):โโถโค) |
109 | | simplr 528 |
. . . . . 6
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ ๐ โ
โค) |
110 | 94 | adantl 277 |
. . . . . 6
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ ๐ โ 0) |
111 | | nnabscl 11111 |
. . . . . 6
โข ((๐ โ โค โง ๐ โ 0) โ (absโ๐) โ
โ) |
112 | 109, 110,
111 | syl2anc 411 |
. . . . 5
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ
(absโ๐) โ
โ) |
113 | 108, 112 | ffvelcdmd 5654 |
. . . 4
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ (seq1(
ยท , ๐น)โ(absโ๐)) โ โค) |
114 | 20, 113 | zmulcld 9383 |
. . 3
โข (((๐ด โ โค โง ๐ โ โค) โง ยฌ
๐ = 0) โ (if((๐ < 0 โง ๐ด < 0), -1, 1) ยท (seq1( ยท ,
๐น)โ(absโ๐))) โ
โค) |
115 | | 0zd 9267 |
. . . 4
โข ((๐ด โ โค โง ๐ โ โค) โ 0 โ
โค) |
116 | | zdceq 9330 |
. . . 4
โข ((๐ โ โค โง 0 โ
โค) โ DECID ๐ = 0) |
117 | 11, 115, 116 | syl2anc 411 |
. . 3
โข ((๐ด โ โค โง ๐ โ โค) โ
DECID ๐ =
0) |
118 | 7, 114, 117 | ifcldadc 3565 |
. 2
โข ((๐ด โ โค โง ๐ โ โค) โ if(๐ = 0, if((๐ดโ2) = 1, 1, 0), (if((๐ < 0 โง ๐ด < 0), -1, 1) ยท (seq1( ยท ,
๐น)โ(absโ๐)))) โ
โค) |
119 | | simpr 110 |
. . . . 5
โข ((๐ = ๐ด โง ๐ = ๐) โ ๐ = ๐) |
120 | 119 | eqeq1d 2186 |
. . . 4
โข ((๐ = ๐ด โง ๐ = ๐) โ (๐ = 0 โ ๐ = 0)) |
121 | | simpl 109 |
. . . . . . 7
โข ((๐ = ๐ด โง ๐ = ๐) โ ๐ = ๐ด) |
122 | 121 | oveq1d 5892 |
. . . . . 6
โข ((๐ = ๐ด โง ๐ = ๐) โ (๐โ2) = (๐ดโ2)) |
123 | 122 | eqeq1d 2186 |
. . . . 5
โข ((๐ = ๐ด โง ๐ = ๐) โ ((๐โ2) = 1 โ (๐ดโ2) = 1)) |
124 | 123 | ifbid 3557 |
. . . 4
โข ((๐ = ๐ด โง ๐ = ๐) โ if((๐โ2) = 1, 1, 0) = if((๐ดโ2) = 1, 1, 0)) |
125 | 119 | breq1d 4015 |
. . . . . . 7
โข ((๐ = ๐ด โง ๐ = ๐) โ (๐ < 0 โ ๐ < 0)) |
126 | 121 | breq1d 4015 |
. . . . . . 7
โข ((๐ = ๐ด โง ๐ = ๐) โ (๐ < 0 โ ๐ด < 0)) |
127 | 125, 126 | anbi12d 473 |
. . . . . 6
โข ((๐ = ๐ด โง ๐ = ๐) โ ((๐ < 0 โง ๐ < 0) โ (๐ < 0 โง ๐ด < 0))) |
128 | 127 | ifbid 3557 |
. . . . 5
โข ((๐ = ๐ด โง ๐ = ๐) โ if((๐ < 0 โง ๐ < 0), -1, 1) = if((๐ < 0 โง ๐ด < 0), -1, 1)) |
129 | 121 | breq2d 4017 |
. . . . . . . . . . . . 13
โข ((๐ = ๐ด โง ๐ = ๐) โ (2 โฅ ๐ โ 2 โฅ ๐ด)) |
130 | 121 | oveq1d 5892 |
. . . . . . . . . . . . . . 15
โข ((๐ = ๐ด โง ๐ = ๐) โ (๐ mod 8) = (๐ด mod 8)) |
131 | 130 | eleq1d 2246 |
. . . . . . . . . . . . . 14
โข ((๐ = ๐ด โง ๐ = ๐) โ ((๐ mod 8) โ {1, 7} โ (๐ด mod 8) โ {1,
7})) |
132 | 131 | ifbid 3557 |
. . . . . . . . . . . . 13
โข ((๐ = ๐ด โง ๐ = ๐) โ if((๐ mod 8) โ {1, 7}, 1, -1) = if((๐ด mod 8) โ {1, 7}, 1,
-1)) |
133 | 129, 132 | ifbieq2d 3560 |
. . . . . . . . . . . 12
โข ((๐ = ๐ด โง ๐ = ๐) โ if(2 โฅ ๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)) = if(2 โฅ
๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1,
-1))) |
134 | 121 | oveq1d 5892 |
. . . . . . . . . . . . . . 15
โข ((๐ = ๐ด โง ๐ = ๐) โ (๐โ((๐ โ 1) / 2)) = (๐ดโ((๐ โ 1) / 2))) |
135 | 134 | oveq1d 5892 |
. . . . . . . . . . . . . 14
โข ((๐ = ๐ด โง ๐ = ๐) โ ((๐โ((๐ โ 1) / 2)) + 1) = ((๐ดโ((๐ โ 1) / 2)) + 1)) |
136 | 135 | oveq1d 5892 |
. . . . . . . . . . . . 13
โข ((๐ = ๐ด โง ๐ = ๐) โ (((๐โ((๐ โ 1) / 2)) + 1) mod ๐) = (((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐)) |
137 | 136 | oveq1d 5892 |
. . . . . . . . . . . 12
โข ((๐ = ๐ด โง ๐ = ๐) โ ((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1) = ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1)) |
138 | 133, 137 | ifeq12d 3555 |
. . . . . . . . . . 11
โข ((๐ = ๐ด โง ๐ = ๐) โ if(๐ = 2, if(2 โฅ ๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)), ((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1)) = if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))) |
139 | 119 | oveq2d 5893 |
. . . . . . . . . . 11
โข ((๐ = ๐ด โง ๐ = ๐) โ (๐ pCnt ๐) = (๐ pCnt ๐)) |
140 | 138, 139 | oveq12d 5895 |
. . . . . . . . . 10
โข ((๐ = ๐ด โง ๐ = ๐) โ (if(๐ = 2, if(2 โฅ ๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)), ((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)) = (if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐))) |
141 | 140 | ifeq1d 3553 |
. . . . . . . . 9
โข ((๐ = ๐ด โง ๐ = ๐) โ if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)), ((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1) = if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1)) |
142 | 141 | mpteq2dv 4096 |
. . . . . . . 8
โข ((๐ = ๐ด โง ๐ = ๐) โ (๐ โ โ โฆ if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)), ((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1)) = (๐ โ โ โฆ if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐ด, 0, if((๐ด mod 8) โ {1, 7}, 1, -1)), ((((๐ดโ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1))) |
143 | 142, 22 | eqtr4di 2228 |
. . . . . . 7
โข ((๐ = ๐ด โง ๐ = ๐) โ (๐ โ โ โฆ if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)), ((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1)) = ๐น) |
144 | 143 | seqeq3d 10455 |
. . . . . 6
โข ((๐ = ๐ด โง ๐ = ๐) โ seq1( ยท , (๐ โ โ โฆ if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)), ((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1))) = seq1( ยท , ๐น)) |
145 | 119 | fveq2d 5521 |
. . . . . 6
โข ((๐ = ๐ด โง ๐ = ๐) โ (absโ๐) = (absโ๐)) |
146 | 144, 145 | fveq12d 5524 |
. . . . 5
โข ((๐ = ๐ด โง ๐ = ๐) โ (seq1( ยท , (๐ โ โ โฆ if(๐ โ โ, (if(๐ = 2, if(2 โฅ ๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)), ((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1)))โ(absโ๐)) = (seq1( ยท , ๐น)โ(absโ๐))) |
147 | 128, 146 | oveq12d 5895 |
. . . 4
โข ((๐ = ๐ด โง ๐ = ๐) โ (if((๐ < 0 โง ๐ < 0), -1, 1) ยท (seq1( ยท ,
(๐ โ โ โฆ
if(๐ โ โ,
(if(๐ = 2, if(2 โฅ
๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)),
((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1)))โ(absโ๐))) = (if((๐ < 0 โง ๐ด < 0), -1, 1) ยท (seq1( ยท ,
๐น)โ(absโ๐)))) |
148 | 120, 124,
147 | ifbieq12d 3562 |
. . 3
โข ((๐ = ๐ด โง ๐ = ๐) โ if(๐ = 0, if((๐โ2) = 1, 1, 0), (if((๐ < 0 โง ๐ < 0), -1, 1) ยท (seq1( ยท ,
(๐ โ โ โฆ
if(๐ โ โ,
(if(๐ = 2, if(2 โฅ
๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)),
((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1)))โ(absโ๐)))) = if(๐ = 0, if((๐ดโ2) = 1, 1, 0), (if((๐ < 0 โง ๐ด < 0), -1, 1) ยท (seq1( ยท ,
๐น)โ(absโ๐))))) |
149 | | df-lgs 14484 |
. . 3
โข
/L = (๐
โ โค, ๐ โ
โค โฆ if(๐ = 0,
if((๐โ2) = 1, 1, 0),
(if((๐ < 0 โง ๐ < 0), -1, 1) ยท (seq1(
ยท , (๐ โ
โ โฆ if(๐ โ
โ, (if(๐ = 2, if(2
โฅ ๐, 0, if((๐ mod 8) โ {1, 7}, 1, -1)),
((((๐โ((๐ โ 1) / 2)) + 1) mod ๐) โ 1))โ(๐ pCnt ๐)), 1)))โ(absโ๐))))) |
150 | 148, 149 | ovmpoga 6006 |
. 2
โข ((๐ด โ โค โง ๐ โ โค โง if(๐ = 0, if((๐ดโ2) = 1, 1, 0), (if((๐ < 0 โง ๐ด < 0), -1, 1) ยท (seq1( ยท ,
๐น)โ(absโ๐)))) โ โค) โ
(๐ด /L
๐) = if(๐ = 0, if((๐ดโ2) = 1, 1, 0), (if((๐ < 0 โง ๐ด < 0), -1, 1) ยท (seq1( ยท ,
๐น)โ(absโ๐))))) |
151 | 118, 150 | mpd3an3 1338 |
1
โข ((๐ด โ โค โง ๐ โ โค) โ (๐ด /L ๐) = if(๐ = 0, if((๐ดโ2) = 1, 1, 0), (if((๐ < 0 โง ๐ด < 0), -1, 1) ยท (seq1( ยท ,
๐น)โ(absโ๐))))) |