Metamath Proof Explorer


Theorem knoppndvlem18

Description: Lemma for knoppndv . (Contributed by Asger C. Ipsen, 14-Aug-2021)

Ref Expression
Hypotheses knoppndvlem18.c ⊢ φ → C ∈ − 1 1
knoppndvlem18.n ⊢ φ → N ∈ ℕ
knoppndvlem18.d ⊢ φ → D ∈ ℝ +
knoppndvlem18.e ⊢ φ → E ∈ ℝ +
knoppndvlem18.g ⊢ φ → G ∈ ℝ +
knoppndvlem18.1 ⊢ φ → 1 < N ⁢ C
Assertion knoppndvlem18 ⊢ φ → ∃ j ∈ ℕ 0 2 ⋅ N − j 2 < D ∧ E ≤ 2 ⋅ N ⁢ C j ⁢ G

Proof

Step Hyp Ref Expression
1 knoppndvlem18.c ⊢ φ → C ∈ − 1 1
2 knoppndvlem18.n ⊢ φ → N ∈ ℕ
3 knoppndvlem18.d ⊢ φ → D ∈ ℝ +
4 knoppndvlem18.e ⊢ φ → E ∈ ℝ +
5 knoppndvlem18.g ⊢ φ → G ∈ ℝ +
6 knoppndvlem18.1 ⊢ φ → 1 < N ⁢ C
7 2re ⊢ 2 ∈ ℝ
8 7 a1i ⊢ φ → 2 ∈ ℝ
9 2 nnred ⊢ φ → N ∈ ℝ
10 8 9 remulcld ⊢ φ → 2 ⋅ N ∈ ℝ
11 10 adantr ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N ∈ ℝ
12 11 recnd ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N ∈ ℂ
13 2pos ⊢ 0 < 2
14 13 a1i ⊢ φ → 0 < 2
15 2 nngt0d ⊢ φ → 0 < N
16 8 9 14 15 mulgt0d ⊢ φ → 0 < 2 ⋅ N
17 16 gt0ne0d ⊢ φ → 2 ⋅ N ≠ 0
18 17 adantr ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N ≠ 0
19 nnz ⊢ j ∈ ℕ → j ∈ ℤ
20 19 adantl ⊢ φ ∧ j ∈ ℕ → j ∈ ℤ
21 12 18 20 expnegd ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N − j = 1 2 ⋅ N j
22 21 adantrr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 2 ⋅ N − j = 1 2 ⋅ N j
23 2rp ⊢ 2 ∈ ℝ +
24 23 a1i ⊢ φ → 2 ∈ ℝ +
25 24 3 jca ⊢ φ → 2 ∈ ℝ + ∧ D ∈ ℝ +
26 rpmulcl ⊢ 2 ∈ ℝ + ∧ D ∈ ℝ + → 2 ⁢ D ∈ ℝ +
27 25 26 syl ⊢ φ → 2 ⁢ D ∈ ℝ +
28 27 adantr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 2 ⁢ D ∈ ℝ +
29 10 16 elrpd ⊢ φ → 2 ⋅ N ∈ ℝ +
30 29 adantr ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N ∈ ℝ +
31 30 20 rpexpcld ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N j ∈ ℝ +
32 31 adantrr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 2 ⋅ N j ∈ ℝ +
33 28 rprecred ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 1 2 ⁢ D ∈ ℝ
34 1 knoppndvlem3 ⊢ φ → C ∈ ℝ ∧ C < 1
35 34 simpld ⊢ φ → C ∈ ℝ
36 35 recnd ⊢ φ → C ∈ ℂ
37 36 abscld ⊢ φ → C ∈ ℝ
38 10 37 remulcld ⊢ φ → 2 ⋅ N ⁢ C ∈ ℝ
39 38 adantr ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N ⁢ C ∈ ℝ
40 nnnn0 ⊢ j ∈ ℕ → j ∈ ℕ 0
41 40 adantl ⊢ φ ∧ j ∈ ℕ → j ∈ ℕ 0
42 39 41 reexpcld ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N ⁢ C j ∈ ℝ
43 42 adantrr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 2 ⋅ N ⁢ C j ∈ ℝ
44 32 rpred ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 2 ⋅ N j ∈ ℝ
45 4 rpred ⊢ φ → E ∈ ℝ
46 5 rpred ⊢ φ → G ∈ ℝ
47 5 rpne0d ⊢ φ → G ≠ 0
48 45 46 47 redivcld ⊢ φ → E G ∈ ℝ
49 27 rprecred ⊢ φ → 1 2 ⁢ D ∈ ℝ
50 48 49 ifcld ⊢ φ → if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D ∈ ℝ
51 50 adantr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D ∈ ℝ
52 49 48 jca ⊢ φ → 1 2 ⁢ D ∈ ℝ ∧ E G ∈ ℝ
53 max1 ⊢ 1 2 ⁢ D ∈ ℝ ∧ E G ∈ ℝ → 1 2 ⁢ D ≤ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D
54 52 53 syl ⊢ φ → 1 2 ⁢ D ≤ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D
55 54 adantr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 1 2 ⁢ D ≤ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D
56 simprr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j
57 33 51 43 55 56 lelttrd ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 1 2 ⁢ D < 2 ⋅ N ⁢ C j
58 37 recnd ⊢ φ → C ∈ ℂ
59 58 adantr ⊢ φ ∧ j ∈ ℕ → C ∈ ℂ
60 12 59 41 mulexpd ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N ⁢ C j = 2 ⋅ N j ⁢ C j
61 37 adantr ⊢ φ ∧ j ∈ ℕ → C ∈ ℝ
62 61 41 reexpcld ⊢ φ ∧ j ∈ ℕ → C j ∈ ℝ
63 1red ⊢ φ ∧ j ∈ ℕ → 1 ∈ ℝ
64 31 rpred ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N j ∈ ℝ
65 31 rpge0d ⊢ φ ∧ j ∈ ℕ → 0 ≤ 2 ⋅ N j
66 36 absge0d ⊢ φ → 0 ≤ C
67 1red ⊢ φ → 1 ∈ ℝ
68 34 simprd ⊢ φ → C < 1
69 37 67 68 ltled ⊢ φ → C ≤ 1
70 37 66 69 3jca ⊢ φ → C ∈ ℝ ∧ 0 ≤ C ∧ C ≤ 1
71 70 adantr ⊢ φ ∧ j ∈ ℕ → C ∈ ℝ ∧ 0 ≤ C ∧ C ≤ 1
72 71 41 jca ⊢ φ ∧ j ∈ ℕ → C ∈ ℝ ∧ 0 ≤ C ∧ C ≤ 1 ∧ j ∈ ℕ 0
73 exple1 ⊢ C ∈ ℝ ∧ 0 ≤ C ∧ C ≤ 1 ∧ j ∈ ℕ 0 → C j ≤ 1
74 72 73 syl ⊢ φ ∧ j ∈ ℕ → C j ≤ 1
75 62 63 64 65 74 lemul2ad ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N j ⁢ C j ≤ 2 ⋅ N j ⋅ 1
76 64 recnd ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N j ∈ ℂ
77 76 mulridd ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N j ⋅ 1 = 2 ⋅ N j
78 75 77 breqtrd ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N j ⁢ C j ≤ 2 ⋅ N j
79 60 78 eqbrtrd ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N ⁢ C j ≤ 2 ⋅ N j
80 79 adantrr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 2 ⋅ N ⁢ C j ≤ 2 ⋅ N j
81 33 43 44 57 80 ltletrd ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 1 2 ⁢ D < 2 ⋅ N j
82 28 32 81 ltrec1d ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 1 2 ⋅ N j < 2 ⁢ D
83 22 82 eqbrtrd ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 2 ⋅ N − j < 2 ⁢ D
84 nnnegz ⊢ j ∈ ℕ → − j ∈ ℤ
85 84 adantl ⊢ φ ∧ j ∈ ℕ → − j ∈ ℤ
86 11 18 85 reexpclzd ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N − j ∈ ℝ
87 3 rpred ⊢ φ → D ∈ ℝ
88 87 adantr ⊢ φ ∧ j ∈ ℕ → D ∈ ℝ
89 23 a1i ⊢ φ ∧ j ∈ ℕ → 2 ∈ ℝ +
90 86 88 89 ltdivmuld ⊢ φ ∧ j ∈ ℕ → 2 ⋅ N − j 2 < D ↔ 2 ⋅ N − j < 2 ⁢ D
91 90 adantrr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 2 ⋅ N − j 2 < D ↔ 2 ⋅ N − j < 2 ⁢ D
92 83 91 mpbird ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 2 ⋅ N − j 2 < D
93 48 adantr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → E G ∈ ℝ
94 max2 ⊢ 1 2 ⁢ D ∈ ℝ ∧ E G ∈ ℝ → E G ≤ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D
95 52 94 syl ⊢ φ → E G ≤ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D
96 95 adantr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → E G ≤ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D
97 51 43 56 ltled ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D ≤ 2 ⋅ N ⁢ C j
98 93 51 43 96 97 letrd ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → E G ≤ 2 ⋅ N ⁢ C j
99 45 adantr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → E ∈ ℝ
100 5 adantr ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → G ∈ ℝ +
101 99 43 100 ledivmul2d ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → E G ≤ 2 ⋅ N ⁢ C j ↔ E ≤ 2 ⋅ N ⁢ C j ⁢ G
102 98 101 mpbid ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → E ≤ 2 ⋅ N ⁢ C j ⁢ G
103 92 102 jca ⊢ φ ∧ j ∈ ℕ ∧ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j → 2 ⋅ N − j 2 < D ∧ E ≤ 2 ⋅ N ⁢ C j ⁢ G
104 1t1e1 ⊢ 1 ⋅ 1 = 1
105 104 eqcomi ⊢ 1 = 1 ⋅ 1
106 105 a1i ⊢ φ → 1 = 1 ⋅ 1
107 9 37 remulcld ⊢ φ → N ⁢ C ∈ ℝ
108 0le1 ⊢ 0 ≤ 1
109 108 a1i ⊢ φ → 0 ≤ 1
110 1lt2 ⊢ 1 < 2
111 110 a1i ⊢ φ → 1 < 2
112 67 8 67 107 109 111 109 6 ltmul12ad ⊢ φ → 1 ⋅ 1 < 2 ⁢ N ⁢ C
113 106 112 eqbrtrd ⊢ φ → 1 < 2 ⁢ N ⁢ C
114 8 recnd ⊢ φ → 2 ∈ ℂ
115 9 recnd ⊢ φ → N ∈ ℂ
116 114 115 58 mulassd ⊢ φ → 2 ⋅ N ⁢ C = 2 ⁢ N ⁢ C
117 116 eqcomd ⊢ φ → 2 ⁢ N ⁢ C = 2 ⋅ N ⁢ C
118 113 117 breqtrd ⊢ φ → 1 < 2 ⋅ N ⁢ C
119 50 38 118 3jca ⊢ φ → if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D ∈ ℝ ∧ 2 ⋅ N ⁢ C ∈ ℝ ∧ 1 < 2 ⋅ N ⁢ C
120 expnbnd ⊢ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D ∈ ℝ ∧ 2 ⋅ N ⁢ C ∈ ℝ ∧ 1 < 2 ⋅ N ⁢ C → ∃ j ∈ ℕ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j
121 119 120 syl ⊢ φ → ∃ j ∈ ℕ if 1 2 ⁢ D ≤ E G E G 1 2 ⁢ D < 2 ⋅ N ⁢ C j
122 103 121 reximddv ⊢ φ → ∃ j ∈ ℕ 2 ⋅ N − j 2 < D ∧ E ≤ 2 ⋅ N ⁢ C j ⁢ G
123 nnssnn0 ⊢ ℕ ⊆ ℕ 0
124 ssrexv ⊢ ℕ ⊆ ℕ 0 → ∃ j ∈ ℕ 2 ⋅ N − j 2 < D ∧ E ≤ 2 ⋅ N ⁢ C j ⁢ G → ∃ j ∈ ℕ 0 2 ⋅ N − j 2 < D ∧ E ≤ 2 ⋅ N ⁢ C j ⁢ G
125 123 124 ax-mp ⊢ ∃ j ∈ ℕ 2 ⋅ N − j 2 < D ∧ E ≤ 2 ⋅ N ⁢ C j ⁢ G → ∃ j ∈ ℕ 0 2 ⋅ N − j 2 < D ∧ E ≤ 2 ⋅ N ⁢ C j ⁢ G
126 122 125 syl ⊢ φ → ∃ j ∈ ℕ 0 2 ⋅ N − j 2 < D ∧ E ≤ 2 ⋅ N ⁢ C j ⁢ G