| Step | Hyp | Ref
| Expression |
| 1 | | wilth 27052 |
. 2
⊢ (𝑃 ∈ ℙ ↔ (𝑃 ∈
(ℤ≥‘2) ∧ 𝑃 ∥ ((!‘(𝑃 − 1)) + 1))) |
| 2 | | eluzelz 12787 |
. . . . 5
⊢ (𝑃 ∈
(ℤ≥‘2) → 𝑃 ∈ ℤ) |
| 3 | | eluz2nn 12827 |
. . . . . . . . 9
⊢ (𝑃 ∈
(ℤ≥‘2) → 𝑃 ∈ ℕ) |
| 4 | | nnm1nn0 12467 |
. . . . . . . . 9
⊢ (𝑃 ∈ ℕ → (𝑃 − 1) ∈
ℕ0) |
| 5 | 3, 4 | syl 17 |
. . . . . . . 8
⊢ (𝑃 ∈
(ℤ≥‘2) → (𝑃 − 1) ∈
ℕ0) |
| 6 | 5 | faccld 14235 |
. . . . . . 7
⊢ (𝑃 ∈
(ℤ≥‘2) → (!‘(𝑃 − 1)) ∈
ℕ) |
| 7 | 6 | nnzd 12539 |
. . . . . 6
⊢ (𝑃 ∈
(ℤ≥‘2) → (!‘(𝑃 − 1)) ∈
ℤ) |
| 8 | 7 | peano2zd 12625 |
. . . . 5
⊢ (𝑃 ∈
(ℤ≥‘2) → ((!‘(𝑃 − 1)) + 1) ∈
ℤ) |
| 9 | | divides 16212 |
. . . . 5
⊢ ((𝑃 ∈ ℤ ∧
((!‘(𝑃 − 1)) +
1) ∈ ℤ) → (𝑃 ∥ ((!‘(𝑃 − 1)) + 1) ↔ ∃𝑚 ∈ ℤ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1))) |
| 10 | 2, 8, 9 | syl2anc 585 |
. . . 4
⊢ (𝑃 ∈
(ℤ≥‘2) → (𝑃 ∥ ((!‘(𝑃 − 1)) + 1) ↔ ∃𝑚 ∈ ℤ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1))) |
| 11 | | oveq1 7365 |
. . . . . . . . . . 11
⊢
(((!‘(𝑃
− 1)) + 1) = (𝑚
· 𝑃) →
(((!‘(𝑃 − 1)) +
1) / 𝑃) = ((𝑚 · 𝑃) / 𝑃)) |
| 12 | 11 | eqcoms 2745 |
. . . . . . . . . 10
⊢ ((𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1) → (((!‘(𝑃 − 1)) + 1) / 𝑃) = ((𝑚 · 𝑃) / 𝑃)) |
| 13 | | zcn 12518 |
. . . . . . . . . . . 12
⊢ (𝑚 ∈ ℤ → 𝑚 ∈
ℂ) |
| 14 | 13 | adantl 481 |
. . . . . . . . . . 11
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → 𝑚 ∈ ℂ) |
| 15 | | eluzelcn 12789 |
. . . . . . . . . . . 12
⊢ (𝑃 ∈
(ℤ≥‘2) → 𝑃 ∈ ℂ) |
| 16 | 15 | adantr 480 |
. . . . . . . . . . 11
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → 𝑃 ∈ ℂ) |
| 17 | | eluz2n0 12832 |
. . . . . . . . . . . 12
⊢ (𝑃 ∈
(ℤ≥‘2) → 𝑃 ≠ 0) |
| 18 | 17 | adantr 480 |
. . . . . . . . . . 11
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → 𝑃 ≠ 0) |
| 19 | 14, 16, 18 | divcan4d 11926 |
. . . . . . . . . 10
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → ((𝑚 · 𝑃) / 𝑃) = 𝑚) |
| 20 | 12, 19 | sylan9eqr 2794 |
. . . . . . . . 9
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) → (((!‘(𝑃 − 1)) + 1) / 𝑃) = 𝑚) |
| 21 | 6 | nncnd 12179 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑃 ∈
(ℤ≥‘2) → (!‘(𝑃 − 1)) ∈
ℂ) |
| 22 | | pncan1 11563 |
. . . . . . . . . . . . . . . . 17
⊢
((!‘(𝑃 −
1)) ∈ ℂ → (((!‘(𝑃 − 1)) + 1) − 1) =
(!‘(𝑃 −
1))) |
| 23 | 21, 22 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢ (𝑃 ∈
(ℤ≥‘2) → (((!‘(𝑃 − 1)) + 1) − 1) =
(!‘(𝑃 −
1))) |
| 24 | 23 | eqcomd 2743 |
. . . . . . . . . . . . . . 15
⊢ (𝑃 ∈
(ℤ≥‘2) → (!‘(𝑃 − 1)) = (((!‘(𝑃 − 1)) + 1) −
1)) |
| 25 | 24 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → (!‘(𝑃 − 1)) = (((!‘(𝑃 − 1)) + 1) −
1)) |
| 26 | | oveq1 7365 |
. . . . . . . . . . . . . . 15
⊢
(((!‘(𝑃
− 1)) + 1) = (𝑚
· 𝑃) →
(((!‘(𝑃 − 1)) +
1) − 1) = ((𝑚
· 𝑃) −
1)) |
| 27 | 26 | eqcoms 2745 |
. . . . . . . . . . . . . 14
⊢ ((𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1) → (((!‘(𝑃 − 1)) + 1) − 1) =
((𝑚 · 𝑃) − 1)) |
| 28 | 25, 27 | sylan9eq 2792 |
. . . . . . . . . . . . 13
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) → (!‘(𝑃 − 1)) = ((𝑚 · 𝑃) − 1)) |
| 29 | 28 | oveq1d 7373 |
. . . . . . . . . . . 12
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) → ((!‘(𝑃 − 1)) / 𝑃) = (((𝑚 · 𝑃) − 1) / 𝑃)) |
| 30 | | simpr 484 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → 𝑚 ∈ ℤ) |
| 31 | 2 | adantr 480 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → 𝑃 ∈ ℤ) |
| 32 | 30, 31 | zmulcld 12628 |
. . . . . . . . . . . . . . . 16
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → (𝑚 · 𝑃) ∈ ℤ) |
| 33 | 32 | zcnd 12623 |
. . . . . . . . . . . . . . 15
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → (𝑚 · 𝑃) ∈ ℂ) |
| 34 | | 1cnd 11128 |
. . . . . . . . . . . . . . 15
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → 1 ∈
ℂ) |
| 35 | 33, 34, 16, 18 | divsubdird 11959 |
. . . . . . . . . . . . . 14
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → (((𝑚 · 𝑃) − 1) / 𝑃) = (((𝑚 · 𝑃) / 𝑃) − (1 / 𝑃))) |
| 36 | 19 | oveq1d 7373 |
. . . . . . . . . . . . . 14
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → (((𝑚 · 𝑃) / 𝑃) − (1 / 𝑃)) = (𝑚 − (1 / 𝑃))) |
| 37 | 35, 36 | eqtrd 2772 |
. . . . . . . . . . . . 13
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → (((𝑚 · 𝑃) − 1) / 𝑃) = (𝑚 − (1 / 𝑃))) |
| 38 | 37 | adantr 480 |
. . . . . . . . . . . 12
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) → (((𝑚 · 𝑃) − 1) / 𝑃) = (𝑚 − (1 / 𝑃))) |
| 39 | 29, 38 | eqtrd 2772 |
. . . . . . . . . . 11
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) → ((!‘(𝑃 − 1)) / 𝑃) = (𝑚 − (1 / 𝑃))) |
| 40 | 39 | fveq2d 6836 |
. . . . . . . . . 10
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) →
(⌊‘((!‘(𝑃
− 1)) / 𝑃)) =
(⌊‘(𝑚 −
(1 / 𝑃)))) |
| 41 | 3 | anim1ci 617 |
. . . . . . . . . . . 12
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → (𝑚 ∈ ℤ ∧ 𝑃 ∈ ℕ)) |
| 42 | | flmrecm1 47788 |
. . . . . . . . . . . 12
⊢ ((𝑚 ∈ ℤ ∧ 𝑃 ∈ ℕ) →
(⌊‘(𝑚 −
(1 / 𝑃))) = (𝑚 − 1)) |
| 43 | 41, 42 | syl 17 |
. . . . . . . . . . 11
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → (⌊‘(𝑚 − (1 / 𝑃))) = (𝑚 − 1)) |
| 44 | 43 | adantr 480 |
. . . . . . . . . 10
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) →
(⌊‘(𝑚 −
(1 / 𝑃))) = (𝑚 − 1)) |
| 45 | 40, 44 | eqtrd 2772 |
. . . . . . . . 9
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) →
(⌊‘((!‘(𝑃
− 1)) / 𝑃)) = (𝑚 − 1)) |
| 46 | 20, 45 | oveq12d 7376 |
. . . . . . . 8
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) → ((((!‘(𝑃 − 1)) + 1) / 𝑃) −
(⌊‘((!‘(𝑃
− 1)) / 𝑃))) = (𝑚 − (𝑚 − 1))) |
| 47 | 46 | fveq2d 6836 |
. . . . . . 7
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) →
(⌊‘((((!‘(𝑃 − 1)) + 1) / 𝑃) − (⌊‘((!‘(𝑃 − 1)) / 𝑃)))) = (⌊‘(𝑚 − (𝑚 − 1)))) |
| 48 | | 1cnd 11128 |
. . . . . . . . . . . 12
⊢ (𝑚 ∈ ℤ → 1 ∈
ℂ) |
| 49 | 13, 48 | nncand 11499 |
. . . . . . . . . . 11
⊢ (𝑚 ∈ ℤ → (𝑚 − (𝑚 − 1)) = 1) |
| 50 | 49 | fveq2d 6836 |
. . . . . . . . . 10
⊢ (𝑚 ∈ ℤ →
(⌊‘(𝑚 −
(𝑚 − 1))) =
(⌊‘1)) |
| 51 | | 1z 12546 |
. . . . . . . . . . 11
⊢ 1 ∈
ℤ |
| 52 | | flid 13756 |
. . . . . . . . . . 11
⊢ (1 ∈
ℤ → (⌊‘1) = 1) |
| 53 | 51, 52 | mp1i 13 |
. . . . . . . . . 10
⊢ (𝑚 ∈ ℤ →
(⌊‘1) = 1) |
| 54 | 50, 53 | eqtrd 2772 |
. . . . . . . . 9
⊢ (𝑚 ∈ ℤ →
(⌊‘(𝑚 −
(𝑚 − 1))) =
1) |
| 55 | 54 | adantl 481 |
. . . . . . . 8
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → (⌊‘(𝑚 − (𝑚 − 1))) = 1) |
| 56 | 55 | adantr 480 |
. . . . . . 7
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) →
(⌊‘(𝑚 −
(𝑚 − 1))) =
1) |
| 57 | 47, 56 | eqtrd 2772 |
. . . . . 6
⊢ (((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) ∧ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1)) →
(⌊‘((((!‘(𝑃 − 1)) + 1) / 𝑃) − (⌊‘((!‘(𝑃 − 1)) / 𝑃)))) = 1) |
| 58 | 57 | ex 412 |
. . . . 5
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑚 ∈ ℤ) → ((𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1) →
(⌊‘((((!‘(𝑃 − 1)) + 1) / 𝑃) − (⌊‘((!‘(𝑃 − 1)) / 𝑃)))) = 1)) |
| 59 | 58 | rexlimdva 3139 |
. . . 4
⊢ (𝑃 ∈
(ℤ≥‘2) → (∃𝑚 ∈ ℤ (𝑚 · 𝑃) = ((!‘(𝑃 − 1)) + 1) →
(⌊‘((((!‘(𝑃 − 1)) + 1) / 𝑃) − (⌊‘((!‘(𝑃 − 1)) / 𝑃)))) = 1)) |
| 60 | 10, 59 | sylbid 240 |
. . 3
⊢ (𝑃 ∈
(ℤ≥‘2) → (𝑃 ∥ ((!‘(𝑃 − 1)) + 1) →
(⌊‘((((!‘(𝑃 − 1)) + 1) / 𝑃) − (⌊‘((!‘(𝑃 − 1)) / 𝑃)))) = 1)) |
| 61 | 60 | imp 406 |
. 2
⊢ ((𝑃 ∈
(ℤ≥‘2) ∧ 𝑃 ∥ ((!‘(𝑃 − 1)) + 1)) →
(⌊‘((((!‘(𝑃 − 1)) + 1) / 𝑃) − (⌊‘((!‘(𝑃 − 1)) / 𝑃)))) = 1) |
| 62 | 1, 61 | sylbi 217 |
1
⊢ (𝑃 ∈ ℙ →
(⌊‘((((!‘(𝑃 − 1)) + 1) / 𝑃) − (⌊‘((!‘(𝑃 − 1)) / 𝑃)))) = 1) |