Proof of Theorem ppivalnnnprm
| Step | Hyp | Ref
| Expression |
| 1 | | uzp1 12814 |
. . 3
⊢ (𝑁 ∈
(ℤ≥‘2) → (𝑁 = 2 ∨ 𝑁 ∈ (ℤ≥‘(2 +
1)))) |
| 2 | | neleq1 3043 |
. . . . 5
⊢ (𝑁 = 2 → (𝑁 ∉ ℙ ↔ 2 ∉
ℙ)) |
| 3 | | 2prm 16650 |
. . . . . 6
⊢ 2 ∈
ℙ |
| 4 | | pm2.24nel 3050 |
. . . . . 6
⊢ (2 ∈
ℙ → (2 ∉ ℙ → (⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) −
(⌊‘((!‘(𝑁
− 1)) / 𝑁)))) =
0)) |
| 5 | 3, 4 | ax-mp 5 |
. . . . 5
⊢ (2
∉ ℙ → (⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0) |
| 6 | 2, 5 | biimtrdi 253 |
. . . 4
⊢ (𝑁 = 2 → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 7 | | uzp1 12814 |
. . . . . 6
⊢ (𝑁 ∈
(ℤ≥‘3) → (𝑁 = 3 ∨ 𝑁 ∈ (ℤ≥‘(3 +
1)))) |
| 8 | | neleq1 3043 |
. . . . . . . 8
⊢ (𝑁 = 3 → (𝑁 ∉ ℙ ↔ 3 ∉
ℙ)) |
| 9 | | 3prm 16652 |
. . . . . . . . 9
⊢ 3 ∈
ℙ |
| 10 | | pm2.24nel 3050 |
. . . . . . . . 9
⊢ (3 ∈
ℙ → (3 ∉ ℙ → (⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) −
(⌊‘((!‘(𝑁
− 1)) / 𝑁)))) =
0)) |
| 11 | 9, 10 | ax-mp 5 |
. . . . . . . 8
⊢ (3
∉ ℙ → (⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0) |
| 12 | 8, 11 | biimtrdi 253 |
. . . . . . 7
⊢ (𝑁 = 3 → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 13 | | uzp1 12814 |
. . . . . . . . 9
⊢ (𝑁 ∈
(ℤ≥‘4) → (𝑁 = 4 ∨ 𝑁 ∈ (ℤ≥‘(4 +
1)))) |
| 14 | | fvoveq1 7381 |
. . . . . . . . . . . . . . . 16
⊢ (𝑁 = 4 → (!‘(𝑁 − 1)) = (!‘(4
− 1))) |
| 15 | 14 | oveq1d 7373 |
. . . . . . . . . . . . . . 15
⊢ (𝑁 = 4 → ((!‘(𝑁 − 1)) + 1) = ((!‘(4
− 1)) + 1)) |
| 16 | | id 22 |
. . . . . . . . . . . . . . 15
⊢ (𝑁 = 4 → 𝑁 = 4) |
| 17 | 15, 16 | oveq12d 7376 |
. . . . . . . . . . . . . 14
⊢ (𝑁 = 4 → (((!‘(𝑁 − 1)) + 1) / 𝑁) = (((!‘(4 − 1)) +
1) / 4)) |
| 18 | 14, 16 | oveq12d 7376 |
. . . . . . . . . . . . . . 15
⊢ (𝑁 = 4 → ((!‘(𝑁 − 1)) / 𝑁) = ((!‘(4 − 1)) /
4)) |
| 19 | 18 | fveq2d 6836 |
. . . . . . . . . . . . . 14
⊢ (𝑁 = 4 →
(⌊‘((!‘(𝑁
− 1)) / 𝑁)) =
(⌊‘((!‘(4 − 1)) / 4))) |
| 20 | 17, 19 | oveq12d 7376 |
. . . . . . . . . . . . 13
⊢ (𝑁 = 4 → ((((!‘(𝑁 − 1)) + 1) / 𝑁) −
(⌊‘((!‘(𝑁
− 1)) / 𝑁))) =
((((!‘(4 − 1)) + 1) / 4) − (⌊‘((!‘(4
− 1)) / 4)))) |
| 21 | 20 | fveq2d 6836 |
. . . . . . . . . . . 12
⊢ (𝑁 = 4 →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = (⌊‘((((!‘(4 −
1)) + 1) / 4) − (⌊‘((!‘(4 − 1)) /
4))))) |
| 22 | | ppivalnn4 48087 |
. . . . . . . . . . . 12
⊢
(⌊‘((((!‘(4 − 1)) + 1) / 4) −
(⌊‘((!‘(4 − 1)) / 4)))) = 0 |
| 23 | 21, 22 | eqtrdi 2788 |
. . . . . . . . . . 11
⊢ (𝑁 = 4 →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0) |
| 24 | 23 | a1d 25 |
. . . . . . . . . 10
⊢ (𝑁 = 4 → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 25 | | uzp1 12814 |
. . . . . . . . . . . 12
⊢ (𝑁 ∈
(ℤ≥‘5) → (𝑁 = 5 ∨ 𝑁 ∈ (ℤ≥‘(5 +
1)))) |
| 26 | | neleq1 3043 |
. . . . . . . . . . . . . 14
⊢ (𝑁 = 5 → (𝑁 ∉ ℙ ↔ 5 ∉
ℙ)) |
| 27 | | 5prm 17068 |
. . . . . . . . . . . . . . 15
⊢ 5 ∈
ℙ |
| 28 | | pm2.24nel 3050 |
. . . . . . . . . . . . . . 15
⊢ (5 ∈
ℙ → (5 ∉ ℙ → (⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) −
(⌊‘((!‘(𝑁
− 1)) / 𝑁)))) =
0)) |
| 29 | 27, 28 | ax-mp 5 |
. . . . . . . . . . . . . 14
⊢ (5
∉ ℙ → (⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0) |
| 30 | 26, 29 | biimtrdi 253 |
. . . . . . . . . . . . 13
⊢ (𝑁 = 5 → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 31 | | ppivalnnnprmge6 48086 |
. . . . . . . . . . . . . . 15
⊢ ((𝑁 ∈
(ℤ≥‘6) ∧ 𝑁 ∉ ℙ) →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0) |
| 32 | 31 | ex 412 |
. . . . . . . . . . . . . 14
⊢ (𝑁 ∈
(ℤ≥‘6) → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 33 | | 5p1e6 12312 |
. . . . . . . . . . . . . . 15
⊢ (5 + 1) =
6 |
| 34 | 33 | fveq2i 6835 |
. . . . . . . . . . . . . 14
⊢
(ℤ≥‘(5 + 1)) =
(ℤ≥‘6) |
| 35 | 32, 34 | eleq2s 2855 |
. . . . . . . . . . . . 13
⊢ (𝑁 ∈
(ℤ≥‘(5 + 1)) → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 36 | 30, 35 | jaoi 858 |
. . . . . . . . . . . 12
⊢ ((𝑁 = 5 ∨ 𝑁 ∈ (ℤ≥‘(5 +
1))) → (𝑁 ∉
ℙ → (⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 37 | 25, 36 | syl 17 |
. . . . . . . . . . 11
⊢ (𝑁 ∈
(ℤ≥‘5) → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 38 | | 4p1e5 12311 |
. . . . . . . . . . . 12
⊢ (4 + 1) =
5 |
| 39 | 38 | fveq2i 6835 |
. . . . . . . . . . 11
⊢
(ℤ≥‘(4 + 1)) =
(ℤ≥‘5) |
| 40 | 37, 39 | eleq2s 2855 |
. . . . . . . . . 10
⊢ (𝑁 ∈
(ℤ≥‘(4 + 1)) → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 41 | 24, 40 | jaoi 858 |
. . . . . . . . 9
⊢ ((𝑁 = 4 ∨ 𝑁 ∈ (ℤ≥‘(4 +
1))) → (𝑁 ∉
ℙ → (⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 42 | 13, 41 | syl 17 |
. . . . . . . 8
⊢ (𝑁 ∈
(ℤ≥‘4) → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 43 | | 3p1e4 12310 |
. . . . . . . . 9
⊢ (3 + 1) =
4 |
| 44 | 43 | fveq2i 6835 |
. . . . . . . 8
⊢
(ℤ≥‘(3 + 1)) =
(ℤ≥‘4) |
| 45 | 42, 44 | eleq2s 2855 |
. . . . . . 7
⊢ (𝑁 ∈
(ℤ≥‘(3 + 1)) → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 46 | 12, 45 | jaoi 858 |
. . . . . 6
⊢ ((𝑁 = 3 ∨ 𝑁 ∈ (ℤ≥‘(3 +
1))) → (𝑁 ∉
ℙ → (⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 47 | 7, 46 | syl 17 |
. . . . 5
⊢ (𝑁 ∈
(ℤ≥‘3) → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 48 | | 2p1e3 12307 |
. . . . . 6
⊢ (2 + 1) =
3 |
| 49 | 48 | fveq2i 6835 |
. . . . 5
⊢
(ℤ≥‘(2 + 1)) =
(ℤ≥‘3) |
| 50 | 47, 49 | eleq2s 2855 |
. . . 4
⊢ (𝑁 ∈
(ℤ≥‘(2 + 1)) → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 51 | 6, 50 | jaoi 858 |
. . 3
⊢ ((𝑁 = 2 ∨ 𝑁 ∈ (ℤ≥‘(2 +
1))) → (𝑁 ∉
ℙ → (⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 52 | 1, 51 | syl 17 |
. 2
⊢ (𝑁 ∈
(ℤ≥‘2) → (𝑁 ∉ ℙ →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0)) |
| 53 | 52 | imp 406 |
1
⊢ ((𝑁 ∈
(ℤ≥‘2) ∧ 𝑁 ∉ ℙ) →
(⌊‘((((!‘(𝑁 − 1)) + 1) / 𝑁) − (⌊‘((!‘(𝑁 − 1)) / 𝑁)))) = 0) |