Proof of Theorem prmgaplem8
| Step | Hyp | Ref
| Expression |
| 1 | | prmnn 16711 |
. . . . . . . . 9
⊢ (𝑞 ∈ ℙ → 𝑞 ∈
ℕ) |
| 2 | 1 | nnred 12281 |
. . . . . . . 8
⊢ (𝑞 ∈ ℙ → 𝑞 ∈
ℝ) |
| 3 | 2 | ad2antll 729 |
. . . . . . 7
⊢ (((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) ∧ ((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ)) → 𝑞 ∈ ℝ) |
| 4 | | prmnn 16711 |
. . . . . . . . . 10
⊢ (𝑝 ∈ ℙ → 𝑝 ∈
ℕ) |
| 5 | 4 | nnred 12281 |
. . . . . . . . 9
⊢ (𝑝 ∈ ℙ → 𝑝 ∈
ℝ) |
| 6 | 5 | ad2antlr 727 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → 𝑝 ∈ ℝ) |
| 7 | 6 | adantl 481 |
. . . . . . 7
⊢ (((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) ∧ ((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ)) → 𝑝 ∈ ℝ) |
| 8 | | prmgaplem7.n |
. . . . . . . . . 10
⊢ (𝜑 → 𝑁 ∈ ℕ) |
| 9 | 8 | nnred 12281 |
. . . . . . . . 9
⊢ (𝜑 → 𝑁 ∈ ℝ) |
| 10 | 9 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → 𝑁 ∈ ℝ) |
| 11 | 10 | adantl 481 |
. . . . . . 7
⊢ (((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) ∧ ((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ)) → 𝑁 ∈ ℝ) |
| 12 | | prmgaplem7.f |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐹 ∈ (ℕ ↑m
ℕ)) |
| 13 | | elmapi 8889 |
. . . . . . . . . . . . 13
⊢ (𝐹 ∈ (ℕ
↑m ℕ) → 𝐹:ℕ⟶ℕ) |
| 14 | | ffvelcdm 7101 |
. . . . . . . . . . . . . 14
⊢ ((𝐹:ℕ⟶ℕ ∧
𝑁 ∈ ℕ) →
(𝐹‘𝑁) ∈ ℕ) |
| 15 | 14 | ex 412 |
. . . . . . . . . . . . 13
⊢ (𝐹:ℕ⟶ℕ →
(𝑁 ∈ ℕ →
(𝐹‘𝑁) ∈ ℕ)) |
| 16 | 12, 13, 15 | 3syl 18 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑁 ∈ ℕ → (𝐹‘𝑁) ∈ ℕ)) |
| 17 | 8, 16 | mpd 15 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝐹‘𝑁) ∈ ℕ) |
| 18 | 17 | nnred 12281 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐹‘𝑁) ∈ ℝ) |
| 19 | 18 | ad2antrr 726 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → (𝐹‘𝑁) ∈ ℝ) |
| 20 | 19 | adantl 481 |
. . . . . . . 8
⊢ (((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) ∧ ((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ)) → (𝐹‘𝑁) ∈ ℝ) |
| 21 | | 1red 11262 |
. . . . . . . 8
⊢ (((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) ∧ ((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ)) → 1 ∈
ℝ) |
| 22 | 20, 21 | readdcld 11290 |
. . . . . . 7
⊢ (((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) ∧ ((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ)) → ((𝐹‘𝑁) + 1) ∈ ℝ) |
| 23 | 17 | nncnd 12282 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝐹‘𝑁) ∈ ℂ) |
| 24 | | 1cnd 11256 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → 1 ∈
ℂ) |
| 25 | 8 | nncnd 12282 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → 𝑁 ∈ ℂ) |
| 26 | 23, 24, 25 | add32d 11489 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (((𝐹‘𝑁) + 1) + 𝑁) = (((𝐹‘𝑁) + 𝑁) + 1)) |
| 27 | 26 | adantr 480 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (((𝐹‘𝑁) + 1) + 𝑁) = (((𝐹‘𝑁) + 𝑁) + 1)) |
| 28 | 27 | ad2antrr 726 |
. . . . . . . . . . 11
⊢ ((((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) → (((𝐹‘𝑁) + 1) + 𝑁) = (((𝐹‘𝑁) + 𝑁) + 1)) |
| 29 | 17 | nnzd 12640 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (𝐹‘𝑁) ∈ ℤ) |
| 30 | 29 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝐹‘𝑁) ∈ ℤ) |
| 31 | 8 | nnzd 12640 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝑁 ∈ ℤ) |
| 32 | 31 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → 𝑁 ∈ ℤ) |
| 33 | 30, 32 | zaddcld 12726 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((𝐹‘𝑁) + 𝑁) ∈ ℤ) |
| 34 | | prmz 16712 |
. . . . . . . . . . . . 13
⊢ (𝑞 ∈ ℙ → 𝑞 ∈
ℤ) |
| 35 | | zltp1le 12667 |
. . . . . . . . . . . . 13
⊢ ((((𝐹‘𝑁) + 𝑁) ∈ ℤ ∧ 𝑞 ∈ ℤ) → (((𝐹‘𝑁) + 𝑁) < 𝑞 ↔ (((𝐹‘𝑁) + 𝑁) + 1) ≤ 𝑞)) |
| 36 | 33, 34, 35 | syl2an 596 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → (((𝐹‘𝑁) + 𝑁) < 𝑞 ↔ (((𝐹‘𝑁) + 𝑁) + 1) ≤ 𝑞)) |
| 37 | 36 | biimpa 476 |
. . . . . . . . . . 11
⊢ ((((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) → (((𝐹‘𝑁) + 𝑁) + 1) ≤ 𝑞) |
| 38 | 28, 37 | eqbrtrd 5165 |
. . . . . . . . . 10
⊢ ((((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) → (((𝐹‘𝑁) + 1) + 𝑁) ≤ 𝑞) |
| 39 | 38 | expcom 413 |
. . . . . . . . 9
⊢ (((𝐹‘𝑁) + 𝑁) < 𝑞 → (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → (((𝐹‘𝑁) + 1) + 𝑁) ≤ 𝑞)) |
| 40 | 39 | adantl 481 |
. . . . . . . 8
⊢ ((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) → (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → (((𝐹‘𝑁) + 1) + 𝑁) ≤ 𝑞)) |
| 41 | 40 | imp 406 |
. . . . . . 7
⊢ (((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) ∧ ((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ)) → (((𝐹‘𝑁) + 1) + 𝑁) ≤ 𝑞) |
| 42 | | df-2 12329 |
. . . . . . . . . . . . . . . . 17
⊢ 2 = (1 +
1) |
| 43 | 42 | a1i 11 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → 2 = (1 +
1)) |
| 44 | 43 | oveq2d 7447 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((𝐹‘𝑁) + 2) = ((𝐹‘𝑁) + (1 + 1))) |
| 45 | 23, 24, 24 | addassd 11283 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (((𝐹‘𝑁) + 1) + 1) = ((𝐹‘𝑁) + (1 + 1))) |
| 46 | 44, 45 | eqtr4d 2780 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → ((𝐹‘𝑁) + 2) = (((𝐹‘𝑁) + 1) + 1)) |
| 47 | 46 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → ((𝐹‘𝑁) + 2) = (((𝐹‘𝑁) + 1) + 1)) |
| 48 | 47 | breq2d 5155 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 < ((𝐹‘𝑁) + 2) ↔ 𝑝 < (((𝐹‘𝑁) + 1) + 1))) |
| 49 | | prmz 16712 |
. . . . . . . . . . . . . 14
⊢ (𝑝 ∈ ℙ → 𝑝 ∈
ℤ) |
| 50 | 29 | peano2zd 12725 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → ((𝐹‘𝑁) + 1) ∈ ℤ) |
| 51 | | zleltp1 12668 |
. . . . . . . . . . . . . 14
⊢ ((𝑝 ∈ ℤ ∧ ((𝐹‘𝑁) + 1) ∈ ℤ) → (𝑝 ≤ ((𝐹‘𝑁) + 1) ↔ 𝑝 < (((𝐹‘𝑁) + 1) + 1))) |
| 52 | 49, 50, 51 | syl2anr 597 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 ≤ ((𝐹‘𝑁) + 1) ↔ 𝑝 < (((𝐹‘𝑁) + 1) + 1))) |
| 53 | 52 | biimprd 248 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 < (((𝐹‘𝑁) + 1) + 1) → 𝑝 ≤ ((𝐹‘𝑁) + 1))) |
| 54 | 48, 53 | sylbid 240 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑝 ∈ ℙ) → (𝑝 < ((𝐹‘𝑁) + 2) → 𝑝 ≤ ((𝐹‘𝑁) + 1))) |
| 55 | 54 | adantr 480 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → (𝑝 < ((𝐹‘𝑁) + 2) → 𝑝 ≤ ((𝐹‘𝑁) + 1))) |
| 56 | 55 | com12 32 |
. . . . . . . . 9
⊢ (𝑝 < ((𝐹‘𝑁) + 2) → (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → 𝑝 ≤ ((𝐹‘𝑁) + 1))) |
| 57 | 56 | adantr 480 |
. . . . . . . 8
⊢ ((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) → (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → 𝑝 ≤ ((𝐹‘𝑁) + 1))) |
| 58 | 57 | imp 406 |
. . . . . . 7
⊢ (((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) ∧ ((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ)) → 𝑝 ≤ ((𝐹‘𝑁) + 1)) |
| 59 | 3, 7, 11, 22, 41, 58 | lesub3d 11881 |
. . . . . 6
⊢ (((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) ∧ ((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ)) → 𝑁 ≤ (𝑞 − 𝑝)) |
| 60 | 59 | ex 412 |
. . . . 5
⊢ ((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞) → (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → 𝑁 ≤ (𝑞 − 𝑝))) |
| 61 | 60 | 3adant3 1133 |
. . . 4
⊢ ((𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞 ∧ ∀𝑧 ∈ ((𝑝 + 1)..^𝑞)𝑧 ∉ ℙ) → (((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) → 𝑁 ≤ (𝑞 − 𝑝))) |
| 62 | 61 | impcom 407 |
. . 3
⊢ ((((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) ∧ (𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞 ∧ ∀𝑧 ∈ ((𝑝 + 1)..^𝑞)𝑧 ∉ ℙ)) → 𝑁 ≤ (𝑞 − 𝑝)) |
| 63 | | simpr3 1197 |
. . 3
⊢ ((((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) ∧ (𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞 ∧ ∀𝑧 ∈ ((𝑝 + 1)..^𝑞)𝑧 ∉ ℙ)) → ∀𝑧 ∈ ((𝑝 + 1)..^𝑞)𝑧 ∉ ℙ) |
| 64 | 62, 63 | jca 511 |
. 2
⊢ ((((𝜑 ∧ 𝑝 ∈ ℙ) ∧ 𝑞 ∈ ℙ) ∧ (𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞 ∧ ∀𝑧 ∈ ((𝑝 + 1)..^𝑞)𝑧 ∉ ℙ)) → (𝑁 ≤ (𝑞 − 𝑝) ∧ ∀𝑧 ∈ ((𝑝 + 1)..^𝑞)𝑧 ∉ ℙ)) |
| 65 | | prmgaplem7.i |
. . 3
⊢ (𝜑 → ∀𝑖 ∈ (2...𝑁)1 < (((𝐹‘𝑁) + 𝑖) gcd 𝑖)) |
| 66 | 8, 12, 65 | prmgaplem7 17095 |
. 2
⊢ (𝜑 → ∃𝑝 ∈ ℙ ∃𝑞 ∈ ℙ (𝑝 < ((𝐹‘𝑁) + 2) ∧ ((𝐹‘𝑁) + 𝑁) < 𝑞 ∧ ∀𝑧 ∈ ((𝑝 + 1)..^𝑞)𝑧 ∉ ℙ)) |
| 67 | 64, 66 | reximddv2 3215 |
1
⊢ (𝜑 → ∃𝑝 ∈ ℙ ∃𝑞 ∈ ℙ (𝑁 ≤ (𝑞 − 𝑝) ∧ ∀𝑧 ∈ ((𝑝 + 1)..^𝑞)𝑧 ∉ ℙ)) |