Proof of Theorem logneg2
Step | Hyp | Ref
| Expression |
1 | | imcl 14822 |
. . . . . . . 8
⊢ (𝐴 ∈ ℂ →
(ℑ‘𝐴) ∈
ℝ) |
2 | | gt0ne0 11440 |
. . . . . . . 8
⊢
(((ℑ‘𝐴)
∈ ℝ ∧ 0 < (ℑ‘𝐴)) → (ℑ‘𝐴) ≠ 0) |
3 | 1, 2 | sylan 580 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(ℑ‘𝐴) ≠
0) |
4 | | fveq2 6774 |
. . . . . . . . 9
⊢ (𝐴 = 0 → (ℑ‘𝐴) =
(ℑ‘0)) |
5 | | im0 14864 |
. . . . . . . . 9
⊢
(ℑ‘0) = 0 |
6 | 4, 5 | eqtrdi 2794 |
. . . . . . . 8
⊢ (𝐴 = 0 → (ℑ‘𝐴) = 0) |
7 | 6 | necon3i 2976 |
. . . . . . 7
⊢
((ℑ‘𝐴)
≠ 0 → 𝐴 ≠
0) |
8 | 3, 7 | syl 17 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
𝐴 ≠ 0) |
9 | | logcl 25724 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → (log‘𝐴) ∈
ℂ) |
10 | 8, 9 | syldan 591 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(log‘𝐴) ∈
ℂ) |
11 | | ax-icn 10930 |
. . . . . 6
⊢ i ∈
ℂ |
12 | | picn 25616 |
. . . . . 6
⊢ π
∈ ℂ |
13 | 11, 12 | mulcli 10982 |
. . . . 5
⊢ (i
· π) ∈ ℂ |
14 | | efsub 15809 |
. . . . 5
⊢
(((log‘𝐴)
∈ ℂ ∧ (i · π) ∈ ℂ) →
(exp‘((log‘𝐴)
− (i · π))) = ((exp‘(log‘𝐴)) / (exp‘(i ·
π)))) |
15 | 10, 13, 14 | sylancl 586 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(exp‘((log‘𝐴)
− (i · π))) = ((exp‘(log‘𝐴)) / (exp‘(i ·
π)))) |
16 | | eflog 25732 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) →
(exp‘(log‘𝐴)) =
𝐴) |
17 | 8, 16 | syldan 591 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(exp‘(log‘𝐴)) =
𝐴) |
18 | | efipi 25630 |
. . . . . 6
⊢
(exp‘(i · π)) = -1 |
19 | 18 | a1i 11 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(exp‘(i · π)) = -1) |
20 | 17, 19 | oveq12d 7293 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
((exp‘(log‘𝐴))
/ (exp‘(i · π))) = (𝐴 / -1)) |
21 | | ax-1cn 10929 |
. . . . . . 7
⊢ 1 ∈
ℂ |
22 | | ax-1ne0 10940 |
. . . . . . 7
⊢ 1 ≠
0 |
23 | | divneg2 11699 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 1 ∈
ℂ ∧ 1 ≠ 0) → -(𝐴 / 1) = (𝐴 / -1)) |
24 | 21, 22, 23 | mp3an23 1452 |
. . . . . 6
⊢ (𝐴 ∈ ℂ → -(𝐴 / 1) = (𝐴 / -1)) |
25 | | div1 11664 |
. . . . . . 7
⊢ (𝐴 ∈ ℂ → (𝐴 / 1) = 𝐴) |
26 | 25 | negeqd 11215 |
. . . . . 6
⊢ (𝐴 ∈ ℂ → -(𝐴 / 1) = -𝐴) |
27 | 24, 26 | eqtr3d 2780 |
. . . . 5
⊢ (𝐴 ∈ ℂ → (𝐴 / -1) = -𝐴) |
28 | 27 | adantr 481 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(𝐴 / -1) = -𝐴) |
29 | 15, 20, 28 | 3eqtrd 2782 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(exp‘((log‘𝐴)
− (i · π))) = -𝐴) |
30 | 29 | fveq2d 6778 |
. 2
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(log‘(exp‘((log‘𝐴) − (i · π)))) =
(log‘-𝐴)) |
31 | | subcl 11220 |
. . . . 5
⊢
(((log‘𝐴)
∈ ℂ ∧ (i · π) ∈ ℂ) → ((log‘𝐴) − (i · π))
∈ ℂ) |
32 | 10, 13, 31 | sylancl 586 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
((log‘𝐴) − (i
· π)) ∈ ℂ) |
33 | | argimgt0 25767 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(ℑ‘(log‘𝐴)) ∈ (0(,)π)) |
34 | | eliooord 13138 |
. . . . . . . . 9
⊢
((ℑ‘(log‘𝐴)) ∈ (0(,)π) → (0 <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < π)) |
35 | 33, 34 | syl 17 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(0 < (ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < π)) |
36 | 35 | simpld 495 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) → 0
< (ℑ‘(log‘𝐴))) |
37 | | imcl 14822 |
. . . . . . . . 9
⊢
((log‘𝐴)
∈ ℂ → (ℑ‘(log‘𝐴)) ∈ ℝ) |
38 | 10, 37 | syl 17 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(ℑ‘(log‘𝐴)) ∈ ℝ) |
39 | | pire 25615 |
. . . . . . . . 9
⊢ π
∈ ℝ |
40 | 39 | renegcli 11282 |
. . . . . . . 8
⊢ -π
∈ ℝ |
41 | | ltaddpos2 11466 |
. . . . . . . 8
⊢
(((ℑ‘(log‘𝐴)) ∈ ℝ ∧ -π ∈
ℝ) → (0 < (ℑ‘(log‘𝐴)) ↔ -π <
((ℑ‘(log‘𝐴)) + -π))) |
42 | 38, 40, 41 | sylancl 586 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(0 < (ℑ‘(log‘𝐴)) ↔ -π <
((ℑ‘(log‘𝐴)) + -π))) |
43 | 36, 42 | mpbid 231 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
-π < ((ℑ‘(log‘𝐴)) + -π)) |
44 | 38 | recnd 11003 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(ℑ‘(log‘𝐴)) ∈ ℂ) |
45 | | negsub 11269 |
. . . . . . 7
⊢
(((ℑ‘(log‘𝐴)) ∈ ℂ ∧ π ∈ ℂ)
→ ((ℑ‘(log‘𝐴)) + -π) =
((ℑ‘(log‘𝐴)) − π)) |
46 | 44, 12, 45 | sylancl 586 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
((ℑ‘(log‘𝐴)) + -π) =
((ℑ‘(log‘𝐴)) − π)) |
47 | 43, 46 | breqtrd 5100 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
-π < ((ℑ‘(log‘𝐴)) − π)) |
48 | | imsub 14846 |
. . . . . . 7
⊢
(((log‘𝐴)
∈ ℂ ∧ (i · π) ∈ ℂ) →
(ℑ‘((log‘𝐴) − (i · π))) =
((ℑ‘(log‘𝐴)) − (ℑ‘(i ·
π)))) |
49 | 10, 13, 48 | sylancl 586 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(ℑ‘((log‘𝐴) − (i · π))) =
((ℑ‘(log‘𝐴)) − (ℑ‘(i ·
π)))) |
50 | | reim 14820 |
. . . . . . . . 9
⊢ (π
∈ ℂ → (ℜ‘π) = (ℑ‘(i ·
π))) |
51 | 12, 50 | ax-mp 5 |
. . . . . . . 8
⊢
(ℜ‘π) = (ℑ‘(i · π)) |
52 | | rere 14833 |
. . . . . . . . 9
⊢ (π
∈ ℝ → (ℜ‘π) = π) |
53 | 39, 52 | ax-mp 5 |
. . . . . . . 8
⊢
(ℜ‘π) = π |
54 | 51, 53 | eqtr3i 2768 |
. . . . . . 7
⊢
(ℑ‘(i · π)) = π |
55 | 54 | oveq2i 7286 |
. . . . . 6
⊢
((ℑ‘(log‘𝐴)) − (ℑ‘(i ·
π))) = ((ℑ‘(log‘𝐴)) − π) |
56 | 49, 55 | eqtrdi 2794 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(ℑ‘((log‘𝐴) − (i · π))) =
((ℑ‘(log‘𝐴)) − π)) |
57 | 47, 56 | breqtrrd 5102 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
-π < (ℑ‘((log‘𝐴) − (i ·
π)))) |
58 | | resubcl 11285 |
. . . . . . 7
⊢
(((ℑ‘(log‘𝐴)) ∈ ℝ ∧ π ∈ ℝ)
→ ((ℑ‘(log‘𝐴)) − π) ∈
ℝ) |
59 | 38, 39, 58 | sylancl 586 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
((ℑ‘(log‘𝐴)) − π) ∈
ℝ) |
60 | 39 | a1i 11 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
π ∈ ℝ) |
61 | | 0re 10977 |
. . . . . . . 8
⊢ 0 ∈
ℝ |
62 | | pipos 25617 |
. . . . . . . 8
⊢ 0 <
π |
63 | 61, 39, 62 | ltleii 11098 |
. . . . . . 7
⊢ 0 ≤
π |
64 | | subge02 11491 |
. . . . . . . 8
⊢
(((ℑ‘(log‘𝐴)) ∈ ℝ ∧ π ∈ ℝ)
→ (0 ≤ π ↔ ((ℑ‘(log‘𝐴)) − π) ≤
(ℑ‘(log‘𝐴)))) |
65 | 38, 39, 64 | sylancl 586 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(0 ≤ π ↔ ((ℑ‘(log‘𝐴)) − π) ≤
(ℑ‘(log‘𝐴)))) |
66 | 63, 65 | mpbii 232 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
((ℑ‘(log‘𝐴)) − π) ≤
(ℑ‘(log‘𝐴))) |
67 | | logimcl 25725 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → (-π <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) ≤ π)) |
68 | 8, 67 | syldan 591 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(-π < (ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) ≤ π)) |
69 | 68 | simprd 496 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(ℑ‘(log‘𝐴)) ≤ π) |
70 | 59, 38, 60, 66, 69 | letrd 11132 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
((ℑ‘(log‘𝐴)) − π) ≤ π) |
71 | 56, 70 | eqbrtrd 5096 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(ℑ‘((log‘𝐴) − (i · π))) ≤
π) |
72 | | ellogrn 25715 |
. . . 4
⊢
(((log‘𝐴)
− (i · π)) ∈ ran log ↔ (((log‘𝐴) − (i · π)) ∈ ℂ
∧ -π < (ℑ‘((log‘𝐴) − (i · π))) ∧
(ℑ‘((log‘𝐴) − (i · π))) ≤
π)) |
73 | 32, 57, 71, 72 | syl3anbrc 1342 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
((log‘𝐴) − (i
· π)) ∈ ran log) |
74 | | logef 25737 |
. . 3
⊢
(((log‘𝐴)
− (i · π)) ∈ ran log →
(log‘(exp‘((log‘𝐴) − (i · π)))) =
((log‘𝐴) − (i
· π))) |
75 | 73, 74 | syl 17 |
. 2
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(log‘(exp‘((log‘𝐴) − (i · π)))) =
((log‘𝐴) − (i
· π))) |
76 | 30, 75 | eqtr3d 2780 |
1
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(log‘-𝐴) =
((log‘𝐴) − (i
· π))) |