Metamath Proof Explorer


Theorem xlt2addrd

Description: If the right-hand side of a 'less than' relationship is an addition, then we can express the left-hand side as an addition, too, where each term is respectively less than each term of the original right side. (Contributed by Thierry Arnoux, 15-Mar-2017)

Ref Expression
Hypotheses xlt2addrd.1 φA
xlt2addrd.2 φB*
xlt2addrd.3 φC*
xlt2addrd.4 φB−∞
xlt2addrd.5 φC−∞
xlt2addrd.6 φA<B+𝑒C
Assertion xlt2addrd φb*c*A=b+𝑒cb<Bc<C

Proof

Step Hyp Ref Expression
1 xlt2addrd.1 φA
2 xlt2addrd.2 φB*
3 xlt2addrd.3 φC*
4 xlt2addrd.4 φB−∞
5 xlt2addrd.5 φC−∞
6 xlt2addrd.6 φA<B+𝑒C
7 1 rexrd φA*
8 7 ad2antrr φB=+∞C=+∞A*
9 0xr 0*
10 9 a1i φB=+∞C=+∞0*
11 xaddrid A*A+𝑒0=A
12 11 eqcomd A*A=A+𝑒0
13 8 12 syl φB=+∞C=+∞A=A+𝑒0
14 1 ad2antrr φB=+∞C=+∞A
15 ltpnf AA<+∞
16 14 15 syl φB=+∞C=+∞A<+∞
17 simplr φB=+∞C=+∞B=+∞
18 16 17 breqtrrd φB=+∞C=+∞A<B
19 0ltpnf 0<+∞
20 simpr φB=+∞C=+∞C=+∞
21 19 20 breqtrrid φB=+∞C=+∞0<C
22 oveq1 b=Ab+𝑒c=A+𝑒c
23 22 eqeq2d b=AA=b+𝑒cA=A+𝑒c
24 breq1 b=Ab<BA<B
25 23 24 3anbi12d b=AA=b+𝑒cb<Bc<CA=A+𝑒cA<Bc<C
26 oveq2 c=0A+𝑒c=A+𝑒0
27 26 eqeq2d c=0A=A+𝑒cA=A+𝑒0
28 breq1 c=0c<C0<C
29 27 28 3anbi13d c=0A=A+𝑒cA<Bc<CA=A+𝑒0A<B0<C
30 25 29 rspc2ev A*0*A=A+𝑒0A<B0<Cb*c*A=b+𝑒cb<Bc<C
31 8 10 13 18 21 30 syl113anc φB=+∞C=+∞b*c*A=b+𝑒cb<Bc<C
32 7 ad2antrr φB=+∞C+∞A*
33 3 ad2antrr φB=+∞C+∞C*
34 1xr 1*
35 34 a1i φB=+∞C+∞1*
36 35 xnegcld φB=+∞C+∞1*
37 33 36 xaddcld φB=+∞C+∞C+𝑒1*
38 37 xnegcld φB=+∞C+∞C+𝑒1*
39 32 38 xaddcld φB=+∞C+∞A+𝑒C+𝑒1*
40 1 ad2antrr φB=+∞C+∞A
41 40 renemnfd φB=+∞C+∞A−∞
42 xrnepnf C*C+∞CC=−∞
43 42 biimpi C*C+∞CC=−∞
44 33 43 sylancom φB=+∞C+∞CC=−∞
45 44 orcomd φB=+∞C+∞C=−∞C
46 5 ad2antrr φB=+∞C+∞C−∞
47 46 neneqd φB=+∞C+∞¬C=−∞
48 pm2.53 C=−∞C¬C=−∞C
49 45 47 48 sylc φB=+∞C+∞C
50 1re 1
51 rexsub C1C+𝑒1=C1
52 49 50 51 sylancl φB=+∞C+∞C+𝑒1=C1
53 resubcl C1C1
54 49 50 53 sylancl φB=+∞C+∞C1
55 52 54 eqeltrd φB=+∞C+∞C+𝑒1
56 rexneg C+𝑒1C+𝑒1=C+𝑒1
57 55 56 syl φB=+∞C+∞C+𝑒1=C+𝑒1
58 55 renegcld φB=+∞C+∞C+𝑒1
59 57 58 eqeltrd φB=+∞C+∞C+𝑒1
60 59 renemnfd φB=+∞C+∞C+𝑒1−∞
61 55 renemnfd φB=+∞C+∞C+𝑒1−∞
62 xaddass A*A−∞C+𝑒1*C+𝑒1−∞C+𝑒1*C+𝑒1−∞A+𝑒C+𝑒1+𝑒C+𝑒1=A+𝑒C+𝑒1+𝑒C+𝑒1
63 32 41 38 60 37 61 62 syl222anc φB=+∞C+∞A+𝑒C+𝑒1+𝑒C+𝑒1=A+𝑒C+𝑒1+𝑒C+𝑒1
64 xaddcom C+𝑒1*C+𝑒1*C+𝑒1+𝑒C+𝑒1=C+𝑒1+𝑒C+𝑒1
65 38 37 64 syl2anc φB=+∞C+∞C+𝑒1+𝑒C+𝑒1=C+𝑒1+𝑒C+𝑒1
66 xnegid C+𝑒1*C+𝑒1+𝑒C+𝑒1=0
67 37 66 syl φB=+∞C+∞C+𝑒1+𝑒C+𝑒1=0
68 65 67 eqtrd φB=+∞C+∞C+𝑒1+𝑒C+𝑒1=0
69 68 oveq2d φB=+∞C+∞A+𝑒C+𝑒1+𝑒C+𝑒1=A+𝑒0
70 32 11 syl φB=+∞C+∞A+𝑒0=A
71 63 69 70 3eqtrrd φB=+∞C+∞A=A+𝑒C+𝑒1+𝑒C+𝑒1
72 40 54 resubcld φB=+∞C+∞AC1
73 ltpnf AC1AC1<+∞
74 72 73 syl φB=+∞C+∞AC1<+∞
75 rexsub AC+𝑒1A+𝑒C+𝑒1=AC+𝑒1
76 40 55 75 syl2anc φB=+∞C+∞A+𝑒C+𝑒1=AC+𝑒1
77 52 oveq2d φB=+∞C+∞AC+𝑒1=AC1
78 76 77 eqtrd φB=+∞C+∞A+𝑒C+𝑒1=AC1
79 simplr φB=+∞C+∞B=+∞
80 74 78 79 3brtr4d φB=+∞C+∞A+𝑒C+𝑒1<B
81 49 ltm1d φB=+∞C+∞C1<C
82 52 81 eqbrtrd φB=+∞C+∞C+𝑒1<C
83 oveq1 b=A+𝑒C+𝑒1b+𝑒c=A+𝑒C+𝑒1+𝑒c
84 83 eqeq2d b=A+𝑒C+𝑒1A=b+𝑒cA=A+𝑒C+𝑒1+𝑒c
85 breq1 b=A+𝑒C+𝑒1b<BA+𝑒C+𝑒1<B
86 84 85 3anbi12d b=A+𝑒C+𝑒1A=b+𝑒cb<Bc<CA=A+𝑒C+𝑒1+𝑒cA+𝑒C+𝑒1<Bc<C
87 oveq2 c=C+𝑒1A+𝑒C+𝑒1+𝑒c=A+𝑒C+𝑒1+𝑒C+𝑒1
88 87 eqeq2d c=C+𝑒1A=A+𝑒C+𝑒1+𝑒cA=A+𝑒C+𝑒1+𝑒C+𝑒1
89 breq1 c=C+𝑒1c<CC+𝑒1<C
90 88 89 3anbi13d c=C+𝑒1A=A+𝑒C+𝑒1+𝑒cA+𝑒C+𝑒1<Bc<CA=A+𝑒C+𝑒1+𝑒C+𝑒1A+𝑒C+𝑒1<BC+𝑒1<C
91 86 90 rspc2ev A+𝑒C+𝑒1*C+𝑒1*A=A+𝑒C+𝑒1+𝑒C+𝑒1A+𝑒C+𝑒1<BC+𝑒1<Cb*c*A=b+𝑒cb<Bc<C
92 39 37 71 80 82 91 syl113anc φB=+∞C+∞b*c*A=b+𝑒cb<Bc<C
93 31 92 pm2.61dane φB=+∞b*c*A=b+𝑒cb<Bc<C
94 2 ad2antrr φB+∞C=+∞B*
95 34 a1i φB+∞C=+∞1*
96 95 xnegcld φB+∞C=+∞1*
97 94 96 xaddcld φB+∞C=+∞B+𝑒1*
98 7 ad2antrr φB+∞C=+∞A*
99 97 xnegcld φB+∞C=+∞B+𝑒1*
100 98 99 xaddcld φB+∞C=+∞A+𝑒B+𝑒1*
101 xaddcom B+𝑒1*A+𝑒B+𝑒1*B+𝑒1+𝑒A+𝑒B+𝑒1=A+𝑒B+𝑒1+𝑒B+𝑒1
102 97 100 101 syl2anc φB+∞C=+∞B+𝑒1+𝑒A+𝑒B+𝑒1=A+𝑒B+𝑒1+𝑒B+𝑒1
103 1 ad2antrr φB+∞C=+∞A
104 103 renemnfd φB+∞C=+∞A−∞
105 simplr φB+∞C=+∞B+∞
106 xrnepnf B*B+∞BB=−∞
107 106 biimpi B*B+∞BB=−∞
108 94 105 107 syl2anc φB+∞C=+∞BB=−∞
109 108 orcomd φB+∞C=+∞B=−∞B
110 4 ad2antrr φB+∞C=+∞B−∞
111 110 neneqd φB+∞C=+∞¬B=−∞
112 pm2.53 B=−∞B¬B=−∞B
113 109 111 112 sylc φB+∞C=+∞B
114 rexsub B1B+𝑒1=B1
115 113 50 114 sylancl φB+∞C=+∞B+𝑒1=B1
116 resubcl B1B1
117 113 50 116 sylancl φB+∞C=+∞B1
118 115 117 eqeltrd φB+∞C=+∞B+𝑒1
119 rexneg B+𝑒1B+𝑒1=B+𝑒1
120 118 119 syl φB+∞C=+∞B+𝑒1=B+𝑒1
121 118 renegcld φB+∞C=+∞B+𝑒1
122 120 121 eqeltrd φB+∞C=+∞B+𝑒1
123 122 renemnfd φB+∞C=+∞B+𝑒1−∞
124 118 renemnfd φB+∞C=+∞B+𝑒1−∞
125 xaddass A*A−∞B+𝑒1*B+𝑒1−∞B+𝑒1*B+𝑒1−∞A+𝑒B+𝑒1+𝑒B+𝑒1=A+𝑒B+𝑒1+𝑒B+𝑒1
126 98 104 99 123 97 124 125 syl222anc φB+∞C=+∞A+𝑒B+𝑒1+𝑒B+𝑒1=A+𝑒B+𝑒1+𝑒B+𝑒1
127 xaddcom B+𝑒1*B+𝑒1*B+𝑒1+𝑒B+𝑒1=B+𝑒1+𝑒B+𝑒1
128 99 97 127 syl2anc φB+∞C=+∞B+𝑒1+𝑒B+𝑒1=B+𝑒1+𝑒B+𝑒1
129 xnegid B+𝑒1*B+𝑒1+𝑒B+𝑒1=0
130 97 129 syl φB+∞C=+∞B+𝑒1+𝑒B+𝑒1=0
131 128 130 eqtrd φB+∞C=+∞B+𝑒1+𝑒B+𝑒1=0
132 131 oveq2d φB+∞C=+∞A+𝑒B+𝑒1+𝑒B+𝑒1=A+𝑒0
133 98 11 syl φB+∞C=+∞A+𝑒0=A
134 132 133 eqtrd φB+∞C=+∞A+𝑒B+𝑒1+𝑒B+𝑒1=A
135 102 126 134 3eqtrrd φB+∞C=+∞A=B+𝑒1+𝑒A+𝑒B+𝑒1
136 113 ltm1d φB+∞C=+∞B1<B
137 115 136 eqbrtrd φB+∞C=+∞B+𝑒1<B
138 103 117 resubcld φB+∞C=+∞AB1
139 ltpnf AB1AB1<+∞
140 138 139 syl φB+∞C=+∞AB1<+∞
141 rexsub AB+𝑒1A+𝑒B+𝑒1=AB+𝑒1
142 103 118 141 syl2anc φB+∞C=+∞A+𝑒B+𝑒1=AB+𝑒1
143 115 oveq2d φB+∞C=+∞AB+𝑒1=AB1
144 142 143 eqtrd φB+∞C=+∞A+𝑒B+𝑒1=AB1
145 simpr φB+∞C=+∞C=+∞
146 140 144 145 3brtr4d φB+∞C=+∞A+𝑒B+𝑒1<C
147 oveq1 b=B+𝑒1b+𝑒c=B+𝑒1+𝑒c
148 147 eqeq2d b=B+𝑒1A=b+𝑒cA=B+𝑒1+𝑒c
149 breq1 b=B+𝑒1b<BB+𝑒1<B
150 148 149 3anbi12d b=B+𝑒1A=b+𝑒cb<Bc<CA=B+𝑒1+𝑒cB+𝑒1<Bc<C
151 oveq2 c=A+𝑒B+𝑒1B+𝑒1+𝑒c=B+𝑒1+𝑒A+𝑒B+𝑒1
152 151 eqeq2d c=A+𝑒B+𝑒1A=B+𝑒1+𝑒cA=B+𝑒1+𝑒A+𝑒B+𝑒1
153 breq1 c=A+𝑒B+𝑒1c<CA+𝑒B+𝑒1<C
154 152 153 3anbi13d c=A+𝑒B+𝑒1A=B+𝑒1+𝑒cB+𝑒1<Bc<CA=B+𝑒1+𝑒A+𝑒B+𝑒1B+𝑒1<BA+𝑒B+𝑒1<C
155 150 154 rspc2ev B+𝑒1*A+𝑒B+𝑒1*A=B+𝑒1+𝑒A+𝑒B+𝑒1B+𝑒1<BA+𝑒B+𝑒1<Cb*c*A=b+𝑒cb<Bc<C
156 97 100 135 137 146 155 syl113anc φB+∞C=+∞b*c*A=b+𝑒cb<Bc<C
157 1 ad2antrr φB+∞C+∞A
158 2 ad2antrr φB+∞C+∞B*
159 simplr φB+∞C+∞B+∞
160 158 159 107 syl2anc φB+∞C+∞BB=−∞
161 160 orcomd φB+∞C+∞B=−∞B
162 4 ad2antrr φB+∞C+∞B−∞
163 162 neneqd φB+∞C+∞¬B=−∞
164 161 163 112 sylc φB+∞C+∞B
165 3 ad2antrr φB+∞C+∞C*
166 165 43 sylancom φB+∞C+∞CC=−∞
167 166 orcomd φB+∞C+∞C=−∞C
168 5 ad2antrr φB+∞C+∞C−∞
169 168 neneqd φB+∞C+∞¬C=−∞
170 167 169 48 sylc φB+∞C+∞C
171 6 ad2antrr φB+∞C+∞A<B+𝑒C
172 rexadd BCB+𝑒C=B+C
173 164 170 172 syl2anc φB+∞C+∞B+𝑒C=B+C
174 171 173 breqtrd φB+∞C+∞A<B+C
175 157 164 170 174 lt2addrd φB+∞C+∞bcA=b+cb<Bc<C
176 rexadd bcb+𝑒c=b+c
177 176 eqeq2d bcA=b+𝑒cA=b+c
178 177 3anbi1d bcA=b+𝑒cb<Bc<CA=b+cb<Bc<C
179 178 2rexbiia bcA=b+𝑒cb<Bc<CbcA=b+cb<Bc<C
180 175 179 sylibr φB+∞C+∞bcA=b+𝑒cb<Bc<C
181 ressxr *
182 ssrexv *cA=b+𝑒cb<Bc<Cc*A=b+𝑒cb<Bc<C
183 181 182 ax-mp cA=b+𝑒cb<Bc<Cc*A=b+𝑒cb<Bc<C
184 183 reximi bcA=b+𝑒cb<Bc<Cbc*A=b+𝑒cb<Bc<C
185 ssrexv *bc*A=b+𝑒cb<Bc<Cb*c*A=b+𝑒cb<Bc<C
186 181 185 ax-mp bc*A=b+𝑒cb<Bc<Cb*c*A=b+𝑒cb<Bc<C
187 180 184 186 3syl φB+∞C+∞b*c*A=b+𝑒cb<Bc<C
188 156 187 pm2.61dane φB+∞b*c*A=b+𝑒cb<Bc<C
189 93 188 pm2.61dane φb*c*A=b+𝑒cb<Bc<C