Proof of Theorem prmunb
Step | Hyp | Ref
| Expression |
1 | | nnnn0 12170 |
. 2
⊢ (𝑁 ∈ ℕ → 𝑁 ∈
ℕ0) |
2 | | faccl 13925 |
. . . 4
⊢ (𝑁 ∈ ℕ0
→ (!‘𝑁) ∈
ℕ) |
3 | | elnnuz 12551 |
. . . . 5
⊢
((!‘𝑁) ∈
ℕ ↔ (!‘𝑁)
∈ (ℤ≥‘1)) |
4 | | eluzp1p1 12539 |
. . . . . 6
⊢
((!‘𝑁) ∈
(ℤ≥‘1) → ((!‘𝑁) + 1) ∈
(ℤ≥‘(1 + 1))) |
5 | | df-2 11966 |
. . . . . . 7
⊢ 2 = (1 +
1) |
6 | 5 | fveq2i 6759 |
. . . . . 6
⊢
(ℤ≥‘2) = (ℤ≥‘(1 +
1)) |
7 | 4, 6 | eleqtrrdi 2850 |
. . . . 5
⊢
((!‘𝑁) ∈
(ℤ≥‘1) → ((!‘𝑁) + 1) ∈
(ℤ≥‘2)) |
8 | 3, 7 | sylbi 216 |
. . . 4
⊢
((!‘𝑁) ∈
ℕ → ((!‘𝑁)
+ 1) ∈ (ℤ≥‘2)) |
9 | | exprmfct 16337 |
. . . 4
⊢
(((!‘𝑁) + 1)
∈ (ℤ≥‘2) → ∃𝑝 ∈ ℙ 𝑝 ∥ ((!‘𝑁) + 1)) |
10 | 2, 8, 9 | 3syl 18 |
. . 3
⊢ (𝑁 ∈ ℕ0
→ ∃𝑝 ∈
ℙ 𝑝 ∥
((!‘𝑁) +
1)) |
11 | | prmz 16308 |
. . . . . . . . 9
⊢ (𝑝 ∈ ℙ → 𝑝 ∈
ℤ) |
12 | | nn0z 12273 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℕ0
→ 𝑁 ∈
ℤ) |
13 | | eluz 12525 |
. . . . . . . . 9
⊢ ((𝑝 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈
(ℤ≥‘𝑝) ↔ 𝑝 ≤ 𝑁)) |
14 | 11, 12, 13 | syl2an 595 |
. . . . . . . 8
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈ ℕ0)
→ (𝑁 ∈
(ℤ≥‘𝑝) ↔ 𝑝 ≤ 𝑁)) |
15 | | prmuz2 16329 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑝 ∈ ℙ → 𝑝 ∈
(ℤ≥‘2)) |
16 | | eluz2b2 12590 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑝 ∈
(ℤ≥‘2) ↔ (𝑝 ∈ ℕ ∧ 1 < 𝑝)) |
17 | 15, 16 | sylib 217 |
. . . . . . . . . . . . . . . 16
⊢ (𝑝 ∈ ℙ → (𝑝 ∈ ℕ ∧ 1 <
𝑝)) |
18 | 17 | adantr 480 |
. . . . . . . . . . . . . . 15
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → (𝑝 ∈ ℕ ∧ 1 < 𝑝)) |
19 | 18 | simpld 494 |
. . . . . . . . . . . . . 14
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑝 ∈ ℕ) |
20 | 19 | nnnn0d 12223 |
. . . . . . . . . . . . 13
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑝 ∈ ℕ0) |
21 | | eluznn0 12586 |
. . . . . . . . . . . . 13
⊢ ((𝑝 ∈ ℕ0
∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑁 ∈
ℕ0) |
22 | 20, 21 | sylancom 587 |
. . . . . . . . . . . 12
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑁 ∈
ℕ0) |
23 | | nnz 12272 |
. . . . . . . . . . . 12
⊢
((!‘𝑁) ∈
ℕ → (!‘𝑁)
∈ ℤ) |
24 | 22, 2, 23 | 3syl 18 |
. . . . . . . . . . 11
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → (!‘𝑁) ∈ ℤ) |
25 | 18 | simprd 495 |
. . . . . . . . . . 11
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 1 < 𝑝) |
26 | | dvdsfac 15963 |
. . . . . . . . . . . 12
⊢ ((𝑝 ∈ ℕ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑝 ∥ (!‘𝑁)) |
27 | 19, 26 | sylancom 587 |
. . . . . . . . . . 11
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑝 ∥ (!‘𝑁)) |
28 | | ndvdsp1 16048 |
. . . . . . . . . . . 12
⊢
(((!‘𝑁) ∈
ℤ ∧ 𝑝 ∈
ℕ ∧ 1 < 𝑝)
→ (𝑝 ∥
(!‘𝑁) → ¬
𝑝 ∥ ((!‘𝑁) + 1))) |
29 | 28 | imp 406 |
. . . . . . . . . . 11
⊢
((((!‘𝑁)
∈ ℤ ∧ 𝑝
∈ ℕ ∧ 1 < 𝑝) ∧ 𝑝 ∥ (!‘𝑁)) → ¬ 𝑝 ∥ ((!‘𝑁) + 1)) |
30 | 24, 19, 25, 27, 29 | syl31anc 1371 |
. . . . . . . . . 10
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → ¬ 𝑝 ∥ ((!‘𝑁) + 1)) |
31 | 30 | ex 412 |
. . . . . . . . 9
⊢ (𝑝 ∈ ℙ → (𝑁 ∈
(ℤ≥‘𝑝) → ¬ 𝑝 ∥ ((!‘𝑁) + 1))) |
32 | 31 | adantr 480 |
. . . . . . . 8
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈ ℕ0)
→ (𝑁 ∈
(ℤ≥‘𝑝) → ¬ 𝑝 ∥ ((!‘𝑁) + 1))) |
33 | 14, 32 | sylbird 259 |
. . . . . . 7
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈ ℕ0)
→ (𝑝 ≤ 𝑁 → ¬ 𝑝 ∥ ((!‘𝑁) + 1))) |
34 | 33 | con2d 134 |
. . . . . 6
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈ ℕ0)
→ (𝑝 ∥
((!‘𝑁) + 1) →
¬ 𝑝 ≤ 𝑁)) |
35 | 34 | ancoms 458 |
. . . . 5
⊢ ((𝑁 ∈ ℕ0
∧ 𝑝 ∈ ℙ)
→ (𝑝 ∥
((!‘𝑁) + 1) →
¬ 𝑝 ≤ 𝑁)) |
36 | | nn0re 12172 |
. . . . . 6
⊢ (𝑁 ∈ ℕ0
→ 𝑁 ∈
ℝ) |
37 | 11 | zred 12355 |
. . . . . 6
⊢ (𝑝 ∈ ℙ → 𝑝 ∈
ℝ) |
38 | | ltnle 10985 |
. . . . . 6
⊢ ((𝑁 ∈ ℝ ∧ 𝑝 ∈ ℝ) → (𝑁 < 𝑝 ↔ ¬ 𝑝 ≤ 𝑁)) |
39 | 36, 37, 38 | syl2an 595 |
. . . . 5
⊢ ((𝑁 ∈ ℕ0
∧ 𝑝 ∈ ℙ)
→ (𝑁 < 𝑝 ↔ ¬ 𝑝 ≤ 𝑁)) |
40 | 35, 39 | sylibrd 258 |
. . . 4
⊢ ((𝑁 ∈ ℕ0
∧ 𝑝 ∈ ℙ)
→ (𝑝 ∥
((!‘𝑁) + 1) →
𝑁 < 𝑝)) |
41 | 40 | reximdva 3202 |
. . 3
⊢ (𝑁 ∈ ℕ0
→ (∃𝑝 ∈
ℙ 𝑝 ∥
((!‘𝑁) + 1) →
∃𝑝 ∈ ℙ
𝑁 < 𝑝)) |
42 | 10, 41 | mpd 15 |
. 2
⊢ (𝑁 ∈ ℕ0
→ ∃𝑝 ∈
ℙ 𝑁 < 𝑝) |
43 | 1, 42 | syl 17 |
1
⊢ (𝑁 ∈ ℕ →
∃𝑝 ∈ ℙ
𝑁 < 𝑝) |