Proof of Theorem argregt0
Step | Hyp | Ref
| Expression |
1 | | recl 14058 |
. . . . . 6
⊢ (𝐴 ∈ ℂ →
(ℜ‘𝐴) ∈
ℝ) |
2 | | gt0ne0 10699 |
. . . . . 6
⊢
(((ℜ‘𝐴)
∈ ℝ ∧ 0 < (ℜ‘𝐴)) → (ℜ‘𝐴) ≠ 0) |
3 | 1, 2 | sylan 569 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(ℜ‘𝐴) ≠
0) |
4 | | fveq2 6333 |
. . . . . . 7
⊢ (𝐴 = 0 → (ℜ‘𝐴) =
(ℜ‘0)) |
5 | | re0 14100 |
. . . . . . 7
⊢
(ℜ‘0) = 0 |
6 | 4, 5 | syl6eq 2821 |
. . . . . 6
⊢ (𝐴 = 0 → (ℜ‘𝐴) = 0) |
7 | 6 | necon3i 2975 |
. . . . 5
⊢
((ℜ‘𝐴)
≠ 0 → 𝐴 ≠
0) |
8 | 3, 7 | syl 17 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
𝐴 ≠ 0) |
9 | | logcl 24536 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → (log‘𝐴) ∈
ℂ) |
10 | 8, 9 | syldan 579 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(log‘𝐴) ∈
ℂ) |
11 | 10 | imcld 14143 |
. 2
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(ℑ‘(log‘𝐴)) ∈ ℝ) |
12 | | coshalfpi 24442 |
. . . . . 6
⊢
(cos‘(π / 2)) = 0 |
13 | | simpr 471 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) → 0
< (ℜ‘𝐴)) |
14 | | abscl 14226 |
. . . . . . . . . . . . . 14
⊢ (𝐴 ∈ ℂ →
(abs‘𝐴) ∈
ℝ) |
15 | 14 | adantr 466 |
. . . . . . . . . . . . 13
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(abs‘𝐴) ∈
ℝ) |
16 | 15 | recnd 10274 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(abs‘𝐴) ∈
ℂ) |
17 | 16 | mul01d 10441 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
((abs‘𝐴) · 0)
= 0) |
18 | | simpl 468 |
. . . . . . . . . . . . . 14
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
𝐴 ∈
ℂ) |
19 | | absrpcl 14236 |
. . . . . . . . . . . . . . . 16
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → (abs‘𝐴) ∈
ℝ+) |
20 | 8, 19 | syldan 579 |
. . . . . . . . . . . . . . 15
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(abs‘𝐴) ∈
ℝ+) |
21 | 20 | rpne0d 12080 |
. . . . . . . . . . . . . 14
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(abs‘𝐴) ≠
0) |
22 | 18, 16, 21 | divcld 11007 |
. . . . . . . . . . . . 13
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(𝐴 / (abs‘𝐴)) ∈
ℂ) |
23 | 15, 22 | remul2d 14175 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(ℜ‘((abs‘𝐴) · (𝐴 / (abs‘𝐴)))) = ((abs‘𝐴) · (ℜ‘(𝐴 / (abs‘𝐴))))) |
24 | 18, 16, 21 | divcan2d 11009 |
. . . . . . . . . . . . 13
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
((abs‘𝐴) ·
(𝐴 / (abs‘𝐴))) = 𝐴) |
25 | 24 | fveq2d 6337 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(ℜ‘((abs‘𝐴) · (𝐴 / (abs‘𝐴)))) = (ℜ‘𝐴)) |
26 | 23, 25 | eqtr3d 2807 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
((abs‘𝐴) ·
(ℜ‘(𝐴 /
(abs‘𝐴)))) =
(ℜ‘𝐴)) |
27 | 13, 17, 26 | 3brtr4d 4819 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
((abs‘𝐴) · 0)
< ((abs‘𝐴)
· (ℜ‘(𝐴 /
(abs‘𝐴))))) |
28 | | 0re 10246 |
. . . . . . . . . . . 12
⊢ 0 ∈
ℝ |
29 | 28 | a1i 11 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) → 0
∈ ℝ) |
30 | 22 | recld 14142 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(ℜ‘(𝐴 /
(abs‘𝐴))) ∈
ℝ) |
31 | 29, 30, 20 | ltmul2d 12117 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) → (0
< (ℜ‘(𝐴 /
(abs‘𝐴))) ↔
((abs‘𝐴) · 0)
< ((abs‘𝐴)
· (ℜ‘(𝐴 /
(abs‘𝐴)))))) |
32 | 27, 31 | mpbird 247 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) → 0
< (ℜ‘(𝐴 /
(abs‘𝐴)))) |
33 | | efiarg 24574 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → (exp‘(i
· (ℑ‘(log‘𝐴)))) = (𝐴 / (abs‘𝐴))) |
34 | 8, 33 | syldan 579 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(exp‘(i · (ℑ‘(log‘𝐴)))) = (𝐴 / (abs‘𝐴))) |
35 | 34 | fveq2d 6337 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(ℜ‘(exp‘(i · (ℑ‘(log‘𝐴))))) = (ℜ‘(𝐴 / (abs‘𝐴)))) |
36 | 32, 35 | breqtrrd 4815 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) → 0
< (ℜ‘(exp‘(i · (ℑ‘(log‘𝐴)))))) |
37 | | recosval 15072 |
. . . . . . . . 9
⊢
((ℑ‘(log‘𝐴)) ∈ ℝ →
(cos‘(ℑ‘(log‘𝐴))) = (ℜ‘(exp‘(i ·
(ℑ‘(log‘𝐴)))))) |
38 | 11, 37 | syl 17 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(cos‘(ℑ‘(log‘𝐴))) = (ℜ‘(exp‘(i ·
(ℑ‘(log‘𝐴)))))) |
39 | 36, 38 | breqtrrd 4815 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) → 0
< (cos‘(ℑ‘(log‘𝐴)))) |
40 | | fveq2 6333 |
. . . . . . . . 9
⊢
((abs‘(ℑ‘(log‘𝐴))) = (ℑ‘(log‘𝐴)) →
(cos‘(abs‘(ℑ‘(log‘𝐴)))) =
(cos‘(ℑ‘(log‘𝐴)))) |
41 | 40 | a1i 11 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
((abs‘(ℑ‘(log‘𝐴))) = (ℑ‘(log‘𝐴)) →
(cos‘(abs‘(ℑ‘(log‘𝐴)))) =
(cos‘(ℑ‘(log‘𝐴))))) |
42 | 11 | recnd 10274 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(ℑ‘(log‘𝐴)) ∈ ℂ) |
43 | | cosneg 15083 |
. . . . . . . . . 10
⊢
((ℑ‘(log‘𝐴)) ∈ ℂ →
(cos‘-(ℑ‘(log‘𝐴))) =
(cos‘(ℑ‘(log‘𝐴)))) |
44 | 42, 43 | syl 17 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(cos‘-(ℑ‘(log‘𝐴))) =
(cos‘(ℑ‘(log‘𝐴)))) |
45 | | fveq2 6333 |
. . . . . . . . . 10
⊢
((abs‘(ℑ‘(log‘𝐴))) = -(ℑ‘(log‘𝐴)) →
(cos‘(abs‘(ℑ‘(log‘𝐴)))) =
(cos‘-(ℑ‘(log‘𝐴)))) |
46 | 45 | eqeq1d 2773 |
. . . . . . . . 9
⊢
((abs‘(ℑ‘(log‘𝐴))) = -(ℑ‘(log‘𝐴)) →
((cos‘(abs‘(ℑ‘(log‘𝐴)))) =
(cos‘(ℑ‘(log‘𝐴))) ↔
(cos‘-(ℑ‘(log‘𝐴))) =
(cos‘(ℑ‘(log‘𝐴))))) |
47 | 44, 46 | syl5ibrcom 237 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
((abs‘(ℑ‘(log‘𝐴))) = -(ℑ‘(log‘𝐴)) →
(cos‘(abs‘(ℑ‘(log‘𝐴)))) =
(cos‘(ℑ‘(log‘𝐴))))) |
48 | 11 | absord 14362 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
((abs‘(ℑ‘(log‘𝐴))) = (ℑ‘(log‘𝐴)) ∨
(abs‘(ℑ‘(log‘𝐴))) = -(ℑ‘(log‘𝐴)))) |
49 | 41, 47, 48 | mpjaod 849 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(cos‘(abs‘(ℑ‘(log‘𝐴)))) =
(cos‘(ℑ‘(log‘𝐴)))) |
50 | 39, 49 | breqtrrd 4815 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) → 0
< (cos‘(abs‘(ℑ‘(log‘𝐴))))) |
51 | 12, 50 | syl5eqbr 4822 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(cos‘(π / 2)) <
(cos‘(abs‘(ℑ‘(log‘𝐴))))) |
52 | | abscl 14226 |
. . . . . . . 8
⊢
((ℑ‘(log‘𝐴)) ∈ ℂ →
(abs‘(ℑ‘(log‘𝐴))) ∈ ℝ) |
53 | 42, 52 | syl 17 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(abs‘(ℑ‘(log‘𝐴))) ∈ ℝ) |
54 | 42 | absge0d 14391 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) → 0
≤ (abs‘(ℑ‘(log‘𝐴)))) |
55 | | logimcl 24537 |
. . . . . . . . . . 11
⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → (-π <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) ≤ π)) |
56 | 8, 55 | syldan 579 |
. . . . . . . . . 10
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(-π < (ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) ≤ π)) |
57 | 56 | simpld 482 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
-π < (ℑ‘(log‘𝐴))) |
58 | | pire 24431 |
. . . . . . . . . . 11
⊢ π
∈ ℝ |
59 | 58 | renegcli 10548 |
. . . . . . . . . 10
⊢ -π
∈ ℝ |
60 | | ltle 10332 |
. . . . . . . . . 10
⊢ ((-π
∈ ℝ ∧ (ℑ‘(log‘𝐴)) ∈ ℝ) → (-π <
(ℑ‘(log‘𝐴)) → -π ≤
(ℑ‘(log‘𝐴)))) |
61 | 59, 11, 60 | sylancr 575 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(-π < (ℑ‘(log‘𝐴)) → -π ≤
(ℑ‘(log‘𝐴)))) |
62 | 57, 61 | mpd 15 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
-π ≤ (ℑ‘(log‘𝐴))) |
63 | 56 | simprd 483 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(ℑ‘(log‘𝐴)) ≤ π) |
64 | | absle 14263 |
. . . . . . . . 9
⊢
(((ℑ‘(log‘𝐴)) ∈ ℝ ∧ π ∈ ℝ)
→ ((abs‘(ℑ‘(log‘𝐴))) ≤ π ↔ (-π ≤
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) ≤ π))) |
65 | 11, 58, 64 | sylancl 574 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
((abs‘(ℑ‘(log‘𝐴))) ≤ π ↔ (-π ≤
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) ≤ π))) |
66 | 62, 63, 65 | mpbir2and 692 |
. . . . . . 7
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(abs‘(ℑ‘(log‘𝐴))) ≤ π) |
67 | 28, 58 | elicc2i 12444 |
. . . . . . 7
⊢
((abs‘(ℑ‘(log‘𝐴))) ∈ (0[,]π) ↔
((abs‘(ℑ‘(log‘𝐴))) ∈ ℝ ∧ 0 ≤
(abs‘(ℑ‘(log‘𝐴))) ∧
(abs‘(ℑ‘(log‘𝐴))) ≤ π)) |
68 | 53, 54, 66, 67 | syl3anbrc 1428 |
. . . . . 6
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(abs‘(ℑ‘(log‘𝐴))) ∈ (0[,]π)) |
69 | | halfpire 24437 |
. . . . . . 7
⊢ (π /
2) ∈ ℝ |
70 | | pirp 24434 |
. . . . . . . 8
⊢ π
∈ ℝ+ |
71 | | rphalfcl 12061 |
. . . . . . . 8
⊢ (π
∈ ℝ+ → (π / 2) ∈
ℝ+) |
72 | | rpge0 12048 |
. . . . . . . 8
⊢ ((π /
2) ∈ ℝ+ → 0 ≤ (π / 2)) |
73 | 70, 71, 72 | mp2b 10 |
. . . . . . 7
⊢ 0 ≤
(π / 2) |
74 | | rphalflt 12063 |
. . . . . . . . 9
⊢ (π
∈ ℝ+ → (π / 2) < π) |
75 | 70, 74 | ax-mp 5 |
. . . . . . . 8
⊢ (π /
2) < π |
76 | 69, 58, 75 | ltleii 10366 |
. . . . . . 7
⊢ (π /
2) ≤ π |
77 | 28, 58 | elicc2i 12444 |
. . . . . . 7
⊢ ((π /
2) ∈ (0[,]π) ↔ ((π / 2) ∈ ℝ ∧ 0 ≤ (π / 2)
∧ (π / 2) ≤ π)) |
78 | 69, 73, 76, 77 | mpbir3an 1426 |
. . . . . 6
⊢ (π /
2) ∈ (0[,]π) |
79 | | cosord 24499 |
. . . . . 6
⊢
(((abs‘(ℑ‘(log‘𝐴))) ∈ (0[,]π) ∧ (π / 2)
∈ (0[,]π)) → ((abs‘(ℑ‘(log‘𝐴))) < (π / 2) ↔
(cos‘(π / 2)) <
(cos‘(abs‘(ℑ‘(log‘𝐴)))))) |
80 | 68, 78, 79 | sylancl 574 |
. . . . 5
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
((abs‘(ℑ‘(log‘𝐴))) < (π / 2) ↔ (cos‘(π
/ 2)) < (cos‘(abs‘(ℑ‘(log‘𝐴)))))) |
81 | 51, 80 | mpbird 247 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(abs‘(ℑ‘(log‘𝐴))) < (π / 2)) |
82 | | abslt 14262 |
. . . . 5
⊢
(((ℑ‘(log‘𝐴)) ∈ ℝ ∧ (π / 2) ∈
ℝ) → ((abs‘(ℑ‘(log‘𝐴))) < (π / 2) ↔ (-(π / 2) <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < (π /
2)))) |
83 | 11, 69, 82 | sylancl 574 |
. . . 4
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
((abs‘(ℑ‘(log‘𝐴))) < (π / 2) ↔ (-(π / 2) <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < (π /
2)))) |
84 | 81, 83 | mpbid 222 |
. . 3
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(-(π / 2) < (ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < (π /
2))) |
85 | 84 | simpld 482 |
. 2
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
-(π / 2) < (ℑ‘(log‘𝐴))) |
86 | 84 | simprd 483 |
. 2
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(ℑ‘(log‘𝐴)) < (π / 2)) |
87 | 69 | renegcli 10548 |
. . . 4
⊢ -(π /
2) ∈ ℝ |
88 | 87 | rexri 10303 |
. . 3
⊢ -(π /
2) ∈ ℝ* |
89 | 69 | rexri 10303 |
. . 3
⊢ (π /
2) ∈ ℝ* |
90 | | elioo2 12421 |
. . 3
⊢ ((-(π
/ 2) ∈ ℝ* ∧ (π / 2) ∈ ℝ*)
→ ((ℑ‘(log‘𝐴)) ∈ (-(π / 2)(,)(π / 2)) ↔
((ℑ‘(log‘𝐴)) ∈ ℝ ∧ -(π / 2) <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < (π /
2)))) |
91 | 88, 89, 90 | mp2an 672 |
. 2
⊢
((ℑ‘(log‘𝐴)) ∈ (-(π / 2)(,)(π / 2)) ↔
((ℑ‘(log‘𝐴)) ∈ ℝ ∧ -(π / 2) <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < (π /
2))) |
92 | 11, 85, 86, 91 | syl3anbrc 1428 |
1
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℜ‘𝐴)) →
(ℑ‘(log‘𝐴)) ∈ (-(π / 2)(,)(π /
2))) |