Proof of Theorem knoppndvlem18
Step | Hyp | Ref
| Expression |
1 | | 2re 12047 |
. . . . . . . . . . . 12
⊢ 2 ∈
ℝ |
2 | 1 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝜑 → 2 ∈
ℝ) |
3 | | knoppndvlem18.n |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝑁 ∈ ℕ) |
4 | 3 | nnred 11988 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝑁 ∈ ℝ) |
5 | 2, 4 | remulcld 11005 |
. . . . . . . . . 10
⊢ (𝜑 → (2 · 𝑁) ∈
ℝ) |
6 | 5 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (2 · 𝑁) ∈
ℝ) |
7 | 6 | recnd 11003 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (2 · 𝑁) ∈
ℂ) |
8 | | 2pos 12076 |
. . . . . . . . . . . 12
⊢ 0 <
2 |
9 | 8 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝜑 → 0 < 2) |
10 | 3 | nngt0d 12022 |
. . . . . . . . . . 11
⊢ (𝜑 → 0 < 𝑁) |
11 | 2, 4, 9, 10 | mulgt0d 11130 |
. . . . . . . . . 10
⊢ (𝜑 → 0 < (2 · 𝑁)) |
12 | 11 | gt0ne0d 11539 |
. . . . . . . . 9
⊢ (𝜑 → (2 · 𝑁) ≠ 0) |
13 | 12 | adantr 481 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (2 · 𝑁) ≠ 0) |
14 | | nnz 12342 |
. . . . . . . . 9
⊢ (𝑗 ∈ ℕ → 𝑗 ∈
ℤ) |
15 | 14 | adantl 482 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → 𝑗 ∈ ℤ) |
16 | 7, 13, 15 | expnegd 13871 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → ((2 · 𝑁)↑-𝑗) = (1 / ((2 · 𝑁)↑𝑗))) |
17 | 16 | adantrr 714 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → ((2 · 𝑁)↑-𝑗) = (1 / ((2 · 𝑁)↑𝑗))) |
18 | | 2rp 12735 |
. . . . . . . . . . 11
⊢ 2 ∈
ℝ+ |
19 | 18 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → 2 ∈
ℝ+) |
20 | | knoppndvlem18.d |
. . . . . . . . . 10
⊢ (𝜑 → 𝐷 ∈
ℝ+) |
21 | 19, 20 | jca 512 |
. . . . . . . . 9
⊢ (𝜑 → (2 ∈
ℝ+ ∧ 𝐷
∈ ℝ+)) |
22 | | rpmulcl 12753 |
. . . . . . . . 9
⊢ ((2
∈ ℝ+ ∧ 𝐷 ∈ ℝ+) → (2
· 𝐷) ∈
ℝ+) |
23 | 21, 22 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → (2 · 𝐷) ∈
ℝ+) |
24 | 23 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (2 · 𝐷) ∈
ℝ+) |
25 | 5, 11 | elrpd 12769 |
. . . . . . . . . 10
⊢ (𝜑 → (2 · 𝑁) ∈
ℝ+) |
26 | 25 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (2 · 𝑁) ∈
ℝ+) |
27 | 26, 15 | rpexpcld 13962 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → ((2 · 𝑁)↑𝑗) ∈
ℝ+) |
28 | 27 | adantrr 714 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → ((2 · 𝑁)↑𝑗) ∈
ℝ+) |
29 | 24 | rprecred 12783 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (1 / (2 · 𝐷)) ∈ ℝ) |
30 | | knoppndvlem18.c |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → 𝐶 ∈ (-1(,)1)) |
31 | 30 | knoppndvlem3 34694 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (𝐶 ∈ ℝ ∧ (abs‘𝐶) < 1)) |
32 | 31 | simpld 495 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → 𝐶 ∈ ℝ) |
33 | 32 | recnd 11003 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐶 ∈ ℂ) |
34 | 33 | abscld 15148 |
. . . . . . . . . . . 12
⊢ (𝜑 → (abs‘𝐶) ∈
ℝ) |
35 | 5, 34 | remulcld 11005 |
. . . . . . . . . . 11
⊢ (𝜑 → ((2 · 𝑁) · (abs‘𝐶)) ∈
ℝ) |
36 | 35 | adantr 481 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → ((2 · 𝑁) · (abs‘𝐶)) ∈
ℝ) |
37 | | nnnn0 12240 |
. . . . . . . . . . 11
⊢ (𝑗 ∈ ℕ → 𝑗 ∈
ℕ0) |
38 | 37 | adantl 482 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → 𝑗 ∈ ℕ0) |
39 | 36, 38 | reexpcld 13881 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (((2 · 𝑁) · (abs‘𝐶))↑𝑗) ∈ ℝ) |
40 | 39 | adantrr 714 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (((2 · 𝑁) · (abs‘𝐶))↑𝑗) ∈ ℝ) |
41 | 28 | rpred 12772 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → ((2 · 𝑁)↑𝑗) ∈ ℝ) |
42 | | knoppndvlem18.e |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐸 ∈
ℝ+) |
43 | 42 | rpred 12772 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐸 ∈ ℝ) |
44 | | knoppndvlem18.g |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐺 ∈
ℝ+) |
45 | 44 | rpred 12772 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐺 ∈ ℝ) |
46 | 44 | rpne0d 12777 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐺 ≠ 0) |
47 | 43, 45, 46 | redivcld 11803 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝐸 / 𝐺) ∈ ℝ) |
48 | 23 | rprecred 12783 |
. . . . . . . . . . 11
⊢ (𝜑 → (1 / (2 · 𝐷)) ∈
ℝ) |
49 | 47, 48 | ifcld 4505 |
. . . . . . . . . 10
⊢ (𝜑 → if((1 / (2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) ∈ ℝ) |
50 | 49 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → if((1 / (2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) ∈ ℝ) |
51 | 48, 47 | jca 512 |
. . . . . . . . . . 11
⊢ (𝜑 → ((1 / (2 · 𝐷)) ∈ ℝ ∧ (𝐸 / 𝐺) ∈ ℝ)) |
52 | | max1 12919 |
. . . . . . . . . . 11
⊢ (((1 / (2
· 𝐷)) ∈ ℝ
∧ (𝐸 / 𝐺) ∈ ℝ) → (1 / (2
· 𝐷)) ≤ if((1 /
(2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷)))) |
53 | 51, 52 | syl 17 |
. . . . . . . . . 10
⊢ (𝜑 → (1 / (2 · 𝐷)) ≤ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷)))) |
54 | 53 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (1 / (2 · 𝐷)) ≤ if((1 / (2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷)))) |
55 | | simprr 770 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → if((1 / (2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗)) |
56 | 29, 50, 40, 54, 55 | lelttrd 11133 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (1 / (2 · 𝐷)) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗)) |
57 | 34 | recnd 11003 |
. . . . . . . . . . . 12
⊢ (𝜑 → (abs‘𝐶) ∈
ℂ) |
58 | 57 | adantr 481 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (abs‘𝐶) ∈
ℂ) |
59 | 7, 58, 38 | mulexpd 13879 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (((2 · 𝑁) · (abs‘𝐶))↑𝑗) = (((2 · 𝑁)↑𝑗) · ((abs‘𝐶)↑𝑗))) |
60 | 34 | adantr 481 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (abs‘𝐶) ∈
ℝ) |
61 | 60, 38 | reexpcld 13881 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → ((abs‘𝐶)↑𝑗) ∈ ℝ) |
62 | | 1red 10976 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → 1 ∈
ℝ) |
63 | 27 | rpred 12772 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → ((2 · 𝑁)↑𝑗) ∈ ℝ) |
64 | 27 | rpge0d 12776 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → 0 ≤ ((2 ·
𝑁)↑𝑗)) |
65 | 33 | absge0d 15156 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → 0 ≤ (abs‘𝐶)) |
66 | | 1red 10976 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → 1 ∈
ℝ) |
67 | 31 | simprd 496 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → (abs‘𝐶) < 1) |
68 | 34, 66, 67 | ltled 11123 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (abs‘𝐶) ≤ 1) |
69 | 34, 65, 68 | 3jca 1127 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((abs‘𝐶) ∈ ℝ ∧ 0 ≤
(abs‘𝐶) ∧
(abs‘𝐶) ≤
1)) |
70 | 69 | adantr 481 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → ((abs‘𝐶) ∈ ℝ ∧ 0 ≤
(abs‘𝐶) ∧
(abs‘𝐶) ≤
1)) |
71 | 70, 38 | jca 512 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (((abs‘𝐶) ∈ ℝ ∧ 0 ≤
(abs‘𝐶) ∧
(abs‘𝐶) ≤ 1) ∧
𝑗 ∈
ℕ0)) |
72 | | exple1 13894 |
. . . . . . . . . . . . 13
⊢
((((abs‘𝐶)
∈ ℝ ∧ 0 ≤ (abs‘𝐶) ∧ (abs‘𝐶) ≤ 1) ∧ 𝑗 ∈ ℕ0) →
((abs‘𝐶)↑𝑗) ≤ 1) |
73 | 71, 72 | syl 17 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → ((abs‘𝐶)↑𝑗) ≤ 1) |
74 | 61, 62, 63, 64, 73 | lemul2ad 11915 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (((2 · 𝑁)↑𝑗) · ((abs‘𝐶)↑𝑗)) ≤ (((2 · 𝑁)↑𝑗) · 1)) |
75 | 63 | recnd 11003 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → ((2 · 𝑁)↑𝑗) ∈ ℂ) |
76 | 75 | mulid1d 10992 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (((2 · 𝑁)↑𝑗) · 1) = ((2 · 𝑁)↑𝑗)) |
77 | 74, 76 | breqtrd 5100 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (((2 · 𝑁)↑𝑗) · ((abs‘𝐶)↑𝑗)) ≤ ((2 · 𝑁)↑𝑗)) |
78 | 59, 77 | eqbrtrd 5096 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (((2 · 𝑁) · (abs‘𝐶))↑𝑗) ≤ ((2 · 𝑁)↑𝑗)) |
79 | 78 | adantrr 714 |
. . . . . . . 8
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (((2 · 𝑁) · (abs‘𝐶))↑𝑗) ≤ ((2 · 𝑁)↑𝑗)) |
80 | 29, 40, 41, 56, 79 | ltletrd 11135 |
. . . . . . 7
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (1 / (2 · 𝐷)) < ((2 · 𝑁)↑𝑗)) |
81 | 24, 28, 80 | ltrec1d 12792 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (1 / ((2 · 𝑁)↑𝑗)) < (2 · 𝐷)) |
82 | 17, 81 | eqbrtrd 5096 |
. . . . 5
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → ((2 · 𝑁)↑-𝑗) < (2 · 𝐷)) |
83 | | nnnegz 12322 |
. . . . . . . . 9
⊢ (𝑗 ∈ ℕ → -𝑗 ∈
ℤ) |
84 | 83 | adantl 482 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → -𝑗 ∈ ℤ) |
85 | 6, 13, 84 | reexpclzd 13964 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → ((2 · 𝑁)↑-𝑗) ∈ ℝ) |
86 | 20 | rpred 12772 |
. . . . . . . 8
⊢ (𝜑 → 𝐷 ∈ ℝ) |
87 | 86 | adantr 481 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → 𝐷 ∈ ℝ) |
88 | 18 | a1i 11 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → 2 ∈
ℝ+) |
89 | 85, 87, 88 | ltdivmuld 12823 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → ((((2 · 𝑁)↑-𝑗) / 2) < 𝐷 ↔ ((2 · 𝑁)↑-𝑗) < (2 · 𝐷))) |
90 | 89 | adantrr 714 |
. . . . 5
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → ((((2 · 𝑁)↑-𝑗) / 2) < 𝐷 ↔ ((2 · 𝑁)↑-𝑗) < (2 · 𝐷))) |
91 | 82, 90 | mpbird 256 |
. . . 4
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (((2 · 𝑁)↑-𝑗) / 2) < 𝐷) |
92 | 47 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (𝐸 / 𝐺) ∈ ℝ) |
93 | | max2 12921 |
. . . . . . . 8
⊢ (((1 / (2
· 𝐷)) ∈ ℝ
∧ (𝐸 / 𝐺) ∈ ℝ) → (𝐸 / 𝐺) ≤ if((1 / (2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷)))) |
94 | 51, 93 | syl 17 |
. . . . . . 7
⊢ (𝜑 → (𝐸 / 𝐺) ≤ if((1 / (2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷)))) |
95 | 94 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (𝐸 / 𝐺) ≤ if((1 / (2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷)))) |
96 | 50, 40, 55 | ltled 11123 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → if((1 / (2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) ≤ (((2 · 𝑁) · (abs‘𝐶))↑𝑗)) |
97 | 92, 50, 40, 95, 96 | letrd 11132 |
. . . . 5
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → (𝐸 / 𝐺) ≤ (((2 · 𝑁) · (abs‘𝐶))↑𝑗)) |
98 | 43 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → 𝐸 ∈ ℝ) |
99 | 44 | adantr 481 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → 𝐺 ∈
ℝ+) |
100 | 98, 40, 99 | ledivmul2d 12826 |
. . . . 5
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → ((𝐸 / 𝐺) ≤ (((2 · 𝑁) · (abs‘𝐶))↑𝑗) ↔ 𝐸 ≤ ((((2 · 𝑁) · (abs‘𝐶))↑𝑗) · 𝐺))) |
101 | 97, 100 | mpbid 231 |
. . . 4
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → 𝐸 ≤ ((((2 · 𝑁) · (abs‘𝐶))↑𝑗) · 𝐺)) |
102 | 91, 101 | jca 512 |
. . 3
⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ if((1 / (2 ·
𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗))) → ((((2 · 𝑁)↑-𝑗) / 2) < 𝐷 ∧ 𝐸 ≤ ((((2 · 𝑁) · (abs‘𝐶))↑𝑗) · 𝐺))) |
103 | | 1t1e1 12135 |
. . . . . . . . 9
⊢ (1
· 1) = 1 |
104 | 103 | eqcomi 2747 |
. . . . . . . 8
⊢ 1 = (1
· 1) |
105 | 104 | a1i 11 |
. . . . . . 7
⊢ (𝜑 → 1 = (1 ·
1)) |
106 | 4, 34 | remulcld 11005 |
. . . . . . . 8
⊢ (𝜑 → (𝑁 · (abs‘𝐶)) ∈ ℝ) |
107 | | 0le1 11498 |
. . . . . . . . 9
⊢ 0 ≤
1 |
108 | 107 | a1i 11 |
. . . . . . . 8
⊢ (𝜑 → 0 ≤ 1) |
109 | | 1lt2 12144 |
. . . . . . . . 9
⊢ 1 <
2 |
110 | 109 | a1i 11 |
. . . . . . . 8
⊢ (𝜑 → 1 < 2) |
111 | | knoppndvlem18.1 |
. . . . . . . 8
⊢ (𝜑 → 1 < (𝑁 · (abs‘𝐶))) |
112 | 66, 2, 66, 106, 108, 110, 108, 111 | ltmul12ad 11916 |
. . . . . . 7
⊢ (𝜑 → (1 · 1) < (2
· (𝑁 ·
(abs‘𝐶)))) |
113 | 105, 112 | eqbrtrd 5096 |
. . . . . 6
⊢ (𝜑 → 1 < (2 · (𝑁 · (abs‘𝐶)))) |
114 | 2 | recnd 11003 |
. . . . . . . 8
⊢ (𝜑 → 2 ∈
ℂ) |
115 | 4 | recnd 11003 |
. . . . . . . 8
⊢ (𝜑 → 𝑁 ∈ ℂ) |
116 | 114, 115,
57 | mulassd 10998 |
. . . . . . 7
⊢ (𝜑 → ((2 · 𝑁) · (abs‘𝐶)) = (2 · (𝑁 · (abs‘𝐶)))) |
117 | 116 | eqcomd 2744 |
. . . . . 6
⊢ (𝜑 → (2 · (𝑁 · (abs‘𝐶))) = ((2 · 𝑁) · (abs‘𝐶))) |
118 | 113, 117 | breqtrd 5100 |
. . . . 5
⊢ (𝜑 → 1 < ((2 · 𝑁) · (abs‘𝐶))) |
119 | 49, 35, 118 | 3jca 1127 |
. . . 4
⊢ (𝜑 → (if((1 / (2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) ∈ ℝ ∧ ((2 · 𝑁) · (abs‘𝐶)) ∈ ℝ ∧ 1 <
((2 · 𝑁) ·
(abs‘𝐶)))) |
120 | | expnbnd 13947 |
. . . 4
⊢ ((if((1 /
(2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) ∈ ℝ ∧ ((2 · 𝑁) · (abs‘𝐶)) ∈ ℝ ∧ 1 <
((2 · 𝑁) ·
(abs‘𝐶))) →
∃𝑗 ∈ ℕ
if((1 / (2 · 𝐷))
≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗)) |
121 | 119, 120 | syl 17 |
. . 3
⊢ (𝜑 → ∃𝑗 ∈ ℕ if((1 / (2 · 𝐷)) ≤ (𝐸 / 𝐺), (𝐸 / 𝐺), (1 / (2 · 𝐷))) < (((2 · 𝑁) · (abs‘𝐶))↑𝑗)) |
122 | 102, 121 | reximddv 3204 |
. 2
⊢ (𝜑 → ∃𝑗 ∈ ℕ ((((2 · 𝑁)↑-𝑗) / 2) < 𝐷 ∧ 𝐸 ≤ ((((2 · 𝑁) · (abs‘𝐶))↑𝑗) · 𝐺))) |
123 | | nnssnn0 12236 |
. . 3
⊢ ℕ
⊆ ℕ0 |
124 | | ssrexv 3988 |
. . 3
⊢ (ℕ
⊆ ℕ0 → (∃𝑗 ∈ ℕ ((((2 · 𝑁)↑-𝑗) / 2) < 𝐷 ∧ 𝐸 ≤ ((((2 · 𝑁) · (abs‘𝐶))↑𝑗) · 𝐺)) → ∃𝑗 ∈ ℕ0 ((((2 ·
𝑁)↑-𝑗) / 2) < 𝐷 ∧ 𝐸 ≤ ((((2 · 𝑁) · (abs‘𝐶))↑𝑗) · 𝐺)))) |
125 | 123, 124 | ax-mp 5 |
. 2
⊢
(∃𝑗 ∈
ℕ ((((2 · 𝑁)↑-𝑗) / 2) < 𝐷 ∧ 𝐸 ≤ ((((2 · 𝑁) · (abs‘𝐶))↑𝑗) · 𝐺)) → ∃𝑗 ∈ ℕ0 ((((2 ·
𝑁)↑-𝑗) / 2) < 𝐷 ∧ 𝐸 ≤ ((((2 · 𝑁) · (abs‘𝐶))↑𝑗) · 𝐺))) |
126 | 122, 125 | syl 17 |
1
⊢ (𝜑 → ∃𝑗 ∈ ℕ0 ((((2 ·
𝑁)↑-𝑗) / 2) < 𝐷 ∧ 𝐸 ≤ ((((2 · 𝑁) · (abs‘𝐶))↑𝑗) · 𝐺))) |