Metamath Proof Explorer


Theorem stoweidlem13

Description: Lemma for stoweid . This lemma is used to prove the statement abs( f(t) - g(t) ) < 2 epsilon, in the last step of the proof in BrosowskiDeutsh p. 92. (Contributed by Glauco Siliprandi, 20-Apr-2017)

Ref Expression
Hypotheses stoweidlem13.1 φE+
stoweidlem13.2 φX
stoweidlem13.3 φY
stoweidlem13.4 φj
stoweidlem13.5 φj43E<X
stoweidlem13.6 φXj13E
stoweidlem13.7 φj43E<Y
stoweidlem13.8 φY<j+13E
Assertion stoweidlem13 φYX<2E

Proof

Step Hyp Ref Expression
1 stoweidlem13.1 φE+
2 stoweidlem13.2 φX
3 stoweidlem13.3 φY
4 stoweidlem13.4 φj
5 stoweidlem13.5 φj43E<X
6 stoweidlem13.6 φXj13E
7 stoweidlem13.7 φj43E<Y
8 stoweidlem13.8 φY<j+13E
9 3 2 resubcld φYX
10 2re 2
11 1 rpred φE
12 remulcl 2E2E
13 10 11 12 sylancr φ2E
14 3 recnd φY
15 2 recnd φX
16 14 15 negsubdi2d φYX=XY
17 2 3 resubcld φXY
18 1red φ1
19 18 11 remulcld φ1E
20 3re 3
21 3ne0 30
22 20 21 rereccli 13
23 22 a1i φ13
24 4 23 resubcld φj13
25 24 11 remulcld φj13E
26 25 3 resubcld φj13EY
27 4re 4
28 27 20 21 3pm3.2i 4330
29 redivcl 433043
30 28 29 mp1i φ43
31 4 30 resubcld φj43
32 31 11 remulcld φj43E
33 25 32 resubcld φj13Ej43E
34 2 25 3 6 lesub1dd φXYj13EY
35 32 3 25 7 ltsub2dd φj13EY<j13Ej43E
36 17 26 33 34 35 lelttrd φXY<j13Ej43E
37 4 recnd φj
38 23 recnd φ13
39 37 38 subcld φj13
40 30 recnd φ43
41 37 40 subcld φj43
42 11 recnd φE
43 39 41 42 subdird φj-13-j43E=j13Ej43E
44 37 38 37 40 sub4d φj-13-j43=j-j-1343
45 37 37 subcld φjj
46 45 38 40 subsub2d φj-j-1343=jj+43-13
47 44 46 eqtrd φj-13-j43=jj+43-13
48 47 oveq1d φj-13-j43E=jj+43-13E
49 43 48 eqtr3d φj13Ej43E=jj+43-13E
50 36 49 breqtrd φXY<jj+43-13E
51 37 subidd φjj=0
52 51 oveq1d φjj+43-13=0+43-13
53 4cn 4
54 3cn 3
55 53 54 21 divcli 43
56 ax-1cn 1
57 56 54 21 divcli 13
58 1div1e1 11=1
59 58 oveq2i 13+11=13+1
60 ax-1ne0 10
61 56 54 56 56 21 60 divadddivi 13+11=11+1331
62 59 61 eqtr3i 13+1=11+1331
63 54 56 addcomi 3+1=1+3
64 df-4 4=3+1
65 1t1e1 11=1
66 54 mulid2i 13=3
67 65 66 oveq12i 11+13=1+3
68 63 64 67 3eqtr4ri 11+13=4
69 68 oveq1i 11+1331=431
70 3t1e3 31=3
71 70 oveq2i 431=43
72 62 69 71 3eqtri 13+1=43
73 55 57 56 72 subaddrii 4313=1
74 73 oveq2i 0+43-13=0+1
75 1e0p1 1=0+1
76 74 75 eqtr4i 0+43-13=1
77 52 76 eqtrdi φjj+43-13=1
78 77 oveq1d φjj+43-13E=1E
79 50 78 breqtrd φXY<1E
80 1lt2 1<2
81 10 a1i φ2
82 18 81 1 ltmul1d φ1<21E<2E
83 80 82 mpbii φ1E<2E
84 17 19 13 79 83 lttrd φXY<2E
85 16 84 eqbrtrd φYX<2E
86 9 13 85 ltnegcon1d φ2E<YX
87 5re 5
88 87 a1i φ5
89 20 a1i φ3
90 21 a1i φ30
91 88 89 90 redivcld φ53
92 91 11 remulcld φ53E
93 2 renegcld φX
94 4 23 readdcld φj+13
95 94 11 remulcld φj+13E
96 32 renegcld φj43E
97 32 2 ltnegd φj43E<XX<j43E
98 5 97 mpbid φX<j43E
99 3 93 95 96 8 98 lt2addd φY+X<j+13E+j43E
100 14 15 negsubd φY+X=YX
101 37 38 42 adddird φj+13E=jE+13E
102 37 40 negsubd φj+43=j43
103 102 eqcomd φj43=j+43
104 103 oveq1d φj43E=j+43E
105 40 negcld φ43
106 37 105 42 adddird φj+43E=jE+43E
107 40 42 mulneg1d φ43E=43E
108 107 oveq2d φjE+43E=jE+43E
109 104 106 108 3eqtrd φj43E=jE+43E
110 109 negeqd φj43E=jE+43E
111 37 42 mulcld φjE
112 40 42 mulcld φ43E
113 112 negcld φ43E
114 111 113 negdid φjE+43E=-jE+43E
115 112 negnegd φ43E=43E
116 115 oveq2d φ-jE+43E=-jE+43E
117 110 114 116 3eqtrd φj43E=-jE+43E
118 101 117 oveq12d φj+13E+j43E=jE+13E+jE+43E
119 38 42 mulcld φ13E
120 111 negcld φjE
121 111 119 120 112 add4d φjE+13E+jE+43E=jE+jE+13E+43E
122 111 negidd φjE+jE=0
123 122 oveq1d φjE+jE+13E+43E=0+13E+43E
124 119 112 addcld φ13E+43E
125 124 addid2d φ0+13E+43E=13E+43E
126 121 123 125 3eqtrd φjE+13E+jE+43E=13E+43E
127 38 40 42 adddird φ13+43E=13E+43E
128 89 recnd φ3
129 38 40 addcld φ13+43
130 128 38 40 adddid φ313+43=313+343
131 56 53 addcomi 1+4=4+1
132 56 54 21 divcan2i 313=1
133 53 54 21 divcan2i 343=4
134 132 133 oveq12i 313+343=1+4
135 df-5 5=4+1
136 131 134 135 3eqtr4i 313+343=5
137 130 136 eqtrdi φ313+43=5
138 128 129 90 137 mvllmuld φ13+43=53
139 138 oveq1d φ13+43E=53E
140 126 127 139 3eqtr2d φjE+13E+jE+43E=53E
141 118 140 eqtrd φj+13E+j43E=53E
142 99 100 141 3brtr3d φYX<53E
143 5lt6 5<6
144 3t2e6 32=6
145 143 144 breqtrri 5<32
146 3pos 0<3
147 20 146 pm3.2i 30<3
148 ltdivmul 5230<353<25<32
149 87 10 147 148 mp3an 53<25<32
150 145 149 mpbir 53<2
151 150 a1i φ53<2
152 91 81 1 151 ltmul1dd φ53E<2E
153 9 92 13 142 152 lttrd φYX<2E
154 9 13 absltd φYX<2E2E<YXYX<2E
155 86 153 154 mpbir2and φYX<2E