Metamath Proof Explorer


Theorem smcnlem

Description: Lemma for smcn . (Contributed by Mario Carneiro, 5-May-2014) (Revised by Mario Carneiro, 10-Sep-2015) (New usage is discouraged.)

Ref Expression
Hypotheses smcn.c C = IndMet U
smcn.j J = MetOpen C
smcn.s S = 𝑠OLD U
smcn.k K = TopOpen fld
smcn.x X = BaseSet U
smcn.n N = norm CV U
smcn.u U NrmCVec
smcn.t T = 1 1 + N y + x + 1 r
Assertion smcnlem S K × t J Cn J

Proof

Step Hyp Ref Expression
1 smcn.c C = IndMet U
2 smcn.j J = MetOpen C
3 smcn.s S = 𝑠OLD U
4 smcn.k K = TopOpen fld
5 smcn.x X = BaseSet U
6 smcn.n N = norm CV U
7 smcn.u U NrmCVec
8 smcn.t T = 1 1 + N y + x + 1 r
9 5 3 nvsf U NrmCVec S : × X X
10 7 9 ax-mp S : × X X
11 1rp 1 +
12 simpr x y X y X
13 5 6 nvcl U NrmCVec y X N y
14 7 12 13 sylancr x y X N y
15 abscl x x
16 15 adantr x y X x
17 14 16 readdcld x y X N y + x
18 5 6 nvge0 U NrmCVec y X 0 N y
19 7 12 18 sylancr x y X 0 N y
20 absge0 x 0 x
21 20 adantr x y X 0 x
22 14 16 19 21 addge0d x y X 0 N y + x
23 17 22 ge0p1rpd x y X N y + x + 1 +
24 rpdivcl N y + x + 1 + r + N y + x + 1 r +
25 23 24 sylan x y X r + N y + x + 1 r +
26 rpaddcl 1 + N y + x + 1 r + 1 + N y + x + 1 r +
27 11 25 26 sylancr x y X r + 1 + N y + x + 1 r +
28 27 rpreccld x y X r + 1 1 + N y + x + 1 r +
29 8 28 eqeltrid x y X r + T +
30 5 1 imsmet U NrmCVec C Met X
31 7 30 ax-mp C Met X
32 31 a1i x y X r + z w X x abs z < T y C w < T C Met X
33 7 a1i x y X r + z w X x abs z < T y C w < T U NrmCVec
34 simplll x y X r + z w X x abs z < T y C w < T x
35 simpllr x y X r + z w X x abs z < T y C w < T y X
36 5 3 nvscl U NrmCVec x y X x S y X
37 33 34 35 36 syl3anc x y X r + z w X x abs z < T y C w < T x S y X
38 simprll x y X r + z w X x abs z < T y C w < T z
39 simprlr x y X r + z w X x abs z < T y C w < T w X
40 5 3 nvscl U NrmCVec z w X z S w X
41 33 38 39 40 syl3anc x y X r + z w X x abs z < T y C w < T z S w X
42 metcl C Met X x S y X z S w X x S y C z S w
43 32 37 41 42 syl3anc x y X r + z w X x abs z < T y C w < T x S y C z S w
44 5 3 nvscl U NrmCVec z y X z S y X
45 33 38 35 44 syl3anc x y X r + z w X x abs z < T y C w < T z S y X
46 metcl C Met X x S y X z S y X x S y C z S y
47 32 37 45 46 syl3anc x y X r + z w X x abs z < T y C w < T x S y C z S y
48 metcl C Met X z S y X z S w X z S y C z S w
49 32 45 41 48 syl3anc x y X r + z w X x abs z < T y C w < T z S y C z S w
50 47 49 readdcld x y X r + z w X x abs z < T y C w < T x S y C z S y + z S y C z S w
51 rpre r + r
52 51 ad2antlr x y X r + z w X x abs z < T y C w < T r
53 mettri C Met X x S y X z S w X z S y X x S y C z S w x S y C z S y + z S y C z S w
54 32 37 41 45 53 syl13anc x y X r + z w X x abs z < T y C w < T x S y C z S w x S y C z S y + z S y C z S w
55 7 35 13 sylancr x y X r + z w X x abs z < T y C w < T N y
56 34 abscld x y X r + z w X x abs z < T y C w < T x
57 55 56 readdcld x y X r + z w X x abs z < T y C w < T N y + x
58 peano2re N y + x N y + x + 1
59 57 58 syl x y X r + z w X x abs z < T y C w < T N y + x + 1
60 29 adantr x y X r + z w X x abs z < T y C w < T T +
61 60 rpred x y X r + z w X x abs z < T y C w < T T
62 59 61 remulcld x y X r + z w X x abs z < T y C w < T N y + x + 1 T
63 34 38 subcld x y X r + z w X x abs z < T y C w < T x z
64 63 abscld x y X r + z w X x abs z < T y C w < T x z
65 64 55 remulcld x y X r + z w X x abs z < T y C w < T x z N y
66 38 abscld x y X r + z w X x abs z < T y C w < T z
67 eqid - v U = - v U
68 5 67 nvmcl U NrmCVec y X w X y - v U w X
69 33 35 39 68 syl3anc x y X r + z w X x abs z < T y C w < T y - v U w X
70 5 6 nvcl U NrmCVec y - v U w X N y - v U w
71 7 69 70 sylancr x y X r + z w X x abs z < T y C w < T N y - v U w
72 66 71 remulcld x y X r + z w X x abs z < T y C w < T z N y - v U w
73 55 61 remulcld x y X r + z w X x abs z < T y C w < T N y T
74 peano2re x x + 1
75 56 74 syl x y X r + z w X x abs z < T y C w < T x + 1
76 75 61 remulcld x y X r + z w X x abs z < T y C w < T x + 1 T
77 7 35 18 sylancr x y X r + z w X x abs z < T y C w < T 0 N y
78 34 38 abssubd x y X r + z w X x abs z < T y C w < T x z = z x
79 38 34 subcld x y X r + z w X x abs z < T y C w < T z x
80 79 abscld x y X r + z w X x abs z < T y C w < T z x
81 eqid abs = abs
82 81 cnmetdval x z x abs z = x z
83 34 38 82 syl2anc x y X r + z w X x abs z < T y C w < T x abs z = x z
84 83 78 eqtrd x y X r + z w X x abs z < T y C w < T x abs z = z x
85 simprrl x y X r + z w X x abs z < T y C w < T x abs z < T
86 84 85 eqbrtrrd x y X r + z w X x abs z < T y C w < T z x < T
87 80 61 86 ltled x y X r + z w X x abs z < T y C w < T z x T
88 78 87 eqbrtrd x y X r + z w X x abs z < T y C w < T x z T
89 64 61 55 77 88 lemul1ad x y X r + z w X x abs z < T y C w < T x z N y T N y
90 60 rpcnd x y X r + z w X x abs z < T y C w < T T
91 55 recnd x y X r + z w X x abs z < T y C w < T N y
92 90 91 mulcomd x y X r + z w X x abs z < T y C w < T T N y = N y T
93 89 92 breqtrd x y X r + z w X x abs z < T y C w < T x z N y N y T
94 38 absge0d x y X r + z w X x abs z < T y C w < T 0 z
95 5 6 nvge0 U NrmCVec y - v U w X 0 N y - v U w
96 7 69 95 sylancr x y X r + z w X x abs z < T y C w < T 0 N y - v U w
97 56 80 readdcld x y X r + z w X x abs z < T y C w < T x + z x
98 34 38 pncan3d x y X r + z w X x abs z < T y C w < T x + z - x = z
99 98 fveq2d x y X r + z w X x abs z < T y C w < T x + z - x = z
100 34 79 abstrid x y X r + z w X x abs z < T y C w < T x + z - x x + z x
101 99 100 eqbrtrrd x y X r + z w X x abs z < T y C w < T z x + z x
102 1red x y X r + z w X x abs z < T y C w < T 1
103 1re 1
104 25 adantr x y X r + z w X x abs z < T y C w < T N y + x + 1 r +
105 ltaddrp 1 N y + x + 1 r + 1 < 1 + N y + x + 1 r
106 103 104 105 sylancr x y X r + z w X x abs z < T y C w < T 1 < 1 + N y + x + 1 r
107 27 adantr x y X r + z w X x abs z < T y C w < T 1 + N y + x + 1 r +
108 107 recgt1d x y X r + z w X x abs z < T y C w < T 1 < 1 + N y + x + 1 r 1 1 + N y + x + 1 r < 1
109 106 108 mpbid x y X r + z w X x abs z < T y C w < T 1 1 + N y + x + 1 r < 1
110 8 109 eqbrtrid x y X r + z w X x abs z < T y C w < T T < 1
111 61 102 110 ltled x y X r + z w X x abs z < T y C w < T T 1
112 80 61 102 87 111 letrd x y X r + z w X x abs z < T y C w < T z x 1
113 80 102 56 112 leadd2dd x y X r + z w X x abs z < T y C w < T x + z x x + 1
114 66 97 75 101 113 letrd x y X r + z w X x abs z < T y C w < T z x + 1
115 5 67 6 1 imsdval U NrmCVec y X w X y C w = N y - v U w
116 33 35 39 115 syl3anc x y X r + z w X x abs z < T y C w < T y C w = N y - v U w
117 simprrr x y X r + z w X x abs z < T y C w < T y C w < T
118 116 117 eqbrtrrd x y X r + z w X x abs z < T y C w < T N y - v U w < T
119 71 61 118 ltled x y X r + z w X x abs z < T y C w < T N y - v U w T
120 66 75 71 61 94 96 114 119 lemul12ad x y X r + z w X x abs z < T y C w < T z N y - v U w x + 1 T
121 65 72 73 76 93 120 le2addd x y X r + z w X x abs z < T y C w < T x z N y + z N y - v U w N y T + x + 1 T
122 eqid + v U = + v U
123 5 122 3 6 1 imsdval2 U NrmCVec x S y X z S y X x S y C z S y = N x S y + v U -1 S z S y
124 33 37 45 123 syl3anc x y X r + z w X x abs z < T y C w < T x S y C z S y = N x S y + v U -1 S z S y
125 neg1cn 1
126 mulcl 1 z -1 z
127 125 38 126 sylancr x y X r + z w X x abs z < T y C w < T -1 z
128 5 122 3 nvdir U NrmCVec x -1 z y X x + -1 z S y = x S y + v U -1 z S y
129 33 34 127 35 128 syl13anc x y X r + z w X x abs z < T y C w < T x + -1 z S y = x S y + v U -1 z S y
130 38 mulm1d x y X r + z w X x abs z < T y C w < T -1 z = z
131 130 oveq2d x y X r + z w X x abs z < T y C w < T x + -1 z = x + z
132 34 38 negsubd x y X r + z w X x abs z < T y C w < T x + z = x z
133 131 132 eqtrd x y X r + z w X x abs z < T y C w < T x + -1 z = x z
134 133 oveq1d x y X r + z w X x abs z < T y C w < T x + -1 z S y = x z S y
135 125 a1i x y X r + z w X x abs z < T y C w < T 1
136 5 3 nvsass U NrmCVec 1 z y X -1 z S y = -1 S z S y
137 33 135 38 35 136 syl13anc x y X r + z w X x abs z < T y C w < T -1 z S y = -1 S z S y
138 137 oveq2d x y X r + z w X x abs z < T y C w < T x S y + v U -1 z S y = x S y + v U -1 S z S y
139 129 134 138 3eqtr3d x y X r + z w X x abs z < T y C w < T x z S y = x S y + v U -1 S z S y
140 139 fveq2d x y X r + z w X x abs z < T y C w < T N x z S y = N x S y + v U -1 S z S y
141 5 3 6 nvs U NrmCVec x z y X N x z S y = x z N y
142 33 63 35 141 syl3anc x y X r + z w X x abs z < T y C w < T N x z S y = x z N y
143 124 140 142 3eqtr2d x y X r + z w X x abs z < T y C w < T x S y C z S y = x z N y
144 5 67 6 1 imsdval U NrmCVec z S y X z S w X z S y C z S w = N z S y - v U z S w
145 33 45 41 144 syl3anc x y X r + z w X x abs z < T y C w < T z S y C z S w = N z S y - v U z S w
146 5 67 3 nvmdi U NrmCVec z y X w X z S y - v U w = z S y - v U z S w
147 33 38 35 39 146 syl13anc x y X r + z w X x abs z < T y C w < T z S y - v U w = z S y - v U z S w
148 147 fveq2d x y X r + z w X x abs z < T y C w < T N z S y - v U w = N z S y - v U z S w
149 5 3 6 nvs U NrmCVec z y - v U w X N z S y - v U w = z N y - v U w
150 33 38 69 149 syl3anc x y X r + z w X x abs z < T y C w < T N z S y - v U w = z N y - v U w
151 145 148 150 3eqtr2d x y X r + z w X x abs z < T y C w < T z S y C z S w = z N y - v U w
152 143 151 oveq12d x y X r + z w X x abs z < T y C w < T x S y C z S y + z S y C z S w = x z N y + z N y - v U w
153 56 recnd x y X r + z w X x abs z < T y C w < T x
154 1cnd x y X r + z w X x abs z < T y C w < T 1
155 91 153 154 addassd x y X r + z w X x abs z < T y C w < T N y + x + 1 = N y + x + 1
156 155 oveq1d x y X r + z w X x abs z < T y C w < T N y + x + 1 T = N y + x + 1 T
157 75 recnd x y X r + z w X x abs z < T y C w < T x + 1
158 91 157 90 adddird x y X r + z w X x abs z < T y C w < T N y + x + 1 T = N y T + x + 1 T
159 156 158 eqtrd x y X r + z w X x abs z < T y C w < T N y + x + 1 T = N y T + x + 1 T
160 121 152 159 3brtr4d x y X r + z w X x abs z < T y C w < T x S y C z S y + z S y C z S w N y + x + 1 T
161 8 oveq2i N y + x + 1 T = N y + x + 1 1 1 + N y + x + 1 r
162 59 recnd x y X r + z w X x abs z < T y C w < T N y + x + 1
163 107 rpcnd x y X r + z w X x abs z < T y C w < T 1 + N y + x + 1 r
164 107 rpne0d x y X r + z w X x abs z < T y C w < T 1 + N y + x + 1 r 0
165 162 163 164 divrecd x y X r + z w X x abs z < T y C w < T N y + x + 1 1 + N y + x + 1 r = N y + x + 1 1 1 + N y + x + 1 r
166 161 165 eqtr4id x y X r + z w X x abs z < T y C w < T N y + x + 1 T = N y + x + 1 1 + N y + x + 1 r
167 simplr x y X r + z w X x abs z < T y C w < T r +
168 104 rpred x y X r + z w X x abs z < T y C w < T N y + x + 1 r
169 168 ltp1d x y X r + z w X x abs z < T y C w < T N y + x + 1 r < N y + x + 1 r + 1
170 104 rpcnd x y X r + z w X x abs z < T y C w < T N y + x + 1 r
171 170 154 addcomd x y X r + z w X x abs z < T y C w < T N y + x + 1 r + 1 = 1 + N y + x + 1 r
172 169 171 breqtrd x y X r + z w X x abs z < T y C w < T N y + x + 1 r < 1 + N y + x + 1 r
173 59 167 107 172 ltdiv23d x y X r + z w X x abs z < T y C w < T N y + x + 1 1 + N y + x + 1 r < r
174 166 173 eqbrtrd x y X r + z w X x abs z < T y C w < T N y + x + 1 T < r
175 50 62 52 160 174 lelttrd x y X r + z w X x abs z < T y C w < T x S y C z S y + z S y C z S w < r
176 43 50 52 54 175 lelttrd x y X r + z w X x abs z < T y C w < T x S y C z S w < r
177 176 expr x y X r + z w X x abs z < T y C w < T x S y C z S w < r
178 177 ralrimivva x y X r + z w X x abs z < T y C w < T x S y C z S w < r
179 breq2 s = T x abs z < s x abs z < T
180 breq2 s = T y C w < s y C w < T
181 179 180 anbi12d s = T x abs z < s y C w < s x abs z < T y C w < T
182 181 imbi1d s = T x abs z < s y C w < s x S y C z S w < r x abs z < T y C w < T x S y C z S w < r
183 182 2ralbidv s = T z w X x abs z < s y C w < s x S y C z S w < r z w X x abs z < T y C w < T x S y C z S w < r
184 183 rspcev T + z w X x abs z < T y C w < T x S y C z S w < r s + z w X x abs z < s y C w < s x S y C z S w < r
185 29 178 184 syl2anc x y X r + s + z w X x abs z < s y C w < s x S y C z S w < r
186 185 ralrimiva x y X r + s + z w X x abs z < s y C w < s x S y C z S w < r
187 186 rgen2 x y X r + s + z w X x abs z < s y C w < s x S y C z S w < r
188 cnxmet abs ∞Met
189 5 1 imsxmet U NrmCVec C ∞Met X
190 7 189 ax-mp C ∞Met X
191 4 cnfldtopn K = MetOpen abs
192 191 2 2 txmetcn abs ∞Met C ∞Met X C ∞Met X S K × t J Cn J S : × X X x y X r + s + z w X x abs z < s y C w < s x S y C z S w < r
193 188 190 190 192 mp3an S K × t J Cn J S : × X X x y X r + s + z w X x abs z < s y C w < s x S y C z S w < r
194 10 187 193 mpbir2an S K × t J Cn J