Metamath Proof Explorer


Theorem padicabv

Description: The p-adic absolute value (with arbitrary base) is an absolute value. (Contributed by Mario Carneiro, 9-Sep-2014)

Ref Expression
Hypotheses qrng.q Q=fld𝑠
qabsabv.a A=AbsValQ
padic.f F=xifx=00NPpCntx
Assertion padicabv PN01FA

Proof

Step Hyp Ref Expression
1 qrng.q Q=fld𝑠
2 qabsabv.a A=AbsValQ
3 padic.f F=xifx=00NPpCntx
4 2 a1i PN01A=AbsValQ
5 1 qrngbas =BaseQ
6 5 a1i PN01=BaseQ
7 qex V
8 cnfldadd +=+fld
9 1 8 ressplusg V+=+Q
10 7 9 mp1i PN01+=+Q
11 cnfldmul ×=fld
12 1 11 ressmulr V×=Q
13 7 12 mp1i PN01×=Q
14 1 qrng0 0=0Q
15 14 a1i PN010=0Q
16 1 qdrng QDivRing
17 drngring QDivRingQRing
18 16 17 mp1i PN01QRing
19 0red PN01xx=00
20 ioossre 01
21 simpr PN01N01
22 20 21 sselid PN01N
23 22 ad2antrr PN01x¬x=0N
24 eliooord N010<NN<1
25 24 adantl PN010<NN<1
26 25 simpld PN010<N
27 22 26 elrpd PN01N+
28 27 rpne0d PN01N0
29 28 ad2antrr PN01x¬x=0N0
30 df-ne x0¬x=0
31 pcqcl Pxx0PpCntx
32 31 adantlr PN01xx0PpCntx
33 32 anassrs PN01xx0PpCntx
34 30 33 sylan2br PN01x¬x=0PpCntx
35 23 29 34 reexpclzd PN01x¬x=0NPpCntx
36 19 35 ifclda PN01xifx=00NPpCntx
37 36 3 fmptd PN01F:
38 0z 0
39 zq 00
40 38 39 ax-mp 0
41 iftrue x=0ifx=00NPpCntx=0
42 c0ex 0V
43 41 3 42 fvmpt 0F0=0
44 40 43 mp1i PN01F0=0
45 22 3ad2ant1 PN01yy0N
46 pcqcl Pyy0PpCnty
47 46 adantlr PN01yy0PpCnty
48 47 3impb PN01yy0PpCnty
49 26 3ad2ant1 PN01yy00<N
50 expgt0 NPpCnty0<N0<NPpCnty
51 45 48 49 50 syl3anc PN01yy00<NPpCnty
52 eqeq1 x=yx=0y=0
53 oveq2 x=yPpCntx=PpCnty
54 53 oveq2d x=yNPpCntx=NPpCnty
55 52 54 ifbieq2d x=yifx=00NPpCntx=ify=00NPpCnty
56 ovex NPpCntyV
57 42 56 ifex ify=00NPpCntyV
58 55 3 57 fvmpt yFy=ify=00NPpCnty
59 58 3ad2ant2 PN01yy0Fy=ify=00NPpCnty
60 simp3 PN01yy0y0
61 60 neneqd PN01yy0¬y=0
62 61 iffalsed PN01yy0ify=00NPpCnty=NPpCnty
63 59 62 eqtrd PN01yy0Fy=NPpCnty
64 51 63 breqtrrd PN01yy00<Fy
65 pcqmul Pyy0zz0PpCntyz=PpCnty+PpCntz
66 65 3adant1r PN01yy0zz0PpCntyz=PpCnty+PpCntz
67 66 oveq2d PN01yy0zz0NPpCntyz=NPpCnty+PpCntz
68 22 recnd PN01N
69 68 3ad2ant1 PN01yy0zz0N
70 28 3ad2ant1 PN01yy0zz0N0
71 47 3adant3 PN01yy0zz0PpCnty
72 simp1l PN01yy0zz0P
73 simp3l PN01yy0zz0z
74 simp3r PN01yy0zz0z0
75 pcqcl Pzz0PpCntz
76 72 73 74 75 syl12anc PN01yy0zz0PpCntz
77 expaddz NN0PpCntyPpCntzNPpCnty+PpCntz=NPpCntyNPpCntz
78 69 70 71 76 77 syl22anc PN01yy0zz0NPpCnty+PpCntz=NPpCntyNPpCntz
79 67 78 eqtrd PN01yy0zz0NPpCntyz=NPpCntyNPpCntz
80 simp2l PN01yy0zz0y
81 qmulcl yzyz
82 80 73 81 syl2anc PN01yy0zz0yz
83 eqeq1 x=yzx=0yz=0
84 oveq2 x=yzPpCntx=PpCntyz
85 84 oveq2d x=yzNPpCntx=NPpCntyz
86 83 85 ifbieq2d x=yzifx=00NPpCntx=ifyz=00NPpCntyz
87 ovex NPpCntyzV
88 42 87 ifex ifyz=00NPpCntyzV
89 86 3 88 fvmpt yzFyz=ifyz=00NPpCntyz
90 82 89 syl PN01yy0zz0Fyz=ifyz=00NPpCntyz
91 qcn yy
92 80 91 syl PN01yy0zz0y
93 qcn zz
94 73 93 syl PN01yy0zz0z
95 simp2r PN01yy0zz0y0
96 92 94 95 74 mulne0d PN01yy0zz0yz0
97 96 neneqd PN01yy0zz0¬yz=0
98 97 iffalsed PN01yy0zz0ifyz=00NPpCntyz=NPpCntyz
99 90 98 eqtrd PN01yy0zz0Fyz=NPpCntyz
100 63 3expb PN01yy0Fy=NPpCnty
101 100 3adant3 PN01yy0zz0Fy=NPpCnty
102 eqeq1 x=zx=0z=0
103 oveq2 x=zPpCntx=PpCntz
104 103 oveq2d x=zNPpCntx=NPpCntz
105 102 104 ifbieq2d x=zifx=00NPpCntx=ifz=00NPpCntz
106 ovex NPpCntzV
107 42 106 ifex ifz=00NPpCntzV
108 105 3 107 fvmpt zFz=ifz=00NPpCntz
109 73 108 syl PN01yy0zz0Fz=ifz=00NPpCntz
110 74 neneqd PN01yy0zz0¬z=0
111 110 iffalsed PN01yy0zz0ifz=00NPpCntz=NPpCntz
112 109 111 eqtrd PN01yy0zz0Fz=NPpCntz
113 101 112 oveq12d PN01yy0zz0FyFz=NPpCntyNPpCntz
114 79 99 113 3eqtr4d PN01yy0zz0Fyz=FyFz
115 iftrue y+z=0ify+z=00NPpCnty+z=0
116 115 breq1d y+z=0ify+z=00NPpCnty+zNPpCnty+NPpCntz0NPpCnty+NPpCntz
117 ifnefalse y+z0ify+z=00NPpCnty+z=NPpCnty+z
118 117 adantl PN01yy0zz0y+z0ify+z=00NPpCnty+z=NPpCnty+z
119 71 adantr PN01yy0zz0y+z0PpCnty
120 119 zred PN01yy0zz0y+z0PpCnty
121 76 adantr PN01yy0zz0y+z0PpCntz
122 121 zred PN01yy0zz0y+z0PpCntz
123 22 3ad2ant1 PN01yy0zz0N
124 123 ad2antrr PN01yy0zz0y+z0PpCntyPpCntzN
125 70 ad2antrr PN01yy0zz0y+z0PpCntyPpCntzN0
126 72 adantr PN01yy0zz0y+z0P
127 qaddcl yzy+z
128 80 73 127 syl2anc PN01yy0zz0y+z
129 128 adantr PN01yy0zz0y+z0y+z
130 simpr PN01yy0zz0y+z0y+z0
131 pcqcl Py+zy+z0PpCnty+z
132 126 129 130 131 syl12anc PN01yy0zz0y+z0PpCnty+z
133 132 adantr PN01yy0zz0y+z0PpCntyPpCntzPpCnty+z
134 124 125 133 reexpclzd PN01yy0zz0y+z0PpCntyPpCntzNPpCnty+z
135 119 adantr PN01yy0zz0y+z0PpCntyPpCntzPpCnty
136 124 125 135 reexpclzd PN01yy0zz0y+z0PpCntyPpCntzNPpCnty
137 simpl1 PN01yy0zz0y+z0PN01
138 137 22 syl PN01yy0zz0y+z0N
139 137 28 syl PN01yy0zz0y+z0N0
140 138 139 119 reexpclzd PN01yy0zz0y+z0NPpCnty
141 138 139 121 reexpclzd PN01yy0zz0y+z0NPpCntz
142 140 141 readdcld PN01yy0zz0y+z0NPpCnty+NPpCntz
143 142 adantr PN01yy0zz0y+z0PpCntyPpCntzNPpCnty+NPpCntz
144 126 adantr PN01yy0zz0y+z0PpCntyPpCntzP
145 80 ad2antrr PN01yy0zz0y+z0PpCntyPpCntzy
146 73 ad2antrr PN01yy0zz0y+z0PpCntyPpCntzz
147 simpr PN01yy0zz0y+z0PpCntyPpCntzPpCntyPpCntz
148 144 145 146 147 pcadd PN01yy0zz0y+z0PpCntyPpCntzPpCntyPpCnty+z
149 137 27 syl PN01yy0zz0y+z0N+
150 25 simprd PN01N<1
151 137 150 syl PN01yy0zz0y+z0N<1
152 149 119 132 151 ltexp2rd PN01yy0zz0y+z0PpCnty+z<PpCntyNPpCnty<NPpCnty+z
153 152 notbid PN01yy0zz0y+z0¬PpCnty+z<PpCnty¬NPpCnty<NPpCnty+z
154 132 zred PN01yy0zz0y+z0PpCnty+z
155 120 154 lenltd PN01yy0zz0y+z0PpCntyPpCnty+z¬PpCnty+z<PpCnty
156 138 139 132 reexpclzd PN01yy0zz0y+z0NPpCnty+z
157 156 140 lenltd PN01yy0zz0y+z0NPpCnty+zNPpCnty¬NPpCnty<NPpCnty+z
158 153 155 157 3bitr4d PN01yy0zz0y+z0PpCntyPpCnty+zNPpCnty+zNPpCnty
159 158 biimpa PN01yy0zz0y+z0PpCntyPpCnty+zNPpCnty+zNPpCnty
160 148 159 syldan PN01yy0zz0y+z0PpCntyPpCntzNPpCnty+zNPpCnty
161 27 3ad2ant1 PN01yy0zz0N+
162 161 76 rpexpcld PN01yy0zz0NPpCntz+
163 162 adantr PN01yy0zz0y+z0NPpCntz+
164 163 rpge0d PN01yy0zz0y+z00NPpCntz
165 140 141 addge01d PN01yy0zz0y+z00NPpCntzNPpCntyNPpCnty+NPpCntz
166 164 165 mpbid PN01yy0zz0y+z0NPpCntyNPpCnty+NPpCntz
167 166 adantr PN01yy0zz0y+z0PpCntyPpCntzNPpCntyNPpCnty+NPpCntz
168 134 136 143 160 167 letrd PN01yy0zz0y+z0PpCntyPpCntzNPpCnty+zNPpCnty+NPpCntz
169 156 adantr PN01yy0zz0y+z0PpCntzPpCntyNPpCnty+z
170 141 adantr PN01yy0zz0y+z0PpCntzPpCntyNPpCntz
171 142 adantr PN01yy0zz0y+z0PpCntzPpCntyNPpCnty+NPpCntz
172 126 adantr PN01yy0zz0y+z0PpCntzPpCntyP
173 73 ad2antrr PN01yy0zz0y+z0PpCntzPpCntyz
174 80 ad2antrr PN01yy0zz0y+z0PpCntzPpCntyy
175 simpr PN01yy0zz0y+z0PpCntzPpCntyPpCntzPpCnty
176 172 173 174 175 pcadd PN01yy0zz0y+z0PpCntzPpCntyPpCntzPpCntz+y
177 92 94 addcomd PN01yy0zz0y+z=z+y
178 177 oveq2d PN01yy0zz0PpCnty+z=PpCntz+y
179 178 ad2antrr PN01yy0zz0y+z0PpCntzPpCntyPpCnty+z=PpCntz+y
180 176 179 breqtrrd PN01yy0zz0y+z0PpCntzPpCntyPpCntzPpCnty+z
181 149 121 132 151 ltexp2rd PN01yy0zz0y+z0PpCnty+z<PpCntzNPpCntz<NPpCnty+z
182 181 notbid PN01yy0zz0y+z0¬PpCnty+z<PpCntz¬NPpCntz<NPpCnty+z
183 122 154 lenltd PN01yy0zz0y+z0PpCntzPpCnty+z¬PpCnty+z<PpCntz
184 156 141 lenltd PN01yy0zz0y+z0NPpCnty+zNPpCntz¬NPpCntz<NPpCnty+z
185 182 183 184 3bitr4d PN01yy0zz0y+z0PpCntzPpCnty+zNPpCnty+zNPpCntz
186 185 biimpa PN01yy0zz0y+z0PpCntzPpCnty+zNPpCnty+zNPpCntz
187 180 186 syldan PN01yy0zz0y+z0PpCntzPpCntyNPpCnty+zNPpCntz
188 161 71 rpexpcld PN01yy0zz0NPpCnty+
189 188 adantr PN01yy0zz0y+z0NPpCnty+
190 189 rpge0d PN01yy0zz0y+z00NPpCnty
191 141 140 addge02d PN01yy0zz0y+z00NPpCntyNPpCntzNPpCnty+NPpCntz
192 190 191 mpbid PN01yy0zz0y+z0NPpCntzNPpCnty+NPpCntz
193 192 adantr PN01yy0zz0y+z0PpCntzPpCntyNPpCntzNPpCnty+NPpCntz
194 169 170 171 187 193 letrd PN01yy0zz0y+z0PpCntzPpCntyNPpCnty+zNPpCnty+NPpCntz
195 120 122 168 194 lecasei PN01yy0zz0y+z0NPpCnty+zNPpCnty+NPpCntz
196 118 195 eqbrtrd PN01yy0zz0y+z0ify+z=00NPpCnty+zNPpCnty+NPpCntz
197 188 162 rpaddcld PN01yy0zz0NPpCnty+NPpCntz+
198 197 rpge0d PN01yy0zz00NPpCnty+NPpCntz
199 116 196 198 pm2.61ne PN01yy0zz0ify+z=00NPpCnty+zNPpCnty+NPpCntz
200 eqeq1 x=y+zx=0y+z=0
201 oveq2 x=y+zPpCntx=PpCnty+z
202 201 oveq2d x=y+zNPpCntx=NPpCnty+z
203 200 202 ifbieq2d x=y+zifx=00NPpCntx=ify+z=00NPpCnty+z
204 ovex NPpCnty+zV
205 42 204 ifex ify+z=00NPpCnty+zV
206 203 3 205 fvmpt y+zFy+z=ify+z=00NPpCnty+z
207 128 206 syl PN01yy0zz0Fy+z=ify+z=00NPpCnty+z
208 101 112 oveq12d PN01yy0zz0Fy+Fz=NPpCnty+NPpCntz
209 199 207 208 3brtr4d PN01yy0zz0Fy+zFy+Fz
210 4 6 10 13 15 18 37 44 64 114 209 isabvd PN01FA