Metamath Proof Explorer


Theorem padicabvcxp

Description: All positive powers of the p-adic absolute value are absolute values. (Contributed by Mario Carneiro, 9-Sep-2014)

Ref Expression
Hypotheses qrng.q Q = fld 𝑠
qabsabv.a A = AbsVal Q
padic.j J = q x if x = 0 0 q q pCnt x
Assertion padicabvcxp P R + y J P y R A

Proof

Step Hyp Ref Expression
1 qrng.q Q = fld 𝑠
2 qabsabv.a A = AbsVal Q
3 padic.j J = q x if x = 0 0 q q pCnt x
4 3 padicval P y J P y = if y = 0 0 P P pCnt y
5 4 adantlr P R + y J P y = if y = 0 0 P P pCnt y
6 5 oveq1d P R + y J P y R = if y = 0 0 P P pCnt y R
7 ovif if y = 0 0 P P pCnt y R = if y = 0 0 R P P pCnt y R
8 rpre R + R
9 8 adantl P R + R
10 9 recnd P R + R
11 rpne0 R + R 0
12 11 adantl P R + R 0
13 10 12 0cxpd P R + 0 R = 0
14 13 adantr P R + y 0 R = 0
15 14 ifeq1d P R + y if y = 0 0 R P P pCnt y R = if y = 0 0 P P pCnt y R
16 7 15 eqtrid P R + y if y = 0 0 P P pCnt y R = if y = 0 0 P P pCnt y R
17 df-ne y 0 ¬ y = 0
18 pcqcl P y y 0 P pCnt y
19 18 adantlr P R + y y 0 P pCnt y
20 19 zcnd P R + y y 0 P pCnt y
21 10 adantr P R + y y 0 R
22 mulneg12 P pCnt y R P pCnt y R = P pCnt y R
23 20 21 22 syl2anc P R + y y 0 P pCnt y R = P pCnt y R
24 21 negcld P R + y y 0 R
25 20 24 mulcomd P R + y y 0 P pCnt y R = R P pCnt y
26 23 25 eqtrd P R + y y 0 P pCnt y R = R P pCnt y
27 26 oveq2d P R + y y 0 P P pCnt y R = P R P pCnt y
28 prmuz2 P P 2
29 28 adantr P R + P 2
30 eluz2b2 P 2 P 1 < P
31 29 30 sylib P R + P 1 < P
32 31 simpld P R + P
33 32 nnrpd P R + P +
34 33 adantr P R + y y 0 P +
35 19 znegcld P R + y y 0 P pCnt y
36 35 zred P R + y y 0 P pCnt y
37 34 36 21 cxpmuld P R + y y 0 P P pCnt y R = P P pCnt y R
38 9 renegcld P R + R
39 38 adantr P R + y y 0 R
40 34 39 20 cxpmuld P R + y y 0 P R P pCnt y = P R P pCnt y
41 27 37 40 3eqtr3d P R + y y 0 P P pCnt y R = P R P pCnt y
42 32 nnred P R + P
43 42 recnd P R + P
44 43 adantr P R + y y 0 P
45 32 nnne0d P R + P 0
46 45 adantr P R + y y 0 P 0
47 44 46 35 cxpexpzd P R + y y 0 P P pCnt y = P P pCnt y
48 47 oveq1d P R + y y 0 P P pCnt y R = P P pCnt y R
49 33 38 rpcxpcld P R + P R +
50 49 adantr P R + y y 0 P R +
51 50 rpcnd P R + y y 0 P R
52 50 rpne0d P R + y y 0 P R 0
53 51 52 19 cxpexpzd P R + y y 0 P R P pCnt y = P R P pCnt y
54 41 48 53 3eqtr3d P R + y y 0 P P pCnt y R = P R P pCnt y
55 54 anassrs P R + y y 0 P P pCnt y R = P R P pCnt y
56 17 55 sylan2br P R + y ¬ y = 0 P P pCnt y R = P R P pCnt y
57 56 ifeq2da P R + y if y = 0 0 P P pCnt y R = if y = 0 0 P R P pCnt y
58 6 16 57 3eqtrd P R + y J P y R = if y = 0 0 P R P pCnt y
59 58 mpteq2dva P R + y J P y R = y if y = 0 0 P R P pCnt y
60 rpre P R + P R
61 49 60 syl P R + P R
62 rpgt0 P R + 0 < P R
63 49 62 syl P R + 0 < P R
64 rpgt0 R + 0 < R
65 64 adantl P R + 0 < R
66 9 lt0neg2d P R + 0 < R R < 0
67 65 66 mpbid P R + R < 0
68 31 simprd P R + 1 < P
69 0red P R + 0
70 42 68 38 69 cxpltd P R + R < 0 P R < P 0
71 67 70 mpbid P R + P R < P 0
72 43 cxp0d P R + P 0 = 1
73 71 72 breqtrd P R + P R < 1
74 0xr 0 *
75 1xr 1 *
76 elioo2 0 * 1 * P R 0 1 P R 0 < P R P R < 1
77 74 75 76 mp2an P R 0 1 P R 0 < P R P R < 1
78 61 63 73 77 syl3anbrc P R + P R 0 1
79 eqid y if y = 0 0 P R P pCnt y = y if y = 0 0 P R P pCnt y
80 1 2 79 padicabv P P R 0 1 y if y = 0 0 P R P pCnt y A
81 78 80 syldan P R + y if y = 0 0 P R P pCnt y A
82 59 81 eqeltrd P R + y J P y R A