Metamath Proof Explorer


Theorem xmulasslem3

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

Ref Expression
Assertion xmulasslem3 ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )

Proof

Step Hyp Ref Expression
1 recn ( 𝐴 ∈ ℝ → 𝐴 ∈ ℂ )
2 recn ( 𝐵 ∈ ℝ → 𝐵 ∈ ℂ )
3 recn ( 𝐶 ∈ ℝ → 𝐶 ∈ ℂ )
4 mulass ( ( 𝐴 ∈ ℂ ∧ 𝐵 ∈ ℂ ∧ 𝐶 ∈ ℂ ) → ( ( 𝐴 · 𝐵 ) · 𝐶 ) = ( 𝐴 · ( 𝐵 · 𝐶 ) ) )
5 1 2 3 4 syl3an ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐶 ∈ ℝ ) → ( ( 𝐴 · 𝐵 ) · 𝐶 ) = ( 𝐴 · ( 𝐵 · 𝐶 ) ) )
6 5 3expa ( ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ∧ 𝐶 ∈ ℝ ) → ( ( 𝐴 · 𝐵 ) · 𝐶 ) = ( 𝐴 · ( 𝐵 · 𝐶 ) ) )
7 remulcl ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) → ( 𝐴 · 𝐵 ) ∈ ℝ )
8 rexmul ( ( ( 𝐴 · 𝐵 ) ∈ ℝ ∧ 𝐶 ∈ ℝ ) → ( ( 𝐴 · 𝐵 ) ·e 𝐶 ) = ( ( 𝐴 · 𝐵 ) · 𝐶 ) )
9 7 8 sylan ( ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ∧ 𝐶 ∈ ℝ ) → ( ( 𝐴 · 𝐵 ) ·e 𝐶 ) = ( ( 𝐴 · 𝐵 ) · 𝐶 ) )
10 remulcl ( ( 𝐵 ∈ ℝ ∧ 𝐶 ∈ ℝ ) → ( 𝐵 · 𝐶 ) ∈ ℝ )
11 rexmul ( ( 𝐴 ∈ ℝ ∧ ( 𝐵 · 𝐶 ) ∈ ℝ ) → ( 𝐴 ·e ( 𝐵 · 𝐶 ) ) = ( 𝐴 · ( 𝐵 · 𝐶 ) ) )
12 10 11 sylan2 ( ( 𝐴 ∈ ℝ ∧ ( 𝐵 ∈ ℝ ∧ 𝐶 ∈ ℝ ) ) → ( 𝐴 ·e ( 𝐵 · 𝐶 ) ) = ( 𝐴 · ( 𝐵 · 𝐶 ) ) )
13 12 anassrs ( ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ∧ 𝐶 ∈ ℝ ) → ( 𝐴 ·e ( 𝐵 · 𝐶 ) ) = ( 𝐴 · ( 𝐵 · 𝐶 ) ) )
14 6 9 13 3eqtr4d ( ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ∧ 𝐶 ∈ ℝ ) → ( ( 𝐴 · 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 · 𝐶 ) ) )
15 rexmul ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) → ( 𝐴 ·e 𝐵 ) = ( 𝐴 · 𝐵 ) )
16 15 adantr ( ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ∧ 𝐶 ∈ ℝ ) → ( 𝐴 ·e 𝐵 ) = ( 𝐴 · 𝐵 ) )
17 16 oveq1d ( ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ∧ 𝐶 ∈ ℝ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( ( 𝐴 · 𝐵 ) ·e 𝐶 ) )
18 rexmul ( ( 𝐵 ∈ ℝ ∧ 𝐶 ∈ ℝ ) → ( 𝐵 ·e 𝐶 ) = ( 𝐵 · 𝐶 ) )
19 18 adantll ( ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ∧ 𝐶 ∈ ℝ ) → ( 𝐵 ·e 𝐶 ) = ( 𝐵 · 𝐶 ) )
20 19 oveq2d ( ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ∧ 𝐶 ∈ ℝ ) → ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) = ( 𝐴 ·e ( 𝐵 · 𝐶 ) ) )
21 14 17 20 3eqtr4d ( ( ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ∧ 𝐶 ∈ ℝ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
22 21 adantll ( ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ) ∧ 𝐶 ∈ ℝ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
23 oveq2 ( 𝐶 = +∞ → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( ( 𝐴 ·e 𝐵 ) ·e +∞ ) )
24 simp1l ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → 𝐴 ∈ ℝ* )
25 simp2l ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → 𝐵 ∈ ℝ* )
26 xmulcl ( ( 𝐴 ∈ ℝ*𝐵 ∈ ℝ* ) → ( 𝐴 ·e 𝐵 ) ∈ ℝ* )
27 24 25 26 syl2anc ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( 𝐴 ·e 𝐵 ) ∈ ℝ* )
28 xmulgt0 ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ) → 0 < ( 𝐴 ·e 𝐵 ) )
29 28 3adant3 ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → 0 < ( 𝐴 ·e 𝐵 ) )
30 xmulpnf1 ( ( ( 𝐴 ·e 𝐵 ) ∈ ℝ* ∧ 0 < ( 𝐴 ·e 𝐵 ) ) → ( ( 𝐴 ·e 𝐵 ) ·e +∞ ) = +∞ )
31 27 29 30 syl2anc ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( ( 𝐴 ·e 𝐵 ) ·e +∞ ) = +∞ )
32 23 31 sylan9eqr ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐶 = +∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = +∞ )
33 simpl1 ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐶 = +∞ ) → ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) )
34 xmulpnf1 ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) → ( 𝐴 ·e +∞ ) = +∞ )
35 33 34 syl ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐶 = +∞ ) → ( 𝐴 ·e +∞ ) = +∞ )
36 32 35 eqtr4d ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐶 = +∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e +∞ ) )
37 oveq2 ( 𝐶 = +∞ → ( 𝐵 ·e 𝐶 ) = ( 𝐵 ·e +∞ ) )
38 xmulpnf1 ( ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) → ( 𝐵 ·e +∞ ) = +∞ )
39 38 3ad2ant2 ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( 𝐵 ·e +∞ ) = +∞ )
40 37 39 sylan9eqr ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐶 = +∞ ) → ( 𝐵 ·e 𝐶 ) = +∞ )
41 40 oveq2d ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐶 = +∞ ) → ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) = ( 𝐴 ·e +∞ ) )
42 36 41 eqtr4d ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐶 = +∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
43 42 adantlr ( ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ) ∧ 𝐶 = +∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
44 simpl3r ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ) → 0 < 𝐶 )
45 xmulasslem2 ( ( 0 < 𝐶𝐶 = -∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
46 44 45 sylan ( ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ) ∧ 𝐶 = -∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
47 simp3l ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → 𝐶 ∈ ℝ* )
48 elxr ( 𝐶 ∈ ℝ* ↔ ( 𝐶 ∈ ℝ ∨ 𝐶 = +∞ ∨ 𝐶 = -∞ ) )
49 47 48 sylib ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( 𝐶 ∈ ℝ ∨ 𝐶 = +∞ ∨ 𝐶 = -∞ ) )
50 49 adantr ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ) → ( 𝐶 ∈ ℝ ∨ 𝐶 = +∞ ∨ 𝐶 = -∞ ) )
51 22 43 46 50 mpjao3dan ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ ( 𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ) ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
52 51 anassrs ( ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 ∈ ℝ ) ∧ 𝐵 ∈ ℝ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
53 xmulpnf2 ( ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) → ( +∞ ·e 𝐶 ) = +∞ )
54 53 3ad2ant3 ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( +∞ ·e 𝐶 ) = +∞ )
55 34 3ad2ant1 ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( 𝐴 ·e +∞ ) = +∞ )
56 54 55 eqtr4d ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( +∞ ·e 𝐶 ) = ( 𝐴 ·e +∞ ) )
57 56 adantr ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐵 = +∞ ) → ( +∞ ·e 𝐶 ) = ( 𝐴 ·e +∞ ) )
58 oveq2 ( 𝐵 = +∞ → ( 𝐴 ·e 𝐵 ) = ( 𝐴 ·e +∞ ) )
59 58 55 sylan9eqr ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐵 = +∞ ) → ( 𝐴 ·e 𝐵 ) = +∞ )
60 59 oveq1d ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐵 = +∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( +∞ ·e 𝐶 ) )
61 oveq1 ( 𝐵 = +∞ → ( 𝐵 ·e 𝐶 ) = ( +∞ ·e 𝐶 ) )
62 61 54 sylan9eqr ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐵 = +∞ ) → ( 𝐵 ·e 𝐶 ) = +∞ )
63 62 oveq2d ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐵 = +∞ ) → ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) = ( 𝐴 ·e +∞ ) )
64 57 60 63 3eqtr4d ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐵 = +∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
65 64 adantlr ( ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 ∈ ℝ ) ∧ 𝐵 = +∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
66 simpl2r ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 ∈ ℝ ) → 0 < 𝐵 )
67 xmulasslem2 ( ( 0 < 𝐵𝐵 = -∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
68 66 67 sylan ( ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 ∈ ℝ ) ∧ 𝐵 = -∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
69 elxr ( 𝐵 ∈ ℝ* ↔ ( 𝐵 ∈ ℝ ∨ 𝐵 = +∞ ∨ 𝐵 = -∞ ) )
70 25 69 sylib ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( 𝐵 ∈ ℝ ∨ 𝐵 = +∞ ∨ 𝐵 = -∞ ) )
71 70 adantr ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 ∈ ℝ ) → ( 𝐵 ∈ ℝ ∨ 𝐵 = +∞ ∨ 𝐵 = -∞ ) )
72 52 65 68 71 mpjao3dan ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 ∈ ℝ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
73 simpl3 ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 = +∞ ) → ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) )
74 73 53 syl ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 = +∞ ) → ( +∞ ·e 𝐶 ) = +∞ )
75 oveq1 ( 𝐴 = +∞ → ( 𝐴 ·e 𝐵 ) = ( +∞ ·e 𝐵 ) )
76 xmulpnf2 ( ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) → ( +∞ ·e 𝐵 ) = +∞ )
77 76 3ad2ant2 ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( +∞ ·e 𝐵 ) = +∞ )
78 75 77 sylan9eqr ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 = +∞ ) → ( 𝐴 ·e 𝐵 ) = +∞ )
79 78 oveq1d ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 = +∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( +∞ ·e 𝐶 ) )
80 oveq1 ( 𝐴 = +∞ → ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) = ( +∞ ·e ( 𝐵 ·e 𝐶 ) ) )
81 xmulcl ( ( 𝐵 ∈ ℝ*𝐶 ∈ ℝ* ) → ( 𝐵 ·e 𝐶 ) ∈ ℝ* )
82 25 47 81 syl2anc ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( 𝐵 ·e 𝐶 ) ∈ ℝ* )
83 xmulgt0 ( ( ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → 0 < ( 𝐵 ·e 𝐶 ) )
84 83 3adant1 ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → 0 < ( 𝐵 ·e 𝐶 ) )
85 xmulpnf2 ( ( ( 𝐵 ·e 𝐶 ) ∈ ℝ* ∧ 0 < ( 𝐵 ·e 𝐶 ) ) → ( +∞ ·e ( 𝐵 ·e 𝐶 ) ) = +∞ )
86 82 84 85 syl2anc ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( +∞ ·e ( 𝐵 ·e 𝐶 ) ) = +∞ )
87 80 86 sylan9eqr ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 = +∞ ) → ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) = +∞ )
88 74 79 87 3eqtr4d ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 = +∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
89 simp1r ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → 0 < 𝐴 )
90 xmulasslem2 ( ( 0 < 𝐴𝐴 = -∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
91 89 90 sylan ( ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) ∧ 𝐴 = -∞ ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )
92 elxr ( 𝐴 ∈ ℝ* ↔ ( 𝐴 ∈ ℝ ∨ 𝐴 = +∞ ∨ 𝐴 = -∞ ) )
93 24 92 sylib ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( 𝐴 ∈ ℝ ∨ 𝐴 = +∞ ∨ 𝐴 = -∞ ) )
94 72 88 91 93 mpjao3dan ( ( ( 𝐴 ∈ ℝ* ∧ 0 < 𝐴 ) ∧ ( 𝐵 ∈ ℝ* ∧ 0 < 𝐵 ) ∧ ( 𝐶 ∈ ℝ* ∧ 0 < 𝐶 ) ) → ( ( 𝐴 ·e 𝐵 ) ·e 𝐶 ) = ( 𝐴 ·e ( 𝐵 ·e 𝐶 ) ) )