Metamath Proof Explorer


Theorem logcnlem3

Description: Lemma for logcn . (Contributed by Mario Carneiro, 25-Feb-2015)

Ref Expression
Hypotheses logcn.d ⊢ D = ℂ ∖ −∞ 0
logcnlem.s ⊢ S = if A ∈ ℝ + A ℑ ⁡ A
logcnlem.t ⊢ T = A ⁢ R 1 + R
logcnlem.a ⊢ φ → A ∈ D
logcnlem.r ⊢ φ → R ∈ ℝ +
logcnlem.b ⊢ φ → B ∈ D
logcnlem.l ⊢ φ → A − B < if S ≤ T S T
Assertion logcnlem3 ⊢ φ → − π < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ∧ ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ≤ π

Proof

Step Hyp Ref Expression
1 logcn.d ⊢ D = ℂ ∖ −∞ 0
2 logcnlem.s ⊢ S = if A ∈ ℝ + A ℑ ⁡ A
3 logcnlem.t ⊢ T = A ⁢ R 1 + R
4 logcnlem.a ⊢ φ → A ∈ D
5 logcnlem.r ⊢ φ → R ∈ ℝ +
6 logcnlem.b ⊢ φ → B ∈ D
7 logcnlem.l ⊢ φ → A − B < if S ≤ T S T
8 pire ⊢ π ∈ ℝ
9 8 renegcli ⊢ − π ∈ ℝ
10 9 a1i ⊢ φ ∧ ℑ ⁡ A < 0 → − π ∈ ℝ
11 1 ellogdm ⊢ B ∈ D ↔ B ∈ ℂ ∧ B ∈ ℝ → B ∈ ℝ +
12 11 simplbi ⊢ B ∈ D → B ∈ ℂ
13 6 12 syl ⊢ φ → B ∈ ℂ
14 1 logdmn0 ⊢ B ∈ D → B ≠ 0
15 6 14 syl ⊢ φ → B ≠ 0
16 13 15 logcld ⊢ φ → log ⁡ B ∈ ℂ
17 16 imcld ⊢ φ → ℑ ⁡ log ⁡ B ∈ ℝ
18 17 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B ∈ ℝ
19 1 ellogdm ⊢ A ∈ D ↔ A ∈ ℂ ∧ A ∈ ℝ → A ∈ ℝ +
20 19 simplbi ⊢ A ∈ D → A ∈ ℂ
21 4 20 syl ⊢ φ → A ∈ ℂ
22 1 logdmn0 ⊢ A ∈ D → A ≠ 0
23 4 22 syl ⊢ φ → A ≠ 0
24 21 23 logcld ⊢ φ → log ⁡ A ∈ ℂ
25 24 imcld ⊢ φ → ℑ ⁡ log ⁡ A ∈ ℝ
26 17 25 resubcld ⊢ φ → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ∈ ℝ
27 26 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ∈ ℝ
28 13 15 logimcld ⊢ φ → − π < ℑ ⁡ log ⁡ B ∧ ℑ ⁡ log ⁡ B ≤ π
29 28 simpld ⊢ φ → − π < ℑ ⁡ log ⁡ B
30 29 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → − π < ℑ ⁡ log ⁡ B
31 17 recnd ⊢ φ → ℑ ⁡ log ⁡ B ∈ ℂ
32 31 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B ∈ ℂ
33 32 subid1d ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B − 0 = ℑ ⁡ log ⁡ B
34 25 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ A ∈ ℝ
35 0red ⊢ φ ∧ ℑ ⁡ A < 0 → 0 ∈ ℝ
36 argimlt0 ⊢ A ∈ ℂ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ A ∈ − π 0
37 21 36 sylan ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ A ∈ − π 0
38 eliooord ⊢ ℑ ⁡ log ⁡ A ∈ − π 0 → − π < ℑ ⁡ log ⁡ A ∧ ℑ ⁡ log ⁡ A < 0
39 37 38 syl ⊢ φ ∧ ℑ ⁡ A < 0 → − π < ℑ ⁡ log ⁡ A ∧ ℑ ⁡ log ⁡ A < 0
40 39 simprd ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ A < 0
41 34 35 18 40 ltsub2dd ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B − 0 < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A
42 33 41 eqbrtrrd ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A
43 10 18 27 30 42 lttrd ⊢ φ ∧ ℑ ⁡ A < 0 → − π < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A
44 29 adantr ⊢ φ ∧ ℑ ⁡ A = 0 → − π < ℑ ⁡ log ⁡ B
45 reim0b ⊢ A ∈ ℂ → A ∈ ℝ ↔ ℑ ⁡ A = 0
46 21 45 syl ⊢ φ → A ∈ ℝ ↔ ℑ ⁡ A = 0
47 19 simprbi ⊢ A ∈ D → A ∈ ℝ → A ∈ ℝ +
48 4 47 syl ⊢ φ → A ∈ ℝ → A ∈ ℝ +
49 46 48 sylbird ⊢ φ → ℑ ⁡ A = 0 → A ∈ ℝ +
50 49 imp ⊢ φ ∧ ℑ ⁡ A = 0 → A ∈ ℝ +
51 50 relogcld ⊢ φ ∧ ℑ ⁡ A = 0 → log ⁡ A ∈ ℝ
52 51 reim0d ⊢ φ ∧ ℑ ⁡ A = 0 → ℑ ⁡ log ⁡ A = 0
53 52 oveq2d ⊢ φ ∧ ℑ ⁡ A = 0 → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A = ℑ ⁡ log ⁡ B − 0
54 31 subid1d ⊢ φ → ℑ ⁡ log ⁡ B − 0 = ℑ ⁡ log ⁡ B
55 54 adantr ⊢ φ ∧ ℑ ⁡ A = 0 → ℑ ⁡ log ⁡ B − 0 = ℑ ⁡ log ⁡ B
56 53 55 eqtrd ⊢ φ ∧ ℑ ⁡ A = 0 → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A = ℑ ⁡ log ⁡ B
57 44 56 breqtrrd ⊢ φ ∧ ℑ ⁡ A = 0 → − π < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A
58 9 a1i ⊢ φ ∧ 0 < ℑ ⁡ A → − π ∈ ℝ
59 25 renegcld ⊢ φ → − ℑ ⁡ log ⁡ A ∈ ℝ
60 59 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → − ℑ ⁡ log ⁡ A ∈ ℝ
61 26 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ∈ ℝ
62 argimgt0 ⊢ A ∈ ℂ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ A ∈ 0 π
63 21 62 sylan ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ A ∈ 0 π
64 eliooord ⊢ ℑ ⁡ log ⁡ A ∈ 0 π → 0 < ℑ ⁡ log ⁡ A ∧ ℑ ⁡ log ⁡ A < π
65 63 64 syl ⊢ φ ∧ 0 < ℑ ⁡ A → 0 < ℑ ⁡ log ⁡ A ∧ ℑ ⁡ log ⁡ A < π
66 65 simprd ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ A < π
67 ltneg ⊢ ℑ ⁡ log ⁡ A ∈ ℝ ∧ π ∈ ℝ → ℑ ⁡ log ⁡ A < π ↔ − π < − ℑ ⁡ log ⁡ A
68 25 8 67 sylancl ⊢ φ → ℑ ⁡ log ⁡ A < π ↔ − π < − ℑ ⁡ log ⁡ A
69 68 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ A < π ↔ − π < − ℑ ⁡ log ⁡ A
70 66 69 mpbid ⊢ φ ∧ 0 < ℑ ⁡ A → − π < − ℑ ⁡ log ⁡ A
71 df-neg ⊢ − ℑ ⁡ log ⁡ A = 0 − ℑ ⁡ log ⁡ A
72 13 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → B ∈ ℂ
73 21 13 imsubd ⊢ φ → ℑ ⁡ A − B = ℑ ⁡ A − ℑ ⁡ B
74 73 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A − B = ℑ ⁡ A − ℑ ⁡ B
75 21 13 subcld ⊢ φ → A − B ∈ ℂ
76 75 imcld ⊢ φ → ℑ ⁡ A − B ∈ ℝ
77 76 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A − B ∈ ℝ
78 75 abscld ⊢ φ → A − B ∈ ℝ
79 78 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → A − B ∈ ℝ
80 21 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → A ∈ ℂ
81 80 imcld ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A ∈ ℝ
82 absimle ⊢ A − B ∈ ℂ → ℑ ⁡ A − B ≤ A − B
83 75 82 syl ⊢ φ → ℑ ⁡ A − B ≤ A − B
84 76 78 absled ⊢ φ → ℑ ⁡ A − B ≤ A − B ↔ − A − B ≤ ℑ ⁡ A − B ∧ ℑ ⁡ A − B ≤ A − B
85 83 84 mpbid ⊢ φ → − A − B ≤ ℑ ⁡ A − B ∧ ℑ ⁡ A − B ≤ A − B
86 85 simprd ⊢ φ → ℑ ⁡ A − B ≤ A − B
87 86 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A − B ≤ A − B
88 rpre ⊢ A ∈ ℝ + → A ∈ ℝ
89 88 adantl ⊢ φ ∧ A ∈ ℝ + → A ∈ ℝ
90 21 imcld ⊢ φ → ℑ ⁡ A ∈ ℝ
91 90 recnd ⊢ φ → ℑ ⁡ A ∈ ℂ
92 91 abscld ⊢ φ → ℑ ⁡ A ∈ ℝ
93 92 adantr ⊢ φ ∧ ¬ A ∈ ℝ + → ℑ ⁡ A ∈ ℝ
94 89 93 ifclda ⊢ φ → if A ∈ ℝ + A ℑ ⁡ A ∈ ℝ
95 2 94 eqeltrid ⊢ φ → S ∈ ℝ
96 21 abscld ⊢ φ → A ∈ ℝ
97 5 rpred ⊢ φ → R ∈ ℝ
98 1rp ⊢ 1 ∈ ℝ +
99 rpaddcl ⊢ 1 ∈ ℝ + ∧ R ∈ ℝ + → 1 + R ∈ ℝ +
100 98 5 99 sylancr ⊢ φ → 1 + R ∈ ℝ +
101 97 100 rerpdivcld ⊢ φ → R 1 + R ∈ ℝ
102 96 101 remulcld ⊢ φ → A ⁢ R 1 + R ∈ ℝ
103 3 102 eqeltrid ⊢ φ → T ∈ ℝ
104 95 103 ifcld ⊢ φ → if S ≤ T S T ∈ ℝ
105 min1 ⊢ S ∈ ℝ ∧ T ∈ ℝ → if S ≤ T S T ≤ S
106 95 103 105 syl2anc ⊢ φ → if S ≤ T S T ≤ S
107 78 104 95 7 106 ltletrd ⊢ φ → A − B < S
108 107 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → A − B < S
109 gt0ne0 ⊢ ℑ ⁡ A ∈ ℝ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A ≠ 0
110 90 109 sylan ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A ≠ 0
111 88 46 imbitrid ⊢ φ → A ∈ ℝ + → ℑ ⁡ A = 0
112 111 necon3ad ⊢ φ → ℑ ⁡ A ≠ 0 → ¬ A ∈ ℝ +
113 112 imp ⊢ φ ∧ ℑ ⁡ A ≠ 0 → ¬ A ∈ ℝ +
114 iffalse ⊢ ¬ A ∈ ℝ + → if A ∈ ℝ + A ℑ ⁡ A = ℑ ⁡ A
115 2 114 eqtrid ⊢ ¬ A ∈ ℝ + → S = ℑ ⁡ A
116 113 115 syl ⊢ φ ∧ ℑ ⁡ A ≠ 0 → S = ℑ ⁡ A
117 110 116 syldan ⊢ φ ∧ 0 < ℑ ⁡ A → S = ℑ ⁡ A
118 0re ⊢ 0 ∈ ℝ
119 ltle ⊢ 0 ∈ ℝ ∧ ℑ ⁡ A ∈ ℝ → 0 < ℑ ⁡ A → 0 ≤ ℑ ⁡ A
120 118 90 119 sylancr ⊢ φ → 0 < ℑ ⁡ A → 0 ≤ ℑ ⁡ A
121 120 imp ⊢ φ ∧ 0 < ℑ ⁡ A → 0 ≤ ℑ ⁡ A
122 81 121 absidd ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A = ℑ ⁡ A
123 117 122 eqtrd ⊢ φ ∧ 0 < ℑ ⁡ A → S = ℑ ⁡ A
124 108 123 breqtrd ⊢ φ ∧ 0 < ℑ ⁡ A → A − B < ℑ ⁡ A
125 77 79 81 87 124 lelttrd ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A − B < ℑ ⁡ A
126 74 125 eqbrtrrd ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A − ℑ ⁡ B < ℑ ⁡ A
127 91 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A ∈ ℂ
128 127 subid1d ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A − 0 = ℑ ⁡ A
129 126 128 breqtrrd ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ A − ℑ ⁡ B < ℑ ⁡ A − 0
130 0red ⊢ φ → 0 ∈ ℝ
131 13 imcld ⊢ φ → ℑ ⁡ B ∈ ℝ
132 130 131 90 ltsub2d ⊢ φ → 0 < ℑ ⁡ B ↔ ℑ ⁡ A − ℑ ⁡ B < ℑ ⁡ A − 0
133 132 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → 0 < ℑ ⁡ B ↔ ℑ ⁡ A − ℑ ⁡ B < ℑ ⁡ A − 0
134 129 133 mpbird ⊢ φ ∧ 0 < ℑ ⁡ A → 0 < ℑ ⁡ B
135 argimgt0 ⊢ B ∈ ℂ ∧ 0 < ℑ ⁡ B → ℑ ⁡ log ⁡ B ∈ 0 π
136 72 134 135 syl2anc ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ B ∈ 0 π
137 eliooord ⊢ ℑ ⁡ log ⁡ B ∈ 0 π → 0 < ℑ ⁡ log ⁡ B ∧ ℑ ⁡ log ⁡ B < π
138 136 137 syl ⊢ φ ∧ 0 < ℑ ⁡ A → 0 < ℑ ⁡ log ⁡ B ∧ ℑ ⁡ log ⁡ B < π
139 138 simpld ⊢ φ ∧ 0 < ℑ ⁡ A → 0 < ℑ ⁡ log ⁡ B
140 130 17 25 ltsub1d ⊢ φ → 0 < ℑ ⁡ log ⁡ B ↔ 0 − ℑ ⁡ log ⁡ A < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A
141 140 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → 0 < ℑ ⁡ log ⁡ B ↔ 0 − ℑ ⁡ log ⁡ A < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A
142 139 141 mpbid ⊢ φ ∧ 0 < ℑ ⁡ A → 0 − ℑ ⁡ log ⁡ A < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A
143 71 142 eqbrtrid ⊢ φ ∧ 0 < ℑ ⁡ A → − ℑ ⁡ log ⁡ A < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A
144 58 60 61 70 143 lttrd ⊢ φ ∧ 0 < ℑ ⁡ A → − π < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A
145 lttri4 ⊢ ℑ ⁡ A ∈ ℝ ∧ 0 ∈ ℝ → ℑ ⁡ A < 0 ∨ ℑ ⁡ A = 0 ∨ 0 < ℑ ⁡ A
146 90 118 145 sylancl ⊢ φ → ℑ ⁡ A < 0 ∨ ℑ ⁡ A = 0 ∨ 0 < ℑ ⁡ A
147 43 57 144 146 mpjao3dan ⊢ φ → − π < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A
148 8 a1i ⊢ φ ∧ ℑ ⁡ A < 0 → π ∈ ℝ
149 34 renegcld ⊢ φ ∧ ℑ ⁡ A < 0 → − ℑ ⁡ log ⁡ A ∈ ℝ
150 13 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → B ∈ ℂ
151 91 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A ∈ ℂ
152 151 subid1d ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A − 0 = ℑ ⁡ A
153 90 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A ∈ ℝ
154 78 renegcld ⊢ φ → − A − B ∈ ℝ
155 154 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → − A − B ∈ ℝ
156 76 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A − B ∈ ℝ
157 78 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → A − B ∈ ℝ
158 107 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → A − B < S
159 118 ltnri ⊢ ¬ 0 < 0
160 breq1 ⊢ ℑ ⁡ A = 0 → ℑ ⁡ A < 0 ↔ 0 < 0
161 159 160 mtbiri ⊢ ℑ ⁡ A = 0 → ¬ ℑ ⁡ A < 0
162 161 necon2ai ⊢ ℑ ⁡ A < 0 → ℑ ⁡ A ≠ 0
163 162 116 sylan2 ⊢ φ ∧ ℑ ⁡ A < 0 → S = ℑ ⁡ A
164 ltle ⊢ ℑ ⁡ A ∈ ℝ ∧ 0 ∈ ℝ → ℑ ⁡ A < 0 → ℑ ⁡ A ≤ 0
165 90 118 164 sylancl ⊢ φ → ℑ ⁡ A < 0 → ℑ ⁡ A ≤ 0
166 165 imp ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A ≤ 0
167 153 166 absnidd ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A = − ℑ ⁡ A
168 163 167 eqtrd ⊢ φ ∧ ℑ ⁡ A < 0 → S = − ℑ ⁡ A
169 158 168 breqtrd ⊢ φ ∧ ℑ ⁡ A < 0 → A − B < − ℑ ⁡ A
170 157 153 169 ltnegcon2d ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A < − A − B
171 85 simpld ⊢ φ → − A − B ≤ ℑ ⁡ A − B
172 171 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → − A − B ≤ ℑ ⁡ A − B
173 153 155 156 170 172 ltletrd ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A < ℑ ⁡ A − B
174 73 adantr ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A − B = ℑ ⁡ A − ℑ ⁡ B
175 173 174 breqtrd ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A < ℑ ⁡ A − ℑ ⁡ B
176 152 175 eqbrtrd ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ A − 0 < ℑ ⁡ A − ℑ ⁡ B
177 150 imcld ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ B ∈ ℝ
178 177 35 153 ltsub2d ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ B < 0 ↔ ℑ ⁡ A − 0 < ℑ ⁡ A − ℑ ⁡ B
179 176 178 mpbird ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ B < 0
180 argimlt0 ⊢ B ∈ ℂ ∧ ℑ ⁡ B < 0 → ℑ ⁡ log ⁡ B ∈ − π 0
181 150 179 180 syl2anc ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B ∈ − π 0
182 eliooord ⊢ ℑ ⁡ log ⁡ B ∈ − π 0 → − π < ℑ ⁡ log ⁡ B ∧ ℑ ⁡ log ⁡ B < 0
183 181 182 syl ⊢ φ ∧ ℑ ⁡ A < 0 → − π < ℑ ⁡ log ⁡ B ∧ ℑ ⁡ log ⁡ B < 0
184 183 simprd ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B < 0
185 18 35 34 184 ltsub1dd ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A < 0 − ℑ ⁡ log ⁡ A
186 185 71 breqtrrdi ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A < − ℑ ⁡ log ⁡ A
187 39 simpld ⊢ φ ∧ ℑ ⁡ A < 0 → − π < ℑ ⁡ log ⁡ A
188 ltnegcon1 ⊢ π ∈ ℝ ∧ ℑ ⁡ log ⁡ A ∈ ℝ → − π < ℑ ⁡ log ⁡ A ↔ − ℑ ⁡ log ⁡ A < π
189 8 34 188 sylancr ⊢ φ ∧ ℑ ⁡ A < 0 → − π < ℑ ⁡ log ⁡ A ↔ − ℑ ⁡ log ⁡ A < π
190 187 189 mpbid ⊢ φ ∧ ℑ ⁡ A < 0 → − ℑ ⁡ log ⁡ A < π
191 27 149 148 186 190 lttrd ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A < π
192 27 148 191 ltled ⊢ φ ∧ ℑ ⁡ A < 0 → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ≤ π
193 28 simprd ⊢ φ → ℑ ⁡ log ⁡ B ≤ π
194 193 adantr ⊢ φ ∧ ℑ ⁡ A = 0 → ℑ ⁡ log ⁡ B ≤ π
195 56 194 eqbrtrd ⊢ φ ∧ ℑ ⁡ A = 0 → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ≤ π
196 8 a1i ⊢ φ ∧ 0 < ℑ ⁡ A → π ∈ ℝ
197 17 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ B ∈ ℝ
198 0red ⊢ φ ∧ 0 < ℑ ⁡ A → 0 ∈ ℝ
199 25 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ A ∈ ℝ
200 65 simpld ⊢ φ ∧ 0 < ℑ ⁡ A → 0 < ℑ ⁡ log ⁡ A
201 198 199 197 200 ltsub2dd ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A < ℑ ⁡ log ⁡ B − 0
202 31 adantr ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ B ∈ ℂ
203 202 subid1d ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ B − 0 = ℑ ⁡ log ⁡ B
204 201 203 breqtrd ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A < ℑ ⁡ log ⁡ B
205 138 simprd ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ B < π
206 61 197 196 204 205 lttrd ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A < π
207 61 196 206 ltled ⊢ φ ∧ 0 < ℑ ⁡ A → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ≤ π
208 192 195 207 146 mpjao3dan ⊢ φ → ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ≤ π
209 147 208 jca ⊢ φ → − π < ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ∧ ℑ ⁡ log ⁡ B − ℑ ⁡ log ⁡ A ≤ π