Proof of Theorem logcnlem3
Step | Hyp | Ref
| Expression |
1 | | pire 25520 |
. . . . . 6
⊢ π
∈ ℝ |
2 | 1 | renegcli 11212 |
. . . . 5
⊢ -π
∈ ℝ |
3 | 2 | a1i 11 |
. . . 4
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → -π ∈
ℝ) |
4 | | logcnlem.b |
. . . . . . . 8
⊢ (𝜑 → 𝐵 ∈ 𝐷) |
5 | | logcn.d |
. . . . . . . . . 10
⊢ 𝐷 = (ℂ ∖
(-∞(,]0)) |
6 | 5 | ellogdm 25699 |
. . . . . . . . 9
⊢ (𝐵 ∈ 𝐷 ↔ (𝐵 ∈ ℂ ∧ (𝐵 ∈ ℝ → 𝐵 ∈
ℝ+))) |
7 | 6 | simplbi 497 |
. . . . . . . 8
⊢ (𝐵 ∈ 𝐷 → 𝐵 ∈ ℂ) |
8 | 4, 7 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝐵 ∈ ℂ) |
9 | 5 | logdmn0 25700 |
. . . . . . . 8
⊢ (𝐵 ∈ 𝐷 → 𝐵 ≠ 0) |
10 | 4, 9 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝐵 ≠ 0) |
11 | 8, 10 | logcld 25631 |
. . . . . 6
⊢ (𝜑 → (log‘𝐵) ∈
ℂ) |
12 | 11 | imcld 14834 |
. . . . 5
⊢ (𝜑 →
(ℑ‘(log‘𝐵)) ∈ ℝ) |
13 | 12 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘(log‘𝐵)) ∈ ℝ) |
14 | | logcnlem.a |
. . . . . . . . 9
⊢ (𝜑 → 𝐴 ∈ 𝐷) |
15 | 5 | ellogdm 25699 |
. . . . . . . . . 10
⊢ (𝐴 ∈ 𝐷 ↔ (𝐴 ∈ ℂ ∧ (𝐴 ∈ ℝ → 𝐴 ∈
ℝ+))) |
16 | 15 | simplbi 497 |
. . . . . . . . 9
⊢ (𝐴 ∈ 𝐷 → 𝐴 ∈ ℂ) |
17 | 14, 16 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → 𝐴 ∈ ℂ) |
18 | 5 | logdmn0 25700 |
. . . . . . . . 9
⊢ (𝐴 ∈ 𝐷 → 𝐴 ≠ 0) |
19 | 14, 18 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → 𝐴 ≠ 0) |
20 | 17, 19 | logcld 25631 |
. . . . . . 7
⊢ (𝜑 → (log‘𝐴) ∈
ℂ) |
21 | 20 | imcld 14834 |
. . . . . 6
⊢ (𝜑 →
(ℑ‘(log‘𝐴)) ∈ ℝ) |
22 | 12, 21 | resubcld 11333 |
. . . . 5
⊢ (𝜑 →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) ∈
ℝ) |
23 | 22 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) ∈
ℝ) |
24 | 8, 10 | logimcld 25632 |
. . . . . 6
⊢ (𝜑 → (-π <
(ℑ‘(log‘𝐵)) ∧ (ℑ‘(log‘𝐵)) ≤ π)) |
25 | 24 | simpld 494 |
. . . . 5
⊢ (𝜑 → -π <
(ℑ‘(log‘𝐵))) |
26 | 25 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → -π <
(ℑ‘(log‘𝐵))) |
27 | 12 | recnd 10934 |
. . . . . . 7
⊢ (𝜑 →
(ℑ‘(log‘𝐵)) ∈ ℂ) |
28 | 27 | adantr 480 |
. . . . . 6
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘(log‘𝐵)) ∈ ℂ) |
29 | 28 | subid1d 11251 |
. . . . 5
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
((ℑ‘(log‘𝐵)) − 0) =
(ℑ‘(log‘𝐵))) |
30 | 21 | adantr 480 |
. . . . . 6
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘(log‘𝐴)) ∈ ℝ) |
31 | | 0red 10909 |
. . . . . 6
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → 0 ∈
ℝ) |
32 | | argimlt0 25673 |
. . . . . . . . 9
⊢ ((𝐴 ∈ ℂ ∧
(ℑ‘𝐴) < 0)
→ (ℑ‘(log‘𝐴)) ∈ (-π(,)0)) |
33 | 17, 32 | sylan 579 |
. . . . . . . 8
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘(log‘𝐴)) ∈ (-π(,)0)) |
34 | | eliooord 13067 |
. . . . . . . 8
⊢
((ℑ‘(log‘𝐴)) ∈ (-π(,)0) → (-π <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < 0)) |
35 | 33, 34 | syl 17 |
. . . . . . 7
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → (-π <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < 0)) |
36 | 35 | simprd 495 |
. . . . . 6
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘(log‘𝐴)) < 0) |
37 | 30, 31, 13, 36 | ltsub2dd 11518 |
. . . . 5
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
((ℑ‘(log‘𝐵)) − 0) <
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴)))) |
38 | 29, 37 | eqbrtrrd 5094 |
. . . 4
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘(log‘𝐵)) < ((ℑ‘(log‘𝐵)) −
(ℑ‘(log‘𝐴)))) |
39 | 3, 13, 23, 26, 38 | lttrd 11066 |
. . 3
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → -π <
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴)))) |
40 | 25 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ (ℑ‘𝐴) = 0) → -π <
(ℑ‘(log‘𝐵))) |
41 | | reim0b 14758 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ ℂ → (𝐴 ∈ ℝ ↔
(ℑ‘𝐴) =
0)) |
42 | 17, 41 | syl 17 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐴 ∈ ℝ ↔ (ℑ‘𝐴) = 0)) |
43 | 15 | simprbi 496 |
. . . . . . . . . . 11
⊢ (𝐴 ∈ 𝐷 → (𝐴 ∈ ℝ → 𝐴 ∈
ℝ+)) |
44 | 14, 43 | syl 17 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐴 ∈ ℝ → 𝐴 ∈
ℝ+)) |
45 | 42, 44 | sylbird 259 |
. . . . . . . . 9
⊢ (𝜑 → ((ℑ‘𝐴) = 0 → 𝐴 ∈
ℝ+)) |
46 | 45 | imp 406 |
. . . . . . . 8
⊢ ((𝜑 ∧ (ℑ‘𝐴) = 0) → 𝐴 ∈
ℝ+) |
47 | 46 | relogcld 25683 |
. . . . . . 7
⊢ ((𝜑 ∧ (ℑ‘𝐴) = 0) → (log‘𝐴) ∈
ℝ) |
48 | 47 | reim0d 14864 |
. . . . . 6
⊢ ((𝜑 ∧ (ℑ‘𝐴) = 0) →
(ℑ‘(log‘𝐴)) = 0) |
49 | 48 | oveq2d 7271 |
. . . . 5
⊢ ((𝜑 ∧ (ℑ‘𝐴) = 0) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) =
((ℑ‘(log‘𝐵)) − 0)) |
50 | 27 | subid1d 11251 |
. . . . . 6
⊢ (𝜑 →
((ℑ‘(log‘𝐵)) − 0) =
(ℑ‘(log‘𝐵))) |
51 | 50 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ (ℑ‘𝐴) = 0) →
((ℑ‘(log‘𝐵)) − 0) =
(ℑ‘(log‘𝐵))) |
52 | 49, 51 | eqtrd 2778 |
. . . 4
⊢ ((𝜑 ∧ (ℑ‘𝐴) = 0) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) =
(ℑ‘(log‘𝐵))) |
53 | 40, 52 | breqtrrd 5098 |
. . 3
⊢ ((𝜑 ∧ (ℑ‘𝐴) = 0) → -π <
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴)))) |
54 | 2 | a1i 11 |
. . . 4
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → -π ∈
ℝ) |
55 | 21 | renegcld 11332 |
. . . . 5
⊢ (𝜑 →
-(ℑ‘(log‘𝐴)) ∈ ℝ) |
56 | 55 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
-(ℑ‘(log‘𝐴)) ∈ ℝ) |
57 | 22 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) ∈
ℝ) |
58 | | argimgt0 25672 |
. . . . . . . 8
⊢ ((𝐴 ∈ ℂ ∧ 0 <
(ℑ‘𝐴)) →
(ℑ‘(log‘𝐴)) ∈ (0(,)π)) |
59 | 17, 58 | sylan 579 |
. . . . . . 7
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
(ℑ‘(log‘𝐴)) ∈ (0(,)π)) |
60 | | eliooord 13067 |
. . . . . . 7
⊢
((ℑ‘(log‘𝐴)) ∈ (0(,)π) → (0 <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < π)) |
61 | 59, 60 | syl 17 |
. . . . . 6
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (0 <
(ℑ‘(log‘𝐴)) ∧ (ℑ‘(log‘𝐴)) < π)) |
62 | 61 | simprd 495 |
. . . . 5
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
(ℑ‘(log‘𝐴)) < π) |
63 | | ltneg 11405 |
. . . . . . 7
⊢
(((ℑ‘(log‘𝐴)) ∈ ℝ ∧ π ∈ ℝ)
→ ((ℑ‘(log‘𝐴)) < π ↔ -π <
-(ℑ‘(log‘𝐴)))) |
64 | 21, 1, 63 | sylancl 585 |
. . . . . 6
⊢ (𝜑 →
((ℑ‘(log‘𝐴)) < π ↔ -π <
-(ℑ‘(log‘𝐴)))) |
65 | 64 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
((ℑ‘(log‘𝐴)) < π ↔ -π <
-(ℑ‘(log‘𝐴)))) |
66 | 62, 65 | mpbid 231 |
. . . 4
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → -π <
-(ℑ‘(log‘𝐴))) |
67 | | df-neg 11138 |
. . . . 5
⊢
-(ℑ‘(log‘𝐴)) = (0 −
(ℑ‘(log‘𝐴))) |
68 | 8 | adantr 480 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → 𝐵 ∈ ℂ) |
69 | 17, 8 | imsubd 14856 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (ℑ‘(𝐴 − 𝐵)) = ((ℑ‘𝐴) − (ℑ‘𝐵))) |
70 | 69 | adantr 480 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (ℑ‘(𝐴 − 𝐵)) = ((ℑ‘𝐴) − (ℑ‘𝐵))) |
71 | 17, 8 | subcld 11262 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (𝐴 − 𝐵) ∈ ℂ) |
72 | 71 | imcld 14834 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (ℑ‘(𝐴 − 𝐵)) ∈ ℝ) |
73 | 72 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (ℑ‘(𝐴 − 𝐵)) ∈ ℝ) |
74 | 71 | abscld 15076 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (abs‘(𝐴 − 𝐵)) ∈ ℝ) |
75 | 74 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (abs‘(𝐴 − 𝐵)) ∈ ℝ) |
76 | 17 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → 𝐴 ∈ ℂ) |
77 | 76 | imcld 14834 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (ℑ‘𝐴) ∈
ℝ) |
78 | | absimle 14949 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝐴 − 𝐵) ∈ ℂ →
(abs‘(ℑ‘(𝐴 − 𝐵))) ≤ (abs‘(𝐴 − 𝐵))) |
79 | 71, 78 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 →
(abs‘(ℑ‘(𝐴 − 𝐵))) ≤ (abs‘(𝐴 − 𝐵))) |
80 | 72, 74 | absled 15070 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 →
((abs‘(ℑ‘(𝐴 − 𝐵))) ≤ (abs‘(𝐴 − 𝐵)) ↔ (-(abs‘(𝐴 − 𝐵)) ≤ (ℑ‘(𝐴 − 𝐵)) ∧ (ℑ‘(𝐴 − 𝐵)) ≤ (abs‘(𝐴 − 𝐵))))) |
81 | 79, 80 | mpbid 231 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (-(abs‘(𝐴 − 𝐵)) ≤ (ℑ‘(𝐴 − 𝐵)) ∧ (ℑ‘(𝐴 − 𝐵)) ≤ (abs‘(𝐴 − 𝐵)))) |
82 | 81 | simprd 495 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (ℑ‘(𝐴 − 𝐵)) ≤ (abs‘(𝐴 − 𝐵))) |
83 | 82 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (ℑ‘(𝐴 − 𝐵)) ≤ (abs‘(𝐴 − 𝐵))) |
84 | | logcnlem.s |
. . . . . . . . . . . . . . . . . 18
⊢ 𝑆 = if(𝐴 ∈ ℝ+, 𝐴,
(abs‘(ℑ‘𝐴))) |
85 | | rpre 12667 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝐴 ∈ ℝ+
→ 𝐴 ∈
ℝ) |
86 | 85 | adantl 481 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((𝜑 ∧ 𝐴 ∈ ℝ+) → 𝐴 ∈
ℝ) |
87 | 17 | imcld 14834 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (𝜑 → (ℑ‘𝐴) ∈
ℝ) |
88 | 87 | recnd 10934 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝜑 → (ℑ‘𝐴) ∈
ℂ) |
89 | 88 | abscld 15076 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 →
(abs‘(ℑ‘𝐴)) ∈ ℝ) |
90 | 89 | adantr 480 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((𝜑 ∧ ¬ 𝐴 ∈ ℝ+) →
(abs‘(ℑ‘𝐴)) ∈ ℝ) |
91 | 86, 90 | ifclda 4491 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → if(𝐴 ∈ ℝ+, 𝐴,
(abs‘(ℑ‘𝐴))) ∈ ℝ) |
92 | 84, 91 | eqeltrid 2843 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → 𝑆 ∈ ℝ) |
93 | | logcnlem.t |
. . . . . . . . . . . . . . . . . 18
⊢ 𝑇 = ((abs‘𝐴) · (𝑅 / (1 + 𝑅))) |
94 | 17 | abscld 15076 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → (abs‘𝐴) ∈
ℝ) |
95 | | logcnlem.r |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝜑 → 𝑅 ∈
ℝ+) |
96 | 95 | rpred 12701 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → 𝑅 ∈ ℝ) |
97 | | 1rp 12663 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ 1 ∈
ℝ+ |
98 | | rpaddcl 12681 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ((1
∈ ℝ+ ∧ 𝑅 ∈ ℝ+) → (1 +
𝑅) ∈
ℝ+) |
99 | 97, 95, 98 | sylancr 586 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (1 + 𝑅) ∈
ℝ+) |
100 | 96, 99 | rerpdivcld 12732 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → (𝑅 / (1 + 𝑅)) ∈ ℝ) |
101 | 94, 100 | remulcld 10936 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → ((abs‘𝐴) · (𝑅 / (1 + 𝑅))) ∈ ℝ) |
102 | 93, 101 | eqeltrid 2843 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → 𝑇 ∈ ℝ) |
103 | 92, 102 | ifcld 4502 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → if(𝑆 ≤ 𝑇, 𝑆, 𝑇) ∈ ℝ) |
104 | | logcnlem.l |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (abs‘(𝐴 − 𝐵)) < if(𝑆 ≤ 𝑇, 𝑆, 𝑇)) |
105 | | min1 12852 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝑆 ∈ ℝ ∧ 𝑇 ∈ ℝ) → if(𝑆 ≤ 𝑇, 𝑆, 𝑇) ≤ 𝑆) |
106 | 92, 102, 105 | syl2anc 583 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → if(𝑆 ≤ 𝑇, 𝑆, 𝑇) ≤ 𝑆) |
107 | 74, 103, 92, 104, 106 | ltletrd 11065 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → (abs‘(𝐴 − 𝐵)) < 𝑆) |
108 | 107 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (abs‘(𝐴 − 𝐵)) < 𝑆) |
109 | | gt0ne0 11370 |
. . . . . . . . . . . . . . . . 17
⊢
(((ℑ‘𝐴)
∈ ℝ ∧ 0 < (ℑ‘𝐴)) → (ℑ‘𝐴) ≠ 0) |
110 | 87, 109 | sylan 579 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (ℑ‘𝐴) ≠ 0) |
111 | 85, 42 | syl5ib 243 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → (𝐴 ∈ ℝ+ →
(ℑ‘𝐴) =
0)) |
112 | 111 | necon3ad 2955 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → ((ℑ‘𝐴) ≠ 0 → ¬ 𝐴 ∈
ℝ+)) |
113 | 112 | imp 406 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝜑 ∧ (ℑ‘𝐴) ≠ 0) → ¬ 𝐴 ∈
ℝ+) |
114 | | iffalse 4465 |
. . . . . . . . . . . . . . . . . 18
⊢ (¬
𝐴 ∈
ℝ+ → if(𝐴 ∈ ℝ+, 𝐴,
(abs‘(ℑ‘𝐴))) = (abs‘(ℑ‘𝐴))) |
115 | 84, 114 | syl5eq 2791 |
. . . . . . . . . . . . . . . . 17
⊢ (¬
𝐴 ∈
ℝ+ → 𝑆 = (abs‘(ℑ‘𝐴))) |
116 | 113, 115 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ (ℑ‘𝐴) ≠ 0) → 𝑆 =
(abs‘(ℑ‘𝐴))) |
117 | 110, 116 | syldan 590 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → 𝑆 = (abs‘(ℑ‘𝐴))) |
118 | | 0re 10908 |
. . . . . . . . . . . . . . . . . 18
⊢ 0 ∈
ℝ |
119 | | ltle 10994 |
. . . . . . . . . . . . . . . . . 18
⊢ ((0
∈ ℝ ∧ (ℑ‘𝐴) ∈ ℝ) → (0 <
(ℑ‘𝐴) → 0
≤ (ℑ‘𝐴))) |
120 | 118, 87, 119 | sylancr 586 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → (0 <
(ℑ‘𝐴) → 0
≤ (ℑ‘𝐴))) |
121 | 120 | imp 406 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → 0 ≤
(ℑ‘𝐴)) |
122 | 77, 121 | absidd 15062 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
(abs‘(ℑ‘𝐴)) = (ℑ‘𝐴)) |
123 | 117, 122 | eqtrd 2778 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → 𝑆 = (ℑ‘𝐴)) |
124 | 108, 123 | breqtrd 5096 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (abs‘(𝐴 − 𝐵)) < (ℑ‘𝐴)) |
125 | 73, 75, 77, 83, 124 | lelttrd 11063 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (ℑ‘(𝐴 − 𝐵)) < (ℑ‘𝐴)) |
126 | 70, 125 | eqbrtrrd 5094 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → ((ℑ‘𝐴) − (ℑ‘𝐵)) < (ℑ‘𝐴)) |
127 | 88 | adantr 480 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (ℑ‘𝐴) ∈
ℂ) |
128 | 127 | subid1d 11251 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → ((ℑ‘𝐴) − 0) =
(ℑ‘𝐴)) |
129 | 126, 128 | breqtrrd 5098 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → ((ℑ‘𝐴) − (ℑ‘𝐵)) < ((ℑ‘𝐴) − 0)) |
130 | | 0red 10909 |
. . . . . . . . . . . 12
⊢ (𝜑 → 0 ∈
ℝ) |
131 | 8 | imcld 14834 |
. . . . . . . . . . . 12
⊢ (𝜑 → (ℑ‘𝐵) ∈
ℝ) |
132 | 130, 131,
87 | ltsub2d 11515 |
. . . . . . . . . . 11
⊢ (𝜑 → (0 <
(ℑ‘𝐵) ↔
((ℑ‘𝐴) −
(ℑ‘𝐵)) <
((ℑ‘𝐴) −
0))) |
133 | 132 | adantr 480 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (0 <
(ℑ‘𝐵) ↔
((ℑ‘𝐴) −
(ℑ‘𝐵)) <
((ℑ‘𝐴) −
0))) |
134 | 129, 133 | mpbird 256 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → 0 <
(ℑ‘𝐵)) |
135 | | argimgt0 25672 |
. . . . . . . . 9
⊢ ((𝐵 ∈ ℂ ∧ 0 <
(ℑ‘𝐵)) →
(ℑ‘(log‘𝐵)) ∈ (0(,)π)) |
136 | 68, 134, 135 | syl2anc 583 |
. . . . . . . 8
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
(ℑ‘(log‘𝐵)) ∈ (0(,)π)) |
137 | | eliooord 13067 |
. . . . . . . 8
⊢
((ℑ‘(log‘𝐵)) ∈ (0(,)π) → (0 <
(ℑ‘(log‘𝐵)) ∧ (ℑ‘(log‘𝐵)) < π)) |
138 | 136, 137 | syl 17 |
. . . . . . 7
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (0 <
(ℑ‘(log‘𝐵)) ∧ (ℑ‘(log‘𝐵)) < π)) |
139 | 138 | simpld 494 |
. . . . . 6
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → 0 <
(ℑ‘(log‘𝐵))) |
140 | 130, 12, 21 | ltsub1d 11514 |
. . . . . . 7
⊢ (𝜑 → (0 <
(ℑ‘(log‘𝐵)) ↔ (0 −
(ℑ‘(log‘𝐴))) < ((ℑ‘(log‘𝐵)) −
(ℑ‘(log‘𝐴))))) |
141 | 140 | adantr 480 |
. . . . . 6
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (0 <
(ℑ‘(log‘𝐵)) ↔ (0 −
(ℑ‘(log‘𝐴))) < ((ℑ‘(log‘𝐵)) −
(ℑ‘(log‘𝐴))))) |
142 | 139, 141 | mpbid 231 |
. . . . 5
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → (0 −
(ℑ‘(log‘𝐴))) < ((ℑ‘(log‘𝐵)) −
(ℑ‘(log‘𝐴)))) |
143 | 67, 142 | eqbrtrid 5105 |
. . . 4
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
-(ℑ‘(log‘𝐴)) < ((ℑ‘(log‘𝐵)) −
(ℑ‘(log‘𝐴)))) |
144 | 54, 56, 57, 66, 143 | lttrd 11066 |
. . 3
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → -π <
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴)))) |
145 | | lttri4 10990 |
. . . 4
⊢
(((ℑ‘𝐴)
∈ ℝ ∧ 0 ∈ ℝ) → ((ℑ‘𝐴) < 0 ∨ (ℑ‘𝐴) = 0 ∨ 0 <
(ℑ‘𝐴))) |
146 | 87, 118, 145 | sylancl 585 |
. . 3
⊢ (𝜑 → ((ℑ‘𝐴) < 0 ∨
(ℑ‘𝐴) = 0 ∨
0 < (ℑ‘𝐴))) |
147 | 39, 53, 144, 146 | mpjao3dan 1429 |
. 2
⊢ (𝜑 → -π <
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴)))) |
148 | 1 | a1i 11 |
. . . 4
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → π ∈
ℝ) |
149 | 30 | renegcld 11332 |
. . . . 5
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
-(ℑ‘(log‘𝐴)) ∈ ℝ) |
150 | 8 | adantr 480 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → 𝐵 ∈
ℂ) |
151 | 88 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘𝐴) ∈
ℂ) |
152 | 151 | subid1d 11251 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
((ℑ‘𝐴) −
0) = (ℑ‘𝐴)) |
153 | 87 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘𝐴) ∈
ℝ) |
154 | 74 | renegcld 11332 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → -(abs‘(𝐴 − 𝐵)) ∈ ℝ) |
155 | 154 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
-(abs‘(𝐴 −
𝐵)) ∈
ℝ) |
156 | 72 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘(𝐴 −
𝐵)) ∈
ℝ) |
157 | 74 | adantr 480 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(abs‘(𝐴 − 𝐵)) ∈
ℝ) |
158 | 107 | adantr 480 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(abs‘(𝐴 − 𝐵)) < 𝑆) |
159 | 118 | ltnri 11014 |
. . . . . . . . . . . . . . . . . . . 20
⊢ ¬ 0
< 0 |
160 | | breq1 5073 |
. . . . . . . . . . . . . . . . . . . 20
⊢
((ℑ‘𝐴) =
0 → ((ℑ‘𝐴)
< 0 ↔ 0 < 0)) |
161 | 159, 160 | mtbiri 326 |
. . . . . . . . . . . . . . . . . . 19
⊢
((ℑ‘𝐴) =
0 → ¬ (ℑ‘𝐴) < 0) |
162 | 161 | necon2ai 2972 |
. . . . . . . . . . . . . . . . . 18
⊢
((ℑ‘𝐴)
< 0 → (ℑ‘𝐴) ≠ 0) |
163 | 162, 116 | sylan2 592 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → 𝑆 =
(abs‘(ℑ‘𝐴))) |
164 | | ltle 10994 |
. . . . . . . . . . . . . . . . . . . 20
⊢
(((ℑ‘𝐴)
∈ ℝ ∧ 0 ∈ ℝ) → ((ℑ‘𝐴) < 0 → (ℑ‘𝐴) ≤ 0)) |
165 | 87, 118, 164 | sylancl 585 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → ((ℑ‘𝐴) < 0 →
(ℑ‘𝐴) ≤
0)) |
166 | 165 | imp 406 |
. . . . . . . . . . . . . . . . . 18
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘𝐴) ≤
0) |
167 | 153, 166 | absnidd 15053 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(abs‘(ℑ‘𝐴)) = -(ℑ‘𝐴)) |
168 | 163, 167 | eqtrd 2778 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → 𝑆 = -(ℑ‘𝐴)) |
169 | 158, 168 | breqtrd 5096 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(abs‘(𝐴 − 𝐵)) < -(ℑ‘𝐴)) |
170 | 157, 153,
169 | ltnegcon2d 11486 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘𝐴) <
-(abs‘(𝐴 −
𝐵))) |
171 | 81 | simpld 494 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → -(abs‘(𝐴 − 𝐵)) ≤ (ℑ‘(𝐴 − 𝐵))) |
172 | 171 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
-(abs‘(𝐴 −
𝐵)) ≤
(ℑ‘(𝐴 −
𝐵))) |
173 | 153, 155,
156, 170, 172 | ltletrd 11065 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘𝐴) <
(ℑ‘(𝐴 −
𝐵))) |
174 | 69 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘(𝐴 −
𝐵)) = ((ℑ‘𝐴) − (ℑ‘𝐵))) |
175 | 173, 174 | breqtrd 5096 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘𝐴) <
((ℑ‘𝐴) −
(ℑ‘𝐵))) |
176 | 152, 175 | eqbrtrd 5092 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
((ℑ‘𝐴) −
0) < ((ℑ‘𝐴)
− (ℑ‘𝐵))) |
177 | 150 | imcld 14834 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘𝐵) ∈
ℝ) |
178 | 177, 31, 153 | ltsub2d 11515 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
((ℑ‘𝐵) < 0
↔ ((ℑ‘𝐴)
− 0) < ((ℑ‘𝐴) − (ℑ‘𝐵)))) |
179 | 176, 178 | mpbird 256 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘𝐵) <
0) |
180 | | argimlt0 25673 |
. . . . . . . . . 10
⊢ ((𝐵 ∈ ℂ ∧
(ℑ‘𝐵) < 0)
→ (ℑ‘(log‘𝐵)) ∈ (-π(,)0)) |
181 | 150, 179,
180 | syl2anc 583 |
. . . . . . . . 9
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘(log‘𝐵)) ∈ (-π(,)0)) |
182 | | eliooord 13067 |
. . . . . . . . 9
⊢
((ℑ‘(log‘𝐵)) ∈ (-π(,)0) → (-π <
(ℑ‘(log‘𝐵)) ∧ (ℑ‘(log‘𝐵)) < 0)) |
183 | 181, 182 | syl 17 |
. . . . . . . 8
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → (-π <
(ℑ‘(log‘𝐵)) ∧ (ℑ‘(log‘𝐵)) < 0)) |
184 | 183 | simprd 495 |
. . . . . . 7
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
(ℑ‘(log‘𝐵)) < 0) |
185 | 13, 31, 30, 184 | ltsub1dd 11517 |
. . . . . 6
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) < (0 −
(ℑ‘(log‘𝐴)))) |
186 | 185, 67 | breqtrrdi 5112 |
. . . . 5
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) <
-(ℑ‘(log‘𝐴))) |
187 | 35 | simpld 494 |
. . . . . 6
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → -π <
(ℑ‘(log‘𝐴))) |
188 | | ltnegcon1 11406 |
. . . . . . 7
⊢ ((π
∈ ℝ ∧ (ℑ‘(log‘𝐴)) ∈ ℝ) → (-π <
(ℑ‘(log‘𝐴)) ↔ -(ℑ‘(log‘𝐴)) < π)) |
189 | 1, 30, 188 | sylancr 586 |
. . . . . 6
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) → (-π <
(ℑ‘(log‘𝐴)) ↔ -(ℑ‘(log‘𝐴)) < π)) |
190 | 187, 189 | mpbid 231 |
. . . . 5
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
-(ℑ‘(log‘𝐴)) < π) |
191 | 23, 149, 148, 186, 190 | lttrd 11066 |
. . . 4
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) < π) |
192 | 23, 148, 191 | ltled 11053 |
. . 3
⊢ ((𝜑 ∧ (ℑ‘𝐴) < 0) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) ≤ π) |
193 | 24 | simprd 495 |
. . . . 5
⊢ (𝜑 →
(ℑ‘(log‘𝐵)) ≤ π) |
194 | 193 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ (ℑ‘𝐴) = 0) →
(ℑ‘(log‘𝐵)) ≤ π) |
195 | 52, 194 | eqbrtrd 5092 |
. . 3
⊢ ((𝜑 ∧ (ℑ‘𝐴) = 0) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) ≤ π) |
196 | 1 | a1i 11 |
. . . 4
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → π ∈
ℝ) |
197 | 12 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
(ℑ‘(log‘𝐵)) ∈ ℝ) |
198 | | 0red 10909 |
. . . . . . 7
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → 0 ∈
ℝ) |
199 | 21 | adantr 480 |
. . . . . . 7
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
(ℑ‘(log‘𝐴)) ∈ ℝ) |
200 | 61 | simpld 494 |
. . . . . . 7
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) → 0 <
(ℑ‘(log‘𝐴))) |
201 | 198, 199,
197, 200 | ltsub2dd 11518 |
. . . . . 6
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) <
((ℑ‘(log‘𝐵)) − 0)) |
202 | 27 | adantr 480 |
. . . . . . 7
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
(ℑ‘(log‘𝐵)) ∈ ℂ) |
203 | 202 | subid1d 11251 |
. . . . . 6
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
((ℑ‘(log‘𝐵)) − 0) =
(ℑ‘(log‘𝐵))) |
204 | 201, 203 | breqtrd 5096 |
. . . . 5
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) <
(ℑ‘(log‘𝐵))) |
205 | 138 | simprd 495 |
. . . . 5
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
(ℑ‘(log‘𝐵)) < π) |
206 | 57, 197, 196, 204, 205 | lttrd 11066 |
. . . 4
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) < π) |
207 | 57, 196, 206 | ltled 11053 |
. . 3
⊢ ((𝜑 ∧ 0 < (ℑ‘𝐴)) →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) ≤ π) |
208 | 192, 195,
207, 146 | mpjao3dan 1429 |
. 2
⊢ (𝜑 →
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) ≤ π) |
209 | 147, 208 | jca 511 |
1
⊢ (𝜑 → (-π <
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) ∧
((ℑ‘(log‘𝐵)) − (ℑ‘(log‘𝐴))) ≤ π)) |