Metamath Proof Explorer


Theorem xadddi2

Description: The assumption that the multiplier be real in xadddi can be relaxed if the addends have the same sign. (Contributed by Mario Carneiro, 20-Aug-2015)

Ref Expression
Assertion xadddi2 A*B*0BC*0CA𝑒B+𝑒C=A𝑒B+𝑒A𝑒C

Proof

Step Hyp Ref Expression
1 simpr A*B*0BC*0C0<BAA
2 simp2l A*B*0BC*0CB*
3 2 ad2antrr A*B*0BC*0C0<BAB*
4 simp3l A*B*0BC*0CC*
5 4 ad2antrr A*B*0BC*0C0<BAC*
6 xadddi AB*C*A𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
7 1 3 5 6 syl3anc A*B*0BC*0C0<BAA𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
8 pnfxr +∞*
9 4 adantr A*B*0BC*0C0<BC*
10 xmulcl +∞*C*+∞𝑒C*
11 8 9 10 sylancr A*B*0BC*0C0<B+∞𝑒C*
12 simpl3r A*B*0BC*0C0<B0C
13 0lepnf 0+∞
14 xmulge0 +∞*0+∞C*0C0+∞𝑒C
15 8 13 14 mpanl12 C*0C0+∞𝑒C
16 4 12 15 syl2an2r A*B*0BC*0C0<B0+∞𝑒C
17 ge0nemnf +∞𝑒C*0+∞𝑒C+∞𝑒C−∞
18 11 16 17 syl2anc A*B*0BC*0C0<B+∞𝑒C−∞
19 18 adantr A*B*0BC*0C0<BA=+∞+∞𝑒C−∞
20 xaddpnf2 +∞𝑒C*+∞𝑒C−∞+∞+𝑒+∞𝑒C=+∞
21 11 19 20 syl2an2r A*B*0BC*0C0<BA=+∞+∞+𝑒+∞𝑒C=+∞
22 oveq1 A=+∞A𝑒B=+∞𝑒B
23 oveq1 A=+∞A𝑒C=+∞𝑒C
24 22 23 oveq12d A=+∞A𝑒B+𝑒A𝑒C=+∞𝑒B+𝑒+∞𝑒C
25 xmulpnf2 B*0<B+∞𝑒B=+∞
26 2 25 sylan A*B*0BC*0C0<B+∞𝑒B=+∞
27 26 oveq1d A*B*0BC*0C0<B+∞𝑒B+𝑒+∞𝑒C=+∞+𝑒+∞𝑒C
28 24 27 sylan9eqr A*B*0BC*0C0<BA=+∞A𝑒B+𝑒A𝑒C=+∞+𝑒+∞𝑒C
29 oveq1 A=+∞A𝑒B+𝑒C=+∞𝑒B+𝑒C
30 xaddcl B*C*B+𝑒C*
31 2 4 30 syl2anc A*B*0BC*0CB+𝑒C*
32 0xr 0*
33 32 a1i A*B*0BC*0C0<B0*
34 2 adantr A*B*0BC*0C0<BB*
35 31 adantr A*B*0BC*0C0<BB+𝑒C*
36 simpr A*B*0BC*0C0<B0<B
37 34 xaddridd A*B*0BC*0C0<BB+𝑒0=B
38 xleadd2a 0*C*B*0CB+𝑒0B+𝑒C
39 33 9 34 12 38 syl31anc A*B*0BC*0C0<BB+𝑒0B+𝑒C
40 37 39 eqbrtrrd A*B*0BC*0C0<BBB+𝑒C
41 33 34 35 36 40 xrltletrd A*B*0BC*0C0<B0<B+𝑒C
42 xmulpnf2 B+𝑒C*0<B+𝑒C+∞𝑒B+𝑒C=+∞
43 31 41 42 syl2an2r A*B*0BC*0C0<B+∞𝑒B+𝑒C=+∞
44 29 43 sylan9eqr A*B*0BC*0C0<BA=+∞A𝑒B+𝑒C=+∞
45 21 28 44 3eqtr4rd A*B*0BC*0C0<BA=+∞A𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
46 mnfxr −∞*
47 xmulcl −∞*C*−∞𝑒C*
48 46 9 47 sylancr A*B*0BC*0C0<B−∞𝑒C*
49 xmulneg1 −∞*C*−∞𝑒C=−∞𝑒C
50 46 9 49 sylancr A*B*0BC*0C0<B−∞𝑒C=−∞𝑒C
51 xnegmnf −∞=+∞
52 51 oveq1i −∞𝑒C=+∞𝑒C
53 50 52 eqtr3di A*B*0BC*0C0<B−∞𝑒C=+∞𝑒C
54 xnegpnf +∞=−∞
55 54 a1i A*B*0BC*0C0<B+∞=−∞
56 53 55 eqeq12d A*B*0BC*0C0<B−∞𝑒C=+∞+∞𝑒C=−∞
57 xneg11 −∞𝑒C*+∞*−∞𝑒C=+∞−∞𝑒C=+∞
58 48 8 57 sylancl A*B*0BC*0C0<B−∞𝑒C=+∞−∞𝑒C=+∞
59 56 58 bitr3d A*B*0BC*0C0<B+∞𝑒C=−∞−∞𝑒C=+∞
60 59 necon3bid A*B*0BC*0C0<B+∞𝑒C−∞−∞𝑒C+∞
61 18 60 mpbid A*B*0BC*0C0<B−∞𝑒C+∞
62 xaddmnf2 −∞𝑒C*−∞𝑒C+∞−∞+𝑒−∞𝑒C=−∞
63 48 61 62 syl2anc A*B*0BC*0C0<B−∞+𝑒−∞𝑒C=−∞
64 63 adantr A*B*0BC*0C0<BA=−∞−∞+𝑒−∞𝑒C=−∞
65 oveq1 A=−∞A𝑒B=−∞𝑒B
66 oveq1 A=−∞A𝑒C=−∞𝑒C
67 65 66 oveq12d A=−∞A𝑒B+𝑒A𝑒C=−∞𝑒B+𝑒−∞𝑒C
68 xmulmnf2 B*0<B−∞𝑒B=−∞
69 2 68 sylan A*B*0BC*0C0<B−∞𝑒B=−∞
70 69 oveq1d A*B*0BC*0C0<B−∞𝑒B+𝑒−∞𝑒C=−∞+𝑒−∞𝑒C
71 67 70 sylan9eqr A*B*0BC*0C0<BA=−∞A𝑒B+𝑒A𝑒C=−∞+𝑒−∞𝑒C
72 oveq1 A=−∞A𝑒B+𝑒C=−∞𝑒B+𝑒C
73 xmulmnf2 B+𝑒C*0<B+𝑒C−∞𝑒B+𝑒C=−∞
74 31 41 73 syl2an2r A*B*0BC*0C0<B−∞𝑒B+𝑒C=−∞
75 72 74 sylan9eqr A*B*0BC*0C0<BA=−∞A𝑒B+𝑒C=−∞
76 64 71 75 3eqtr4rd A*B*0BC*0C0<BA=−∞A𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
77 simpl1 A*B*0BC*0C0<BA*
78 elxr A*AA=+∞A=−∞
79 77 78 sylib A*B*0BC*0C0<BAA=+∞A=−∞
80 7 45 76 79 mpjao3dan A*B*0BC*0C0<BA𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
81 simp1 A*B*0BC*0CA*
82 xmulcl A*C*A𝑒C*
83 81 4 82 syl2anc A*B*0BC*0CA𝑒C*
84 83 adantr A*B*0BC*0C0=BA𝑒C*
85 xaddlid A𝑒C*0+𝑒A𝑒C=A𝑒C
86 84 85 syl A*B*0BC*0C0=B0+𝑒A𝑒C=A𝑒C
87 oveq2 0=BA𝑒0=A𝑒B
88 87 eqcomd 0=BA𝑒B=A𝑒0
89 xmul01 A*A𝑒0=0
90 89 3ad2ant1 A*B*0BC*0CA𝑒0=0
91 88 90 sylan9eqr A*B*0BC*0C0=BA𝑒B=0
92 91 oveq1d A*B*0BC*0C0=BA𝑒B+𝑒A𝑒C=0+𝑒A𝑒C
93 oveq1 0=B0+𝑒C=B+𝑒C
94 93 eqcomd 0=BB+𝑒C=0+𝑒C
95 xaddlid C*0+𝑒C=C
96 4 95 syl A*B*0BC*0C0+𝑒C=C
97 94 96 sylan9eqr A*B*0BC*0C0=BB+𝑒C=C
98 97 oveq2d A*B*0BC*0C0=BA𝑒B+𝑒C=A𝑒C
99 86 92 98 3eqtr4rd A*B*0BC*0C0=BA𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
100 simp2r A*B*0BC*0C0B
101 xrleloe 0*B*0B0<B0=B
102 32 2 101 sylancr A*B*0BC*0C0B0<B0=B
103 100 102 mpbid A*B*0BC*0C0<B0=B
104 80 99 103 mpjaodan A*B*0BC*0CA𝑒B+𝑒C=A𝑒B+𝑒A𝑒C