Proof of Theorem lcmineqlem
| Step | Hyp | Ref
| Expression |
| 1 | | lcmineqlem.2 |
. 2
⊢ (𝜑 → 7 ≤ 𝑁) |
| 2 | | 7re 12359 |
. . . . 5
⊢ 7 ∈
ℝ |
| 3 | 2 | a1i 11 |
. . . 4
⊢ (𝜑 → 7 ∈
ℝ) |
| 4 | | lcmineqlem.1 |
. . . . 5
⊢ (𝜑 → 𝑁 ∈ ℕ) |
| 5 | 4 | nnred 12281 |
. . . 4
⊢ (𝜑 → 𝑁 ∈ ℝ) |
| 6 | 3, 5 | leloed 11404 |
. . 3
⊢ (𝜑 → (7 ≤ 𝑁 ↔ (7 < 𝑁 ∨ 7 = 𝑁))) |
| 7 | 4 | nnzd 12640 |
. . . . . . 7
⊢ (𝜑 → 𝑁 ∈ ℤ) |
| 8 | | 7nn 12358 |
. . . . . . . . 9
⊢ 7 ∈
ℕ |
| 9 | 8 | nnzi 12641 |
. . . . . . . 8
⊢ 7 ∈
ℤ |
| 10 | | zltp1le 12667 |
. . . . . . . 8
⊢ ((7
∈ ℤ ∧ 𝑁
∈ ℤ) → (7 < 𝑁 ↔ (7 + 1) ≤ 𝑁)) |
| 11 | 9, 10 | mpan 690 |
. . . . . . 7
⊢ (𝑁 ∈ ℤ → (7 <
𝑁 ↔ (7 + 1) ≤ 𝑁)) |
| 12 | 7, 11 | syl 17 |
. . . . . 6
⊢ (𝜑 → (7 < 𝑁 ↔ (7 + 1) ≤ 𝑁)) |
| 13 | | 7p1e8 12415 |
. . . . . . 7
⊢ (7 + 1) =
8 |
| 14 | 13 | breq1i 5150 |
. . . . . 6
⊢ ((7 + 1)
≤ 𝑁 ↔ 8 ≤ 𝑁) |
| 15 | 12, 14 | bitrdi 287 |
. . . . 5
⊢ (𝜑 → (7 < 𝑁 ↔ 8 ≤ 𝑁)) |
| 16 | | 8re 12362 |
. . . . . . . 8
⊢ 8 ∈
ℝ |
| 17 | 16 | a1i 11 |
. . . . . . 7
⊢ (𝜑 → 8 ∈
ℝ) |
| 18 | 17, 5 | leloed 11404 |
. . . . . 6
⊢ (𝜑 → (8 ≤ 𝑁 ↔ (8 < 𝑁 ∨ 8 = 𝑁))) |
| 19 | 4 | adantr 480 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 8 < 𝑁) → 𝑁 ∈ ℕ) |
| 20 | | 8p1e9 12416 |
. . . . . . . . . 10
⊢ (8 + 1) =
9 |
| 21 | | 8nn 12361 |
. . . . . . . . . . . . . . 15
⊢ 8 ∈
ℕ |
| 22 | 21 | nnzi 12641 |
. . . . . . . . . . . . . 14
⊢ 8 ∈
ℤ |
| 23 | | zltp1le 12667 |
. . . . . . . . . . . . . 14
⊢ ((8
∈ ℤ ∧ 𝑁
∈ ℤ) → (8 < 𝑁 ↔ (8 + 1) ≤ 𝑁)) |
| 24 | 22, 23 | mpan 690 |
. . . . . . . . . . . . 13
⊢ (𝑁 ∈ ℤ → (8 <
𝑁 ↔ (8 + 1) ≤ 𝑁)) |
| 25 | 7, 24 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝜑 → (8 < 𝑁 ↔ (8 + 1) ≤ 𝑁)) |
| 26 | 25 | biimpd 229 |
. . . . . . . . . . 11
⊢ (𝜑 → (8 < 𝑁 → (8 + 1) ≤ 𝑁)) |
| 27 | 26 | imp 406 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 8 < 𝑁) → (8 + 1) ≤ 𝑁) |
| 28 | 20, 27 | eqbrtrrid 5179 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 8 < 𝑁) → 9 ≤ 𝑁) |
| 29 | 19, 28 | lcmineqlem23 42052 |
. . . . . . . 8
⊢ ((𝜑 ∧ 8 < 𝑁) → (2↑𝑁) ≤ (lcm‘(1...𝑁))) |
| 30 | 29 | ex 412 |
. . . . . . 7
⊢ (𝜑 → (8 < 𝑁 → (2↑𝑁) ≤ (lcm‘(1...𝑁)))) |
| 31 | | 2nn0 12543 |
. . . . . . . . . . . 12
⊢ 2 ∈
ℕ0 |
| 32 | | 8nn0 12549 |
. . . . . . . . . . . 12
⊢ 8 ∈
ℕ0 |
| 33 | | 5nn0 12546 |
. . . . . . . . . . . 12
⊢ 5 ∈
ℕ0 |
| 34 | | 4nn0 12545 |
. . . . . . . . . . . 12
⊢ 4 ∈
ℕ0 |
| 35 | | 6nn0 12547 |
. . . . . . . . . . . 12
⊢ 6 ∈
ℕ0 |
| 36 | | 0nn0 12541 |
. . . . . . . . . . . 12
⊢ 0 ∈
ℕ0 |
| 37 | | 2lt8 12463 |
. . . . . . . . . . . 12
⊢ 2 <
8 |
| 38 | | 5lt10 12868 |
. . . . . . . . . . . 12
⊢ 5 <
;10 |
| 39 | | 6lt10 12867 |
. . . . . . . . . . . 12
⊢ 6 <
;10 |
| 40 | 31, 32, 33, 34, 35, 36, 37, 38, 39 | 3decltc 12766 |
. . . . . . . . . . 11
⊢ ;;256 < ;;840 |
| 41 | | 5nn 12352 |
. . . . . . . . . . . . . . . 16
⊢ 5 ∈
ℕ |
| 42 | 31, 41 | decnncl 12753 |
. . . . . . . . . . . . . . 15
⊢ ;25 ∈ ℕ |
| 43 | 42 | nnnn0i 12534 |
. . . . . . . . . . . . . 14
⊢ ;25 ∈
ℕ0 |
| 44 | | 6nn 12355 |
. . . . . . . . . . . . . 14
⊢ 6 ∈
ℕ |
| 45 | 43, 44 | decnncl 12753 |
. . . . . . . . . . . . 13
⊢ ;;256 ∈ ℕ |
| 46 | 45 | nnrei 12275 |
. . . . . . . . . . . 12
⊢ ;;256 ∈ ℝ |
| 47 | | 4nn 12349 |
. . . . . . . . . . . . . . 15
⊢ 4 ∈
ℕ |
| 48 | 32, 47 | decnncl 12753 |
. . . . . . . . . . . . . 14
⊢ ;84 ∈ ℕ |
| 49 | 48 | decnncl2 12757 |
. . . . . . . . . . . . 13
⊢ ;;840 ∈ ℕ |
| 50 | 49 | nnrei 12275 |
. . . . . . . . . . . 12
⊢ ;;840 ∈ ℝ |
| 51 | 46, 50 | ltlei 11383 |
. . . . . . . . . . 11
⊢ (;;256 < ;;840
→ ;;256 ≤ ;;840) |
| 52 | 40, 51 | ax-mp 5 |
. . . . . . . . . 10
⊢ ;;256 ≤ ;;840 |
| 53 | | 2exp8 17126 |
. . . . . . . . . . . 12
⊢
(2↑8) = ;;256 |
| 54 | | oveq2 7439 |
. . . . . . . . . . . 12
⊢ (8 =
𝑁 → (2↑8) =
(2↑𝑁)) |
| 55 | 53, 54 | eqtr3id 2791 |
. . . . . . . . . . 11
⊢ (8 =
𝑁 → ;;256 =
(2↑𝑁)) |
| 56 | | lcm8un 42021 |
. . . . . . . . . . . 12
⊢
(lcm‘(1...8)) = ;;840 |
| 57 | | oveq2 7439 |
. . . . . . . . . . . . 13
⊢ (8 =
𝑁 → (1...8) =
(1...𝑁)) |
| 58 | 57 | fveq2d 6910 |
. . . . . . . . . . . 12
⊢ (8 =
𝑁 →
(lcm‘(1...8)) = (lcm‘(1...𝑁))) |
| 59 | 56, 58 | eqtr3id 2791 |
. . . . . . . . . . 11
⊢ (8 =
𝑁 → ;;840 =
(lcm‘(1...𝑁))) |
| 60 | 55, 59 | breq12d 5156 |
. . . . . . . . . 10
⊢ (8 =
𝑁 → (;;256 ≤ ;;840
↔ (2↑𝑁) ≤
(lcm‘(1...𝑁)))) |
| 61 | 52, 60 | mpbii 233 |
. . . . . . . . 9
⊢ (8 =
𝑁 → (2↑𝑁) ≤
(lcm‘(1...𝑁))) |
| 62 | 61 | adantl 481 |
. . . . . . . 8
⊢ ((𝜑 ∧ 8 = 𝑁) → (2↑𝑁) ≤ (lcm‘(1...𝑁))) |
| 63 | 62 | ex 412 |
. . . . . . 7
⊢ (𝜑 → (8 = 𝑁 → (2↑𝑁) ≤ (lcm‘(1...𝑁)))) |
| 64 | 30, 63 | jaod 860 |
. . . . . 6
⊢ (𝜑 → ((8 < 𝑁 ∨ 8 = 𝑁) → (2↑𝑁) ≤ (lcm‘(1...𝑁)))) |
| 65 | 18, 64 | sylbid 240 |
. . . . 5
⊢ (𝜑 → (8 ≤ 𝑁 → (2↑𝑁) ≤ (lcm‘(1...𝑁)))) |
| 66 | 15, 65 | sylbid 240 |
. . . 4
⊢ (𝜑 → (7 < 𝑁 → (2↑𝑁) ≤ (lcm‘(1...𝑁)))) |
| 67 | | 1nn0 12542 |
. . . . . . . 8
⊢ 1 ∈
ℕ0 |
| 68 | | 1lt4 12442 |
. . . . . . . 8
⊢ 1 <
4 |
| 69 | | 2lt10 12871 |
. . . . . . . 8
⊢ 2 <
;10 |
| 70 | | 8lt10 12865 |
. . . . . . . 8
⊢ 8 <
;10 |
| 71 | 67, 34, 31, 31, 32, 36, 68, 69, 70 | 3decltc 12766 |
. . . . . . 7
⊢ ;;128 < ;;420 |
| 72 | | 2nn 12339 |
. . . . . . . . . . . 12
⊢ 2 ∈
ℕ |
| 73 | 67, 72 | decnncl 12753 |
. . . . . . . . . . 11
⊢ ;12 ∈ ℕ |
| 74 | 73 | nnnn0i 12534 |
. . . . . . . . . 10
⊢ ;12 ∈
ℕ0 |
| 75 | 74, 21 | decnncl 12753 |
. . . . . . . . 9
⊢ ;;128 ∈ ℕ |
| 76 | 75 | nnrei 12275 |
. . . . . . . 8
⊢ ;;128 ∈ ℝ |
| 77 | 34, 72 | decnncl 12753 |
. . . . . . . . . 10
⊢ ;42 ∈ ℕ |
| 78 | 77 | decnncl2 12757 |
. . . . . . . . 9
⊢ ;;420 ∈ ℕ |
| 79 | 78 | nnrei 12275 |
. . . . . . . 8
⊢ ;;420 ∈ ℝ |
| 80 | 76, 79 | ltlei 11383 |
. . . . . . 7
⊢ (;;128 < ;;420
→ ;;128 ≤ ;;420) |
| 81 | 71, 80 | ax-mp 5 |
. . . . . 6
⊢ ;;128 ≤ ;;420 |
| 82 | | 2exp7 17125 |
. . . . . . . 8
⊢
(2↑7) = ;;128 |
| 83 | | oveq2 7439 |
. . . . . . . 8
⊢ (7 =
𝑁 → (2↑7) =
(2↑𝑁)) |
| 84 | 82, 83 | eqtr3id 2791 |
. . . . . . 7
⊢ (7 =
𝑁 → ;;128 =
(2↑𝑁)) |
| 85 | | lcm7un 42020 |
. . . . . . . 8
⊢
(lcm‘(1...7)) = ;;420 |
| 86 | | oveq2 7439 |
. . . . . . . . 9
⊢ (7 =
𝑁 → (1...7) =
(1...𝑁)) |
| 87 | 86 | fveq2d 6910 |
. . . . . . . 8
⊢ (7 =
𝑁 →
(lcm‘(1...7)) = (lcm‘(1...𝑁))) |
| 88 | 85, 87 | eqtr3id 2791 |
. . . . . . 7
⊢ (7 =
𝑁 → ;;420 =
(lcm‘(1...𝑁))) |
| 89 | 84, 88 | breq12d 5156 |
. . . . . 6
⊢ (7 =
𝑁 → (;;128 ≤ ;;420
↔ (2↑𝑁) ≤
(lcm‘(1...𝑁)))) |
| 90 | 81, 89 | mpbii 233 |
. . . . 5
⊢ (7 =
𝑁 → (2↑𝑁) ≤
(lcm‘(1...𝑁))) |
| 91 | 90 | a1i 11 |
. . . 4
⊢ (𝜑 → (7 = 𝑁 → (2↑𝑁) ≤ (lcm‘(1...𝑁)))) |
| 92 | 66, 91 | jaod 860 |
. . 3
⊢ (𝜑 → ((7 < 𝑁 ∨ 7 = 𝑁) → (2↑𝑁) ≤ (lcm‘(1...𝑁)))) |
| 93 | 6, 92 | sylbid 240 |
. 2
⊢ (𝜑 → (7 ≤ 𝑁 → (2↑𝑁) ≤ (lcm‘(1...𝑁)))) |
| 94 | 1, 93 | mpd 15 |
1
⊢ (𝜑 → (2↑𝑁) ≤ (lcm‘(1...𝑁))) |