Proof of Theorem prmunb
Step | Hyp | Ref
| Expression |
1 | | nnnn0 9129 |
. 2
⊢ (𝑁 ∈ ℕ → 𝑁 ∈
ℕ0) |
2 | | faccl 10656 |
. . . 4
⊢ (𝑁 ∈ ℕ0
→ (!‘𝑁) ∈
ℕ) |
3 | | elnnuz 9510 |
. . . . 5
⊢
((!‘𝑁) ∈
ℕ ↔ (!‘𝑁)
∈ (ℤ≥‘1)) |
4 | | eluzp1p1 9499 |
. . . . . 6
⊢
((!‘𝑁) ∈
(ℤ≥‘1) → ((!‘𝑁) + 1) ∈
(ℤ≥‘(1 + 1))) |
5 | | df-2 8924 |
. . . . . . 7
⊢ 2 = (1 +
1) |
6 | 5 | fveq2i 5497 |
. . . . . 6
⊢
(ℤ≥‘2) = (ℤ≥‘(1 +
1)) |
7 | 4, 6 | eleqtrrdi 2264 |
. . . . 5
⊢
((!‘𝑁) ∈
(ℤ≥‘1) → ((!‘𝑁) + 1) ∈
(ℤ≥‘2)) |
8 | 3, 7 | sylbi 120 |
. . . 4
⊢
((!‘𝑁) ∈
ℕ → ((!‘𝑁)
+ 1) ∈ (ℤ≥‘2)) |
9 | | exprmfct 12079 |
. . . 4
⊢
(((!‘𝑁) + 1)
∈ (ℤ≥‘2) → ∃𝑝 ∈ ℙ 𝑝 ∥ ((!‘𝑁) + 1)) |
10 | 2, 8, 9 | 3syl 17 |
. . 3
⊢ (𝑁 ∈ ℕ0
→ ∃𝑝 ∈
ℙ 𝑝 ∥
((!‘𝑁) +
1)) |
11 | | prmz 12052 |
. . . . . . . . 9
⊢ (𝑝 ∈ ℙ → 𝑝 ∈
ℤ) |
12 | | nn0z 9219 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℕ0
→ 𝑁 ∈
ℤ) |
13 | | eluz 9487 |
. . . . . . . . 9
⊢ ((𝑝 ∈ ℤ ∧ 𝑁 ∈ ℤ) → (𝑁 ∈
(ℤ≥‘𝑝) ↔ 𝑝 ≤ 𝑁)) |
14 | 11, 12, 13 | syl2an 287 |
. . . . . . . 8
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈ ℕ0)
→ (𝑁 ∈
(ℤ≥‘𝑝) ↔ 𝑝 ≤ 𝑁)) |
15 | | prmuz2 12072 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑝 ∈ ℙ → 𝑝 ∈
(ℤ≥‘2)) |
16 | | eluz2b2 9549 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑝 ∈
(ℤ≥‘2) ↔ (𝑝 ∈ ℕ ∧ 1 < 𝑝)) |
17 | 15, 16 | sylib 121 |
. . . . . . . . . . . . . . . 16
⊢ (𝑝 ∈ ℙ → (𝑝 ∈ ℕ ∧ 1 <
𝑝)) |
18 | 17 | adantr 274 |
. . . . . . . . . . . . . . 15
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → (𝑝 ∈ ℕ ∧ 1 < 𝑝)) |
19 | 18 | simpld 111 |
. . . . . . . . . . . . . 14
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑝 ∈ ℕ) |
20 | 19 | nnnn0d 9175 |
. . . . . . . . . . . . 13
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑝 ∈ ℕ0) |
21 | | eluznn0 9545 |
. . . . . . . . . . . . 13
⊢ ((𝑝 ∈ ℕ0
∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑁 ∈
ℕ0) |
22 | 20, 21 | sylancom 418 |
. . . . . . . . . . . 12
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑁 ∈
ℕ0) |
23 | | nnz 9218 |
. . . . . . . . . . . 12
⊢
((!‘𝑁) ∈
ℕ → (!‘𝑁)
∈ ℤ) |
24 | 22, 2, 23 | 3syl 17 |
. . . . . . . . . . 11
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → (!‘𝑁) ∈ ℤ) |
25 | 18 | simprd 113 |
. . . . . . . . . . 11
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 1 < 𝑝) |
26 | | dvdsfac 11807 |
. . . . . . . . . . . 12
⊢ ((𝑝 ∈ ℕ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑝 ∥ (!‘𝑁)) |
27 | 19, 26 | sylancom 418 |
. . . . . . . . . . 11
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → 𝑝 ∥ (!‘𝑁)) |
28 | | ndvdsp1 11878 |
. . . . . . . . . . . 12
⊢
(((!‘𝑁) ∈
ℤ ∧ 𝑝 ∈
ℕ ∧ 1 < 𝑝)
→ (𝑝 ∥
(!‘𝑁) → ¬
𝑝 ∥ ((!‘𝑁) + 1))) |
29 | 28 | imp 123 |
. . . . . . . . . . 11
⊢
((((!‘𝑁)
∈ ℤ ∧ 𝑝
∈ ℕ ∧ 1 < 𝑝) ∧ 𝑝 ∥ (!‘𝑁)) → ¬ 𝑝 ∥ ((!‘𝑁) + 1)) |
30 | 24, 19, 25, 27, 29 | syl31anc 1236 |
. . . . . . . . . 10
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈
(ℤ≥‘𝑝)) → ¬ 𝑝 ∥ ((!‘𝑁) + 1)) |
31 | 30 | ex 114 |
. . . . . . . . 9
⊢ (𝑝 ∈ ℙ → (𝑁 ∈
(ℤ≥‘𝑝) → ¬ 𝑝 ∥ ((!‘𝑁) + 1))) |
32 | 31 | adantr 274 |
. . . . . . . 8
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈ ℕ0)
→ (𝑁 ∈
(ℤ≥‘𝑝) → ¬ 𝑝 ∥ ((!‘𝑁) + 1))) |
33 | 14, 32 | sylbird 169 |
. . . . . . 7
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈ ℕ0)
→ (𝑝 ≤ 𝑁 → ¬ 𝑝 ∥ ((!‘𝑁) + 1))) |
34 | 33 | con2d 619 |
. . . . . 6
⊢ ((𝑝 ∈ ℙ ∧ 𝑁 ∈ ℕ0)
→ (𝑝 ∥
((!‘𝑁) + 1) →
¬ 𝑝 ≤ 𝑁)) |
35 | 34 | ancoms 266 |
. . . . 5
⊢ ((𝑁 ∈ ℕ0
∧ 𝑝 ∈ ℙ)
→ (𝑝 ∥
((!‘𝑁) + 1) →
¬ 𝑝 ≤ 𝑁)) |
36 | | zltnle 9245 |
. . . . . 6
⊢ ((𝑁 ∈ ℤ ∧ 𝑝 ∈ ℤ) → (𝑁 < 𝑝 ↔ ¬ 𝑝 ≤ 𝑁)) |
37 | 12, 11, 36 | syl2an 287 |
. . . . 5
⊢ ((𝑁 ∈ ℕ0
∧ 𝑝 ∈ ℙ)
→ (𝑁 < 𝑝 ↔ ¬ 𝑝 ≤ 𝑁)) |
38 | 35, 37 | sylibrd 168 |
. . . 4
⊢ ((𝑁 ∈ ℕ0
∧ 𝑝 ∈ ℙ)
→ (𝑝 ∥
((!‘𝑁) + 1) →
𝑁 < 𝑝)) |
39 | 38 | reximdva 2572 |
. . 3
⊢ (𝑁 ∈ ℕ0
→ (∃𝑝 ∈
ℙ 𝑝 ∥
((!‘𝑁) + 1) →
∃𝑝 ∈ ℙ
𝑁 < 𝑝)) |
40 | 10, 39 | mpd 13 |
. 2
⊢ (𝑁 ∈ ℕ0
→ ∃𝑝 ∈
ℙ 𝑁 < 𝑝) |
41 | 1, 40 | syl 14 |
1
⊢ (𝑁 ∈ ℕ →
∃𝑝 ∈ ℙ
𝑁 < 𝑝) |