Metamath Proof Explorer


Theorem abvcxp

Description: Raising an absolute value to a power less than one yields another absolute value. (Contributed by Mario Carneiro, 8-Sep-2014)

Ref Expression
Hypotheses abvcxp.a A = AbsVal R
abvcxp.b B = Base R
abvcxp.f G = x B F x S
Assertion abvcxp F A S 0 1 G A

Proof

Step Hyp Ref Expression
1 abvcxp.a A = AbsVal R
2 abvcxp.b B = Base R
3 abvcxp.f G = x B F x S
4 1 a1i F A S 0 1 A = AbsVal R
5 2 a1i F A S 0 1 B = Base R
6 eqidd F A S 0 1 + R = + R
7 eqidd F A S 0 1 R = R
8 eqidd F A S 0 1 0 R = 0 R
9 1 abvrcl F A R Ring
10 9 adantr F A S 0 1 R Ring
11 1 2 abvcl F A x B F x
12 11 adantlr F A S 0 1 x B F x
13 1 2 abvge0 F A x B 0 F x
14 13 adantlr F A S 0 1 x B 0 F x
15 0xr 0 *
16 1re 1
17 elioc2 0 * 1 S 0 1 S 0 < S S 1
18 15 16 17 mp2an S 0 1 S 0 < S S 1
19 18 bilani F A S 0 1 S 0 < S S 1
20 19 simp1d F A S 0 1 S
21 20 adantr F A S 0 1 x B S
22 12 14 21 recxpcld F A S 0 1 x B F x S
23 22 3 fmptd F A S 0 1 G : B
24 eqid 0 R = 0 R
25 2 24 ring0cl R Ring 0 R B
26 10 25 syl F A S 0 1 0 R B
27 fveq2 x = 0 R F x = F 0 R
28 27 oveq1d x = 0 R F x S = F 0 R S
29 ovex F 0 R S V
30 28 3 29 fvmpt 0 R B G 0 R = F 0 R S
31 26 30 syl F A S 0 1 G 0 R = F 0 R S
32 1 24 abv0 F A F 0 R = 0
33 32 adantr F A S 0 1 F 0 R = 0
34 33 oveq1d F A S 0 1 F 0 R S = 0 S
35 20 recnd F A S 0 1 S
36 19 simp2d F A S 0 1 0 < S
37 36 gt0ne0d F A S 0 1 S 0
38 35 37 0cxpd F A S 0 1 0 S = 0
39 34 38 eqtrd F A S 0 1 F 0 R S = 0
40 31 39 eqtrd F A S 0 1 G 0 R = 0
41 simp1l F A S 0 1 y B y 0 R F A
42 simp2 F A S 0 1 y B y 0 R y B
43 1 2 abvcl F A y B F y
44 41 42 43 syl2anc F A S 0 1 y B y 0 R F y
45 1 2 24 abvgt0 F A y B y 0 R 0 < F y
46 45 3adant1r F A S 0 1 y B y 0 R 0 < F y
47 44 46 elrpd F A S 0 1 y B y 0 R F y +
48 20 3ad2ant1 F A S 0 1 y B y 0 R S
49 47 48 rpcxpcld F A S 0 1 y B y 0 R F y S +
50 49 rpgt0d F A S 0 1 y B y 0 R 0 < F y S
51 fveq2 x = y F x = F y
52 51 oveq1d x = y F x S = F y S
53 ovex F y S V
54 52 3 53 fvmpt y B G y = F y S
55 42 54 syl F A S 0 1 y B y 0 R G y = F y S
56 50 55 breqtrrd F A S 0 1 y B y 0 R 0 < G y
57 simp1l F A S 0 1 y B y 0 R z B z 0 R F A
58 simp2l F A S 0 1 y B y 0 R z B z 0 R y B
59 simp3l F A S 0 1 y B y 0 R z B z 0 R z B
60 eqid R = R
61 1 2 60 abvmul F A y B z B F y R z = F y F z
62 57 58 59 61 syl3anc F A S 0 1 y B y 0 R z B z 0 R F y R z = F y F z
63 62 oveq1d F A S 0 1 y B y 0 R z B z 0 R F y R z S = F y F z S
64 57 58 43 syl2anc F A S 0 1 y B y 0 R z B z 0 R F y
65 1 2 abvge0 F A y B 0 F y
66 57 58 65 syl2anc F A S 0 1 y B y 0 R z B z 0 R 0 F y
67 1 2 abvcl F A z B F z
68 57 59 67 syl2anc F A S 0 1 y B y 0 R z B z 0 R F z
69 1 2 abvge0 F A z B 0 F z
70 57 59 69 syl2anc F A S 0 1 y B y 0 R z B z 0 R 0 F z
71 35 3ad2ant1 F A S 0 1 y B y 0 R z B z 0 R S
72 64 66 68 70 71 mulcxpd F A S 0 1 y B y 0 R z B z 0 R F y F z S = F y S F z S
73 63 72 eqtrd F A S 0 1 y B y 0 R z B z 0 R F y R z S = F y S F z S
74 10 3ad2ant1 F A S 0 1 y B y 0 R z B z 0 R R Ring
75 2 60 ringcl R Ring y B z B y R z B
76 74 58 59 75 syl3anc F A S 0 1 y B y 0 R z B z 0 R y R z B
77 fveq2 x = y R z F x = F y R z
78 77 oveq1d x = y R z F x S = F y R z S
79 ovex F y R z S V
80 78 3 79 fvmpt y R z B G y R z = F y R z S
81 76 80 syl F A S 0 1 y B y 0 R z B z 0 R G y R z = F y R z S
82 58 54 syl F A S 0 1 y B y 0 R z B z 0 R G y = F y S
83 fveq2 x = z F x = F z
84 83 oveq1d x = z F x S = F z S
85 ovex F z S V
86 84 3 85 fvmpt z B G z = F z S
87 59 86 syl F A S 0 1 y B y 0 R z B z 0 R G z = F z S
88 82 87 oveq12d F A S 0 1 y B y 0 R z B z 0 R G y G z = F y S F z S
89 73 81 88 3eqtr4d F A S 0 1 y B y 0 R z B z 0 R G y R z = G y G z
90 ringgrp R Ring R Grp
91 74 90 syl F A S 0 1 y B y 0 R z B z 0 R R Grp
92 eqid + R = + R
93 2 92 grpcl R Grp y B z B y + R z B
94 91 58 59 93 syl3anc F A S 0 1 y B y 0 R z B z 0 R y + R z B
95 1 2 abvcl F A y + R z B F y + R z
96 57 94 95 syl2anc F A S 0 1 y B y 0 R z B z 0 R F y + R z
97 1 2 abvge0 F A y + R z B 0 F y + R z
98 57 94 97 syl2anc F A S 0 1 y B y 0 R z B z 0 R 0 F y + R z
99 19 3ad2ant1 F A S 0 1 y B y 0 R z B z 0 R S 0 < S S 1
100 99 simp1d F A S 0 1 y B y 0 R z B z 0 R S
101 96 98 100 recxpcld F A S 0 1 y B y 0 R z B z 0 R F y + R z S
102 64 68 readdcld F A S 0 1 y B y 0 R z B z 0 R F y + F z
103 64 68 66 70 addge0d F A S 0 1 y B y 0 R z B z 0 R 0 F y + F z
104 102 103 100 recxpcld F A S 0 1 y B y 0 R z B z 0 R F y + F z S
105 64 66 100 recxpcld F A S 0 1 y B y 0 R z B z 0 R F y S
106 68 70 100 recxpcld F A S 0 1 y B y 0 R z B z 0 R F z S
107 105 106 readdcld F A S 0 1 y B y 0 R z B z 0 R F y S + F z S
108 1 2 92 abvtri F A y B z B F y + R z F y + F z
109 57 58 59 108 syl3anc F A S 0 1 y B y 0 R z B z 0 R F y + R z F y + F z
110 99 simp2d F A S 0 1 y B y 0 R z B z 0 R 0 < S
111 100 110 elrpd F A S 0 1 y B y 0 R z B z 0 R S +
112 96 98 102 103 111 cxple2d F A S 0 1 y B y 0 R z B z 0 R F y + R z F y + F z F y + R z S F y + F z S
113 109 112 mpbid F A S 0 1 y B y 0 R z B z 0 R F y + R z S F y + F z S
114 99 simp3d F A S 0 1 y B y 0 R z B z 0 R S 1
115 64 66 68 70 111 114 cxpaddle F A S 0 1 y B y 0 R z B z 0 R F y + F z S F y S + F z S
116 101 104 107 113 115 letrd F A S 0 1 y B y 0 R z B z 0 R F y + R z S F y S + F z S
117 fveq2 x = y + R z F x = F y + R z
118 117 oveq1d x = y + R z F x S = F y + R z S
119 ovex F y + R z S V
120 118 3 119 fvmpt y + R z B G y + R z = F y + R z S
121 94 120 syl F A S 0 1 y B y 0 R z B z 0 R G y + R z = F y + R z S
122 82 87 oveq12d F A S 0 1 y B y 0 R z B z 0 R G y + G z = F y S + F z S
123 116 121 122 3brtr4d F A S 0 1 y B y 0 R z B z 0 R G y + R z G y + G z
124 4 5 6 7 8 10 23 40 56 89 123 isabvd F A S 0 1 G A