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=IndMetU
smcn.j J=MetOpenC
smcn.s S=𝑠OLDU
smcn.k K=TopOpenfld
smcn.x X=BaseSetU
smcn.n N=normCVU
smcn.u UNrmCVec
smcn.t T=11+Ny+x+1r
Assertion smcnlem SK×tJCnJ

Proof

Step Hyp Ref Expression
1 smcn.c C=IndMetU
2 smcn.j J=MetOpenC
3 smcn.s S=𝑠OLDU
4 smcn.k K=TopOpenfld
5 smcn.x X=BaseSetU
6 smcn.n N=normCVU
7 smcn.u UNrmCVec
8 smcn.t T=11+Ny+x+1r
9 5 3 nvsf UNrmCVecS:×XX
10 7 9 ax-mp S:×XX
11 1rp 1+
12 simpr xyXyX
13 5 6 nvcl UNrmCVecyXNy
14 7 12 13 sylancr xyXNy
15 abscl xx
16 15 adantr xyXx
17 14 16 readdcld xyXNy+x
18 5 6 nvge0 UNrmCVecyX0Ny
19 7 12 18 sylancr xyX0Ny
20 absge0 x0x
21 20 adantr xyX0x
22 14 16 19 21 addge0d xyX0Ny+x
23 17 22 ge0p1rpd xyXNy+x+1+
24 rpdivcl Ny+x+1+r+Ny+x+1r+
25 23 24 sylan xyXr+Ny+x+1r+
26 rpaddcl 1+Ny+x+1r+1+Ny+x+1r+
27 11 25 26 sylancr xyXr+1+Ny+x+1r+
28 27 rpreccld xyXr+11+Ny+x+1r+
29 8 28 eqeltrid xyXr+T+
30 5 1 imsmet UNrmCVecCMetX
31 7 30 ax-mp CMetX
32 31 a1i xyXr+zwXxabsz<TyCw<TCMetX
33 7 a1i xyXr+zwXxabsz<TyCw<TUNrmCVec
34 simplll xyXr+zwXxabsz<TyCw<Tx
35 simpllr xyXr+zwXxabsz<TyCw<TyX
36 5 3 nvscl UNrmCVecxyXxSyX
37 33 34 35 36 syl3anc xyXr+zwXxabsz<TyCw<TxSyX
38 simprll xyXr+zwXxabsz<TyCw<Tz
39 simprlr xyXr+zwXxabsz<TyCw<TwX
40 5 3 nvscl UNrmCVeczwXzSwX
41 33 38 39 40 syl3anc xyXr+zwXxabsz<TyCw<TzSwX
42 metcl CMetXxSyXzSwXxSyCzSw
43 32 37 41 42 syl3anc xyXr+zwXxabsz<TyCw<TxSyCzSw
44 5 3 nvscl UNrmCVeczyXzSyX
45 33 38 35 44 syl3anc xyXr+zwXxabsz<TyCw<TzSyX
46 metcl CMetXxSyXzSyXxSyCzSy
47 32 37 45 46 syl3anc xyXr+zwXxabsz<TyCw<TxSyCzSy
48 metcl CMetXzSyXzSwXzSyCzSw
49 32 45 41 48 syl3anc xyXr+zwXxabsz<TyCw<TzSyCzSw
50 47 49 readdcld xyXr+zwXxabsz<TyCw<TxSyCzSy+zSyCzSw
51 rpre r+r
52 51 ad2antlr xyXr+zwXxabsz<TyCw<Tr
53 mettri CMetXxSyXzSwXzSyXxSyCzSwxSyCzSy+zSyCzSw
54 32 37 41 45 53 syl13anc xyXr+zwXxabsz<TyCw<TxSyCzSwxSyCzSy+zSyCzSw
55 7 35 13 sylancr xyXr+zwXxabsz<TyCw<TNy
56 34 abscld xyXr+zwXxabsz<TyCw<Tx
57 55 56 readdcld xyXr+zwXxabsz<TyCw<TNy+x
58 peano2re Ny+xNy+x+1
59 57 58 syl xyXr+zwXxabsz<TyCw<TNy+x+1
60 29 adantr xyXr+zwXxabsz<TyCw<TT+
61 60 rpred xyXr+zwXxabsz<TyCw<TT
62 59 61 remulcld xyXr+zwXxabsz<TyCw<TNy+x+1T
63 34 38 subcld xyXr+zwXxabsz<TyCw<Txz
64 63 abscld xyXr+zwXxabsz<TyCw<Txz
65 64 55 remulcld xyXr+zwXxabsz<TyCw<TxzNy
66 38 abscld xyXr+zwXxabsz<TyCw<Tz
67 eqid -vU=-vU
68 5 67 nvmcl UNrmCVecyXwXy-vUwX
69 33 35 39 68 syl3anc xyXr+zwXxabsz<TyCw<Ty-vUwX
70 5 6 nvcl UNrmCVecy-vUwXNy-vUw
71 7 69 70 sylancr xyXr+zwXxabsz<TyCw<TNy-vUw
72 66 71 remulcld xyXr+zwXxabsz<TyCw<TzNy-vUw
73 55 61 remulcld xyXr+zwXxabsz<TyCw<TNyT
74 peano2re xx+1
75 56 74 syl xyXr+zwXxabsz<TyCw<Tx+1
76 75 61 remulcld xyXr+zwXxabsz<TyCw<Tx+1T
77 7 35 18 sylancr xyXr+zwXxabsz<TyCw<T0Ny
78 34 38 abssubd xyXr+zwXxabsz<TyCw<Txz=zx
79 38 34 subcld xyXr+zwXxabsz<TyCw<Tzx
80 79 abscld xyXr+zwXxabsz<TyCw<Tzx
81 eqid abs=abs
82 81 cnmetdval xzxabsz=xz
83 34 38 82 syl2anc xyXr+zwXxabsz<TyCw<Txabsz=xz
84 83 78 eqtrd xyXr+zwXxabsz<TyCw<Txabsz=zx
85 simprrl xyXr+zwXxabsz<TyCw<Txabsz<T
86 84 85 eqbrtrrd xyXr+zwXxabsz<TyCw<Tzx<T
87 80 61 86 ltled xyXr+zwXxabsz<TyCw<TzxT
88 78 87 eqbrtrd xyXr+zwXxabsz<TyCw<TxzT
89 64 61 55 77 88 lemul1ad xyXr+zwXxabsz<TyCw<TxzNyTNy
90 60 rpcnd xyXr+zwXxabsz<TyCw<TT
91 55 recnd xyXr+zwXxabsz<TyCw<TNy
92 90 91 mulcomd xyXr+zwXxabsz<TyCw<TTNy=NyT
93 89 92 breqtrd xyXr+zwXxabsz<TyCw<TxzNyNyT
94 38 absge0d xyXr+zwXxabsz<TyCw<T0z
95 5 6 nvge0 UNrmCVecy-vUwX0Ny-vUw
96 7 69 95 sylancr xyXr+zwXxabsz<TyCw<T0Ny-vUw
97 56 80 readdcld xyXr+zwXxabsz<TyCw<Tx+zx
98 34 38 pncan3d xyXr+zwXxabsz<TyCw<Tx+z-x=z
99 98 fveq2d xyXr+zwXxabsz<TyCw<Tx+z-x=z
100 34 79 abstrid xyXr+zwXxabsz<TyCw<Tx+z-xx+zx
101 99 100 eqbrtrrd xyXr+zwXxabsz<TyCw<Tzx+zx
102 1red xyXr+zwXxabsz<TyCw<T1
103 1re 1
104 25 adantr xyXr+zwXxabsz<TyCw<TNy+x+1r+
105 ltaddrp 1Ny+x+1r+1<1+Ny+x+1r
106 103 104 105 sylancr xyXr+zwXxabsz<TyCw<T1<1+Ny+x+1r
107 27 adantr xyXr+zwXxabsz<TyCw<T1+Ny+x+1r+
108 107 recgt1d xyXr+zwXxabsz<TyCw<T1<1+Ny+x+1r11+Ny+x+1r<1
109 106 108 mpbid xyXr+zwXxabsz<TyCw<T11+Ny+x+1r<1
110 8 109 eqbrtrid xyXr+zwXxabsz<TyCw<TT<1
111 61 102 110 ltled xyXr+zwXxabsz<TyCw<TT1
112 80 61 102 87 111 letrd xyXr+zwXxabsz<TyCw<Tzx1
113 80 102 56 112 leadd2dd xyXr+zwXxabsz<TyCw<Tx+zxx+1
114 66 97 75 101 113 letrd xyXr+zwXxabsz<TyCw<Tzx+1
115 5 67 6 1 imsdval UNrmCVecyXwXyCw=Ny-vUw
116 33 35 39 115 syl3anc xyXr+zwXxabsz<TyCw<TyCw=Ny-vUw
117 simprrr xyXr+zwXxabsz<TyCw<TyCw<T
118 116 117 eqbrtrrd xyXr+zwXxabsz<TyCw<TNy-vUw<T
119 71 61 118 ltled xyXr+zwXxabsz<TyCw<TNy-vUwT
120 66 75 71 61 94 96 114 119 lemul12ad xyXr+zwXxabsz<TyCw<TzNy-vUwx+1T
121 65 72 73 76 93 120 le2addd xyXr+zwXxabsz<TyCw<TxzNy+zNy-vUwNyT+x+1T
122 eqid +vU=+vU
123 5 122 3 6 1 imsdval2 UNrmCVecxSyXzSyXxSyCzSy=NxSy+vU-1SzSy
124 33 37 45 123 syl3anc xyXr+zwXxabsz<TyCw<TxSyCzSy=NxSy+vU-1SzSy
125 neg1cn 1
126 mulcl 1z-1z
127 125 38 126 sylancr xyXr+zwXxabsz<TyCw<T-1z
128 5 122 3 nvdir UNrmCVecx-1zyXx+-1zSy=xSy+vU-1zSy
129 33 34 127 35 128 syl13anc xyXr+zwXxabsz<TyCw<Tx+-1zSy=xSy+vU-1zSy
130 38 mulm1d xyXr+zwXxabsz<TyCw<T-1z=z
131 130 oveq2d xyXr+zwXxabsz<TyCw<Tx+-1z=x+z
132 34 38 negsubd xyXr+zwXxabsz<TyCw<Tx+z=xz
133 131 132 eqtrd xyXr+zwXxabsz<TyCw<Tx+-1z=xz
134 133 oveq1d xyXr+zwXxabsz<TyCw<Tx+-1zSy=xzSy
135 125 a1i xyXr+zwXxabsz<TyCw<T1
136 5 3 nvsass UNrmCVec1zyX-1zSy=-1SzSy
137 33 135 38 35 136 syl13anc xyXr+zwXxabsz<TyCw<T-1zSy=-1SzSy
138 137 oveq2d xyXr+zwXxabsz<TyCw<TxSy+vU-1zSy=xSy+vU-1SzSy
139 129 134 138 3eqtr3d xyXr+zwXxabsz<TyCw<TxzSy=xSy+vU-1SzSy
140 139 fveq2d xyXr+zwXxabsz<TyCw<TNxzSy=NxSy+vU-1SzSy
141 5 3 6 nvs UNrmCVecxzyXNxzSy=xzNy
142 33 63 35 141 syl3anc xyXr+zwXxabsz<TyCw<TNxzSy=xzNy
143 124 140 142 3eqtr2d xyXr+zwXxabsz<TyCw<TxSyCzSy=xzNy
144 5 67 6 1 imsdval UNrmCVeczSyXzSwXzSyCzSw=NzSy-vUzSw
145 33 45 41 144 syl3anc xyXr+zwXxabsz<TyCw<TzSyCzSw=NzSy-vUzSw
146 5 67 3 nvmdi UNrmCVeczyXwXzSy-vUw=zSy-vUzSw
147 33 38 35 39 146 syl13anc xyXr+zwXxabsz<TyCw<TzSy-vUw=zSy-vUzSw
148 147 fveq2d xyXr+zwXxabsz<TyCw<TNzSy-vUw=NzSy-vUzSw
149 5 3 6 nvs UNrmCVeczy-vUwXNzSy-vUw=zNy-vUw
150 33 38 69 149 syl3anc xyXr+zwXxabsz<TyCw<TNzSy-vUw=zNy-vUw
151 145 148 150 3eqtr2d xyXr+zwXxabsz<TyCw<TzSyCzSw=zNy-vUw
152 143 151 oveq12d xyXr+zwXxabsz<TyCw<TxSyCzSy+zSyCzSw=xzNy+zNy-vUw
153 56 recnd xyXr+zwXxabsz<TyCw<Tx
154 1cnd xyXr+zwXxabsz<TyCw<T1
155 91 153 154 addassd xyXr+zwXxabsz<TyCw<TNy+x+1=Ny+x+1
156 155 oveq1d xyXr+zwXxabsz<TyCw<TNy+x+1T=Ny+x+1T
157 75 recnd xyXr+zwXxabsz<TyCw<Tx+1
158 91 157 90 adddird xyXr+zwXxabsz<TyCw<TNy+x+1T=NyT+x+1T
159 156 158 eqtrd xyXr+zwXxabsz<TyCw<TNy+x+1T=NyT+x+1T
160 121 152 159 3brtr4d xyXr+zwXxabsz<TyCw<TxSyCzSy+zSyCzSwNy+x+1T
161 8 oveq2i Ny+x+1T=Ny+x+111+Ny+x+1r
162 59 recnd xyXr+zwXxabsz<TyCw<TNy+x+1
163 107 rpcnd xyXr+zwXxabsz<TyCw<T1+Ny+x+1r
164 107 rpne0d xyXr+zwXxabsz<TyCw<T1+Ny+x+1r0
165 162 163 164 divrecd xyXr+zwXxabsz<TyCw<TNy+x+11+Ny+x+1r=Ny+x+111+Ny+x+1r
166 161 165 eqtr4id xyXr+zwXxabsz<TyCw<TNy+x+1T=Ny+x+11+Ny+x+1r
167 simplr xyXr+zwXxabsz<TyCw<Tr+
168 104 rpred xyXr+zwXxabsz<TyCw<TNy+x+1r
169 168 ltp1d xyXr+zwXxabsz<TyCw<TNy+x+1r<Ny+x+1r+1
170 104 rpcnd xyXr+zwXxabsz<TyCw<TNy+x+1r
171 170 154 addcomd xyXr+zwXxabsz<TyCw<TNy+x+1r+1=1+Ny+x+1r
172 169 171 breqtrd xyXr+zwXxabsz<TyCw<TNy+x+1r<1+Ny+x+1r
173 59 167 107 172 ltdiv23d xyXr+zwXxabsz<TyCw<TNy+x+11+Ny+x+1r<r
174 166 173 eqbrtrd xyXr+zwXxabsz<TyCw<TNy+x+1T<r
175 50 62 52 160 174 lelttrd xyXr+zwXxabsz<TyCw<TxSyCzSy+zSyCzSw<r
176 43 50 52 54 175 lelttrd xyXr+zwXxabsz<TyCw<TxSyCzSw<r
177 176 expr xyXr+zwXxabsz<TyCw<TxSyCzSw<r
178 177 ralrimivva xyXr+zwXxabsz<TyCw<TxSyCzSw<r
179 breq2 s=Txabsz<sxabsz<T
180 breq2 s=TyCw<syCw<T
181 179 180 anbi12d s=Txabsz<syCw<sxabsz<TyCw<T
182 181 imbi1d s=Txabsz<syCw<sxSyCzSw<rxabsz<TyCw<TxSyCzSw<r
183 182 2ralbidv s=TzwXxabsz<syCw<sxSyCzSw<rzwXxabsz<TyCw<TxSyCzSw<r
184 183 rspcev T+zwXxabsz<TyCw<TxSyCzSw<rs+zwXxabsz<syCw<sxSyCzSw<r
185 29 178 184 syl2anc xyXr+s+zwXxabsz<syCw<sxSyCzSw<r
186 185 ralrimiva xyXr+s+zwXxabsz<syCw<sxSyCzSw<r
187 186 rgen2 xyXr+s+zwXxabsz<syCw<sxSyCzSw<r
188 cnxmet abs∞Met
189 5 1 imsxmet UNrmCVecC∞MetX
190 7 189 ax-mp C∞MetX
191 4 cnfldtopn K=MetOpenabs
192 191 2 2 txmetcn abs∞MetC∞MetXC∞MetXSK×tJCnJS:×XXxyXr+s+zwXxabsz<syCw<sxSyCzSw<r
193 188 190 190 192 mp3an SK×tJCnJS:×XXxyXr+s+zwXxabsz<syCw<sxSyCzSw<r
194 10 187 193 mpbir2an SK×tJCnJ