Metamath Proof Explorer


Theorem xadddi

Description: Distributive property for extended real addition and multiplication. Like xaddass , this has an unusual domain of correctness due to counterexamples like ( +oo x. ( 2 - 1 ) ) = -oo =/= ( ( +oo x. 2 ) - ( +oo x. 1 ) ) = ( +oo - +oo ) = 0 . In this theorem we show that if the multiplier is real then everything works as expected. (Contributed by Mario Carneiro, 20-Aug-2015)

Ref Expression
Assertion xadddi AB*C*A𝑒B+𝑒C=A𝑒B+𝑒A𝑒C

Proof

Step Hyp Ref Expression
1 xadddilem AB*C*0<AA𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
2 simpl2 AB*C*0=AB*
3 simpl3 AB*C*0=AC*
4 xaddcl B*C*B+𝑒C*
5 2 3 4 syl2anc AB*C*0=AB+𝑒C*
6 xmul02 B+𝑒C*0𝑒B+𝑒C=0
7 5 6 syl AB*C*0=A0𝑒B+𝑒C=0
8 0xr 0*
9 xaddrid 0*0+𝑒0=0
10 8 9 ax-mp 0+𝑒0=0
11 7 10 eqtr4di AB*C*0=A0𝑒B+𝑒C=0+𝑒0
12 simpr AB*C*0=A0=A
13 12 oveq1d AB*C*0=A0𝑒B+𝑒C=A𝑒B+𝑒C
14 xmul02 B*0𝑒B=0
15 2 14 syl AB*C*0=A0𝑒B=0
16 12 oveq1d AB*C*0=A0𝑒B=A𝑒B
17 15 16 eqtr3d AB*C*0=A0=A𝑒B
18 xmul02 C*0𝑒C=0
19 3 18 syl AB*C*0=A0𝑒C=0
20 12 oveq1d AB*C*0=A0𝑒C=A𝑒C
21 19 20 eqtr3d AB*C*0=A0=A𝑒C
22 17 21 oveq12d AB*C*0=A0+𝑒0=A𝑒B+𝑒A𝑒C
23 11 13 22 3eqtr3d AB*C*0=AA𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
24 simp1 AB*C*A
25 24 adantr AB*C*A<0A
26 rexneg AA=A
27 renegcl AA
28 26 27 eqeltrd AA
29 25 28 syl AB*C*A<0A
30 simpl2 AB*C*A<0B*
31 simpl3 AB*C*A<0C*
32 24 rexrd AB*C*A*
33 xlt0neg1 A*A<00<A
34 32 33 syl AB*C*A<00<A
35 34 biimpa AB*C*A<00<A
36 xadddilem AB*C*0<AA𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
37 29 30 31 35 36 syl31anc AB*C*A<0A𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
38 32 adantr AB*C*A<0A*
39 30 31 4 syl2anc AB*C*A<0B+𝑒C*
40 xmulneg1 A*B+𝑒C*A𝑒B+𝑒C=A𝑒B+𝑒C
41 38 39 40 syl2anc AB*C*A<0A𝑒B+𝑒C=A𝑒B+𝑒C
42 xmulneg1 A*B*A𝑒B=A𝑒B
43 38 30 42 syl2anc AB*C*A<0A𝑒B=A𝑒B
44 xmulneg1 A*C*A𝑒C=A𝑒C
45 38 31 44 syl2anc AB*C*A<0A𝑒C=A𝑒C
46 43 45 oveq12d AB*C*A<0A𝑒B+𝑒A𝑒C=A𝑒B+𝑒A𝑒C
47 xmulcl A*B*A𝑒B*
48 38 30 47 syl2anc AB*C*A<0A𝑒B*
49 xmulcl A*C*A𝑒C*
50 38 31 49 syl2anc AB*C*A<0A𝑒C*
51 xnegdi A𝑒B*A𝑒C*A𝑒B+𝑒A𝑒C=A𝑒B+𝑒A𝑒C
52 48 50 51 syl2anc AB*C*A<0A𝑒B+𝑒A𝑒C=A𝑒B+𝑒A𝑒C
53 46 52 eqtr4d AB*C*A<0A𝑒B+𝑒A𝑒C=A𝑒B+𝑒A𝑒C
54 37 41 53 3eqtr3d AB*C*A<0A𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
55 xmulcl A*B+𝑒C*A𝑒B+𝑒C*
56 38 39 55 syl2anc AB*C*A<0A𝑒B+𝑒C*
57 xaddcl A𝑒B*A𝑒C*A𝑒B+𝑒A𝑒C*
58 48 50 57 syl2anc AB*C*A<0A𝑒B+𝑒A𝑒C*
59 xneg11 A𝑒B+𝑒C*A𝑒B+𝑒A𝑒C*A𝑒B+𝑒C=A𝑒B+𝑒A𝑒CA𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
60 56 58 59 syl2anc AB*C*A<0A𝑒B+𝑒C=A𝑒B+𝑒A𝑒CA𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
61 54 60 mpbid AB*C*A<0A𝑒B+𝑒C=A𝑒B+𝑒A𝑒C
62 0re 0
63 lttri4 0A0<A0=AA<0
64 62 24 63 sylancr AB*C*0<A0=AA<0
65 1 23 61 64 mpjao3dan AB*C*A𝑒B+𝑒C=A𝑒B+𝑒A𝑒C