Proof of Theorem logcj
Step | Hyp | Ref
| Expression |
1 | | fveq2 6774 |
. . . . . . 7
⊢ (𝐴 = 0 → (ℑ‘𝐴) =
(ℑ‘0)) |
2 | | im0 14864 |
. . . . . . 7
⊢
(ℑ‘0) = 0 |
3 | 1, 2 | eqtrdi 2794 |
. . . . . 6
⊢ (𝐴 = 0 → (ℑ‘𝐴) = 0) |
4 | 3 | necon3i 2976 |
. . . . 5
⊢
((ℑ‘𝐴)
≠ 0 → 𝐴 ≠
0) |
5 | | logcl 25724 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → (log‘𝐴) ∈
ℂ) |
6 | 4, 5 | sylan2 593 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (log‘𝐴) ∈
ℂ) |
7 | | efcj 15801 |
. . . 4
⊢
((log‘𝐴)
∈ ℂ → (exp‘(∗‘(log‘𝐴))) =
(∗‘(exp‘(log‘𝐴)))) |
8 | 6, 7 | syl 17 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (exp‘(∗‘(log‘𝐴))) =
(∗‘(exp‘(log‘𝐴)))) |
9 | | eflog 25732 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) →
(exp‘(log‘𝐴)) =
𝐴) |
10 | 4, 9 | sylan2 593 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (exp‘(log‘𝐴)) = 𝐴) |
11 | 10 | fveq2d 6778 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (∗‘(exp‘(log‘𝐴))) = (∗‘𝐴)) |
12 | 8, 11 | eqtrd 2778 |
. 2
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (exp‘(∗‘(log‘𝐴))) = (∗‘𝐴)) |
13 | | cjcl 14816 |
. . . 4
⊢ (𝐴 ∈ ℂ →
(∗‘𝐴) ∈
ℂ) |
14 | 13 | adantr 481 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (∗‘𝐴)
∈ ℂ) |
15 | | simpr 485 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (ℑ‘𝐴)
≠ 0) |
16 | 15, 4 | syl 17 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ 𝐴 ≠
0) |
17 | | cjne0 14874 |
. . . . 5
⊢ (𝐴 ∈ ℂ → (𝐴 ≠ 0 ↔
(∗‘𝐴) ≠
0)) |
18 | 17 | adantr 481 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (𝐴 ≠ 0 ↔
(∗‘𝐴) ≠
0)) |
19 | 16, 18 | mpbid 231 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (∗‘𝐴)
≠ 0) |
20 | 6 | cjcld 14907 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (∗‘(log‘𝐴)) ∈ ℂ) |
21 | 6 | imcld 14906 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (ℑ‘(log‘𝐴)) ∈ ℝ) |
22 | | pire 25615 |
. . . . . . . 8
⊢ π
∈ ℝ |
23 | 22 | a1i 11 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ π ∈ ℝ) |
24 | | logimcl 25725 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → (-π <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) ≤ π)) |
25 | 4, 24 | sylan2 593 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (-π < (ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) ≤ π)) |
26 | 25 | simprd 496 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (ℑ‘(log‘𝐴)) ≤ π) |
27 | | rpre 12738 |
. . . . . . . . . . . . 13
⊢ (-𝐴 ∈ ℝ+
→ -𝐴 ∈
ℝ) |
28 | 27 | renegcld 11402 |
. . . . . . . . . . . 12
⊢ (-𝐴 ∈ ℝ+
→ --𝐴 ∈
ℝ) |
29 | | negneg 11271 |
. . . . . . . . . . . . . 14
⊢ (𝐴 ∈ ℂ → --𝐴 = 𝐴) |
30 | 29 | adantr 481 |
. . . . . . . . . . . . 13
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ --𝐴 = 𝐴) |
31 | 30 | eleq1d 2823 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (--𝐴 ∈ ℝ
↔ 𝐴 ∈
ℝ)) |
32 | 28, 31 | syl5ib 243 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (-𝐴 ∈
ℝ+ → 𝐴 ∈ ℝ)) |
33 | | lognegb 25745 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → (-𝐴 ∈ ℝ+
↔ (ℑ‘(log‘𝐴)) = π)) |
34 | 4, 33 | sylan2 593 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (-𝐴 ∈
ℝ+ ↔ (ℑ‘(log‘𝐴)) = π)) |
35 | | reim0b 14830 |
. . . . . . . . . . . 12
⊢ (𝐴 ∈ ℂ → (𝐴 ∈ ℝ ↔
(ℑ‘𝐴) =
0)) |
36 | 35 | adantr 481 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (𝐴 ∈ ℝ
↔ (ℑ‘𝐴) =
0)) |
37 | 32, 34, 36 | 3imtr3d 293 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ ((ℑ‘(log‘𝐴)) = π → (ℑ‘𝐴) = 0)) |
38 | 37 | necon3d 2964 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ ((ℑ‘𝐴)
≠ 0 → (ℑ‘(log‘𝐴)) ≠ π)) |
39 | 15, 38 | mpd 15 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (ℑ‘(log‘𝐴)) ≠ π) |
40 | 39 | necomd 2999 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ π ≠ (ℑ‘(log‘𝐴))) |
41 | 21, 23, 26, 40 | leneltd 11129 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (ℑ‘(log‘𝐴)) < π) |
42 | | ltneg 11475 |
. . . . . . 7
⊢
(((ℑ‘(log‘𝐴)) ∈ ℝ ∧ π ∈ ℝ)
→ ((ℑ‘(log‘𝐴)) < π ↔ -π <
-(ℑ‘(log‘𝐴)))) |
43 | 21, 22, 42 | sylancl 586 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ ((ℑ‘(log‘𝐴)) < π ↔ -π <
-(ℑ‘(log‘𝐴)))) |
44 | 41, 43 | mpbid 231 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ -π < -(ℑ‘(log‘𝐴))) |
45 | 6 | imcjd 14916 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (ℑ‘(∗‘(log‘𝐴))) = -(ℑ‘(log‘𝐴))) |
46 | 44, 45 | breqtrrd 5102 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ -π < (ℑ‘(∗‘(log‘𝐴)))) |
47 | 25 | simpld 495 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ -π < (ℑ‘(log‘𝐴))) |
48 | 22 | renegcli 11282 |
. . . . . . . 8
⊢ -π
∈ ℝ |
49 | | ltle 11063 |
. . . . . . . 8
⊢ ((-π
∈ ℝ ∧ (ℑ‘(log‘𝐴)) ∈ ℝ) → (-π <
(ℑ‘(log‘𝐴)) → -π ≤
(ℑ‘(log‘𝐴)))) |
50 | 48, 21, 49 | sylancr 587 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (-π < (ℑ‘(log‘𝐴)) → -π ≤
(ℑ‘(log‘𝐴)))) |
51 | 47, 50 | mpd 15 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ -π ≤ (ℑ‘(log‘𝐴))) |
52 | | lenegcon1 11479 |
. . . . . . 7
⊢ ((π
∈ ℝ ∧ (ℑ‘(log‘𝐴)) ∈ ℝ) → (-π ≤
(ℑ‘(log‘𝐴)) ↔ -(ℑ‘(log‘𝐴)) ≤ π)) |
53 | 22, 21, 52 | sylancr 587 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (-π ≤ (ℑ‘(log‘𝐴)) ↔ -(ℑ‘(log‘𝐴)) ≤ π)) |
54 | 51, 53 | mpbid 231 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ -(ℑ‘(log‘𝐴)) ≤ π) |
55 | 45, 54 | eqbrtrd 5096 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (ℑ‘(∗‘(log‘𝐴))) ≤ π) |
56 | | ellogrn 25715 |
. . . 4
⊢
((∗‘(log‘𝐴)) ∈ ran log ↔
((∗‘(log‘𝐴)) ∈ ℂ ∧ -π <
(ℑ‘(∗‘(log‘𝐴))) ∧
(ℑ‘(∗‘(log‘𝐴))) ≤ π)) |
57 | 20, 46, 55, 56 | syl3anbrc 1342 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (∗‘(log‘𝐴)) ∈ ran log) |
58 | | logeftb 25739 |
. . 3
⊢
(((∗‘𝐴)
∈ ℂ ∧ (∗‘𝐴) ≠ 0 ∧
(∗‘(log‘𝐴)) ∈ ran log) →
((log‘(∗‘𝐴)) = (∗‘(log‘𝐴)) ↔
(exp‘(∗‘(log‘𝐴))) = (∗‘𝐴))) |
59 | 14, 19, 57, 58 | syl3anc 1370 |
. 2
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ ((log‘(∗‘𝐴)) = (∗‘(log‘𝐴)) ↔
(exp‘(∗‘(log‘𝐴))) = (∗‘𝐴))) |
60 | 12, 59 | mpbird 256 |
1
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) ≠ 0)
→ (log‘(∗‘𝐴)) = (∗‘(log‘𝐴))) |