Metamath Proof Explorer


Theorem numtowerdt

Description: Certain number sets and fields form a tower. In particular, singleton 1, natural numbers, natural numbers with zero, integers, rationals, algebraic reals (notice that current definition allows algebraic numbers to be complex thus the restriction), reals and complex number sets are a tower of proper subsets. (Contributed by Ender Ting, 31-Jul-2026)

Ref Expression
Assertion numtowerdt ⟨“ 1 0 𝔸 ”⟩ Chain V [⊂]

Proof

Step Hyp Ref Expression
1 df-s8 ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ++ ⟨“ ”⟩
2 cnex V
3 2 a1i V
4 df-s7 ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ++ ⟨“ ”⟩
5 reex V
6 5 a1i V
7 df-s6 ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 ”⟩ ++ ⟨“ 𝔸 ”⟩
8 5 inex2 𝔸 V
9 8 a1i 𝔸 V
10 df-s5 ⟨“ 1 0 ”⟩ = ⟨“ 1 0 ”⟩ ++ ⟨“ ”⟩
11 qex V
12 11 a1i V
13 df-s4 ⟨“ 1 0 ”⟩ = ⟨“ 1 0 ”⟩ ++ ⟨“ ”⟩
14 zex V
15 14 a1i V
16 df-s3 ⟨“ 1 0 ”⟩ = ⟨“ 1 ”⟩ ++ ⟨“ 0 ”⟩
17 nn0ex 0 V
18 17 a1i 0 V
19 df-s2 ⟨“ 1 ”⟩ = ⟨“ 1 ”⟩ ++ ⟨“ ”⟩
20 nnex V
21 20 a1i V
22 snex 1 V
23 22 a1i 1 V
24 23 s1chn ⟨“ 1 ”⟩ Chain V [⊂]
25 lsws1 1 V lastS ⟨“ 1 ”⟩ = 1
26 22 25 ax-mp lastS ⟨“ 1 ”⟩ = 1
27 1nn 1
28 1ex 1 V
29 28 snss 1 1
30 27 29 mpbi 1
31 2nn 2
32 1re 1
33 1lt2 1 < 2
34 32 33 gtneii 2 1
35 nelsn 2 1 ¬ 2 1
36 34 35 ax-mp ¬ 2 1
37 31 36 pm3.2i 2 ¬ 2 1
38 ssnelpss 1 2 ¬ 2 1 1
39 30 37 38 mp2 1
40 20 brrpss 1 [⊂] 1
41 39 40 mpbir 1 [⊂]
42 26 41 eqbrtri lastS ⟨“ 1 ”⟩ [⊂]
43 42 a1i lastS ⟨“ 1 ”⟩ [⊂]
44 43 olcd ⟨“ 1 ”⟩ = lastS ⟨“ 1 ”⟩ [⊂]
45 21 24 44 chnccats1 ⟨“ 1 ”⟩ ++ ⟨“ ”⟩ Chain V [⊂]
46 19 45 eqeltrid ⟨“ 1 ”⟩ Chain V [⊂]
47 lsws2 V lastS ⟨“ 1 ”⟩ =
48 20 47 ax-mp lastS ⟨“ 1 ”⟩ =
49 nthruz 0 0
50 49 simpli 0
51 17 brrpss [⊂] 0 0
52 50 51 mpbir [⊂] 0
53 48 52 eqbrtri lastS ⟨“ 1 ”⟩ [⊂] 0
54 53 a1i lastS ⟨“ 1 ”⟩ [⊂] 0
55 54 olcd ⟨“ 1 ”⟩ = lastS ⟨“ 1 ”⟩ [⊂] 0
56 18 46 55 chnccats1 ⟨“ 1 ”⟩ ++ ⟨“ 0 ”⟩ Chain V [⊂]
57 16 56 eqeltrid ⟨“ 1 0 ”⟩ Chain V [⊂]
58 lsws3 0 V lastS ⟨“ 1 0 ”⟩ = 0
59 17 58 ax-mp lastS ⟨“ 1 0 ”⟩ = 0
60 49 simpri 0
61 14 brrpss 0 [⊂] 0
62 60 61 mpbir 0 [⊂]
63 59 62 eqbrtri lastS ⟨“ 1 0 ”⟩ [⊂]
64 63 a1i lastS ⟨“ 1 0 ”⟩ [⊂]
65 64 olcd ⟨“ 1 0 ”⟩ = lastS ⟨“ 1 0 ”⟩ [⊂]
66 15 57 65 chnccats1 ⟨“ 1 0 ”⟩ ++ ⟨“ ”⟩ Chain V [⊂]
67 13 66 eqeltrid ⟨“ 1 0 ”⟩ Chain V [⊂]
68 lsws4 V lastS ⟨“ 1 0 ”⟩ =
69 14 68 ax-mp lastS ⟨“ 1 0 ”⟩ =
70 nthruc
71 70 simpli
72 71 simpri
73 11 brrpss [⊂]
74 72 73 mpbir [⊂]
75 69 74 eqbrtri lastS ⟨“ 1 0 ”⟩ [⊂]
76 75 a1i lastS ⟨“ 1 0 ”⟩ [⊂]
77 76 olcd ⟨“ 1 0 ”⟩ = lastS ⟨“ 1 0 ”⟩ [⊂]
78 12 67 77 chnccats1 ⟨“ 1 0 ”⟩ ++ ⟨“ ”⟩ Chain V [⊂]
79 10 78 eqeltrid ⟨“ 1 0 ”⟩ Chain V [⊂]
80 s5cli ⟨“ 1 0 ”⟩ Word V
81 lsw ⟨“ 1 0 ”⟩ Word V lastS ⟨“ 1 0 ”⟩ = ⟨“ 1 0 ”⟩ ⟨“ 1 0 ”⟩ 1
82 80 81 ax-mp lastS ⟨“ 1 0 ”⟩ = ⟨“ 1 0 ”⟩ ⟨“ 1 0 ”⟩ 1
83 s5len ⟨“ 1 0 ”⟩ = 5
84 83 oveq1i ⟨“ 1 0 ”⟩ 1 = 5 1
85 5m1e4 5 1 = 4
86 84 85 eqtri ⟨“ 1 0 ”⟩ 1 = 4
87 86 fveq2i ⟨“ 1 0 ”⟩ ⟨“ 1 0 ”⟩ 1 = ⟨“ 1 0 ”⟩ 4
88 s4cli ⟨“ 1 0 ”⟩ Word V
89 s4len ⟨“ 1 0 ”⟩ = 4
90 10 88 89 cats1fvn V ⟨“ 1 0 ”⟩ 4 =
91 11 90 ax-mp ⟨“ 1 0 ”⟩ 4 =
92 82 87 91 3eqtri lastS ⟨“ 1 0 ”⟩ =
93 qssaa 𝔸
94 qssre
95 93 94 ssini 𝔸
96 sqrtnnaa 2 2 𝔸
97 31 96 ax-mp 2 𝔸
98 sqrt2re 2
99 97 98 elini 2 𝔸
100 sqrt2irr 2
101 100 neli ¬ 2
102 99 101 pm3.2i 2 𝔸 ¬ 2
103 ssnelpss 𝔸 2 𝔸 ¬ 2 𝔸
104 95 102 103 mp2 𝔸
105 8 brrpss [⊂] 𝔸 𝔸
106 104 105 mpbir [⊂] 𝔸
107 92 106 eqbrtri lastS ⟨“ 1 0 ”⟩ [⊂] 𝔸
108 107 a1i lastS ⟨“ 1 0 ”⟩ [⊂] 𝔸
109 108 olcd ⟨“ 1 0 ”⟩ = lastS ⟨“ 1 0 ”⟩ [⊂] 𝔸
110 9 79 109 chnccats1 ⟨“ 1 0 ”⟩ ++ ⟨“ 𝔸 ”⟩ Chain V [⊂]
111 7 110 eqeltrid ⟨“ 1 0 𝔸 ”⟩ Chain V [⊂]
112 s6cli ⟨“ 1 0 𝔸 ”⟩ Word V
113 lsw ⟨“ 1 0 𝔸 ”⟩ Word V lastS ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1
114 112 113 ax-mp lastS ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1
115 s6len ⟨“ 1 0 𝔸 ”⟩ = 6
116 115 oveq1i ⟨“ 1 0 𝔸 ”⟩ 1 = 6 1
117 6m1e5 6 1 = 5
118 116 117 eqtri ⟨“ 1 0 𝔸 ”⟩ 1 = 5
119 118 fveq2i ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1 = ⟨“ 1 0 𝔸 ”⟩ 5
120 7 80 83 cats1fvn 𝔸 V ⟨“ 1 0 𝔸 ”⟩ 5 = 𝔸
121 8 120 ax-mp ⟨“ 1 0 𝔸 ”⟩ 5 = 𝔸
122 114 119 121 3eqtri lastS ⟨“ 1 0 𝔸 ”⟩ = 𝔸
123 inss2 𝔸
124 aaliou3r k 2 k !
125 aaliou3 k 2 k ! 𝔸
126 125 neli ¬ k 2 k ! 𝔸
127 elinel1 k 2 k ! 𝔸 k 2 k ! 𝔸
128 126 127 mto ¬ k 2 k ! 𝔸
129 124 128 pm3.2i k 2 k ! ¬ k 2 k ! 𝔸
130 ssnelpss 𝔸 k 2 k ! ¬ k 2 k ! 𝔸 𝔸
131 123 129 130 mp2 𝔸
132 5 brrpss 𝔸 [⊂] 𝔸
133 131 132 mpbir 𝔸 [⊂]
134 122 133 eqbrtri lastS ⟨“ 1 0 𝔸 ”⟩ [⊂]
135 134 a1i lastS ⟨“ 1 0 𝔸 ”⟩ [⊂]
136 135 olcd ⟨“ 1 0 𝔸 ”⟩ = lastS ⟨“ 1 0 𝔸 ”⟩ [⊂]
137 6 111 136 chnccats1 ⟨“ 1 0 𝔸 ”⟩ ++ ⟨“ ”⟩ Chain V [⊂]
138 4 137 eqeltrid ⟨“ 1 0 𝔸 ”⟩ Chain V [⊂]
139 s7cli ⟨“ 1 0 𝔸 ”⟩ Word V
140 lsw ⟨“ 1 0 𝔸 ”⟩ Word V lastS ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1
141 139 140 ax-mp lastS ⟨“ 1 0 𝔸 ”⟩ = ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1
142 s7len ⟨“ 1 0 𝔸 ”⟩ = 7
143 142 oveq1i ⟨“ 1 0 𝔸 ”⟩ 1 = 7 1
144 7m1e6 7 1 = 6
145 143 144 eqtri ⟨“ 1 0 𝔸 ”⟩ 1 = 6
146 145 fveq2i ⟨“ 1 0 𝔸 ”⟩ ⟨“ 1 0 𝔸 ”⟩ 1 = ⟨“ 1 0 𝔸 ”⟩ 6
147 4 112 115 cats1fvn V ⟨“ 1 0 𝔸 ”⟩ 6 =
148 5 147 ax-mp ⟨“ 1 0 𝔸 ”⟩ 6 =
149 141 146 148 3eqtri lastS ⟨“ 1 0 𝔸 ”⟩ =
150 70 simpri
151 150 simpri
152 2 brrpss [⊂]
153 151 152 mpbir [⊂]
154 149 153 eqbrtri lastS ⟨“ 1 0 𝔸 ”⟩ [⊂]
155 154 a1i lastS ⟨“ 1 0 𝔸 ”⟩ [⊂]
156 155 olcd ⟨“ 1 0 𝔸 ”⟩ = lastS ⟨“ 1 0 𝔸 ”⟩ [⊂]
157 3 138 156 chnccats1 ⟨“ 1 0 𝔸 ”⟩ ++ ⟨“ ”⟩ Chain V [⊂]
158 1 157 eqeltrid ⟨“ 1 0 𝔸 ”⟩ Chain V [⊂]
159 158 mptru ⟨“ 1 0 𝔸 ”⟩ Chain V [⊂]