Metamath Proof Explorer


Theorem rexmul

Description: The extended real multiplication when both arguments are real. (Contributed by Mario Carneiro, 20-Aug-2015)

Ref Expression
Assertion rexmul ABA𝑒B=AB

Proof

Step Hyp Ref Expression
1 renepnf AA+∞
2 1 adantr ABA+∞
3 2 necon2bi A=+∞¬AB
4 3 adantl 0<BA=+∞¬AB
5 renemnf AA−∞
6 5 adantr ABA−∞
7 6 necon2bi A=−∞¬AB
8 7 adantl B<0A=−∞¬AB
9 4 8 jaoi 0<BA=+∞B<0A=−∞¬AB
10 renepnf BB+∞
11 10 adantl ABB+∞
12 11 necon2bi B=+∞¬AB
13 12 adantl 0<AB=+∞¬AB
14 renemnf BB−∞
15 14 adantl ABB−∞
16 15 necon2bi B=−∞¬AB
17 16 adantl A<0B=−∞¬AB
18 13 17 jaoi 0<AB=+∞A<0B=−∞¬AB
19 9 18 jaoi 0<BA=+∞B<0A=−∞0<AB=+∞A<0B=−∞¬AB
20 19 con2i AB¬0<BA=+∞B<0A=−∞0<AB=+∞A<0B=−∞
21 20 iffalsed ABif0<BA=+∞B<0A=−∞0<AB=+∞A<0B=−∞+∞if0<BA=−∞B<0A=+∞0<AB=−∞A<0B=+∞−∞AB=if0<BA=−∞B<0A=+∞0<AB=−∞A<0B=+∞−∞AB
22 7 adantl 0<BA=−∞¬AB
23 3 adantl B<0A=+∞¬AB
24 22 23 jaoi 0<BA=−∞B<0A=+∞¬AB
25 16 adantl 0<AB=−∞¬AB
26 12 adantl A<0B=+∞¬AB
27 25 26 jaoi 0<AB=−∞A<0B=+∞¬AB
28 24 27 jaoi 0<BA=−∞B<0A=+∞0<AB=−∞A<0B=+∞¬AB
29 28 con2i AB¬0<BA=−∞B<0A=+∞0<AB=−∞A<0B=+∞
30 29 iffalsed ABif0<BA=−∞B<0A=+∞0<AB=−∞A<0B=+∞−∞AB=AB
31 21 30 eqtrd ABif0<BA=+∞B<0A=−∞0<AB=+∞A<0B=−∞+∞if0<BA=−∞B<0A=+∞0<AB=−∞A<0B=+∞−∞AB=AB
32 31 ifeq2d ABifA=0B=00if0<BA=+∞B<0A=−∞0<AB=+∞A<0B=−∞+∞if0<BA=−∞B<0A=+∞0<AB=−∞A<0B=+∞−∞AB=ifA=0B=00AB
33 rexr AA*
34 rexr BB*
35 xmulval A*B*A𝑒B=ifA=0B=00if0<BA=+∞B<0A=−∞0<AB=+∞A<0B=−∞+∞if0<BA=−∞B<0A=+∞0<AB=−∞A<0B=+∞−∞AB
36 33 34 35 syl2an ABA𝑒B=ifA=0B=00if0<BA=+∞B<0A=−∞0<AB=+∞A<0B=−∞+∞if0<BA=−∞B<0A=+∞0<AB=−∞A<0B=+∞−∞AB
37 ifid ifA=0B=0ABAB=AB
38 oveq1 A=0AB=0B
39 mul02lem2 B0B=0
40 39 adantl AB0B=0
41 38 40 sylan9eqr ABA=0AB=0
42 oveq2 B=0AB=A0
43 recn AA
44 43 mul01d AA0=0
45 44 adantr ABA0=0
46 42 45 sylan9eqr ABB=0AB=0
47 41 46 jaodan ABA=0B=0AB=0
48 47 ifeq1da ABifA=0B=0ABAB=ifA=0B=00AB
49 37 48 eqtr3id ABAB=ifA=0B=00AB
50 32 36 49 3eqtr4d ABA𝑒B=AB