Metamath Proof Explorer


Theorem xmulasslem3

Description: Lemma for xmulass . (Contributed by Mario Carneiro, 20-Aug-2015)

Ref Expression
Assertion xmulasslem3 A*0<AB*0<BC*0<CA𝑒B𝑒C=A𝑒B𝑒C

Proof

Step Hyp Ref Expression
1 recn AA
2 recn BB
3 recn CC
4 mulass ABCABC=ABC
5 1 2 3 4 syl3an ABCABC=ABC
6 5 3expa ABCABC=ABC
7 remulcl ABAB
8 rexmul ABCAB𝑒C=ABC
9 7 8 sylan ABCAB𝑒C=ABC
10 remulcl BCBC
11 rexmul ABCA𝑒BC=ABC
12 10 11 sylan2 ABCA𝑒BC=ABC
13 12 anassrs ABCA𝑒BC=ABC
14 6 9 13 3eqtr4d ABCAB𝑒C=A𝑒BC
15 rexmul ABA𝑒B=AB
16 15 adantr ABCA𝑒B=AB
17 16 oveq1d ABCA𝑒B𝑒C=AB𝑒C
18 rexmul BCB𝑒C=BC
19 18 adantll ABCB𝑒C=BC
20 19 oveq2d ABCA𝑒B𝑒C=A𝑒BC
21 14 17 20 3eqtr4d ABCA𝑒B𝑒C=A𝑒B𝑒C
22 21 adantll A*0<AB*0<BC*0<CABCA𝑒B𝑒C=A𝑒B𝑒C
23 oveq2 C=+∞A𝑒B𝑒C=A𝑒B𝑒+∞
24 simp1l A*0<AB*0<BC*0<CA*
25 simp2l A*0<AB*0<BC*0<CB*
26 xmulcl A*B*A𝑒B*
27 24 25 26 syl2anc A*0<AB*0<BC*0<CA𝑒B*
28 xmulgt0 A*0<AB*0<B0<A𝑒B
29 28 3adant3 A*0<AB*0<BC*0<C0<A𝑒B
30 xmulpnf1 A𝑒B*0<A𝑒BA𝑒B𝑒+∞=+∞
31 27 29 30 syl2anc A*0<AB*0<BC*0<CA𝑒B𝑒+∞=+∞
32 23 31 sylan9eqr A*0<AB*0<BC*0<CC=+∞A𝑒B𝑒C=+∞
33 simpl1 A*0<AB*0<BC*0<CC=+∞A*0<A
34 xmulpnf1 A*0<AA𝑒+∞=+∞
35 33 34 syl A*0<AB*0<BC*0<CC=+∞A𝑒+∞=+∞
36 32 35 eqtr4d A*0<AB*0<BC*0<CC=+∞A𝑒B𝑒C=A𝑒+∞
37 oveq2 C=+∞B𝑒C=B𝑒+∞
38 xmulpnf1 B*0<BB𝑒+∞=+∞
39 38 3ad2ant2 A*0<AB*0<BC*0<CB𝑒+∞=+∞
40 37 39 sylan9eqr A*0<AB*0<BC*0<CC=+∞B𝑒C=+∞
41 40 oveq2d A*0<AB*0<BC*0<CC=+∞A𝑒B𝑒C=A𝑒+∞
42 36 41 eqtr4d A*0<AB*0<BC*0<CC=+∞A𝑒B𝑒C=A𝑒B𝑒C
43 42 adantlr A*0<AB*0<BC*0<CABC=+∞A𝑒B𝑒C=A𝑒B𝑒C
44 simpl3r A*0<AB*0<BC*0<CAB0<C
45 xmulasslem2 0<CC=−∞A𝑒B𝑒C=A𝑒B𝑒C
46 44 45 sylan A*0<AB*0<BC*0<CABC=−∞A𝑒B𝑒C=A𝑒B𝑒C
47 simp3l A*0<AB*0<BC*0<CC*
48 elxr C*CC=+∞C=−∞
49 47 48 sylib A*0<AB*0<BC*0<CCC=+∞C=−∞
50 49 adantr A*0<AB*0<BC*0<CABCC=+∞C=−∞
51 22 43 46 50 mpjao3dan A*0<AB*0<BC*0<CABA𝑒B𝑒C=A𝑒B𝑒C
52 51 anassrs A*0<AB*0<BC*0<CABA𝑒B𝑒C=A𝑒B𝑒C
53 xmulpnf2 C*0<C+∞𝑒C=+∞
54 53 3ad2ant3 A*0<AB*0<BC*0<C+∞𝑒C=+∞
55 34 3ad2ant1 A*0<AB*0<BC*0<CA𝑒+∞=+∞
56 54 55 eqtr4d A*0<AB*0<BC*0<C+∞𝑒C=A𝑒+∞
57 56 adantr A*0<AB*0<BC*0<CB=+∞+∞𝑒C=A𝑒+∞
58 oveq2 B=+∞A𝑒B=A𝑒+∞
59 58 55 sylan9eqr A*0<AB*0<BC*0<CB=+∞A𝑒B=+∞
60 59 oveq1d A*0<AB*0<BC*0<CB=+∞A𝑒B𝑒C=+∞𝑒C
61 oveq1 B=+∞B𝑒C=+∞𝑒C
62 61 54 sylan9eqr A*0<AB*0<BC*0<CB=+∞B𝑒C=+∞
63 62 oveq2d A*0<AB*0<BC*0<CB=+∞A𝑒B𝑒C=A𝑒+∞
64 57 60 63 3eqtr4d A*0<AB*0<BC*0<CB=+∞A𝑒B𝑒C=A𝑒B𝑒C
65 64 adantlr A*0<AB*0<BC*0<CAB=+∞A𝑒B𝑒C=A𝑒B𝑒C
66 simpl2r A*0<AB*0<BC*0<CA0<B
67 xmulasslem2 0<BB=−∞A𝑒B𝑒C=A𝑒B𝑒C
68 66 67 sylan A*0<AB*0<BC*0<CAB=−∞A𝑒B𝑒C=A𝑒B𝑒C
69 elxr B*BB=+∞B=−∞
70 25 69 sylib A*0<AB*0<BC*0<CBB=+∞B=−∞
71 70 adantr A*0<AB*0<BC*0<CABB=+∞B=−∞
72 52 65 68 71 mpjao3dan A*0<AB*0<BC*0<CAA𝑒B𝑒C=A𝑒B𝑒C
73 simpl3 A*0<AB*0<BC*0<CA=+∞C*0<C
74 73 53 syl A*0<AB*0<BC*0<CA=+∞+∞𝑒C=+∞
75 oveq1 A=+∞A𝑒B=+∞𝑒B
76 xmulpnf2 B*0<B+∞𝑒B=+∞
77 76 3ad2ant2 A*0<AB*0<BC*0<C+∞𝑒B=+∞
78 75 77 sylan9eqr A*0<AB*0<BC*0<CA=+∞A𝑒B=+∞
79 78 oveq1d A*0<AB*0<BC*0<CA=+∞A𝑒B𝑒C=+∞𝑒C
80 oveq1 A=+∞A𝑒B𝑒C=+∞𝑒B𝑒C
81 xmulcl B*C*B𝑒C*
82 25 47 81 syl2anc A*0<AB*0<BC*0<CB𝑒C*
83 xmulgt0 B*0<BC*0<C0<B𝑒C
84 83 3adant1 A*0<AB*0<BC*0<C0<B𝑒C
85 xmulpnf2 B𝑒C*0<B𝑒C+∞𝑒B𝑒C=+∞
86 82 84 85 syl2anc A*0<AB*0<BC*0<C+∞𝑒B𝑒C=+∞
87 80 86 sylan9eqr A*0<AB*0<BC*0<CA=+∞A𝑒B𝑒C=+∞
88 74 79 87 3eqtr4d A*0<AB*0<BC*0<CA=+∞A𝑒B𝑒C=A𝑒B𝑒C
89 simp1r A*0<AB*0<BC*0<C0<A
90 xmulasslem2 0<AA=−∞A𝑒B𝑒C=A𝑒B𝑒C
91 89 90 sylan A*0<AB*0<BC*0<CA=−∞A𝑒B𝑒C=A𝑒B𝑒C
92 elxr A*AA=+∞A=−∞
93 24 92 sylib A*0<AB*0<BC*0<CAA=+∞A=−∞
94 72 88 91 93 mpjao3dan A*0<AB*0<BC*0<CA𝑒B𝑒C=A𝑒B𝑒C