| Step | Hyp | Ref
| Expression |
| 1 | | 1zzd 9370 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) → 1 ∈
ℤ) |
| 2 | | 0zd 9355 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) → 0 ∈
ℤ) |
| 3 | | zsqcl 10719 |
. . . . . 6
⊢ (𝐴 ∈ ℤ → (𝐴↑2) ∈
ℤ) |
| 4 | 3 | ad2antrr 488 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) → (𝐴↑2) ∈ ℤ) |
| 5 | | zdceq 9418 |
. . . . 5
⊢ (((𝐴↑2) ∈ ℤ ∧ 1
∈ ℤ) → DECID (𝐴↑2) = 1) |
| 6 | 4, 1, 5 | syl2anc 411 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) →
DECID (𝐴↑2) = 1) |
| 7 | 1, 2, 6 | ifcldcd 3598 |
. . 3
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ 𝑁 = 0) → if((𝐴↑2) = 1, 1, 0) ∈
ℤ) |
| 8 | | neg1z 9375 |
. . . . . 6
⊢ -1 ∈
ℤ |
| 9 | 8 | a1i 9 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → -1 ∈
ℤ) |
| 10 | | 1zzd 9370 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → 1 ∈
ℤ) |
| 11 | | simpr 110 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → 𝑁 ∈
ℤ) |
| 12 | | 0zd 9355 |
. . . . . . 7
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → 0 ∈
ℤ) |
| 13 | | zdclt 9420 |
. . . . . . 7
⊢ ((𝑁 ∈ ℤ ∧ 0 ∈
ℤ) → DECID 𝑁 < 0) |
| 14 | 11, 12, 13 | syl2an2r 595 |
. . . . . 6
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) →
DECID 𝑁 <
0) |
| 15 | | simpl 109 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → 𝐴 ∈
ℤ) |
| 16 | | zdclt 9420 |
. . . . . . 7
⊢ ((𝐴 ∈ ℤ ∧ 0 ∈
ℤ) → DECID 𝐴 < 0) |
| 17 | 15, 12, 16 | syl2an2r 595 |
. . . . . 6
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) →
DECID 𝐴 <
0) |
| 18 | | dcan2 936 |
. . . . . 6
⊢
(DECID 𝑁 < 0 → (DECID 𝐴 < 0 →
DECID (𝑁
< 0 ∧ 𝐴 <
0))) |
| 19 | 14, 17, 18 | sylc 62 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) →
DECID (𝑁
< 0 ∧ 𝐴 <
0)) |
| 20 | 9, 10, 19 | ifcldcd 3598 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) ∈
ℤ) |
| 21 | | nnuz 9654 |
. . . . . 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 2257 |
. . . . . . . . 9
⊢ (𝑛 = 𝑘 → (𝑛 ∈ ℙ ↔ 𝑘 ∈ ℙ)) |
| 24 | | eqeq1 2203 |
. . . . . . . . . . 11
⊢ (𝑛 = 𝑘 → (𝑛 = 2 ↔ 𝑘 = 2)) |
| 25 | | oveq1 5932 |
. . . . . . . . . . . . . . . 16
⊢ (𝑛 = 𝑘 → (𝑛 − 1) = (𝑘 − 1)) |
| 26 | 25 | oveq1d 5940 |
. . . . . . . . . . . . . . 15
⊢ (𝑛 = 𝑘 → ((𝑛 − 1) / 2) = ((𝑘 − 1) / 2)) |
| 27 | 26 | oveq2d 5941 |
. . . . . . . . . . . . . 14
⊢ (𝑛 = 𝑘 → (𝐴↑((𝑛 − 1) / 2)) = (𝐴↑((𝑘 − 1) / 2))) |
| 28 | 27 | oveq1d 5940 |
. . . . . . . . . . . . 13
⊢ (𝑛 = 𝑘 → ((𝐴↑((𝑛 − 1) / 2)) + 1) = ((𝐴↑((𝑘 − 1) / 2)) + 1)) |
| 29 | | id 19 |
. . . . . . . . . . . . 13
⊢ (𝑛 = 𝑘 → 𝑛 = 𝑘) |
| 30 | 28, 29 | oveq12d 5943 |
. . . . . . . . . . . 12
⊢ (𝑛 = 𝑘 → (((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) = (((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘)) |
| 31 | 30 | oveq1d 5940 |
. . . . . . . . . . 11
⊢ (𝑛 = 𝑘 → ((((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1) = ((((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘) − 1)) |
| 32 | 24, 31 | ifbieq2d 3586 |
. . . . . . . . . 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 5932 |
. . . . . . . . . 10
⊢ (𝑛 = 𝑘 → (𝑛 pCnt 𝑁) = (𝑘 pCnt 𝑁)) |
| 34 | 32, 33 | oveq12d 5943 |
. . . . . . . . 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 3584 |
. . . . . . . 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 9355 |
. . . . . . . . . . . 12
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → 0
∈ ℤ) |
| 38 | | 1zzd 9370 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → 1
∈ ℤ) |
| 39 | 38 | znegcld 9467 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → -1
∈ ℤ) |
| 40 | | id 19 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝐴 ∈ ℤ → 𝐴 ∈
ℤ) |
| 41 | | 8nn 9175 |
. . . . . . . . . . . . . . . . . . . 20
⊢ 8 ∈
ℕ |
| 42 | 41 | a1i 9 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝐴 ∈ ℤ → 8 ∈
ℕ) |
| 43 | 40, 42 | zmodcld 10454 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝐴 ∈ ℤ → (𝐴 mod 8) ∈
ℕ0) |
| 44 | 43 | nn0zd 9463 |
. . . . . . . . . . . . . . . . 17
⊢ (𝐴 ∈ ℤ → (𝐴 mod 8) ∈
ℤ) |
| 45 | | 1zzd 9370 |
. . . . . . . . . . . . . . . . 17
⊢ (𝐴 ∈ ℤ → 1 ∈
ℤ) |
| 46 | | zdceq 9418 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝐴 mod 8) ∈ ℤ ∧ 1
∈ ℤ) → DECID (𝐴 mod 8) = 1) |
| 47 | 44, 45, 46 | syl2anc 411 |
. . . . . . . . . . . . . . . 16
⊢ (𝐴 ∈ ℤ →
DECID (𝐴 mod
8) = 1) |
| 48 | | 7nn 9174 |
. . . . . . . . . . . . . . . . . 18
⊢ 7 ∈
ℕ |
| 49 | 48 | nnzi 9364 |
. . . . . . . . . . . . . . . . 17
⊢ 7 ∈
ℤ |
| 50 | | zdceq 9418 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝐴 mod 8) ∈ ℤ ∧ 7
∈ ℤ) → DECID (𝐴 mod 8) = 7) |
| 51 | 44, 49, 50 | sylancl 413 |
. . . . . . . . . . . . . . . 16
⊢ (𝐴 ∈ ℤ →
DECID (𝐴 mod
8) = 7) |
| 52 | | dcor 937 |
. . . . . . . . . . . . . . . 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 3643 |
. . . . . . . . . . . . . . . . 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 839 |
. . . . . . . . . . . . . . 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 3598 |
. . . . . . . . . . . 12
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) →
if((𝐴 mod 8) ∈ {1, 7},
1, -1) ∈ ℤ) |
| 60 | | 2nn 9169 |
. . . . . . . . . . . . . 14
⊢ 2 ∈
ℕ |
| 61 | 60 | a1i 9 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → 2
∈ ℕ) |
| 62 | | simp-5l 543 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) → 𝐴 ∈
ℤ) |
| 63 | | dvdsdc 11980 |
. . . . . . . . . . . . 13
⊢ ((2
∈ ℕ ∧ 𝐴
∈ ℤ) → DECID 2 ∥ 𝐴) |
| 64 | 61, 62, 63 | syl2anc 411 |
. . . . . . . . . . . 12
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ 𝑘 = 2) →
DECID 2 ∥ 𝐴) |
| 65 | 37, 59, 64 | ifcldcd 3598 |
. . . . . . . . . . 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 12319 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑘 ∈ ℙ → (𝑘 = 2 ∨ ¬ 2 ∥ 𝑘)) |
| 69 | 68 | orcomd 730 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑘 ∈ ℙ → (¬ 2
∥ 𝑘 ∨ 𝑘 = 2)) |
| 70 | 69 | ad2antlr 489 |
. . . . . . . . . . . . . . . . . 18
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
(¬ 2 ∥ 𝑘 ∨
𝑘 = 2)) |
| 71 | 67, 70 | ecased 1360 |
. . . . . . . . . . . . . . . . 17
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
¬ 2 ∥ 𝑘) |
| 72 | | prmnn 12303 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑘 ∈ ℙ → 𝑘 ∈
ℕ) |
| 73 | 72 | nnnn0d 9319 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑘 ∈ ℙ → 𝑘 ∈
ℕ0) |
| 74 | | nn0oddm1d2 12091 |
. . . . . . . . . . . . . . . . . . 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 10663 |
. . . . . . . . . . . . . . . 16
⊢ ((𝐴 ∈ ℤ ∧ ((𝑘 − 1) / 2) ∈
ℕ0) → (𝐴↑((𝑘 − 1) / 2)) ∈
ℤ) |
| 79 | 66, 77, 78 | syl2anc 411 |
. . . . . . . . . . . . . . 15
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
(𝐴↑((𝑘 − 1) / 2)) ∈
ℤ) |
| 80 | 79 | peano2zd 9468 |
. . . . . . . . . . . . . 14
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
((𝐴↑((𝑘 − 1) / 2)) + 1) ∈
ℤ) |
| 81 | 36 | ad2antrr 488 |
. . . . . . . . . . . . . 14
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
𝑘 ∈
ℕ) |
| 82 | 80, 81 | zmodcld 10454 |
. . . . . . . . . . . . 13
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
(((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘) ∈
ℕ0) |
| 83 | 82 | nn0zd 9463 |
. . . . . . . . . . . 12
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
(((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘) ∈
ℤ) |
| 84 | | 1zzd 9370 |
. . . . . . . . . . . 12
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) → 1
∈ ℤ) |
| 85 | 83, 84 | zsubcld 9470 |
. . . . . . . . . . 11
⊢
((((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
∧ ¬ 𝑘 = 2) →
((((𝐴↑((𝑘 − 1) / 2)) + 1) mod 𝑘) − 1) ∈
ℤ) |
| 86 | | nnz 9362 |
. . . . . . . . . . . . 13
⊢ (𝑘 ∈ ℕ → 𝑘 ∈
ℤ) |
| 87 | 86 | ad2antlr 489 |
. . . . . . . . . . . 12
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ 𝑘 ∈
ℤ) |
| 88 | | 2z 9371 |
. . . . . . . . . . . 12
⊢ 2 ∈
ℤ |
| 89 | | zdceq 9418 |
. . . . . . . . . . . 12
⊢ ((𝑘 ∈ ℤ ∧ 2 ∈
ℤ) → DECID 𝑘 = 2) |
| 90 | 87, 88, 89 | sylancl 413 |
. . . . . . . . . . 11
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ DECID 𝑘 = 2) |
| 91 | 65, 85, 90 | ifcldadc 3591 |
. . . . . . . . . 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 2375 |
. . . . . . . . . . . 12
⊢ (¬
𝑁 = 0 → 𝑁 ≠ 0) |
| 95 | 94 | ad3antlr 493 |
. . . . . . . . . . 11
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ 𝑁 ≠
0) |
| 96 | | pczcl 12492 |
. . . . . . . . . . 11
⊢ ((𝑘 ∈ ℙ ∧ (𝑁 ∈ ℤ ∧ 𝑁 ≠ 0)) → (𝑘 pCnt 𝑁) ∈
ℕ0) |
| 97 | 92, 93, 95, 96 | syl12anc 1247 |
. . . . . . . . . 10
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ 𝑘 ∈ ℙ)
→ (𝑘 pCnt 𝑁) ∈
ℕ0) |
| 98 | | zexpcl 10663 |
. . . . . . . . . 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 9370 |
. . . . . . . . 9
⊢
(((((𝐴 ∈
ℤ ∧ 𝑁 ∈
ℤ) ∧ ¬ 𝑁 = 0)
∧ 𝑘 ∈ ℕ)
∧ ¬ 𝑘 ∈
ℙ) → 1 ∈ ℤ) |
| 101 | | prmdc 12323 |
. . . . . . . . . 10
⊢ (𝑘 ∈ ℕ →
DECID 𝑘
∈ ℙ) |
| 102 | 101 | adantl 277 |
. . . . . . . . 9
⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) ∧ 𝑘 ∈ ℕ) →
DECID 𝑘
∈ ℙ) |
| 103 | 99, 100, 102 | ifcldadc 3591 |
. . . . . . . 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 5658 |
. . . . . . 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 2273 |
. . . . . 6
⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑘) ∈ ℤ) |
| 106 | | zmulcl 9396 |
. . . . . . 7
⊢ ((𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ) → (𝑘 · 𝑣) ∈ ℤ) |
| 107 | 106 | adantl 277 |
. . . . . 6
⊢ ((((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) ∧ (𝑘 ∈ ℤ ∧ 𝑣 ∈ ℤ)) → (𝑘 · 𝑣) ∈ ℤ) |
| 108 | 21, 10, 105, 107 | seqf 10573 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → seq1(
· , 𝐹):ℕ⟶ℤ) |
| 109 | | simplr 528 |
. . . . . 6
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → 𝑁 ∈
ℤ) |
| 110 | 94 | adantl 277 |
. . . . . 6
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → 𝑁 ≠ 0) |
| 111 | | nnabscl 11282 |
. . . . . 6
⊢ ((𝑁 ∈ ℤ ∧ 𝑁 ≠ 0) → (abs‘𝑁) ∈
ℕ) |
| 112 | 109, 110,
111 | syl2anc 411 |
. . . . 5
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) →
(abs‘𝑁) ∈
ℕ) |
| 113 | 108, 112 | ffvelcdmd 5701 |
. . . 4
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → (seq1(
· , 𝐹)‘(abs‘𝑁)) ∈ ℤ) |
| 114 | 20, 113 | zmulcld 9471 |
. . 3
⊢ (((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) ∧ ¬
𝑁 = 0) → (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · ,
𝐹)‘(abs‘𝑁))) ∈
ℤ) |
| 115 | | 0zd 9355 |
. . . 4
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → 0 ∈
ℤ) |
| 116 | | zdceq 9418 |
. . . 4
⊢ ((𝑁 ∈ ℤ ∧ 0 ∈
ℤ) → DECID 𝑁 = 0) |
| 117 | 11, 115, 116 | syl2anc 411 |
. . 3
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) →
DECID 𝑁 =
0) |
| 118 | 7, 114, 117 | ifcldadc 3591 |
. 2
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → if(𝑁 = 0, if((𝐴↑2) = 1, 1, 0), (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · ,
𝐹)‘(abs‘𝑁)))) ∈
ℤ) |
| 119 | | simpr 110 |
. . . . 5
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → 𝑚 = 𝑁) |
| 120 | 119 | eqeq1d 2205 |
. . . 4
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑚 = 0 ↔ 𝑁 = 0)) |
| 121 | | simpl 109 |
. . . . . . 7
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → 𝑎 = 𝐴) |
| 122 | 121 | oveq1d 5940 |
. . . . . 6
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑎↑2) = (𝐴↑2)) |
| 123 | 122 | eqeq1d 2205 |
. . . . 5
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → ((𝑎↑2) = 1 ↔ (𝐴↑2) = 1)) |
| 124 | 123 | ifbid 3583 |
. . . 4
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → if((𝑎↑2) = 1, 1, 0) = if((𝐴↑2) = 1, 1, 0)) |
| 125 | 119 | breq1d 4044 |
. . . . . . 7
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑚 < 0 ↔ 𝑁 < 0)) |
| 126 | 121 | breq1d 4044 |
. . . . . . 7
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑎 < 0 ↔ 𝐴 < 0)) |
| 127 | 125, 126 | anbi12d 473 |
. . . . . 6
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → ((𝑚 < 0 ∧ 𝑎 < 0) ↔ (𝑁 < 0 ∧ 𝐴 < 0))) |
| 128 | 127 | ifbid 3583 |
. . . . 5
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → if((𝑚 < 0 ∧ 𝑎 < 0), -1, 1) = if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1)) |
| 129 | 121 | breq2d 4046 |
. . . . . . . . . . . . 13
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (2 ∥ 𝑎 ↔ 2 ∥ 𝐴)) |
| 130 | 121 | oveq1d 5940 |
. . . . . . . . . . . . . . 15
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑎 mod 8) = (𝐴 mod 8)) |
| 131 | 130 | eleq1d 2265 |
. . . . . . . . . . . . . 14
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → ((𝑎 mod 8) ∈ {1, 7} ↔ (𝐴 mod 8) ∈ {1,
7})) |
| 132 | 131 | ifbid 3583 |
. . . . . . . . . . . . 13
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → if((𝑎 mod 8) ∈ {1, 7}, 1, -1) = if((𝐴 mod 8) ∈ {1, 7}, 1,
-1)) |
| 133 | 129, 132 | ifbieq2d 3586 |
. . . . . . . . . . . 12
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → if(2 ∥ 𝑎, 0, if((𝑎 mod 8) ∈ {1, 7}, 1, -1)) = if(2 ∥
𝐴, 0, if((𝐴 mod 8) ∈ {1, 7}, 1,
-1))) |
| 134 | 121 | oveq1d 5940 |
. . . . . . . . . . . . . . 15
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑎↑((𝑛 − 1) / 2)) = (𝐴↑((𝑛 − 1) / 2))) |
| 135 | 134 | oveq1d 5940 |
. . . . . . . . . . . . . 14
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → ((𝑎↑((𝑛 − 1) / 2)) + 1) = ((𝐴↑((𝑛 − 1) / 2)) + 1)) |
| 136 | 135 | oveq1d 5940 |
. . . . . . . . . . . . 13
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (((𝑎↑((𝑛 − 1) / 2)) + 1) mod 𝑛) = (((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛)) |
| 137 | 136 | oveq1d 5940 |
. . . . . . . . . . . 12
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → ((((𝑎↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1) = ((((𝐴↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1)) |
| 138 | 133, 137 | ifeq12d 3581 |
. . . . . . . . . . 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 5941 |
. . . . . . . . . . 11
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑛 pCnt 𝑚) = (𝑛 pCnt 𝑁)) |
| 140 | 138, 139 | oveq12d 5943 |
. . . . . . . . . 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 3579 |
. . . . . . . . 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 4125 |
. . . . . . . 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 2247 |
. . . . . . 7
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (𝑛 ∈ ℕ ↦ if(𝑛 ∈ ℙ, (if(𝑛 = 2, if(2 ∥ 𝑎, 0, if((𝑎 mod 8) ∈ {1, 7}, 1, -1)), ((((𝑎↑((𝑛 − 1) / 2)) + 1) mod 𝑛) − 1))↑(𝑛 pCnt 𝑚)), 1)) = 𝐹) |
| 144 | 143 | seqeq3d 10564 |
. . . . . 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 5565 |
. . . . . 6
⊢ ((𝑎 = 𝐴 ∧ 𝑚 = 𝑁) → (abs‘𝑚) = (abs‘𝑁)) |
| 146 | 144, 145 | fveq12d 5568 |
. . . . 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 5943 |
. . . 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 3588 |
. . 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 15323 |
. . 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 6056 |
. 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 1349 |
1
⊢ ((𝐴 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝐴 /L 𝑁) = if(𝑁 = 0, if((𝐴↑2) = 1, 1, 0), (if((𝑁 < 0 ∧ 𝐴 < 0), -1, 1) · (seq1( · ,
𝐹)‘(abs‘𝑁))))) |