Metamath Proof Explorer


Theorem xleadd1a

Description: Extended real version of leadd1 ; note that the converse implication is not true, unlike the real version (for example 0 < 1 but ( 1 +e +oo ) <_ ( 0 +e +oo ) ). (Contributed by Mario Carneiro, 20-Aug-2015)

Ref Expression
Assertion xleadd1a A*B*C*ABA+𝑒CB+𝑒C

Proof

Step Hyp Ref Expression
1 simplrr A*B*C*ABCABA
2 simpr A*B*C*ABCABB
3 simplrl A*B*C*ABCABC
4 simpllr A*B*C*ABCABAB
5 1 2 3 4 leadd1dd A*B*C*ABCABA+CB+C
6 1 3 rexaddd A*B*C*ABCABA+𝑒C=A+C
7 2 3 rexaddd A*B*C*ABCABB+𝑒C=B+C
8 5 6 7 3brtr4d A*B*C*ABCABA+𝑒CB+𝑒C
9 simpl1 A*B*C*ABA*
10 simpl3 A*B*C*ABC*
11 xaddcl A*C*A+𝑒C*
12 9 10 11 syl2anc A*B*C*ABA+𝑒C*
13 12 ad2antrr A*B*C*ABCAB=+∞A+𝑒C*
14 pnfge A+𝑒C*A+𝑒C+∞
15 13 14 syl A*B*C*ABCAB=+∞A+𝑒C+∞
16 oveq1 B=+∞B+𝑒C=+∞+𝑒C
17 rexr CC*
18 renemnf CC−∞
19 xaddpnf2 C*C−∞+∞+𝑒C=+∞
20 17 18 19 syl2anc C+∞+𝑒C=+∞
21 20 ad2antrl A*B*C*ABCA+∞+𝑒C=+∞
22 16 21 sylan9eqr A*B*C*ABCAB=+∞B+𝑒C=+∞
23 15 22 breqtrrd A*B*C*ABCAB=+∞A+𝑒CB+𝑒C
24 12 adantr A*B*C*ABB=−∞A+𝑒C*
25 24 xrleidd A*B*C*ABB=−∞A+𝑒CA+𝑒C
26 simplr A*B*C*ABB=−∞AB
27 simpr A*B*C*ABB=−∞B=−∞
28 9 adantr A*B*C*ABB=−∞A*
29 mnfle A*−∞A
30 28 29 syl A*B*C*ABB=−∞−∞A
31 27 30 eqbrtrd A*B*C*ABB=−∞BA
32 simpl2 A*B*C*ABB*
33 xrletri3 A*B*A=BABBA
34 9 32 33 syl2anc A*B*C*ABA=BABBA
35 34 adantr A*B*C*ABB=−∞A=BABBA
36 26 31 35 mpbir2and A*B*C*ABB=−∞A=B
37 36 oveq1d A*B*C*ABB=−∞A+𝑒C=B+𝑒C
38 25 37 breqtrd A*B*C*ABB=−∞A+𝑒CB+𝑒C
39 38 adantlr A*B*C*ABCAB=−∞A+𝑒CB+𝑒C
40 elxr B*BB=+∞B=−∞
41 32 40 sylib A*B*C*ABBB=+∞B=−∞
42 41 adantr A*B*C*ABCABB=+∞B=−∞
43 8 23 39 42 mpjao3dan A*B*C*ABCAA+𝑒CB+𝑒C
44 43 anassrs A*B*C*ABCAA+𝑒CB+𝑒C
45 12 adantr A*B*C*ABA=+∞A+𝑒C*
46 45 xrleidd A*B*C*ABA=+∞A+𝑒CA+𝑒C
47 simplr A*B*C*ABA=+∞AB
48 pnfge B*B+∞
49 32 48 syl A*B*C*ABB+∞
50 49 adantr A*B*C*ABA=+∞B+∞
51 simpr A*B*C*ABA=+∞A=+∞
52 50 51 breqtrrd A*B*C*ABA=+∞BA
53 34 adantr A*B*C*ABA=+∞A=BABBA
54 47 52 53 mpbir2and A*B*C*ABA=+∞A=B
55 54 oveq1d A*B*C*ABA=+∞A+𝑒C=B+𝑒C
56 46 55 breqtrd A*B*C*ABA=+∞A+𝑒CB+𝑒C
57 56 adantlr A*B*C*ABCA=+∞A+𝑒CB+𝑒C
58 oveq1 A=−∞A+𝑒C=−∞+𝑒C
59 renepnf CC+∞
60 xaddmnf2 C*C+∞−∞+𝑒C=−∞
61 17 59 60 syl2anc C−∞+𝑒C=−∞
62 61 adantl A*B*C*ABC−∞+𝑒C=−∞
63 58 62 sylan9eqr A*B*C*ABCA=−∞A+𝑒C=−∞
64 xaddcl B*C*B+𝑒C*
65 32 10 64 syl2anc A*B*C*ABB+𝑒C*
66 65 ad2antrr A*B*C*ABCA=−∞B+𝑒C*
67 mnfle B+𝑒C*−∞B+𝑒C
68 66 67 syl A*B*C*ABCA=−∞−∞B+𝑒C
69 63 68 eqbrtrd A*B*C*ABCA=−∞A+𝑒CB+𝑒C
70 elxr A*AA=+∞A=−∞
71 9 70 sylib A*B*C*ABAA=+∞A=−∞
72 71 adantr A*B*C*ABCAA=+∞A=−∞
73 44 57 69 72 mpjao3dan A*B*C*ABCA+𝑒CB+𝑒C
74 38 adantlr A*B*C*ABC=+∞B=−∞A+𝑒CB+𝑒C
75 12 ad2antrr A*B*C*ABC=+∞B−∞A+𝑒C*
76 75 14 syl A*B*C*ABC=+∞B−∞A+𝑒C+∞
77 simplr A*B*C*ABC=+∞B−∞C=+∞
78 77 oveq2d A*B*C*ABC=+∞B−∞B+𝑒C=B+𝑒+∞
79 32 adantr A*B*C*ABC=+∞B*
80 xaddpnf1 B*B−∞B+𝑒+∞=+∞
81 79 80 sylan A*B*C*ABC=+∞B−∞B+𝑒+∞=+∞
82 78 81 eqtrd A*B*C*ABC=+∞B−∞B+𝑒C=+∞
83 76 82 breqtrrd A*B*C*ABC=+∞B−∞A+𝑒CB+𝑒C
84 74 83 pm2.61dane A*B*C*ABC=+∞A+𝑒CB+𝑒C
85 56 adantlr A*B*C*ABC=−∞A=+∞A+𝑒CB+𝑒C
86 simplr A*B*C*ABC=−∞A+∞C=−∞
87 86 oveq2d A*B*C*ABC=−∞A+∞A+𝑒C=A+𝑒−∞
88 9 adantr A*B*C*ABC=−∞A*
89 xaddmnf1 A*A+∞A+𝑒−∞=−∞
90 88 89 sylan A*B*C*ABC=−∞A+∞A+𝑒−∞=−∞
91 87 90 eqtrd A*B*C*ABC=−∞A+∞A+𝑒C=−∞
92 65 ad2antrr A*B*C*ABC=−∞A+∞B+𝑒C*
93 92 67 syl A*B*C*ABC=−∞A+∞−∞B+𝑒C
94 91 93 eqbrtrd A*B*C*ABC=−∞A+∞A+𝑒CB+𝑒C
95 85 94 pm2.61dane A*B*C*ABC=−∞A+𝑒CB+𝑒C
96 elxr C*CC=+∞C=−∞
97 10 96 sylib A*B*C*ABCC=+∞C=−∞
98 73 84 95 97 mpjao3dan A*B*C*ABA+𝑒CB+𝑒C