Metamath Proof Explorer


Theorem mulcxp

Description: Complex exponentiation of a product. Proposition 10-4.2(c) of Gleason p. 135. (Contributed by Mario Carneiro, 2-Aug-2014)

Ref Expression
Assertion mulcxp ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → A ⁢ B C = A C ⁢ B C

Proof

Step Hyp Ref Expression
1 simp1l ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → A ∈ ℝ
2 1 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → A ∈ ℂ
3 2 mul01d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → A ⋅ 0 = 0
4 3 oveq1d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → A ⋅ 0 C = 0 C
5 simp3 ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → C ∈ ℂ
6 2 5 mulcxplem ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → 0 C = A C ⁢ 0 C
7 4 6 eqtrd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → A ⋅ 0 C = A C ⁢ 0 C
8 oveq2 ⊢ B = 0 → A ⁢ B = A ⋅ 0
9 8 oveq1d ⊢ B = 0 → A ⁢ B C = A ⋅ 0 C
10 oveq1 ⊢ B = 0 → B C = 0 C
11 10 oveq2d ⊢ B = 0 → A C ⁢ B C = A C ⁢ 0 C
12 9 11 eqeq12d ⊢ B = 0 → A ⁢ B C = A C ⁢ B C ↔ A ⋅ 0 C = A C ⁢ 0 C
13 7 12 syl5ibrcom ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → B = 0 → A ⁢ B C = A C ⁢ B C
14 simp2l ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → B ∈ ℝ
15 14 recnd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → B ∈ ℂ
16 15 mul02d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → 0 ⋅ B = 0
17 16 oveq1d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → 0 ⋅ B C = 0 C
18 15 5 mulcxplem ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → 0 C = B C ⁢ 0 C
19 cxpcl ⊢ B ∈ ℂ ∧ C ∈ ℂ → B C ∈ ℂ
20 15 5 19 syl2anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → B C ∈ ℂ
21 0cn ⊢ 0 ∈ ℂ
22 cxpcl ⊢ 0 ∈ ℂ ∧ C ∈ ℂ → 0 C ∈ ℂ
23 21 5 22 sylancr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → 0 C ∈ ℂ
24 20 23 mulcomd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → B C ⁢ 0 C = 0 C ⁢ B C
25 18 24 eqtrd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → 0 C = 0 C ⁢ B C
26 17 25 eqtrd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → 0 ⋅ B C = 0 C ⁢ B C
27 oveq1 ⊢ A = 0 → A ⁢ B = 0 ⋅ B
28 27 oveq1d ⊢ A = 0 → A ⁢ B C = 0 ⋅ B C
29 oveq1 ⊢ A = 0 → A C = 0 C
30 29 oveq1d ⊢ A = 0 → A C ⁢ B C = 0 C ⁢ B C
31 28 30 eqeq12d ⊢ A = 0 → A ⁢ B C = A C ⁢ B C ↔ 0 ⋅ B C = 0 C ⁢ B C
32 26 31 syl5ibrcom ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → A = 0 → A ⁢ B C = A C ⁢ B C
33 32 a1dd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → A = 0 → B ≠ 0 → A ⁢ B C = A C ⁢ B C
34 1 adantr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → A ∈ ℝ
35 simpl1r ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → 0 ≤ A
36 simprl ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → A ≠ 0
37 34 35 36 ne0gt0d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → 0 < A
38 34 37 elrpd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → A ∈ ℝ +
39 14 adantr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → B ∈ ℝ
40 simpl2r ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → 0 ≤ B
41 simprr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → B ≠ 0
42 39 40 41 ne0gt0d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → 0 < B
43 39 42 elrpd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → B ∈ ℝ +
44 38 43 relogmuld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → log ⁡ A ⁢ B = log ⁡ A + log ⁡ B
45 44 oveq2d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → C ⁢ log ⁡ A ⁢ B = C ⁢ log ⁡ A + log ⁡ B
46 5 adantr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → C ∈ ℂ
47 2 adantr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → A ∈ ℂ
48 47 36 logcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → log ⁡ A ∈ ℂ
49 15 adantr ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → B ∈ ℂ
50 49 41 logcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → log ⁡ B ∈ ℂ
51 46 48 50 adddid ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → C ⁢ log ⁡ A + log ⁡ B = C ⁢ log ⁡ A + C ⁢ log ⁡ B
52 45 51 eqtrd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → C ⁢ log ⁡ A ⁢ B = C ⁢ log ⁡ A + C ⁢ log ⁡ B
53 52 fveq2d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → e C ⁢ log ⁡ A ⁢ B = e C ⁢ log ⁡ A + C ⁢ log ⁡ B
54 46 48 mulcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → C ⁢ log ⁡ A ∈ ℂ
55 46 50 mulcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → C ⁢ log ⁡ B ∈ ℂ
56 efadd ⊢ C ⁢ log ⁡ A ∈ ℂ ∧ C ⁢ log ⁡ B ∈ ℂ → e C ⁢ log ⁡ A + C ⁢ log ⁡ B = e C ⁢ log ⁡ A ⁢ e C ⁢ log ⁡ B
57 54 55 56 syl2anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → e C ⁢ log ⁡ A + C ⁢ log ⁡ B = e C ⁢ log ⁡ A ⁢ e C ⁢ log ⁡ B
58 53 57 eqtrd ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → e C ⁢ log ⁡ A ⁢ B = e C ⁢ log ⁡ A ⁢ e C ⁢ log ⁡ B
59 47 49 mulcld ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → A ⁢ B ∈ ℂ
60 47 49 36 41 mulne0d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → A ⁢ B ≠ 0
61 cxpef ⊢ A ⁢ B ∈ ℂ ∧ A ⁢ B ≠ 0 ∧ C ∈ ℂ → A ⁢ B C = e C ⁢ log ⁡ A ⁢ B
62 59 60 46 61 syl3anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → A ⁢ B C = e C ⁢ log ⁡ A ⁢ B
63 cxpef ⊢ A ∈ ℂ ∧ A ≠ 0 ∧ C ∈ ℂ → A C = e C ⁢ log ⁡ A
64 47 36 46 63 syl3anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → A C = e C ⁢ log ⁡ A
65 cxpef ⊢ B ∈ ℂ ∧ B ≠ 0 ∧ C ∈ ℂ → B C = e C ⁢ log ⁡ B
66 49 41 46 65 syl3anc ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → B C = e C ⁢ log ⁡ B
67 64 66 oveq12d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → A C ⁢ B C = e C ⁢ log ⁡ A ⁢ e C ⁢ log ⁡ B
68 58 62 67 3eqtr4d ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ ∧ A ≠ 0 ∧ B ≠ 0 → A ⁢ B C = A C ⁢ B C
69 68 exp32 ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → A ≠ 0 → B ≠ 0 → A ⁢ B C = A C ⁢ B C
70 33 69 pm2.61dne ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → B ≠ 0 → A ⁢ B C = A C ⁢ B C
71 13 70 pm2.61dne ⊢ A ∈ ℝ ∧ 0 ≤ A ∧ B ∈ ℝ ∧ 0 ≤ B ∧ C ∈ ℂ → A ⁢ B C = A C ⁢ B C