Metamath Proof Explorer


Theorem nthrucw

Description: Some number sets form a chain of proper subsets. This is rephrasing nthruc as a statement about chains; the hypothesis sets the ordering relation to be "is a proper subset". The theorem talks about singleton 1, natural numbers, natural-or-zero numbers, integers, rational numbers, algebraic reals (the definition includes complex numbers as algebraic so intersection is taken), real numbers and complex numbers, which are proper subsets in order. (Contributed by Ender Ting, 29-Jan-2026)

Ref Expression
Hypothesis nthrucw.1 < ˙ = x y | x y
Assertion nthrucw ⟨“ 1 0 𝔸 ”⟩ Chain V < ˙

Proof

Step Hyp Ref Expression
1 nthrucw.1 < ˙ = x y | x y
2 df-s8 ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ++ ⟨“ ”⟩
3 cnex V
4 3 a1i V
5 df-s7 ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ++ ⟨“ ”⟩
6 reex V
7 6 a1i V
8 df-s6 ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 ”⟩ ++ ⟨“ 𝔸 ”⟩
9 6 inex2 𝔸 V
10 9 a1i 𝔸 V
11 df-s5 ⟨“ 1 0 ”⟩ = ⟨“ 1 0 ”⟩ ++ ⟨“ ”⟩
12 qex V
13 12 a1i V
14 df-s4 ⟨“ 1 0 ”⟩ = ⟨“ 1 0 ”⟩ ++ ⟨“ ”⟩
15 zex V
16 15 a1i V
17 df-s3 ⟨“ 1 0 ”⟩ = ⟨“ 1 ”⟩ ++ ⟨“ 0 ”⟩
18 nn0ex 0 V
19 18 a1i 0 V
20 df-s2 ⟨“ 1 ”⟩ = ⟨“ 1 ”⟩ ++ ⟨“ ”⟩
21 nnex V
22 21 a1i V
23 snex 1 V
24 23 a1i 1 V
25 24 s1chn ⟨“ 1 ”⟩ Chain V < ˙
26 lsws1 1 V lastS ⟨“ 1 ”⟩ = 1
27 23 26 ax-mp lastS ⟨“ 1 ”⟩ = 1
28 1nn 1
29 1ex 1 V
30 29 snss 1 1
31 28 30 mpbi 1
32 2nn 2
33 1re 1
34 1lt2 1 < 2
35 ltne 1 1 < 2 2 1
36 33 34 35 mp2an 2 1
37 nelsn 2 1 ¬ 2 1
38 36 37 ax-mp ¬ 2 1
39 32 38 pm3.2i 2 ¬ 2 1
40 ssnelpss 1 2 ¬ 2 1 1
41 31 39 40 mp2 1
42 psseq1 x = 1 x y 1 y
43 psseq2 y = 1 y 1
44 42 43 1 brabg 1 V V 1 < ˙ 1
45 23 21 44 mp2an 1 < ˙ 1
46 41 45 mpbir 1 < ˙
47 27 46 eqbrtri lastS ⟨“ 1 ”⟩ < ˙
48 47 a1i lastS ⟨“ 1 ”⟩ < ˙
49 48 olcd ⟨“ 1 ”⟩ = lastS ⟨“ 1 ”⟩ < ˙
50 22 25 49 chnccats1 ⟨“ 1 ”⟩ ++ ⟨“ ”⟩ Chain V < ˙
51 20 50 eqeltrid ⟨“ 1 ”⟩ Chain V < ˙
52 lsws2 V lastS ⟨“ 1 ”⟩ =
53 21 52 ax-mp lastS ⟨“ 1 ”⟩ =
54 nthruz 0 0
55 54 simpli 0
56 psseq1 x = x y y
57 psseq2 y = 0 y 0
58 56 57 1 brabg V 0 V < ˙ 0 0
59 21 18 58 mp2an < ˙ 0 0
60 55 59 mpbir < ˙ 0
61 53 60 eqbrtri lastS ⟨“ 1 ”⟩ < ˙ 0
62 61 a1i lastS ⟨“ 1 ”⟩ < ˙ 0
63 62 olcd ⟨“ 1 ”⟩ = lastS ⟨“ 1 ”⟩ < ˙ 0
64 19 51 63 chnccats1 ⟨“ 1 ”⟩ ++ ⟨“ 0 ”⟩ Chain V < ˙
65 17 64 eqeltrid ⟨“ 1 0 ”⟩ Chain V < ˙
66 lsws3 0 V lastS ⟨“ 1 0 ”⟩ = 0
67 18 66 ax-mp lastS ⟨“ 1 0 ”⟩ = 0
68 54 simpri 0
69 psseq1 x = 0 x y 0 y
70 psseq2 y = 0 y 0
71 69 70 1 brabg 0 V V 0 < ˙ 0
72 18 15 71 mp2an 0 < ˙ 0
73 68 72 mpbir 0 < ˙
74 67 73 eqbrtri lastS ⟨“ 1 0 ”⟩ < ˙
75 74 a1i lastS ⟨“ 1 0 ”⟩ < ˙
76 75 olcd ⟨“ 1 0 ”⟩ = lastS ⟨“ 1 0 ”⟩ < ˙
77 16 65 76 chnccats1 ⟨“ 1 0 ”⟩ ++ ⟨“ ”⟩ Chain V < ˙
78 14 77 eqeltrid ⟨“ 1 0 ”⟩ Chain V < ˙
79 lsws4 V lastS ⟨“ 1 0 ”⟩ =
80 15 79 ax-mp lastS ⟨“ 1 0 ”⟩ =
81 nthruc
82 81 simpli
83 82 simpri
84 psseq1 x = x y y
85 psseq2 y = y
86 84 85 1 brabg V V < ˙
87 15 12 86 mp2an < ˙
88 83 87 mpbir < ˙
89 80 88 eqbrtri lastS ⟨“ 1 0 ”⟩ < ˙
90 89 a1i lastS ⟨“ 1 0 ”⟩ < ˙
91 90 olcd ⟨“ 1 0 ”⟩ = lastS ⟨“ 1 0 ”⟩ < ˙
92 13 78 91 chnccats1 ⟨“ 1 0 ”⟩ ++ ⟨“ ”⟩ Chain V < ˙
93 11 92 eqeltrid ⟨“ 1 0 ”⟩ Chain V < ˙
94 s5cli ⟨“ 1 0 ”⟩ Word V
95 lsw ⟨“ 1 0 ”⟩ Word V lastS ⟨“ 1 0 ”⟩ = ⟨“ 1 0 ”⟩ ⟨“ 1 0 ”⟩ 1
96 94 95 ax-mp lastS ⟨“ 1 0 ”⟩ = ⟨“ 1 0 ”⟩ ⟨“ 1 0 ”⟩ 1
97 s5len ⟨“ 1 0 ”⟩ = 5
98 97 oveq1i ⟨“ 1 0 ”⟩ 1 = 5 1
99 5m1e4 5 1 = 4
100 98 99 eqtri ⟨“ 1 0 ”⟩ 1 = 4
101 100 fveq2i ⟨“ 1 0 ”⟩ ⟨“ 1 0 ”⟩ 1 = ⟨“ 1 0 ”⟩ 4
102 96 101 eqtri lastS ⟨“ 1 0 ”⟩ = ⟨“ 1 0 ”⟩ 4
103 s4cli ⟨“ 1 0 ”⟩ Word V
104 s4len ⟨“ 1 0 ”⟩ = 4
105 11 103 104 cats1fvn V ⟨“ 1 0 ”⟩ 4 =
106 12 105 ax-mp ⟨“ 1 0 ”⟩ 4 =
107 102 106 eqtri lastS ⟨“ 1 0 ”⟩ =
108 qssaa 𝔸
109 qssre
110 108 109 ssini 𝔸
111 2cn 2
112 sqrtcl 2 2
113 111 112 ax-mp 2
114 zsscn
115 1z 1
116 2nn0 2 0
117 plypow 1 2 0 x x 2 Poly
118 114 115 116 117 mp3an x x 2 Poly
119 118 a1i x x 2 Poly
120 2z 2
121 114 120 pm3.2i 2
122 plyconst 2 × 2 Poly
123 121 122 mp1i × 2 Poly
124 zaddcl a b a + b
125 124 adantl a b a + b
126 zmulcl a b a b
127 126 adantl a b a b
128 neg1z 1
129 128 a1i 1
130 119 123 125 127 129 plysub x x 2 f × 2 Poly
131 130 mptru x x 2 f × 2 Poly
132 0cn 0
133 ovex x 2 V
134 133 rgenw x x 2 V
135 nfcv _ x
136 135 mptfnf x x 2 V x x 2 Fn
137 134 136 mpbi x x 2 Fn
138 2ex 2 V
139 fconstmpt × 2 = a 2
140 138 139 fnmpti × 2 Fn
141 fnfvof x x 2 Fn × 2 Fn V 0 x x 2 f × 2 0 = x x 2 0 × 2 0
142 137 140 141 mpanl12 V 0 x x 2 f × 2 0 = x x 2 0 × 2 0
143 3 132 142 mp2an x x 2 f × 2 0 = x x 2 0 × 2 0
144 oveq1 x = 0 x 2 = 0 2
145 eqid x x 2 = x x 2
146 ovex 0 2 V
147 144 145 146 fvmpt 0 x x 2 0 = 0 2
148 132 147 ax-mp x x 2 0 = 0 2
149 sq0 0 2 = 0
150 148 149 eqtri x x 2 0 = 0
151 138 fvconst2 0 × 2 0 = 2
152 132 151 ax-mp × 2 0 = 2
153 150 152 oveq12i x x 2 0 × 2 0 = 0 2
154 143 153 eqtri x x 2 f × 2 0 = 0 2
155 df-neg 2 = 0 2
156 154 155 eqtr4i x x 2 f × 2 0 = 2
157 2re 2
158 157 renegcli 2
159 2pos 0 < 2
160 lt0neg2 2 0 < 2 2 < 0
161 157 160 ax-mp 0 < 2 2 < 0
162 159 161 mpbi 2 < 0
163 ltne 2 2 < 0 0 2
164 158 162 163 mp2an 0 2
165 164 necomi 2 0
166 156 165 eqnetri x x 2 f × 2 0 0
167 132 166 pm3.2i 0 x x 2 f × 2 0 0
168 ne0p 0 x x 2 f × 2 0 0 x x 2 f × 2 0 𝑝
169 nelsn x x 2 f × 2 0 𝑝 ¬ x x 2 f × 2 0 𝑝
170 167 168 169 mp2b ¬ x x 2 f × 2 0 𝑝
171 131 170 pm3.2i x x 2 f × 2 Poly ¬ x x 2 f × 2 0 𝑝
172 eldif x x 2 f × 2 Poly 0 𝑝 x x 2 f × 2 Poly ¬ x x 2 f × 2 0 𝑝
173 171 172 mpbir x x 2 f × 2 Poly 0 𝑝
174 fconstmpt × 2 = b 2
175 138 174 fnmpti × 2 Fn
176 fnfvof x x 2 Fn × 2 Fn V 2 x x 2 f × 2 2 = x x 2 2 × 2 2
177 137 175 176 mpanl12 V 2 x x 2 f × 2 2 = x x 2 2 × 2 2
178 3 113 177 mp2an x x 2 f × 2 2 = x x 2 2 × 2 2
179 oveq1 x = 2 x 2 = 2 2
180 ovex 2 2 V
181 179 145 180 fvmpt 2 x x 2 2 = 2 2
182 113 181 ax-mp x x 2 2 = 2 2
183 sqrtth 2 2 2 = 2
184 111 183 ax-mp 2 2 = 2
185 182 184 eqtri x x 2 2 = 2
186 138 fvconst2 2 × 2 2 = 2
187 113 186 ax-mp × 2 2 = 2
188 185 187 oveq12i x x 2 2 × 2 2 = 2 2
189 178 188 eqtri x x 2 f × 2 2 = 2 2
190 subid 2 2 2 = 0
191 111 190 ax-mp 2 2 = 0
192 189 191 eqtri x x 2 f × 2 2 = 0
193 fveq1 a = x x 2 f × 2 a 2 = x x 2 f × 2 2
194 193 eqeq1d a = x x 2 f × 2 a 2 = 0 x x 2 f × 2 2 = 0
195 194 rspcev x x 2 f × 2 Poly 0 𝑝 x x 2 f × 2 2 = 0 a Poly 0 𝑝 a 2 = 0
196 fveq1 a = x a 2 = x 2
197 196 eqeq1d a = x a 2 = 0 x 2 = 0
198 197 cbvrexvw a Poly 0 𝑝 a 2 = 0 x Poly 0 𝑝 x 2 = 0
199 195 198 sylib x x 2 f × 2 Poly 0 𝑝 x x 2 f × 2 2 = 0 x Poly 0 𝑝 x 2 = 0
200 173 192 199 mp2an x Poly 0 𝑝 x 2 = 0
201 113 200 pm3.2i 2 x Poly 0 𝑝 x 2 = 0
202 elaa 2 𝔸 2 x Poly 0 𝑝 x 2 = 0
203 201 202 mpbir 2 𝔸
204 sqrt2re 2
205 203 204 elini 2 𝔸
206 sqrt2irr 2
207 df-nel 2 ¬ 2
208 206 207 mpbi ¬ 2
209 205 208 pm3.2i 2 𝔸 ¬ 2
210 ssnelpss 𝔸 2 𝔸 ¬ 2 𝔸
211 110 209 210 mp2 𝔸
212 psseq1 x = x y y
213 psseq2 y = 𝔸 y 𝔸
214 212 213 1 brabg V 𝔸 V < ˙ 𝔸 𝔸
215 12 9 214 mp2an < ˙ 𝔸 𝔸
216 211 215 mpbir < ˙ 𝔸
217 107 216 eqbrtri lastS ⟨“ 1 0 ”⟩ < ˙ 𝔸
218 217 a1i lastS ⟨“ 1 0 ”⟩ < ˙ 𝔸
219 218 olcd ⟨“ 1 0 ”⟩ = lastS ⟨“ 1 0 ”⟩ < ˙ 𝔸
220 10 93 219 chnccats1 ⟨“ 1 0 ”⟩ ++ ⟨“ 𝔸 ”⟩ Chain V < ˙
221 8 220 eqeltrid ⟨“ 1 0 𝔸 ”⟩ Chain V < ˙
222 s6cli ⟨“ 1 0 𝔸 ”⟩ Word V
223 lsw ⟨“ 1 0 𝔸 ”⟩ Word V lastS ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1
224 222 223 ax-mp lastS ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1
225 s6len ⟨“ 1 0 𝔸 ”⟩ = 6
226 225 oveq1i ⟨“ 1 0 𝔸 ”⟩ 1 = 6 1
227 6m1e5 6 1 = 5
228 226 227 eqtri ⟨“ 1 0 𝔸 ”⟩ 1 = 5
229 228 fveq2i ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1 = ⟨“ 1 0 𝔸 ”⟩ 5
230 224 229 eqtri lastS ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ 5
231 8 94 97 cats1fvn 𝔸 V ⟨“ 1 0 𝔸 ”⟩ 5 = 𝔸
232 9 231 ax-mp ⟨“ 1 0 𝔸 ”⟩ 5 = 𝔸
233 230 232 eqtri lastS ⟨“ 1 0 𝔸 ”⟩ = 𝔸
234 inss2 𝔸
235 nnuz = 1
236 1zzd 1
237 id k k
238 ovexd k 2 k ! V
239 id a = k a = k
240 239 fveq2d a = k a ! = k !
241 240 negeqd a = k a ! = k !
242 241 oveq2d a = k 2 a ! = 2 k !
243 eqid a 2 a ! = a 2 a !
244 242 243 fvmptg k 2 k ! V a 2 a ! k = 2 k !
245 237 238 244 syl2anc k a 2 a ! k = 2 k !
246 245 adantl k a 2 a ! k = 2 k !
247 157 a1i k 2
248 2ne0 2 0
249 248 a1i k 2 0
250 nnnn0 k k 0
251 250 faccld k k !
252 nnz k ! k !
253 znegcl k ! k !
254 251 252 253 3syl k k !
255 247 249 254 reexpclzd k 2 k !
256 255 adantl k 2 k !
257 eqid n 1 2 1 ! 1 2 n 1 = n 1 2 1 ! 1 2 n 1
258 257 243 aaliou3lem3 1 seq 1 + a 2 a ! dom b 1 a 2 a ! b + b 1 a 2 a ! b 2 2 1 !
259 258 simp1d 1 seq 1 + a 2 a ! dom
260 28 259 mp1i seq 1 + a 2 a ! dom
261 235 236 246 256 260 isumrecl k 2 k !
262 261 mptru k 2 k !
263 aaliou3 k 2 k ! 𝔸
264 df-nel k 2 k ! 𝔸 ¬ k 2 k ! 𝔸
265 263 264 mpbi ¬ k 2 k ! 𝔸
266 elinel1 k 2 k ! 𝔸 k 2 k ! 𝔸
267 265 266 mto ¬ k 2 k ! 𝔸
268 262 267 pm3.2i k 2 k ! ¬ k 2 k ! 𝔸
269 ssnelpss 𝔸 k 2 k ! ¬ k 2 k ! 𝔸 𝔸
270 234 268 269 mp2 𝔸
271 psseq1 x = 𝔸 x y 𝔸 y
272 psseq2 y = 𝔸 y 𝔸
273 271 272 1 brabg 𝔸 V V 𝔸 < ˙ 𝔸
274 9 6 273 mp2an 𝔸 < ˙ 𝔸
275 270 274 mpbir 𝔸 < ˙
276 233 275 eqbrtri lastS ⟨“ 1 0 𝔸 ”⟩ < ˙
277 276 a1i lastS ⟨“ 1 0 𝔸 ”⟩ < ˙
278 277 olcd ⟨“ 1 0 𝔸 ”⟩ = lastS ⟨“ 1 0 𝔸 ”⟩ < ˙
279 7 221 278 chnccats1 ⟨“ 1 0 𝔸 ”⟩ ++ ⟨“ ”⟩ Chain V < ˙
280 5 279 eqeltrid ⟨“ 1 0 𝔸 ”⟩ Chain V < ˙
281 s7cli ⟨“ 1 0 𝔸 ”⟩ Word V
282 lsw ⟨“ 1 0 𝔸 ”⟩ Word V lastS ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1
283 281 282 ax-mp lastS ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1
284 s7len ⟨“ 1 0 𝔸 ”⟩ = 7
285 284 oveq1i ⟨“ 1 0 𝔸 ”⟩ 1 = 7 1
286 7m1e6 7 1 = 6
287 285 286 eqtri ⟨“ 1 0 𝔸 ”⟩ 1 = 6
288 287 fveq2i ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1 = ⟨“ 1 0 𝔸 ”⟩ 6
289 5 222 225 cats1fvn V ⟨“ 1 0 𝔸 ”⟩ 6 =
290 6 289 ax-mp ⟨“ 1 0 𝔸 ”⟩ 6 =
291 288 290 eqtri ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1 =
292 283 291 eqtri lastS ⟨“ 1 0 𝔸 ”⟩ =
293 81 simpri
294 293 simpri
295 psseq1 x = x y y
296 psseq2 y = y
297 295 296 1 brabg V V < ˙
298 6 3 297 mp2an < ˙
299 294 298 mpbir < ˙
300 292 299 eqbrtri lastS ⟨“ 1 0 𝔸 ”⟩ < ˙
301 300 a1i lastS ⟨“ 1 0 𝔸 ”⟩ < ˙
302 301 olcd ⟨“ 1 0 𝔸 ”⟩ = lastS ⟨“ 1 0 𝔸 ”⟩ < ˙
303 4 280 302 chnccats1 ⟨“ 1 0 𝔸 ”⟩ ++ ⟨“ ”⟩ Chain V < ˙
304 2 303 eqeltrid ⟨“ 1 0 𝔸 ”⟩ Chain V < ˙
305 304 mptru ⟨“ 1 0 𝔸 ”⟩ Chain V < ˙