Metamath Proof Explorer


Theorem dirkercncflem1

Description: If Y is a multiple of _pi then it belongs to an open inerval ( A (,) B ) such that for any other point y in the interval, cos y/2 and sin y/2 are nonzero. Such an interval is needed to apply De L'Hopital theorem. (Contributed by Glauco Siliprandi, 11-Dec-2019)

Ref Expression
Hypotheses dirkercncflem1.a A = Y π
dirkercncflem1.b B = Y + π
dirkercncflem1.y φ Y
dirkercncflem1.ymod0 φ Y mod 2 π = 0
Assertion dirkercncflem1 φ Y A B y A B Y sin y 2 0 cos y 2 0

Proof

Step Hyp Ref Expression
1 dirkercncflem1.a A = Y π
2 dirkercncflem1.b B = Y + π
3 dirkercncflem1.y φ Y
4 dirkercncflem1.ymod0 φ Y mod 2 π = 0
5 pire π
6 5 a1i φ π
7 3 6 resubcld φ Y π
8 7 rexrd φ Y π *
9 1 8 eqeltrid φ A *
10 3 6 readdcld φ Y + π
11 10 rexrd φ Y + π *
12 2 11 eqeltrid φ B *
13 pipos 0 < π
14 ltsubpos π Y 0 < π Y π < Y
15 13 14 mpbii π Y Y π < Y
16 6 3 15 syl2anc φ Y π < Y
17 1 16 eqbrtrid φ A < Y
18 ltaddpos π Y 0 < π Y < Y + π
19 13 18 mpbii π Y Y < Y + π
20 6 3 19 syl2anc φ Y < Y + π
21 20 2 breqtrrdi φ Y < B
22 9 12 3 17 21 eliood φ Y A B
23 eldifi y A B Y y A B
24 23 elioored y A B Y y
25 24 adantl φ y A B Y y
26 25 recnd φ y A B Y y
27 2cnd φ y A B Y 2
28 picn π
29 28 a1i φ y A B Y π
30 2ne0 2 0
31 30 a1i φ y A B Y 2 0
32 5 13 gt0ne0ii π 0
33 32 a1i φ y A B Y π 0
34 26 27 29 31 33 divdiv1d φ y A B Y y 2 π = y 2 π
35 2rp 2 +
36 35 a1i φ 2 +
37 pirp π +
38 37 a1i φ π +
39 36 38 rpmulcld φ 2 π +
40 mod0 Y 2 π + Y mod 2 π = 0 Y 2 π
41 3 39 40 syl2anc φ Y mod 2 π = 0 Y 2 π
42 4 41 mpbid φ Y 2 π
43 peano2zm Y 2 π Y 2 π 1
44 42 43 syl φ Y 2 π 1
45 44 ad2antrr φ y A B Y y < Y Y 2 π 1
46 44 zred φ Y 2 π 1
47 46 adantr φ y A B Y Y 2 π 1
48 1 7 eqeltrid φ A
49 48 39 rerpdivcld φ A 2 π
50 49 adantr φ y A B Y A 2 π
51 39 rpred φ 2 π
52 51 adantr φ y A B Y 2 π
53 39 rpne0d φ 2 π 0
54 53 adantr φ y A B Y 2 π 0
55 25 52 54 redivcld φ y A B Y y 2 π
56 51 recnd φ 2 π
57 56 53 dividd φ 2 π 2 π = 1
58 57 eqcomd φ 1 = 2 π 2 π
59 58 oveq2d φ Y 2 π 1 = Y 2 π 2 π 2 π
60 3 recnd φ Y
61 60 56 56 53 divsubdird φ Y 2 π 2 π = Y 2 π 2 π 2 π
62 59 61 eqtr4d φ Y 2 π 1 = Y 2 π 2 π
63 3 51 resubcld φ Y 2 π
64 28 mulid2i 1 π = π
65 64 eqcomi π = 1 π
66 1lt2 1 < 2
67 1re 1
68 2re 2
69 67 68 5 13 ltmul1ii 1 < 2 1 π < 2 π
70 66 69 mpbi 1 π < 2 π
71 65 70 eqbrtri π < 2 π
72 71 a1i φ π < 2 π
73 6 51 3 72 ltsub2dd φ Y 2 π < Y π
74 73 1 breqtrrdi φ Y 2 π < A
75 63 48 39 74 ltdiv1dd φ Y 2 π 2 π < A 2 π
76 62 75 eqbrtrd φ Y 2 π 1 < A 2 π
77 76 adantr φ y A B Y Y 2 π 1 < A 2 π
78 48 adantr φ y A B Y A
79 39 adantr φ y A B Y 2 π +
80 23 adantl φ y A B Y y A B
81 9 adantr φ y A B Y A *
82 12 adantr φ y A B Y B *
83 elioo2 A * B * y A B y A < y y < B
84 81 82 83 syl2anc φ y A B Y y A B y A < y y < B
85 80 84 mpbid φ y A B Y y A < y y < B
86 85 simp2d φ y A B Y A < y
87 78 25 79 86 ltdiv1dd φ y A B Y A 2 π < y 2 π
88 47 50 55 77 87 lttrd φ y A B Y Y 2 π 1 < y 2 π
89 88 adantr φ y A B Y y < Y Y 2 π 1 < y 2 π
90 24 ad2antlr φ y A B Y y < Y y
91 3 ad2antrr φ y A B Y y < Y Y
92 39 ad2antrr φ y A B Y y < Y 2 π +
93 simpr φ y A B Y y < Y y < Y
94 90 91 92 93 ltdiv1dd φ y A B Y y < Y y 2 π < Y 2 π
95 60 56 53 divcld φ Y 2 π
96 95 adantr φ y A B Y Y 2 π
97 1cnd φ y A B Y 1
98 96 97 npcand φ y A B Y Y 2 π - 1 + 1 = Y 2 π
99 98 eqcomd φ y A B Y Y 2 π = Y 2 π - 1 + 1
100 99 adantr φ y A B Y y < Y Y 2 π = Y 2 π - 1 + 1
101 94 100 breqtrd φ y A B Y y < Y y 2 π < Y 2 π - 1 + 1
102 btwnnz Y 2 π 1 Y 2 π 1 < y 2 π y 2 π < Y 2 π - 1 + 1 ¬ y 2 π
103 45 89 101 102 syl3anc φ y A B Y y < Y ¬ y 2 π
104 42 ad2antrr φ y A B Y ¬ y < Y Y 2 π
105 3 ad2antrr φ y A B Y ¬ y < Y Y
106 25 adantr φ y A B Y ¬ y < Y y
107 79 adantr φ y A B Y ¬ y < Y 2 π +
108 25 adantr φ y A B Y y Y y
109 3 ad2antrr φ y A B Y y Y Y
110 simpr φ y A B Y y Y y Y
111 eldifsni y A B Y y Y
112 111 necomd y A B Y Y y
113 112 ad2antlr φ y A B Y y Y Y y
114 108 109 110 113 leneltd φ y A B Y y Y y < Y
115 114 stoic1a φ y A B Y ¬ y < Y ¬ y Y
116 105 106 ltnled φ y A B Y ¬ y < Y Y < y ¬ y Y
117 115 116 mpbird φ y A B Y ¬ y < Y Y < y
118 105 106 107 117 ltdiv1dd φ y A B Y ¬ y < Y Y 2 π < y 2 π
119 2 10 eqeltrid φ B
120 119 39 rerpdivcld φ B 2 π
121 120 adantr φ y A B Y B 2 π
122 3 39 rerpdivcld φ Y 2 π
123 122 adantr φ y A B Y Y 2 π
124 1red φ y A B Y 1
125 123 124 readdcld φ y A B Y Y 2 π + 1
126 119 adantr φ y A B Y B
127 85 simp3d φ y A B Y y < B
128 25 126 79 127 ltdiv1dd φ y A B Y y 2 π < B 2 π
129 2 oveq1i B 2 π = Y + π 2 π
130 28 a1i φ π
131 60 130 56 53 divdird φ Y + π 2 π = Y 2 π + π 2 π
132 6 39 rerpdivcld φ π 2 π
133 1red φ 1
134 2cn 2
135 134 28 mulcomi 2 π = π 2
136 135 oveq2i π 2 π = π π 2
137 28 32 pm3.2i π π 0
138 2cnne0 2 2 0
139 divdiv1 π π π 0 2 2 0 π π 2 = π π 2
140 28 137 138 139 mp3an π π 2 = π π 2
141 28 32 dividi π π = 1
142 141 oveq1i π π 2 = 1 2
143 136 140 142 3eqtr2i π 2 π = 1 2
144 halflt1 1 2 < 1
145 143 144 eqbrtri π 2 π < 1
146 145 a1i φ π 2 π < 1
147 132 133 122 146 ltadd2dd φ Y 2 π + π 2 π < Y 2 π + 1
148 131 147 eqbrtrd φ Y + π 2 π < Y 2 π + 1
149 129 148 eqbrtrid φ B 2 π < Y 2 π + 1
150 149 adantr φ y A B Y B 2 π < Y 2 π + 1
151 55 121 125 128 150 lttrd φ y A B Y y 2 π < Y 2 π + 1
152 151 adantr φ y A B Y ¬ y < Y y 2 π < Y 2 π + 1
153 btwnnz Y 2 π Y 2 π < y 2 π y 2 π < Y 2 π + 1 ¬ y 2 π
154 104 118 152 153 syl3anc φ y A B Y ¬ y < Y ¬ y 2 π
155 103 154 pm2.61dan φ y A B Y ¬ y 2 π
156 34 155 eqneltrd φ y A B Y ¬ y 2 π
157 26 halfcld φ y A B Y y 2
158 sineq0 y 2 sin y 2 = 0 y 2 π
159 157 158 syl φ y A B Y sin y 2 = 0 y 2 π
160 156 159 mtbird φ y A B Y ¬ sin y 2 = 0
161 160 neqned φ y A B Y sin y 2 0
162 34 oveq1d φ y A B Y y 2 π + 1 2 = y 2 π + 1 2
163 42 adantr φ y A B Y Y 2 π
164 1 a1i φ A = Y π
165 164 oveq1d φ A + π = Y - π + π
166 60 130 npcand φ Y - π + π = Y
167 165 166 eqtr2d φ Y = A + π
168 167 oveq1d φ Y 2 π = A + π 2 π
169 48 recnd φ A
170 169 130 56 53 divdird φ A + π 2 π = A 2 π + π 2 π
171 130 mulid1d φ π 1 = π
172 171 eqcomd φ π = π 1
173 2cnd φ 2
174 173 130 mulcomd φ 2 π = π 2
175 172 174 oveq12d φ π 2 π = π 1 π 2
176 1cnd φ 1
177 30 a1i φ 2 0
178 32 a1i φ π 0
179 176 173 130 177 178 divcan5d φ π 1 π 2 = 1 2
180 175 179 eqtrd φ π 2 π = 1 2
181 180 oveq2d φ A 2 π + π 2 π = A 2 π + 1 2
182 168 170 181 3eqtrd φ Y 2 π = A 2 π + 1 2
183 182 adantr φ y A B Y Y 2 π = A 2 π + 1 2
184 124 rehalfcld φ y A B Y 1 2
185 50 55 184 87 ltadd1dd φ y A B Y A 2 π + 1 2 < y 2 π + 1 2
186 183 185 eqbrtrd φ y A B Y Y 2 π < y 2 π + 1 2
187 55 121 184 128 ltadd1dd φ y A B Y y 2 π + 1 2 < B 2 π + 1 2
188 129 a1i φ B 2 π = Y + π 2 π
189 188 oveq1d φ B 2 π + 1 2 = Y + π 2 π + 1 2
190 180 oveq2d φ Y 2 π + π 2 π = Y 2 π + 1 2
191 131 190 eqtrd φ Y + π 2 π = Y 2 π + 1 2
192 191 oveq1d φ Y + π 2 π + 1 2 = Y 2 π + 1 2 + 1 2
193 176 halfcld φ 1 2
194 95 193 193 addassd φ Y 2 π + 1 2 + 1 2 = Y 2 π + 1 2 + 1 2
195 176 2halvesd φ 1 2 + 1 2 = 1
196 195 oveq2d φ Y 2 π + 1 2 + 1 2 = Y 2 π + 1
197 194 196 eqtrd φ Y 2 π + 1 2 + 1 2 = Y 2 π + 1
198 189 192 197 3eqtrd φ B 2 π + 1 2 = Y 2 π + 1
199 198 adantr φ y A B Y B 2 π + 1 2 = Y 2 π + 1
200 187 199 breqtrd φ y A B Y y 2 π + 1 2 < Y 2 π + 1
201 btwnnz Y 2 π Y 2 π < y 2 π + 1 2 y 2 π + 1 2 < Y 2 π + 1 ¬ y 2 π + 1 2
202 163 186 200 201 syl3anc φ y A B Y ¬ y 2 π + 1 2
203 162 202 eqneltrd φ y A B Y ¬ y 2 π + 1 2
204 coseq0 y 2 cos y 2 = 0 y 2 π + 1 2
205 157 204 syl φ y A B Y cos y 2 = 0 y 2 π + 1 2
206 203 205 mtbird φ y A B Y ¬ cos y 2 = 0
207 206 neqned φ y A B Y cos y 2 0
208 161 207 jca φ y A B Y sin y 2 0 cos y 2 0
209 208 ralrimiva φ y A B Y sin y 2 0 cos y 2 0
210 22 209 jca φ Y A B y A B Y sin y 2 0 cos y 2 0