| Step | Hyp | Ref
| Expression |
| 1 | | simpr 485 |
. . . . . . . 8
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → 𝑞 = 𝑟) |
| 2 | | aks6d1c7.7 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝑃 ∥ 𝑁) |
| 3 | 2 | ad2antrr 732 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) → 𝑃 ∥ 𝑁) |
| 4 | | breq1 5075 |
. . . . . . . . . . . . . 14
⊢ (𝑠 = 𝑃 → (𝑠 ∥ 𝑁 ↔ 𝑃 ∥ 𝑁)) |
| 5 | | eqeq1 2743 |
. . . . . . . . . . . . . 14
⊢ (𝑠 = 𝑃 → (𝑠 = 𝑟 ↔ 𝑃 = 𝑟)) |
| 6 | 4, 5 | bibi12d 346 |
. . . . . . . . . . . . 13
⊢ (𝑠 = 𝑃 → ((𝑠 ∥ 𝑁 ↔ 𝑠 = 𝑟) ↔ (𝑃 ∥ 𝑁 ↔ 𝑃 = 𝑟))) |
| 7 | | nfv 1921 |
. . . . . . . . . . . . . . 15
⊢
Ⅎ𝑠(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟) |
| 8 | | nfv 1921 |
. . . . . . . . . . . . . . 15
⊢
Ⅎ𝑝(𝑠 ∥ 𝑁 ↔ 𝑠 = 𝑟) |
| 9 | | breq1 5075 |
. . . . . . . . . . . . . . . 16
⊢ (𝑝 = 𝑠 → (𝑝 ∥ 𝑁 ↔ 𝑠 ∥ 𝑁)) |
| 10 | | equequ1 2032 |
. . . . . . . . . . . . . . . 16
⊢ (𝑝 = 𝑠 → (𝑝 = 𝑟 ↔ 𝑠 = 𝑟)) |
| 11 | 9, 10 | bibi12d 346 |
. . . . . . . . . . . . . . 15
⊢ (𝑝 = 𝑠 → ((𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟) ↔ (𝑠 ∥ 𝑁 ↔ 𝑠 = 𝑟))) |
| 12 | 7, 8, 11 | cbvralw 3281 |
. . . . . . . . . . . . . 14
⊢
(∀𝑝 ∈
ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟) ↔ ∀𝑠 ∈ ℙ (𝑠 ∥ 𝑁 ↔ 𝑠 = 𝑟)) |
| 13 | 12 | bilani 505 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) → ∀𝑠 ∈ ℙ (𝑠 ∥ 𝑁 ↔ 𝑠 = 𝑟)) |
| 14 | | aks6d1c7.4 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → 𝑃 ∈ ℙ) |
| 15 | 14 | ad2antrr 732 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) → 𝑃 ∈ ℙ) |
| 16 | 6, 13, 15 | rspcdva 3561 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) → (𝑃 ∥ 𝑁 ↔ 𝑃 = 𝑟)) |
| 17 | 16 | biimpd 230 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) → (𝑃 ∥ 𝑁 → 𝑃 = 𝑟)) |
| 18 | 3, 17 | mpd 15 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) → 𝑃 = 𝑟) |
| 19 | 18 | ad2antrr 732 |
. . . . . . . . 9
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → 𝑃 = 𝑟) |
| 20 | 19 | eqcomd 2745 |
. . . . . . . 8
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → 𝑟 = 𝑃) |
| 21 | 1, 20 | eqtrd 2774 |
. . . . . . 7
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → 𝑞 = 𝑃) |
| 22 | 21 | oveq1d 7371 |
. . . . . 6
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → (𝑞 pCnt 𝑁) = (𝑃 pCnt 𝑁)) |
| 23 | | aks6d1c7.6 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 𝑁 ∈
(ℤ≥‘3)) |
| 24 | | eluzelz 12789 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑁 ∈
(ℤ≥‘3) → 𝑁 ∈ ℤ) |
| 25 | 23, 24 | syl 17 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → 𝑁 ∈ ℤ) |
| 26 | | 0red 11138 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 0 ∈
ℝ) |
| 27 | | 3re 12252 |
. . . . . . . . . . . . . . . . . . . 20
⊢ 3 ∈
ℝ |
| 28 | 27 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 3 ∈
ℝ) |
| 29 | 25 | zred 12624 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 𝑁 ∈ ℝ) |
| 30 | | 3pos 12277 |
. . . . . . . . . . . . . . . . . . . 20
⊢ 0 <
3 |
| 31 | 30 | a1i 11 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 0 < 3) |
| 32 | | eluzle 12792 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑁 ∈
(ℤ≥‘3) → 3 ≤ 𝑁) |
| 33 | 23, 32 | syl 17 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 3 ≤ 𝑁) |
| 34 | 26, 28, 29, 31, 33 | ltletrd 11297 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → 0 < 𝑁) |
| 35 | 25, 34 | jca 516 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → (𝑁 ∈ ℤ ∧ 0 < 𝑁)) |
| 36 | | elnnz 12525 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑁 ∈ ℕ ↔ (𝑁 ∈ ℤ ∧ 0 <
𝑁)) |
| 37 | 35, 36 | sylibr 235 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → 𝑁 ∈ ℕ) |
| 38 | | pcelnn 16832 |
. . . . . . . . . . . . . . . 16
⊢ ((𝑃 ∈ ℙ ∧ 𝑁 ∈ ℕ) → ((𝑃 pCnt 𝑁) ∈ ℕ ↔ 𝑃 ∥ 𝑁)) |
| 39 | 14, 37, 38 | syl2anc 590 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((𝑃 pCnt 𝑁) ∈ ℕ ↔ 𝑃 ∥ 𝑁)) |
| 40 | 2, 39 | mpbird 258 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑃 pCnt 𝑁) ∈ ℕ) |
| 41 | 40 | nncnd 12181 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑃 pCnt 𝑁) ∈ ℂ) |
| 42 | 41 | mulridd 11153 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((𝑃 pCnt 𝑁) · 1) = (𝑃 pCnt 𝑁)) |
| 43 | 42 | eqcomd 2745 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑃 pCnt 𝑁) = ((𝑃 pCnt 𝑁) · 1)) |
| 44 | | 1nn0 12444 |
. . . . . . . . . . . . . . . 16
⊢ 1 ∈
ℕ0 |
| 45 | 44 | a1i 11 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 1 ∈
ℕ0) |
| 46 | | pcidlem 16834 |
. . . . . . . . . . . . . . 15
⊢ ((𝑃 ∈ ℙ ∧ 1 ∈
ℕ0) → (𝑃 pCnt (𝑃↑1)) = 1) |
| 47 | 14, 45, 46 | syl2anc 590 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑃 pCnt (𝑃↑1)) = 1) |
| 48 | 47 | eqcomd 2745 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 1 = (𝑃 pCnt (𝑃↑1))) |
| 49 | | prmnn 16634 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑃 ∈ ℙ → 𝑃 ∈
ℕ) |
| 50 | 14, 49 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → 𝑃 ∈ ℕ) |
| 51 | 50 | nncnd 12181 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑃 ∈ ℂ) |
| 52 | 51 | exp1d 14094 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑃↑1) = 𝑃) |
| 53 | 52 | oveq2d 7372 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑃 pCnt (𝑃↑1)) = (𝑃 pCnt 𝑃)) |
| 54 | 48, 53 | eqtrd 2774 |
. . . . . . . . . . . 12
⊢ (𝜑 → 1 = (𝑃 pCnt 𝑃)) |
| 55 | 54 | oveq2d 7372 |
. . . . . . . . . . 11
⊢ (𝜑 → ((𝑃 pCnt 𝑁) · 1) = ((𝑃 pCnt 𝑁) · (𝑃 pCnt 𝑃))) |
| 56 | 43, 55 | eqtrd 2774 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑃 pCnt 𝑁) = ((𝑃 pCnt 𝑁) · (𝑃 pCnt 𝑃))) |
| 57 | 56 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑟 ∈ ℙ) → (𝑃 pCnt 𝑁) = ((𝑃 pCnt 𝑁) · (𝑃 pCnt 𝑃))) |
| 58 | 57 | ad3antrrr 736 |
. . . . . . . 8
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → (𝑃 pCnt 𝑁) = ((𝑃 pCnt 𝑁) · (𝑃 pCnt 𝑃))) |
| 59 | 15 | ad2antrr 732 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → 𝑃 ∈ ℙ) |
| 60 | | nnq 12903 |
. . . . . . . . . . . . . 14
⊢ (𝑃 ∈ ℕ → 𝑃 ∈
ℚ) |
| 61 | 50, 60 | syl 17 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝑃 ∈ ℚ) |
| 62 | 50 | nnne0d 12218 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝑃 ≠ 0) |
| 63 | 61, 62 | jca 516 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑃 ∈ ℚ ∧ 𝑃 ≠ 0)) |
| 64 | 63 | adantr 481 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑟 ∈ ℙ) → (𝑃 ∈ ℚ ∧ 𝑃 ≠ 0)) |
| 65 | 64 | ad3antrrr 736 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → (𝑃 ∈ ℚ ∧ 𝑃 ≠ 0)) |
| 66 | 40 | nnzd 12541 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑃 pCnt 𝑁) ∈ ℤ) |
| 67 | 66 | adantr 481 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑟 ∈ ℙ) → (𝑃 pCnt 𝑁) ∈ ℤ) |
| 68 | 67 | adantr 481 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) → (𝑃 pCnt 𝑁) ∈ ℤ) |
| 69 | 68 | adantr 481 |
. . . . . . . . . . 11
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → (𝑃 pCnt 𝑁) ∈ ℤ) |
| 70 | 69 | adantr 481 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → (𝑃 pCnt 𝑁) ∈ ℤ) |
| 71 | | pcexp 16821 |
. . . . . . . . . 10
⊢ ((𝑃 ∈ ℙ ∧ (𝑃 ∈ ℚ ∧ 𝑃 ≠ 0) ∧ (𝑃 pCnt 𝑁) ∈ ℤ) → (𝑃 pCnt (𝑃↑(𝑃 pCnt 𝑁))) = ((𝑃 pCnt 𝑁) · (𝑃 pCnt 𝑃))) |
| 72 | 59, 65, 70, 71 | syl3anc 1379 |
. . . . . . . . 9
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → (𝑃 pCnt (𝑃↑(𝑃 pCnt 𝑁))) = ((𝑃 pCnt 𝑁) · (𝑃 pCnt 𝑃))) |
| 73 | 72 | eqcomd 2745 |
. . . . . . . 8
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → ((𝑃 pCnt 𝑁) · (𝑃 pCnt 𝑃)) = (𝑃 pCnt (𝑃↑(𝑃 pCnt 𝑁)))) |
| 74 | 58, 73 | eqtrd 2774 |
. . . . . . 7
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → (𝑃 pCnt 𝑁) = (𝑃 pCnt (𝑃↑(𝑃 pCnt 𝑁)))) |
| 75 | 21 | eqcomd 2745 |
. . . . . . . 8
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → 𝑃 = 𝑞) |
| 76 | 75 | oveq1d 7371 |
. . . . . . 7
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → (𝑃 pCnt (𝑃↑(𝑃 pCnt 𝑁))) = (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁)))) |
| 77 | 74, 76 | eqtrd 2774 |
. . . . . 6
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → (𝑃 pCnt 𝑁) = (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁)))) |
| 78 | 22, 77 | eqtrd 2774 |
. . . . 5
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ 𝑞 = 𝑟) → (𝑞 pCnt 𝑁) = (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁)))) |
| 79 | | breq1 5075 |
. . . . . . . . . . . 12
⊢ (𝑠 = 𝑞 → (𝑠 ∥ 𝑁 ↔ 𝑞 ∥ 𝑁)) |
| 80 | | equequ1 2032 |
. . . . . . . . . . . 12
⊢ (𝑠 = 𝑞 → (𝑠 = 𝑟 ↔ 𝑞 = 𝑟)) |
| 81 | 79, 80 | bibi12d 346 |
. . . . . . . . . . 11
⊢ (𝑠 = 𝑞 → ((𝑠 ∥ 𝑁 ↔ 𝑠 = 𝑟) ↔ (𝑞 ∥ 𝑁 ↔ 𝑞 = 𝑟))) |
| 82 | 13 | adantr 481 |
. . . . . . . . . . 11
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → ∀𝑠 ∈ ℙ (𝑠 ∥ 𝑁 ↔ 𝑠 = 𝑟)) |
| 83 | | simpr 485 |
. . . . . . . . . . 11
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → 𝑞 ∈ ℙ) |
| 84 | 81, 82, 83 | rspcdva 3561 |
. . . . . . . . . 10
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → (𝑞 ∥ 𝑁 ↔ 𝑞 = 𝑟)) |
| 85 | 84 | bicomd 224 |
. . . . . . . . 9
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → (𝑞 = 𝑟 ↔ 𝑞 ∥ 𝑁)) |
| 86 | 85 | notbid 319 |
. . . . . . . 8
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → (¬ 𝑞 = 𝑟 ↔ ¬ 𝑞 ∥ 𝑁)) |
| 87 | 86 | biimpa 477 |
. . . . . . 7
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → ¬ 𝑞 ∥ 𝑁) |
| 88 | 83 | adantr 481 |
. . . . . . . 8
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 𝑞 ∈ ℙ) |
| 89 | 37 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑟 ∈ ℙ) → 𝑁 ∈ ℕ) |
| 90 | 89 | ad3antrrr 736 |
. . . . . . . 8
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 𝑁 ∈ ℕ) |
| 91 | | pceq0 16833 |
. . . . . . . 8
⊢ ((𝑞 ∈ ℙ ∧ 𝑁 ∈ ℕ) → ((𝑞 pCnt 𝑁) = 0 ↔ ¬ 𝑞 ∥ 𝑁)) |
| 92 | 88, 90, 91 | syl2anc 590 |
. . . . . . 7
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → ((𝑞 pCnt 𝑁) = 0 ↔ ¬ 𝑞 ∥ 𝑁)) |
| 93 | 87, 92 | mpbird 258 |
. . . . . 6
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → (𝑞 pCnt 𝑁) = 0) |
| 94 | | neqne 2942 |
. . . . . . . . . . . . 13
⊢ (¬
𝑞 = 𝑟 → 𝑞 ≠ 𝑟) |
| 95 | 94 | adantl 482 |
. . . . . . . . . . . 12
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 𝑞 ≠ 𝑟) |
| 96 | 3 | adantr 481 |
. . . . . . . . . . . . . . 15
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → 𝑃 ∥ 𝑁) |
| 97 | 15 | adantr 481 |
. . . . . . . . . . . . . . . . 17
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → 𝑃 ∈ ℙ) |
| 98 | 6, 82, 97 | rspcdva 3561 |
. . . . . . . . . . . . . . . 16
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → (𝑃 ∥ 𝑁 ↔ 𝑃 = 𝑟)) |
| 99 | 98 | biimpd 230 |
. . . . . . . . . . . . . . 15
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → (𝑃 ∥ 𝑁 → 𝑃 = 𝑟)) |
| 100 | 96, 99 | mpd 15 |
. . . . . . . . . . . . . 14
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → 𝑃 = 𝑟) |
| 101 | 100 | adantr 481 |
. . . . . . . . . . . . 13
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 𝑃 = 𝑟) |
| 102 | 101 | eqcomd 2745 |
. . . . . . . . . . . 12
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 𝑟 = 𝑃) |
| 103 | 95, 102 | neeqtrd 3003 |
. . . . . . . . . . 11
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 𝑞 ≠ 𝑃) |
| 104 | 103 | neneqd 2939 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → ¬ 𝑞 = 𝑃) |
| 105 | | prmuz2 16656 |
. . . . . . . . . . . . 13
⊢ (𝑞 ∈ ℙ → 𝑞 ∈
(ℤ≥‘2)) |
| 106 | 105 | adantl 482 |
. . . . . . . . . . . 12
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → 𝑞 ∈
(ℤ≥‘2)) |
| 107 | 106 | adantr 481 |
. . . . . . . . . . 11
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 𝑞 ∈
(ℤ≥‘2)) |
| 108 | 15 | ad2antrr 732 |
. . . . . . . . . . 11
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 𝑃 ∈ ℙ) |
| 109 | | dvdsprm 16664 |
. . . . . . . . . . 11
⊢ ((𝑞 ∈
(ℤ≥‘2) ∧ 𝑃 ∈ ℙ) → (𝑞 ∥ 𝑃 ↔ 𝑞 = 𝑃)) |
| 110 | 107, 108,
109 | syl2anc 590 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → (𝑞 ∥ 𝑃 ↔ 𝑞 = 𝑃)) |
| 111 | 104, 110 | mtbird 326 |
. . . . . . . . 9
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → ¬ 𝑞 ∥ 𝑃) |
| 112 | 50 | ad4antr 738 |
. . . . . . . . . . 11
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 𝑃 ∈ ℕ) |
| 113 | 112 | nnzd 12541 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 𝑃 ∈ ℤ) |
| 114 | 40 | adantr 481 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑟 ∈ ℙ) → (𝑃 pCnt 𝑁) ∈ ℕ) |
| 115 | 114 | adantr 481 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) → (𝑃 pCnt 𝑁) ∈ ℕ) |
| 116 | 115 | adantr 481 |
. . . . . . . . . . 11
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → (𝑃 pCnt 𝑁) ∈ ℕ) |
| 117 | 116 | adantr 481 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → (𝑃 pCnt 𝑁) ∈ ℕ) |
| 118 | | prmdvdsexp 16676 |
. . . . . . . . . 10
⊢ ((𝑞 ∈ ℙ ∧ 𝑃 ∈ ℤ ∧ (𝑃 pCnt 𝑁) ∈ ℕ) → (𝑞 ∥ (𝑃↑(𝑃 pCnt 𝑁)) ↔ 𝑞 ∥ 𝑃)) |
| 119 | 88, 113, 117, 118 | syl3anc 1379 |
. . . . . . . . 9
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → (𝑞 ∥ (𝑃↑(𝑃 pCnt 𝑁)) ↔ 𝑞 ∥ 𝑃)) |
| 120 | 111, 119 | mtbird 326 |
. . . . . . . 8
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → ¬ 𝑞 ∥ (𝑃↑(𝑃 pCnt 𝑁))) |
| 121 | 108, 90 | pccld 16812 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → (𝑃 pCnt 𝑁) ∈
ℕ0) |
| 122 | 112, 121 | nnexpcld 14198 |
. . . . . . . . 9
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → (𝑃↑(𝑃 pCnt 𝑁)) ∈ ℕ) |
| 123 | | pceq0 16833 |
. . . . . . . . 9
⊢ ((𝑞 ∈ ℙ ∧ (𝑃↑(𝑃 pCnt 𝑁)) ∈ ℕ) → ((𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁))) = 0 ↔ ¬ 𝑞 ∥ (𝑃↑(𝑃 pCnt 𝑁)))) |
| 124 | 88, 122, 123 | syl2anc 590 |
. . . . . . . 8
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → ((𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁))) = 0 ↔ ¬ 𝑞 ∥ (𝑃↑(𝑃 pCnt 𝑁)))) |
| 125 | 120, 124 | mpbird 258 |
. . . . . . 7
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁))) = 0) |
| 126 | 125 | eqcomd 2745 |
. . . . . 6
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → 0 = (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁)))) |
| 127 | 93, 126 | eqtrd 2774 |
. . . . 5
⊢
(((((𝜑 ∧ 𝑟 ∈ ℙ) ∧
∀𝑝 ∈ ℙ
(𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) ∧ ¬ 𝑞 = 𝑟) → (𝑞 pCnt 𝑁) = (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁)))) |
| 128 | 78, 127 | pm2.61dan 818 |
. . . 4
⊢ ((((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) ∧ 𝑞 ∈ ℙ) → (𝑞 pCnt 𝑁) = (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁)))) |
| 129 | 128 | ralrimiva 3131 |
. . 3
⊢ (((𝜑 ∧ 𝑟 ∈ ℙ) ∧ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) → ∀𝑞 ∈ ℙ (𝑞 pCnt 𝑁) = (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁)))) |
| 130 | | aks6d1c7.1 |
. . . . 5
⊢ ∼ =
{〈𝑒, 𝑓〉 ∣ (𝑒 ∈ ℕ ∧ 𝑓 ∈
(Base‘(Poly1‘𝐾)) ∧ ∀𝑦 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)(𝑒(.g‘(mulGrp‘𝐾))(((eval1‘𝐾)‘𝑓)‘𝑦)) = (((eval1‘𝐾)‘𝑓)‘(𝑒(.g‘(mulGrp‘𝐾))𝑦)))} |
| 131 | | aks6d1c7.2 |
. . . . 5
⊢ 𝑃 = (chr‘𝐾) |
| 132 | | aks6d1c7.3 |
. . . . 5
⊢ (𝜑 → 𝐾 ∈ Field) |
| 133 | | aks6d1c7.5 |
. . . . 5
⊢ (𝜑 → 𝑅 ∈ ℕ) |
| 134 | | aks6d1c7.8 |
. . . . 5
⊢ (𝜑 → (𝑁 gcd 𝑅) = 1) |
| 135 | | aks6d1c7.9 |
. . . . 5
⊢ 𝐴 =
(⌊‘((√‘(ϕ‘𝑅)) · (2 logb 𝑁))) |
| 136 | | aks6d1c7.10 |
. . . . 5
⊢ (𝜑 → ((2 logb 𝑁)↑2) <
((odℤ‘𝑅)‘𝑁)) |
| 137 | | aks6d1c7.11 |
. . . . 5
⊢ (𝜑 → (𝑥 ∈ (Base‘𝐾) ↦ (𝑃(.g‘(mulGrp‘𝐾))𝑥)) ∈ (𝐾 RingIso 𝐾)) |
| 138 | | aks6d1c7.12 |
. . . . 5
⊢ (𝜑 → 𝑀 ∈ ((mulGrp‘𝐾) PrimRoots 𝑅)) |
| 139 | | aks6d1c7.13 |
. . . . 5
⊢ (𝜑 → ∀𝑏 ∈ (1...𝐴)(𝑏 gcd 𝑁) = 1) |
| 140 | | aks6d1c7.14 |
. . . . 5
⊢ (𝜑 → ∀𝑎 ∈ (1...𝐴)𝑁 ∼
((var1‘𝐾)(+g‘(Poly1‘𝐾))((algSc‘(Poly1‘𝐾))‘((ℤRHom‘𝐾)‘𝑎)))) |
| 141 | 130, 131,
132, 14, 133, 23, 2, 134, 135, 136, 137, 138, 139, 140 | aks6d1c7lem4 42668 |
. . . 4
⊢ (𝜑 → ∃!𝑝 ∈ ℙ 𝑝 ∥ 𝑁) |
| 142 | | reu6 3667 |
. . . 4
⊢
(∃!𝑝 ∈
ℙ 𝑝 ∥ 𝑁 ↔ ∃𝑟 ∈ ℙ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) |
| 143 | 141, 142 | sylib 219 |
. . 3
⊢ (𝜑 → ∃𝑟 ∈ ℙ ∀𝑝 ∈ ℙ (𝑝 ∥ 𝑁 ↔ 𝑝 = 𝑟)) |
| 144 | 129, 143 | r19.29a 3147 |
. 2
⊢ (𝜑 → ∀𝑞 ∈ ℙ (𝑞 pCnt 𝑁) = (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁)))) |
| 145 | 37 | nnnn0d 12489 |
. . 3
⊢ (𝜑 → 𝑁 ∈
ℕ0) |
| 146 | 50 | nnnn0d 12489 |
. . . 4
⊢ (𝜑 → 𝑃 ∈
ℕ0) |
| 147 | 14, 37 | pccld 16812 |
. . . 4
⊢ (𝜑 → (𝑃 pCnt 𝑁) ∈
ℕ0) |
| 148 | 146, 147 | nn0expcld 14199 |
. . 3
⊢ (𝜑 → (𝑃↑(𝑃 pCnt 𝑁)) ∈
ℕ0) |
| 149 | | pc11 16842 |
. . 3
⊢ ((𝑁 ∈ ℕ0
∧ (𝑃↑(𝑃 pCnt 𝑁)) ∈ ℕ0) → (𝑁 = (𝑃↑(𝑃 pCnt 𝑁)) ↔ ∀𝑞 ∈ ℙ (𝑞 pCnt 𝑁) = (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁))))) |
| 150 | 145, 148,
149 | syl2anc 590 |
. 2
⊢ (𝜑 → (𝑁 = (𝑃↑(𝑃 pCnt 𝑁)) ↔ ∀𝑞 ∈ ℙ (𝑞 pCnt 𝑁) = (𝑞 pCnt (𝑃↑(𝑃 pCnt 𝑁))))) |
| 151 | 144, 150 | mpbird 258 |
1
⊢ (𝜑 → 𝑁 = (𝑃↑(𝑃 pCnt 𝑁))) |