Step | Hyp | Ref
| Expression |
1 | | 1zzd 9214 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) → 1 ∈
ℤ) |
2 | | 0zd 9199 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) → 0 ∈
ℤ) |
3 | | zsqcl 10521 |
. . . . . 6
⊢ (𝐴 ∈ ℤ → (𝐴↑2) ∈
ℤ) |
4 | 3 | ad2antrr 480 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) → (𝐴↑2) ∈ ℤ) |
5 | | zdceq 9262 |
. . . . 5
⊢ (((𝐴↑2) ∈ ℤ ∧ 1
∈ ℤ) → DECID (𝐴↑2) = 1) |
6 | 4, 1, 5 | syl2anc 409 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) →
DECID (𝐴↑2) = 1) |
7 | 1, 2, 6 | ifcldcd 3554 |
. . 3
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) → if((𝐴↑2) = 1, 1, 0) ∈
ℤ) |
8 | | neg1z 9219 |
. . . . . 6
⊢ -1 ∈
ℤ |
9 | 8 | a1i 9 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → -1 ∈
ℤ) |
10 | | 1zzd 9214 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → 1 ∈
ℤ) |
11 | | simpr 109 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → 𝑁 ∈
ℤ) |
12 | | 0zd 9199 |
. . . . . . 7
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → 0 ∈
ℤ) |
13 | | zdclt 9264 |
. . . . . . 7
⊢ ((𝑁 ∈ ℤ ∧ 0 ∈
ℤ) → DECID 𝑁 < 0) |
14 | 11, 12, 13 | syl2an2r 585 |
. . . . . 6
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) →
DECID 𝑁 <
0) |
15 | | simpl 108 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → 𝐴 ∈
ℤ) |
16 | | zdclt 9264 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 0 ∈
ℤ) → DECID 𝐴 < 0) |
17 | 15, 12, 16 | syl2an2r 585 |
. . . . . 6
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) →
DECID 𝐴 <
0) |
18 | | dcan2 924 |
. . . . . 6
⊢
(DECID 𝑁 < 0 → (DECID 𝐴 < 0 →
DECID (𝑁
< 0 ∧ 𝐴 <
0))) |
19 | 14, 17, 18 | sylc 62 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) →
DECID (𝑁
< 0 ∧ 𝐴 <
0)) |
20 | 9, 10, 19 | ifcldcd 3554 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) ∈
ℤ) |
21 | | nnuz 9497 |
. . . . . 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 2226 |
. . . . . . . . 9
⊢ (𝑛 = 𝑘 → (𝑛 ∈ ℙ ↔ 𝑘 ∈ ℙ)) |
24 | | eqeq1 2172 |
. . . . . . . . . . 11
⊢ (𝑛 = 𝑘 → (𝑛 = 2 ↔ 𝑘 = 2)) |
25 | | oveq1 5848 |
. . . . . . . . . . . . . . . 16
⊢ (𝑛 = 𝑘 → (𝑛 − 1) = (𝑘 − 1)) |
26 | 25 | oveq1d 5856 |
. . . . . . . . . . . . . . 15
⊢ (𝑛 = 𝑘 → ((𝑛 − 1) / 2) = ((𝑘 − 1) / 2)) |
27 | 26 | oveq2d 5857 |
. . . . . . . . . . . . . 14
⊢ (𝑛 = 𝑘 → (𝐴↑((𝑛 − 1) / 2)) = (𝐴↑((𝑘 − 1) / 2))) |
28 | 27 | oveq1d 5856 |
. . . . . . . . . . . . 13
⊢ (𝑛 = 𝑘 → ((𝐴↑((𝑛 − 1) / 2)) + 1) = ((𝐴↑((𝑘 − 1) / 2)) + 1)) |
29 | | id 19 |
. . . . . . . . . . . . 13
⊢ (𝑛 = 𝑘 → 𝑛 = 𝑘) |
30 | 28, 29 | oveq12d 5859 |
. . . . . . . . . . . 12
⊢ (𝑛 = 𝑘 → (((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) = (((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘)) |
31 | 30 | oveq1d 5856 |
. . . . . . . . . . 11
⊢ (𝑛 = 𝑘 → ((((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1) = ((((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘) − 1)) |
32 | 24, 31 | ifbieq2d 3543 |
. . . . . . . . . 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 5848 |
. . . . . . . . . 10
⊢ (𝑛 = 𝑘 → (𝑛 pCnt 𝑁) = (𝑘 pCnt 𝑁)) |
34 | 32, 33 | oveq12d 5859 |
. . . . . . . . 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 3541 |
. . . . . . . 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 109 |
. . . . . . . 8
⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈
ℕ) |
37 | | 0zd 9199 |
. . . . . . . . . . . 12
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → 0
∈ ℤ) |
38 | | 1zzd 9214 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → 1
∈ ℤ) |
39 | 38 | znegcld 9311 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → -1
∈ ℤ) |
40 | | id 19 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝐴 ∈ ℤ → 𝐴 ∈
ℤ) |
41 | | 8nn 9020 |
. . . . . . . . . . . . . . . . . . . 20
⊢ 8 ∈
ℕ |
42 | 41 | a1i 9 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝐴 ∈ ℤ → 8 ∈
ℕ) |
43 | 40, 42 | zmodcld 10276 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝐴 ∈ ℤ → (𝐴 mod 8) ∈
ℕ0) |
44 | 43 | nn0zd 9307 |
. . . . . . . . . . . . . . . . 17
⊢ (𝐴 ∈ ℤ → (𝐴 mod 8) ∈
ℤ) |
45 | | 1zzd 9214 |
. . . . . . . . . . . . . . . . 17
⊢ (𝐴 ∈ ℤ → 1 ∈
ℤ) |
46 | | zdceq 9262 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝐴 mod 8) ∈ ℤ ∧ 1
∈ ℤ) → DECID (𝐴 mod 8) = 1) |
47 | 44, 45, 46 | syl2anc 409 |
. . . . . . . . . . . . . . . 16
⊢ (𝐴 ∈ ℤ →
DECID (𝐴 mod
8) = 1) |
48 | | 7nn 9019 |
. . . . . . . . . . . . . . . . . 18
⊢ 7 ∈
ℕ |
49 | 48 | nnzi 9208 |
. . . . . . . . . . . . . . . . 17
⊢ 7 ∈
ℤ |
50 | | zdceq 9262 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝐴 mod 8) ∈ ℤ ∧ 7
∈ ℤ) → DECID (𝐴 mod 8) = 7) |
51 | 44, 49, 50 | sylancl 410 |
. . . . . . . . . . . . . . . 16
⊢ (𝐴 ∈ ℤ →
DECID (𝐴 mod
8) = 7) |
52 | | dcor 925 |
. . . . . . . . . . . . . . . 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 3595 |
. . . . . . . . . . . . . . . . 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 828 |
. . . . . . . . . . . . . . 15
⊢ (𝐴 ∈ ℤ →
(DECID (𝐴
mod 8) ∈ {1, 7} ↔ DECID ((𝐴 mod 8) = 1 ∨ (𝐴 mod 8) = 7))) |
57 | 53, 56 | mpbird 166 |
. . . . . . . . . . . . . 14
⊢ (𝐴 ∈ ℤ →
DECID (𝐴 mod
8) ∈ {1, 7}) |
58 | 57 | ad5antr 488 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) →
DECID (𝐴 mod
8) ∈ {1, 7}) |
59 | 38, 39, 58 | ifcldcd 3554 |
. . . . . . . . . . . 12
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) →
if((𝐴 mod 8) ∈ {1, 7},
1, -1) ∈ ℤ) |
60 | | 2nn 9014 |
. . . . . . . . . . . . . 14
⊢ 2 ∈
ℕ |
61 | 60 | a1i 9 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → 2
∈ ℕ) |
62 | | simp-5l 533 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → 𝐴 ∈
ℤ) |
63 | | dvdsdc 11734 |
. . . . . . . . . . . . 13
⊢ ((2
∈ ℕ ∧ 𝐴
∈ ℤ) → DECID 2 ∥ 𝐴) |
64 | 61, 62, 63 | syl2anc 409 |
. . . . . . . . . . . 12
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) →
DECID 2 ∥ 𝐴) |
65 | 37, 59, 64 | ifcldcd 3554 |
. . . . . . . . . . 11
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → if(2
∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1))
∈ ℤ) |
66 | | simp-5l 533 |
. . . . . . . . . . . . . . . 16
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
𝐴 ∈
ℤ) |
67 | | simpr 109 |
. . . . . . . . . . . . . . . . . 18
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
¬ 𝑘 =
2) |
68 | | prm2orodd 12054 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑘 ∈ ℙ → (𝑘 = 2 ∨ ¬ 2 ∥ 𝑘)) |
69 | 68 | orcomd 719 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑘 ∈ ℙ → (¬ 2
∥ 𝑘 ∨ 𝑘 = 2)) |
70 | 69 | ad2antlr 481 |
. . . . . . . . . . . . . . . . . 18
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
(¬ 2 ∥ 𝑘 ∨
𝑘 = 2)) |
71 | 67, 70 | ecased 1339 |
. . . . . . . . . . . . . . . . 17
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
¬ 2 ∥ 𝑘) |
72 | | prmnn 12038 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑘 ∈ ℙ → 𝑘 ∈
ℕ) |
73 | 72 | nnnn0d 9163 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑘 ∈ ℙ → 𝑘 ∈
ℕ0) |
74 | | nn0oddm1d2 11842 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑘 ∈ ℕ0
→ (¬ 2 ∥ 𝑘
↔ ((𝑘 − 1) / 2)
∈ ℕ0)) |
75 | 73, 74 | syl 14 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑘 ∈ ℙ → (¬ 2
∥ 𝑘 ↔ ((𝑘 − 1) / 2) ∈
ℕ0)) |
76 | 75 | ad2antlr 481 |
. . . . . . . . . . . . . . . . 17
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
(¬ 2 ∥ 𝑘 ↔
((𝑘 − 1) / 2) ∈
ℕ0)) |
77 | 71, 76 | mpbid 146 |
. . . . . . . . . . . . . . . 16
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
((𝑘 − 1) / 2) ∈
ℕ0) |
78 | | zexpcl 10466 |
. . . . . . . . . . . . . . . 16
⊢ ((𝐴 ∈ ℤ ∧ ((𝑘 − 1) / 2) ∈
ℕ0) → (𝐴↑((𝑘 − 1) / 2)) ∈
ℤ) |
79 | 66, 77, 78 | syl2anc 409 |
. . . . . . . . . . . . . . 15
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
(𝐴↑((𝑘 − 1) / 2)) ∈
ℤ) |
80 | 79 | peano2zd 9312 |
. . . . . . . . . . . . . 14
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
((𝐴↑((𝑘 − 1) / 2)) + 1) ∈
ℤ) |
81 | 36 | ad2antrr 480 |
. . . . . . . . . . . . . 14
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
𝑘 ∈
ℕ) |
82 | 80, 81 | zmodcld 10276 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
(((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘) ∈
ℕ0) |
83 | 82 | nn0zd 9307 |
. . . . . . . . . . . 12
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
(((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘) ∈
ℤ) |
84 | | 1zzd 9214 |
. . . . . . . . . . . 12
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) → 1
∈ ℤ) |
85 | 83, 84 | zsubcld 9314 |
. . . . . . . . . . 11
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
((((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘) − 1) ∈
ℤ) |
86 | | nnz 9206 |
. . . . . . . . . . . . 13
⊢ (𝑘 ∈ ℕ → 𝑘 ∈
ℤ) |
87 | 86 | ad2antlr 481 |
. . . . . . . . . . . 12
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ 𝑘 ∈
ℤ) |
88 | | 2z 9215 |
. . . . . . . . . . . 12
⊢ 2 ∈
ℤ |
89 | | zdceq 9262 |
. . . . . . . . . . . 12
⊢ ((𝑘 ∈ ℤ ∧ 2 ∈
ℤ) → DECID 𝑘 = 2) |
90 | 87, 88, 89 | sylancl 410 |
. . . . . . . . . . 11
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ DECID 𝑘 = 2) |
91 | 65, 85, 90 | ifcldadc 3548 |
. . . . . . . . . 10
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ if(𝑘 = 2, if(2
∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)),
((((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘) − 1)) ∈
ℤ) |
92 | | simpr 109 |
. . . . . . . . . . 11
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ 𝑘 ∈
ℙ) |
93 | | simp-4r 532 |
. . . . . . . . . . 11
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ 𝑁 ∈
ℤ) |
94 | | neqne 2343 |
. . . . . . . . . . . 12
⊢ (¬
𝑁 = 0 → 𝑁 ≠ 0) |
95 | 94 | ad3antlr 485 |
. . . . . . . . . . 11
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ 𝑁 ≠
0) |
96 | | pczcl 12226 |
. . . . . . . . . . 11
⊢ ((𝑘 ∈ ℙ ∧ (𝑁 ∈ ℤ ∧ 𝑁 ≠ 0)) → (𝑘 pCnt 𝑁) ∈
ℕ0) |
97 | 92, 93, 95, 96 | syl12anc 1226 |
. . . . . . . . . 10
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ (𝑘 pCnt 𝑁) ∈
ℕ0) |
98 | | zexpcl 10466 |
. . . . . . . . . 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 409 |
. . . . . . . . 9
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ (if(𝑘 = 2, if(2
∥ 𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1, -1)),
((((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘) − 1))↑(𝑘 pCnt 𝑁)) ∈ ℤ) |
100 | | 1zzd 9214 |
. . . . . . . . 9
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ ¬ 𝑘 ∈
ℙ) → 1 ∈ ℤ) |
101 | | prmdc 12058 |
. . . . . . . . . 10
⊢ (𝑘 ∈ ℕ →
DECID 𝑘
∈ ℙ) |
102 | 101 | adantl 275 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) ∧ 𝑘 ∈ ℕ) →
DECID 𝑘
∈ ℙ) |
103 | 99, 100, 102 | ifcldadc 3548 |
. . . . . . . 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 5578 |
. . . . . . 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 2242 |
. . . . . 6
⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑘) ∈ ℤ) |
106 | | zmulcl 9240 |
. . . . . . 7
⊢ ((𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ) → (𝑘 · 𝑣) ∈ ℤ) |
107 | 106 | adantl 275 |
. . . . . 6
⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) ∧ (𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ)) → (𝑘 · 𝑣) ∈ ℤ) |
108 | 21, 10, 105, 107 | seqf 10392 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → seq1(
· , 𝐹):ℕ⟶ℤ) |
109 | | simplr 520 |
. . . . . 6
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → 𝑁 ∈
ℤ) |
110 | 94 | adantl 275 |
. . . . . 6
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → 𝑁 ≠ 0) |
111 | | nnabscl 11038 |
. . . . . 6
⊢ ((𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (abs‘𝑁) ∈
ℕ) |
112 | 109, 110,
111 | syl2anc 409 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) →
(abs‘𝑁) ∈
ℕ) |
113 | 108, 112 | ffvelrnd 5620 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → (seq1(
· , 𝐹)‘(abs‘𝑁)) ∈ ℤ) |
114 | 20, 113 | zmulcld 9315 |
. . 3
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · ,
𝐹)‘(abs‘𝑁))) ∈
ℤ) |
115 | | 0zd 9199 |
. . . 4
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → 0 ∈
ℤ) |
116 | | zdceq 9262 |
. . . 4
⊢ ((𝑁 ∈ ℤ ∧ 0 ∈
ℤ) → DECID 𝑁 = 0) |
117 | 11, 115, 116 | syl2anc 409 |
. . 3
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
DECID 𝑁 =
0) |
118 | 7, 114, 117 | ifcldadc 3548 |
. 2
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → if(𝑁 = 0, if((𝐴↑2) = 1, 1, 0), (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · ,
𝐹)‘(abs‘𝑁)))) ∈
ℤ) |
119 | | simpr 109 |
. . . . 5
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → 𝑚 = 𝑁) |
120 | 119 | eqeq1d 2174 |
. . . 4
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑚 = 0 ↔ 𝑁 = 0)) |
121 | | simpl 108 |
. . . . . . 7
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → 𝑎 = 𝐴) |
122 | 121 | oveq1d 5856 |
. . . . . 6
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑎↑2) = (𝐴↑2)) |
123 | 122 | eqeq1d 2174 |
. . . . 5
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → ((𝑎↑2) = 1 ↔ (𝐴↑2) = 1)) |
124 | 123 | ifbid 3540 |
. . . 4
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → if((𝑎↑2) = 1, 1, 0) = if((𝐴↑2) = 1, 1, 0)) |
125 | 119 | breq1d 3991 |
. . . . . . 7
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑚 < 0 ↔ 𝑁 < 0)) |
126 | 121 | breq1d 3991 |
. . . . . . 7
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑎 < 0 ↔ 𝐴 < 0)) |
127 | 125, 126 | anbi12d 465 |
. . . . . 6
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → ((𝑚 < 0 ∧ 𝑎 < 0) ↔ (𝑁 < 0 ∧ 𝐴 < 0))) |
128 | 127 | ifbid 3540 |
. . . . 5
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → if((𝑚 < 0 ∧ 𝑎 < 0), -1, 1) = if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) |
129 | 121 | breq2d 3993 |
. . . . . . . . . . . . 13
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (2 ∥ 𝑎 ↔ 2 ∥ 𝐴)) |
130 | 121 | oveq1d 5856 |
. . . . . . . . . . . . . . 15
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑎 mod 8) = (𝐴 mod 8)) |
131 | 130 | eleq1d 2234 |
. . . . . . . . . . . . . 14
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → ((𝑎 mod 8) ∈ {1, 7} ↔ (𝐴 mod 8) ∈ {1,
7})) |
132 | 131 | ifbid 3540 |
. . . . . . . . . . . . 13
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → if((𝑎 mod 8) ∈ {1, 7}, 1, -1) = if((𝐴 mod 8) ∈ {1, 7}, 1,
-1)) |
133 | 129, 132 | ifbieq2d 3543 |
. . . . . . . . . . . 12
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → if(2 ∥ 𝑎, 0, if((𝑎 mod 8) ∈ {1, 7}, 1, -1)) = if(2 ∥
𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1,
-1))) |
134 | 121 | oveq1d 5856 |
. . . . . . . . . . . . . . 15
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑎↑((𝑛 − 1) / 2)) = (𝐴↑((𝑛 − 1) / 2))) |
135 | 134 | oveq1d 5856 |
. . . . . . . . . . . . . 14
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → ((𝑎↑((𝑛 − 1) / 2)) + 1) = ((𝐴↑((𝑛 − 1) / 2)) + 1)) |
136 | 135 | oveq1d 5856 |
. . . . . . . . . . . . 13
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (((𝑎↑((𝑛 − 1) / 2)) + 1) mod 𝑛) = (((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛)) |
137 | 136 | oveq1d 5856 |
. . . . . . . . . . . 12
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → ((((𝑎↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1) = ((((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1)) |
138 | 133, 137 | ifeq12d 3538 |
. . . . . . . . . . 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 5857 |
. . . . . . . . . . 11
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑛 pCnt 𝑚) = (𝑛 pCnt 𝑁)) |
140 | 138, 139 | oveq12d 5859 |
. . . . . . . . . 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 3536 |
. . . . . . . . 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 4072 |
. . . . . . . 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 2216 |
. . . . . . 7
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (if(𝑛 = 2, if(2 ∥ 𝑎, 0, if((𝑎 mod 8) ∈ {1, 7}, 1, -1)), ((((𝑎↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1))↑(𝑛 pCnt 𝑚)), 1)) = 𝐹) |
144 | 143 | seqeq3d 10384 |
. . . . . 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 5489 |
. . . . . 6
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (abs‘𝑚) = (abs‘𝑁)) |
146 | 144, 145 | fveq12d 5492 |
. . . . 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 5859 |
. . . 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 3545 |
. . 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 13499 |
. . 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 5967 |
. 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 1328 |
1
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝐴 /L 𝑁) = if(𝑁 = 0, if((𝐴↑2) = 1, 1, 0), (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · ,
𝐹)‘(abs‘𝑁))))) |