MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  logcnlem4 Structured version   Visualization version   GIF version

Theorem logcnlem4 26144
Description: Lemma for logcn 26146. (Contributed by Mario Carneiro, 25-Feb-2015.)
Hypotheses
Ref Expression
logcn.d 𝐷 = (β„‚ βˆ– (-∞(,]0))
logcnlem.s 𝑆 = if(𝐴 ∈ ℝ+, 𝐴, (absβ€˜(β„‘β€˜π΄)))
logcnlem.t 𝑇 = ((absβ€˜π΄) Β· (𝑅 / (1 + 𝑅)))
logcnlem.a (πœ‘ β†’ 𝐴 ∈ 𝐷)
logcnlem.r (πœ‘ β†’ 𝑅 ∈ ℝ+)
logcnlem.b (πœ‘ β†’ 𝐡 ∈ 𝐷)
logcnlem.l (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) < if(𝑆 ≀ 𝑇, 𝑆, 𝑇))
Assertion
Ref Expression
logcnlem4 (πœ‘ β†’ (absβ€˜((β„‘β€˜(logβ€˜π΄)) βˆ’ (β„‘β€˜(logβ€˜π΅)))) < 𝑅)

Proof of Theorem logcnlem4
StepHypRef Expression
1 logcnlem.a . . . . . . . 8 (πœ‘ β†’ 𝐴 ∈ 𝐷)
2 logcn.d . . . . . . . . . 10 𝐷 = (β„‚ βˆ– (-∞(,]0))
32ellogdm 26138 . . . . . . . . 9 (𝐴 ∈ 𝐷 ↔ (𝐴 ∈ β„‚ ∧ (𝐴 ∈ ℝ β†’ 𝐴 ∈ ℝ+)))
43simplbi 498 . . . . . . . 8 (𝐴 ∈ 𝐷 β†’ 𝐴 ∈ β„‚)
51, 4syl 17 . . . . . . 7 (πœ‘ β†’ 𝐴 ∈ β„‚)
62logdmn0 26139 . . . . . . . 8 (𝐴 ∈ 𝐷 β†’ 𝐴 β‰  0)
71, 6syl 17 . . . . . . 7 (πœ‘ β†’ 𝐴 β‰  0)
85, 7logcld 26070 . . . . . 6 (πœ‘ β†’ (logβ€˜π΄) ∈ β„‚)
98imcld 15138 . . . . 5 (πœ‘ β†’ (β„‘β€˜(logβ€˜π΄)) ∈ ℝ)
109recnd 11238 . . . 4 (πœ‘ β†’ (β„‘β€˜(logβ€˜π΄)) ∈ β„‚)
11 logcnlem.b . . . . . . . 8 (πœ‘ β†’ 𝐡 ∈ 𝐷)
122ellogdm 26138 . . . . . . . . 9 (𝐡 ∈ 𝐷 ↔ (𝐡 ∈ β„‚ ∧ (𝐡 ∈ ℝ β†’ 𝐡 ∈ ℝ+)))
1312simplbi 498 . . . . . . . 8 (𝐡 ∈ 𝐷 β†’ 𝐡 ∈ β„‚)
1411, 13syl 17 . . . . . . 7 (πœ‘ β†’ 𝐡 ∈ β„‚)
152logdmn0 26139 . . . . . . . 8 (𝐡 ∈ 𝐷 β†’ 𝐡 β‰  0)
1611, 15syl 17 . . . . . . 7 (πœ‘ β†’ 𝐡 β‰  0)
1714, 16logcld 26070 . . . . . 6 (πœ‘ β†’ (logβ€˜π΅) ∈ β„‚)
1817imcld 15138 . . . . 5 (πœ‘ β†’ (β„‘β€˜(logβ€˜π΅)) ∈ ℝ)
1918recnd 11238 . . . 4 (πœ‘ β†’ (β„‘β€˜(logβ€˜π΅)) ∈ β„‚)
2010, 19abssubd 15396 . . 3 (πœ‘ β†’ (absβ€˜((β„‘β€˜(logβ€˜π΄)) βˆ’ (β„‘β€˜(logβ€˜π΅)))) = (absβ€˜((β„‘β€˜(logβ€˜π΅)) βˆ’ (β„‘β€˜(logβ€˜π΄)))))
2117, 8imsubd 15160 . . . . 5 (πœ‘ β†’ (β„‘β€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))) = ((β„‘β€˜(logβ€˜π΅)) βˆ’ (β„‘β€˜(logβ€˜π΄))))
22 efsub 16039 . . . . . . . . . 10 (((logβ€˜π΅) ∈ β„‚ ∧ (logβ€˜π΄) ∈ β„‚) β†’ (expβ€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))) = ((expβ€˜(logβ€˜π΅)) / (expβ€˜(logβ€˜π΄))))
2317, 8, 22syl2anc 584 . . . . . . . . 9 (πœ‘ β†’ (expβ€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))) = ((expβ€˜(logβ€˜π΅)) / (expβ€˜(logβ€˜π΄))))
24 eflog 26076 . . . . . . . . . . 11 ((𝐡 ∈ β„‚ ∧ 𝐡 β‰  0) β†’ (expβ€˜(logβ€˜π΅)) = 𝐡)
2514, 16, 24syl2anc 584 . . . . . . . . . 10 (πœ‘ β†’ (expβ€˜(logβ€˜π΅)) = 𝐡)
26 eflog 26076 . . . . . . . . . . 11 ((𝐴 ∈ β„‚ ∧ 𝐴 β‰  0) β†’ (expβ€˜(logβ€˜π΄)) = 𝐴)
275, 7, 26syl2anc 584 . . . . . . . . . 10 (πœ‘ β†’ (expβ€˜(logβ€˜π΄)) = 𝐴)
2825, 27oveq12d 7423 . . . . . . . . 9 (πœ‘ β†’ ((expβ€˜(logβ€˜π΅)) / (expβ€˜(logβ€˜π΄))) = (𝐡 / 𝐴))
2923, 28eqtrd 2772 . . . . . . . 8 (πœ‘ β†’ (expβ€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))) = (𝐡 / 𝐴))
3014, 5, 7divcld 11986 . . . . . . . . 9 (πœ‘ β†’ (𝐡 / 𝐴) ∈ β„‚)
3114, 5, 16, 7divne0d 12002 . . . . . . . . 9 (πœ‘ β†’ (𝐡 / 𝐴) β‰  0)
3217, 8subcld 11567 . . . . . . . . . 10 (πœ‘ β†’ ((logβ€˜π΅) βˆ’ (logβ€˜π΄)) ∈ β„‚)
33 logcnlem.s . . . . . . . . . . . . 13 𝑆 = if(𝐴 ∈ ℝ+, 𝐴, (absβ€˜(β„‘β€˜π΄)))
34 logcnlem.t . . . . . . . . . . . . 13 𝑇 = ((absβ€˜π΄) Β· (𝑅 / (1 + 𝑅)))
35 logcnlem.r . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑅 ∈ ℝ+)
36 logcnlem.l . . . . . . . . . . . . 13 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) < if(𝑆 ≀ 𝑇, 𝑆, 𝑇))
372, 33, 34, 1, 35, 11, 36logcnlem3 26143 . . . . . . . . . . . 12 (πœ‘ β†’ (-Ο€ < ((β„‘β€˜(logβ€˜π΅)) βˆ’ (β„‘β€˜(logβ€˜π΄))) ∧ ((β„‘β€˜(logβ€˜π΅)) βˆ’ (β„‘β€˜(logβ€˜π΄))) ≀ Ο€))
3837simpld 495 . . . . . . . . . . 11 (πœ‘ β†’ -Ο€ < ((β„‘β€˜(logβ€˜π΅)) βˆ’ (β„‘β€˜(logβ€˜π΄))))
3938, 21breqtrrd 5175 . . . . . . . . . 10 (πœ‘ β†’ -Ο€ < (β„‘β€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))))
4037simprd 496 . . . . . . . . . . 11 (πœ‘ β†’ ((β„‘β€˜(logβ€˜π΅)) βˆ’ (β„‘β€˜(logβ€˜π΄))) ≀ Ο€)
4121, 40eqbrtrd 5169 . . . . . . . . . 10 (πœ‘ β†’ (β„‘β€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))) ≀ Ο€)
42 ellogrn 26059 . . . . . . . . . 10 (((logβ€˜π΅) βˆ’ (logβ€˜π΄)) ∈ ran log ↔ (((logβ€˜π΅) βˆ’ (logβ€˜π΄)) ∈ β„‚ ∧ -Ο€ < (β„‘β€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))) ∧ (β„‘β€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))) ≀ Ο€))
4332, 39, 41, 42syl3anbrc 1343 . . . . . . . . 9 (πœ‘ β†’ ((logβ€˜π΅) βˆ’ (logβ€˜π΄)) ∈ ran log)
44 logeftb 26083 . . . . . . . . 9 (((𝐡 / 𝐴) ∈ β„‚ ∧ (𝐡 / 𝐴) β‰  0 ∧ ((logβ€˜π΅) βˆ’ (logβ€˜π΄)) ∈ ran log) β†’ ((logβ€˜(𝐡 / 𝐴)) = ((logβ€˜π΅) βˆ’ (logβ€˜π΄)) ↔ (expβ€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))) = (𝐡 / 𝐴)))
4530, 31, 43, 44syl3anc 1371 . . . . . . . 8 (πœ‘ β†’ ((logβ€˜(𝐡 / 𝐴)) = ((logβ€˜π΅) βˆ’ (logβ€˜π΄)) ↔ (expβ€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))) = (𝐡 / 𝐴)))
4629, 45mpbird 256 . . . . . . 7 (πœ‘ β†’ (logβ€˜(𝐡 / 𝐴)) = ((logβ€˜π΅) βˆ’ (logβ€˜π΄)))
4746eqcomd 2738 . . . . . 6 (πœ‘ β†’ ((logβ€˜π΅) βˆ’ (logβ€˜π΄)) = (logβ€˜(𝐡 / 𝐴)))
4847fveq2d 6892 . . . . 5 (πœ‘ β†’ (β„‘β€˜((logβ€˜π΅) βˆ’ (logβ€˜π΄))) = (β„‘β€˜(logβ€˜(𝐡 / 𝐴))))
4921, 48eqtr3d 2774 . . . 4 (πœ‘ β†’ ((β„‘β€˜(logβ€˜π΅)) βˆ’ (β„‘β€˜(logβ€˜π΄))) = (β„‘β€˜(logβ€˜(𝐡 / 𝐴))))
5049fveq2d 6892 . . 3 (πœ‘ β†’ (absβ€˜((β„‘β€˜(logβ€˜π΅)) βˆ’ (β„‘β€˜(logβ€˜π΄)))) = (absβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))))
5120, 50eqtrd 2772 . 2 (πœ‘ β†’ (absβ€˜((β„‘β€˜(logβ€˜π΄)) βˆ’ (β„‘β€˜(logβ€˜π΅)))) = (absβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))))
5230, 31logcld 26070 . . . . . 6 (πœ‘ β†’ (logβ€˜(𝐡 / 𝐴)) ∈ β„‚)
5352imcld 15138 . . . . 5 (πœ‘ β†’ (β„‘β€˜(logβ€˜(𝐡 / 𝐴))) ∈ ℝ)
5453recnd 11238 . . . 4 (πœ‘ β†’ (β„‘β€˜(logβ€˜(𝐡 / 𝐴))) ∈ β„‚)
5554abscld 15379 . . 3 (πœ‘ β†’ (absβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))) ∈ ℝ)
56 0red 11213 . . . . . . . . . 10 (πœ‘ β†’ 0 ∈ ℝ)
57 1re 11210 . . . . . . . . . . 11 1 ∈ ℝ
585, 14subcld 11567 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐴 βˆ’ 𝐡) ∈ β„‚)
5958abscld 15379 . . . . . . . . . . . 12 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) ∈ ℝ)
605, 7absrpcld 15391 . . . . . . . . . . . 12 (πœ‘ β†’ (absβ€˜π΄) ∈ ℝ+)
6159, 60rerpdivcld 13043 . . . . . . . . . . 11 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) ∈ ℝ)
62 resubcl 11520 . . . . . . . . . . 11 ((1 ∈ ℝ ∧ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) ∈ ℝ) β†’ (1 βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄))) ∈ ℝ)
6357, 61, 62sylancr 587 . . . . . . . . . 10 (πœ‘ β†’ (1 βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄))) ∈ ℝ)
6430recld 15137 . . . . . . . . . 10 (πœ‘ β†’ (β„œβ€˜(𝐡 / 𝐴)) ∈ ℝ)
655abscld 15379 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (absβ€˜π΄) ∈ ℝ)
6635rpred 13012 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝑅 ∈ ℝ)
67 1rp 12974 . . . . . . . . . . . . . . . . . 18 1 ∈ ℝ+
68 rpaddcl 12992 . . . . . . . . . . . . . . . . . 18 ((1 ∈ ℝ+ ∧ 𝑅 ∈ ℝ+) β†’ (1 + 𝑅) ∈ ℝ+)
6967, 35, 68sylancr 587 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (1 + 𝑅) ∈ ℝ+)
7066, 69rerpdivcld 13043 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝑅 / (1 + 𝑅)) ∈ ℝ)
7165, 70remulcld 11240 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((absβ€˜π΄) Β· (𝑅 / (1 + 𝑅))) ∈ ℝ)
7234, 71eqeltrid 2837 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑇 ∈ ℝ)
73 rpre 12978 . . . . . . . . . . . . . . . . . . . 20 (𝐴 ∈ ℝ+ β†’ 𝐴 ∈ ℝ)
7473adantl 482 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝐴 ∈ ℝ+) β†’ 𝐴 ∈ ℝ)
755imcld 15138 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (β„‘β€˜π΄) ∈ ℝ)
7675recnd 11238 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (β„‘β€˜π΄) ∈ β„‚)
7776abscld 15379 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (absβ€˜(β„‘β€˜π΄)) ∈ ℝ)
7877adantr 481 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ Β¬ 𝐴 ∈ ℝ+) β†’ (absβ€˜(β„‘β€˜π΄)) ∈ ℝ)
7974, 78ifclda 4562 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ if(𝐴 ∈ ℝ+, 𝐴, (absβ€˜(β„‘β€˜π΄))) ∈ ℝ)
8033, 79eqeltrid 2837 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝑆 ∈ ℝ)
81 ltmin 13169 . . . . . . . . . . . . . . . . 17 (((absβ€˜(𝐴 βˆ’ 𝐡)) ∈ ℝ ∧ 𝑆 ∈ ℝ ∧ 𝑇 ∈ ℝ) β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) < if(𝑆 ≀ 𝑇, 𝑆, 𝑇) ↔ ((absβ€˜(𝐴 βˆ’ 𝐡)) < 𝑆 ∧ (absβ€˜(𝐴 βˆ’ 𝐡)) < 𝑇)))
8259, 80, 72, 81syl3anc 1371 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) < if(𝑆 ≀ 𝑇, 𝑆, 𝑇) ↔ ((absβ€˜(𝐴 βˆ’ 𝐡)) < 𝑆 ∧ (absβ€˜(𝐴 βˆ’ 𝐡)) < 𝑇)))
8336, 82mpbid 231 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) < 𝑆 ∧ (absβ€˜(𝐴 βˆ’ 𝐡)) < 𝑇))
8483simprd 496 . . . . . . . . . . . . . 14 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) < 𝑇)
8569rpred 13012 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (1 + 𝑅) ∈ ℝ)
8666ltp1d 12140 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝑅 < (𝑅 + 1))
8766recnd 11238 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ 𝑅 ∈ β„‚)
88 ax-1cn 11164 . . . . . . . . . . . . . . . . . . . . . 22 1 ∈ β„‚
89 addcom 11396 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑅 ∈ β„‚ ∧ 1 ∈ β„‚) β†’ (𝑅 + 1) = (1 + 𝑅))
9087, 88, 89sylancl 586 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (𝑅 + 1) = (1 + 𝑅))
9186, 90breqtrd 5173 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝑅 < (1 + 𝑅))
9266, 85, 91ltled 11358 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑅 ≀ (1 + 𝑅))
9385recnd 11238 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (1 + 𝑅) ∈ β„‚)
9493mulridd 11227 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((1 + 𝑅) Β· 1) = (1 + 𝑅))
9592, 94breqtrrd 5175 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑅 ≀ ((1 + 𝑅) Β· 1))
9657a1i 11 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 1 ∈ ℝ)
9766, 96, 69ledivmuld 13065 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ ((𝑅 / (1 + 𝑅)) ≀ 1 ↔ 𝑅 ≀ ((1 + 𝑅) Β· 1)))
9895, 97mpbird 256 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑅 / (1 + 𝑅)) ≀ 1)
9970, 96, 60lemul2d 13056 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((𝑅 / (1 + 𝑅)) ≀ 1 ↔ ((absβ€˜π΄) Β· (𝑅 / (1 + 𝑅))) ≀ ((absβ€˜π΄) Β· 1)))
10098, 99mpbid 231 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((absβ€˜π΄) Β· (𝑅 / (1 + 𝑅))) ≀ ((absβ€˜π΄) Β· 1))
10165recnd 11238 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (absβ€˜π΄) ∈ β„‚)
102101mulridd 11227 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((absβ€˜π΄) Β· 1) = (absβ€˜π΄))
103100, 102breqtrd 5173 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((absβ€˜π΄) Β· (𝑅 / (1 + 𝑅))) ≀ (absβ€˜π΄))
10434, 103eqbrtrid 5182 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑇 ≀ (absβ€˜π΄))
10559, 72, 65, 84, 104ltletrd 11370 . . . . . . . . . . . . 13 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) < (absβ€˜π΄))
106105, 102breqtrrd 5175 . . . . . . . . . . . 12 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) < ((absβ€˜π΄) Β· 1))
10759, 96, 60ltdivmuld 13063 . . . . . . . . . . . 12 (πœ‘ β†’ (((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) < 1 ↔ (absβ€˜(𝐴 βˆ’ 𝐡)) < ((absβ€˜π΄) Β· 1)))
108106, 107mpbird 256 . . . . . . . . . . 11 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) < 1)
109 posdif 11703 . . . . . . . . . . . 12 ((((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) ∈ ℝ ∧ 1 ∈ ℝ) β†’ (((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) < 1 ↔ 0 < (1 βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)))))
11061, 57, 109sylancl 586 . . . . . . . . . . 11 (πœ‘ β†’ (((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) < 1 ↔ 0 < (1 βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)))))
111108, 110mpbid 231 . . . . . . . . . 10 (πœ‘ β†’ 0 < (1 βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄))))
11258, 5, 7divcld 11986 . . . . . . . . . . . . 13 (πœ‘ β†’ ((𝐴 βˆ’ 𝐡) / 𝐴) ∈ β„‚)
113112releabsd 15394 . . . . . . . . . . . 12 (πœ‘ β†’ (β„œβ€˜((𝐴 βˆ’ 𝐡) / 𝐴)) ≀ (absβ€˜((𝐴 βˆ’ 𝐡) / 𝐴)))
1145, 14, 5, 7divsubdird 12025 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((𝐴 βˆ’ 𝐡) / 𝐴) = ((𝐴 / 𝐴) βˆ’ (𝐡 / 𝐴)))
1155, 7dividd 11984 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝐴 / 𝐴) = 1)
116115oveq1d 7420 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((𝐴 / 𝐴) βˆ’ (𝐡 / 𝐴)) = (1 βˆ’ (𝐡 / 𝐴)))
117114, 116eqtrd 2772 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((𝐴 βˆ’ 𝐡) / 𝐴) = (1 βˆ’ (𝐡 / 𝐴)))
118117fveq2d 6892 . . . . . . . . . . . . . 14 (πœ‘ β†’ (β„œβ€˜((𝐴 βˆ’ 𝐡) / 𝐴)) = (β„œβ€˜(1 βˆ’ (𝐡 / 𝐴))))
119 resub 15070 . . . . . . . . . . . . . . 15 ((1 ∈ β„‚ ∧ (𝐡 / 𝐴) ∈ β„‚) β†’ (β„œβ€˜(1 βˆ’ (𝐡 / 𝐴))) = ((β„œβ€˜1) βˆ’ (β„œβ€˜(𝐡 / 𝐴))))
12088, 30, 119sylancr 587 . . . . . . . . . . . . . 14 (πœ‘ β†’ (β„œβ€˜(1 βˆ’ (𝐡 / 𝐴))) = ((β„œβ€˜1) βˆ’ (β„œβ€˜(𝐡 / 𝐴))))
121118, 120eqtrd 2772 . . . . . . . . . . . . 13 (πœ‘ β†’ (β„œβ€˜((𝐴 βˆ’ 𝐡) / 𝐴)) = ((β„œβ€˜1) βˆ’ (β„œβ€˜(𝐡 / 𝐴))))
122 re1 15097 . . . . . . . . . . . . . 14 (β„œβ€˜1) = 1
123122oveq1i 7415 . . . . . . . . . . . . 13 ((β„œβ€˜1) βˆ’ (β„œβ€˜(𝐡 / 𝐴))) = (1 βˆ’ (β„œβ€˜(𝐡 / 𝐴)))
124121, 123eqtrdi 2788 . . . . . . . . . . . 12 (πœ‘ β†’ (β„œβ€˜((𝐴 βˆ’ 𝐡) / 𝐴)) = (1 βˆ’ (β„œβ€˜(𝐡 / 𝐴))))
12558, 5, 7absdivd 15398 . . . . . . . . . . . 12 (πœ‘ β†’ (absβ€˜((𝐴 βˆ’ 𝐡) / 𝐴)) = ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)))
126113, 124, 1253brtr3d 5178 . . . . . . . . . . 11 (πœ‘ β†’ (1 βˆ’ (β„œβ€˜(𝐡 / 𝐴))) ≀ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)))
12796, 64, 61, 126subled 11813 . . . . . . . . . 10 (πœ‘ β†’ (1 βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄))) ≀ (β„œβ€˜(𝐡 / 𝐴)))
12856, 63, 64, 111, 127ltletrd 11370 . . . . . . . . 9 (πœ‘ β†’ 0 < (β„œβ€˜(𝐡 / 𝐴)))
129 argregt0 26109 . . . . . . . . 9 (((𝐡 / 𝐴) ∈ β„‚ ∧ 0 < (β„œβ€˜(𝐡 / 𝐴))) β†’ (β„‘β€˜(logβ€˜(𝐡 / 𝐴))) ∈ (-(Ο€ / 2)(,)(Ο€ / 2)))
13030, 128, 129syl2anc 584 . . . . . . . 8 (πœ‘ β†’ (β„‘β€˜(logβ€˜(𝐡 / 𝐴))) ∈ (-(Ο€ / 2)(,)(Ο€ / 2)))
131 cosq14gt0 26011 . . . . . . . 8 ((β„‘β€˜(logβ€˜(𝐡 / 𝐴))) ∈ (-(Ο€ / 2)(,)(Ο€ / 2)) β†’ 0 < (cosβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))))
132130, 131syl 17 . . . . . . 7 (πœ‘ β†’ 0 < (cosβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))))
133132gt0ne0d 11774 . . . . . 6 (πœ‘ β†’ (cosβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))) β‰  0)
13453, 133retancld 16084 . . . . 5 (πœ‘ β†’ (tanβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))) ∈ ℝ)
135134recnd 11238 . . . 4 (πœ‘ β†’ (tanβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))) ∈ β„‚)
136135abscld 15379 . . 3 (πœ‘ β†’ (absβ€˜(tanβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴))))) ∈ ℝ)
137 tanabsge 26007 . . . 4 ((β„‘β€˜(logβ€˜(𝐡 / 𝐴))) ∈ (-(Ο€ / 2)(,)(Ο€ / 2)) β†’ (absβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))) ≀ (absβ€˜(tanβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴))))))
138130, 137syl 17 . . 3 (πœ‘ β†’ (absβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))) ≀ (absβ€˜(tanβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴))))))
139128gt0ne0d 11774 . . . . . . 7 (πœ‘ β†’ (β„œβ€˜(𝐡 / 𝐴)) β‰  0)
140 tanarg 26118 . . . . . . 7 (((𝐡 / 𝐴) ∈ β„‚ ∧ (β„œβ€˜(𝐡 / 𝐴)) β‰  0) β†’ (tanβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))) = ((β„‘β€˜(𝐡 / 𝐴)) / (β„œβ€˜(𝐡 / 𝐴))))
14130, 139, 140syl2anc 584 . . . . . 6 (πœ‘ β†’ (tanβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))) = ((β„‘β€˜(𝐡 / 𝐴)) / (β„œβ€˜(𝐡 / 𝐴))))
142141fveq2d 6892 . . . . 5 (πœ‘ β†’ (absβ€˜(tanβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴))))) = (absβ€˜((β„‘β€˜(𝐡 / 𝐴)) / (β„œβ€˜(𝐡 / 𝐴)))))
14330imcld 15138 . . . . . . 7 (πœ‘ β†’ (β„‘β€˜(𝐡 / 𝐴)) ∈ ℝ)
144143recnd 11238 . . . . . 6 (πœ‘ β†’ (β„‘β€˜(𝐡 / 𝐴)) ∈ β„‚)
14564recnd 11238 . . . . . 6 (πœ‘ β†’ (β„œβ€˜(𝐡 / 𝐴)) ∈ β„‚)
146144, 145, 139absdivd 15398 . . . . 5 (πœ‘ β†’ (absβ€˜((β„‘β€˜(𝐡 / 𝐴)) / (β„œβ€˜(𝐡 / 𝐴)))) = ((absβ€˜(β„‘β€˜(𝐡 / 𝐴))) / (absβ€˜(β„œβ€˜(𝐡 / 𝐴)))))
14756, 64, 128ltled 11358 . . . . . . 7 (πœ‘ β†’ 0 ≀ (β„œβ€˜(𝐡 / 𝐴)))
14864, 147absidd 15365 . . . . . 6 (πœ‘ β†’ (absβ€˜(β„œβ€˜(𝐡 / 𝐴))) = (β„œβ€˜(𝐡 / 𝐴)))
149148oveq2d 7421 . . . . 5 (πœ‘ β†’ ((absβ€˜(β„‘β€˜(𝐡 / 𝐴))) / (absβ€˜(β„œβ€˜(𝐡 / 𝐴)))) = ((absβ€˜(β„‘β€˜(𝐡 / 𝐴))) / (β„œβ€˜(𝐡 / 𝐴))))
150142, 146, 1493eqtrd 2776 . . . 4 (πœ‘ β†’ (absβ€˜(tanβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴))))) = ((absβ€˜(β„‘β€˜(𝐡 / 𝐴))) / (β„œβ€˜(𝐡 / 𝐴))))
151144abscld 15379 . . . . . 6 (πœ‘ β†’ (absβ€˜(β„‘β€˜(𝐡 / 𝐴))) ∈ ℝ)
15264, 66remulcld 11240 . . . . . 6 (πœ‘ β†’ ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅) ∈ ℝ)
15314, 5subcld 11567 . . . . . . . . 9 (πœ‘ β†’ (𝐡 βˆ’ 𝐴) ∈ β„‚)
154153, 5, 7divcld 11986 . . . . . . . 8 (πœ‘ β†’ ((𝐡 βˆ’ 𝐴) / 𝐴) ∈ β„‚)
155 absimle 15252 . . . . . . . 8 (((𝐡 βˆ’ 𝐴) / 𝐴) ∈ β„‚ β†’ (absβ€˜(β„‘β€˜((𝐡 βˆ’ 𝐴) / 𝐴))) ≀ (absβ€˜((𝐡 βˆ’ 𝐴) / 𝐴)))
156154, 155syl 17 . . . . . . 7 (πœ‘ β†’ (absβ€˜(β„‘β€˜((𝐡 βˆ’ 𝐴) / 𝐴))) ≀ (absβ€˜((𝐡 βˆ’ 𝐴) / 𝐴)))
15714, 5, 5, 7divsubdird 12025 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐡 βˆ’ 𝐴) / 𝐴) = ((𝐡 / 𝐴) βˆ’ (𝐴 / 𝐴)))
158115oveq2d 7421 . . . . . . . . . . 11 (πœ‘ β†’ ((𝐡 / 𝐴) βˆ’ (𝐴 / 𝐴)) = ((𝐡 / 𝐴) βˆ’ 1))
159157, 158eqtrd 2772 . . . . . . . . . 10 (πœ‘ β†’ ((𝐡 βˆ’ 𝐴) / 𝐴) = ((𝐡 / 𝐴) βˆ’ 1))
160159fveq2d 6892 . . . . . . . . 9 (πœ‘ β†’ (β„‘β€˜((𝐡 βˆ’ 𝐴) / 𝐴)) = (β„‘β€˜((𝐡 / 𝐴) βˆ’ 1)))
161 imsub 15078 . . . . . . . . . . 11 (((𝐡 / 𝐴) ∈ β„‚ ∧ 1 ∈ β„‚) β†’ (β„‘β€˜((𝐡 / 𝐴) βˆ’ 1)) = ((β„‘β€˜(𝐡 / 𝐴)) βˆ’ (β„‘β€˜1)))
16230, 88, 161sylancl 586 . . . . . . . . . 10 (πœ‘ β†’ (β„‘β€˜((𝐡 / 𝐴) βˆ’ 1)) = ((β„‘β€˜(𝐡 / 𝐴)) βˆ’ (β„‘β€˜1)))
163 im1 15098 . . . . . . . . . . 11 (β„‘β€˜1) = 0
164163oveq2i 7416 . . . . . . . . . 10 ((β„‘β€˜(𝐡 / 𝐴)) βˆ’ (β„‘β€˜1)) = ((β„‘β€˜(𝐡 / 𝐴)) βˆ’ 0)
165162, 164eqtrdi 2788 . . . . . . . . 9 (πœ‘ β†’ (β„‘β€˜((𝐡 / 𝐴) βˆ’ 1)) = ((β„‘β€˜(𝐡 / 𝐴)) βˆ’ 0))
166144subid1d 11556 . . . . . . . . 9 (πœ‘ β†’ ((β„‘β€˜(𝐡 / 𝐴)) βˆ’ 0) = (β„‘β€˜(𝐡 / 𝐴)))
167160, 165, 1663eqtrrd 2777 . . . . . . . 8 (πœ‘ β†’ (β„‘β€˜(𝐡 / 𝐴)) = (β„‘β€˜((𝐡 βˆ’ 𝐴) / 𝐴)))
168167fveq2d 6892 . . . . . . 7 (πœ‘ β†’ (absβ€˜(β„‘β€˜(𝐡 / 𝐴))) = (absβ€˜(β„‘β€˜((𝐡 βˆ’ 𝐴) / 𝐴))))
1695, 14abssubd 15396 . . . . . . . . 9 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) = (absβ€˜(𝐡 βˆ’ 𝐴)))
170169oveq1d 7420 . . . . . . . 8 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) = ((absβ€˜(𝐡 βˆ’ 𝐴)) / (absβ€˜π΄)))
171153, 5, 7absdivd 15398 . . . . . . . 8 (πœ‘ β†’ (absβ€˜((𝐡 βˆ’ 𝐴) / 𝐴)) = ((absβ€˜(𝐡 βˆ’ 𝐴)) / (absβ€˜π΄)))
172170, 171eqtr4d 2775 . . . . . . 7 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) = (absβ€˜((𝐡 βˆ’ 𝐴) / 𝐴)))
173156, 168, 1723brtr4d 5179 . . . . . 6 (πœ‘ β†’ (absβ€˜(β„‘β€˜(𝐡 / 𝐴))) ≀ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)))
17465, 59resubcld 11638 . . . . . . . . 9 (πœ‘ β†’ ((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) ∈ ℝ)
175174, 66remulcld 11240 . . . . . . . 8 (πœ‘ β†’ (((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) Β· 𝑅) ∈ ℝ)
17665, 152remulcld 11240 . . . . . . . 8 (πœ‘ β†’ ((absβ€˜π΄) Β· ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅)) ∈ ℝ)
17759recnd 11238 . . . . . . . . . . . . 13 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) ∈ β„‚)
17888a1i 11 . . . . . . . . . . . . 13 (πœ‘ β†’ 1 ∈ β„‚)
179177, 178, 87adddid 11234 . . . . . . . . . . . 12 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· (1 + 𝑅)) = (((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 1) + ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 𝑅)))
180177mulridd 11227 . . . . . . . . . . . . 13 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 1) = (absβ€˜(𝐴 βˆ’ 𝐡)))
181180oveq1d 7420 . . . . . . . . . . . 12 (πœ‘ β†’ (((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 1) + ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 𝑅)) = ((absβ€˜(𝐴 βˆ’ 𝐡)) + ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 𝑅)))
182179, 181eqtrd 2772 . . . . . . . . . . 11 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· (1 + 𝑅)) = ((absβ€˜(𝐴 βˆ’ 𝐡)) + ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 𝑅)))
18369rpne0d 13017 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (1 + 𝑅) β‰  0)
184101, 87, 93, 183divassd 12021 . . . . . . . . . . . . . 14 (πœ‘ β†’ (((absβ€˜π΄) Β· 𝑅) / (1 + 𝑅)) = ((absβ€˜π΄) Β· (𝑅 / (1 + 𝑅))))
185184, 34eqtr4di 2790 . . . . . . . . . . . . 13 (πœ‘ β†’ (((absβ€˜π΄) Β· 𝑅) / (1 + 𝑅)) = 𝑇)
18684, 185breqtrrd 5175 . . . . . . . . . . . 12 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) < (((absβ€˜π΄) Β· 𝑅) / (1 + 𝑅)))
18765, 66remulcld 11240 . . . . . . . . . . . . 13 (πœ‘ β†’ ((absβ€˜π΄) Β· 𝑅) ∈ ℝ)
18859, 187, 69ltmuldivd 13059 . . . . . . . . . . . 12 (πœ‘ β†’ (((absβ€˜(𝐴 βˆ’ 𝐡)) Β· (1 + 𝑅)) < ((absβ€˜π΄) Β· 𝑅) ↔ (absβ€˜(𝐴 βˆ’ 𝐡)) < (((absβ€˜π΄) Β· 𝑅) / (1 + 𝑅))))
189186, 188mpbird 256 . . . . . . . . . . 11 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· (1 + 𝑅)) < ((absβ€˜π΄) Β· 𝑅))
190182, 189eqbrtrrd 5171 . . . . . . . . . 10 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) + ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 𝑅)) < ((absβ€˜π΄) Β· 𝑅))
19159, 66remulcld 11240 . . . . . . . . . . 11 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 𝑅) ∈ ℝ)
19259, 191, 187ltaddsubd 11810 . . . . . . . . . 10 (πœ‘ β†’ (((absβ€˜(𝐴 βˆ’ 𝐡)) + ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 𝑅)) < ((absβ€˜π΄) Β· 𝑅) ↔ (absβ€˜(𝐴 βˆ’ 𝐡)) < (((absβ€˜π΄) Β· 𝑅) βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 𝑅))))
193190, 192mpbid 231 . . . . . . . . 9 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) < (((absβ€˜π΄) Β· 𝑅) βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 𝑅)))
194101, 177, 87subdird 11667 . . . . . . . . 9 (πœ‘ β†’ (((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) Β· 𝑅) = (((absβ€˜π΄) Β· 𝑅) βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) Β· 𝑅)))
195193, 194breqtrrd 5175 . . . . . . . 8 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) < (((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) Β· 𝑅))
19660rpne0d 13017 . . . . . . . . . . . . . 14 (πœ‘ β†’ (absβ€˜π΄) β‰  0)
197101, 177, 101, 196divsubdird 12025 . . . . . . . . . . . . 13 (πœ‘ β†’ (((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) / (absβ€˜π΄)) = (((absβ€˜π΄) / (absβ€˜π΄)) βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄))))
198101, 196dividd 11984 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((absβ€˜π΄) / (absβ€˜π΄)) = 1)
199198oveq1d 7420 . . . . . . . . . . . . 13 (πœ‘ β†’ (((absβ€˜π΄) / (absβ€˜π΄)) βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄))) = (1 βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄))))
200197, 199eqtrd 2772 . . . . . . . . . . . 12 (πœ‘ β†’ (((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) / (absβ€˜π΄)) = (1 βˆ’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄))))
201200, 127eqbrtrd 5169 . . . . . . . . . . 11 (πœ‘ β†’ (((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) / (absβ€˜π΄)) ≀ (β„œβ€˜(𝐡 / 𝐴)))
202174, 64, 60ledivmuld 13065 . . . . . . . . . . 11 (πœ‘ β†’ ((((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) / (absβ€˜π΄)) ≀ (β„œβ€˜(𝐡 / 𝐴)) ↔ ((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) ≀ ((absβ€˜π΄) Β· (β„œβ€˜(𝐡 / 𝐴)))))
203201, 202mpbid 231 . . . . . . . . . 10 (πœ‘ β†’ ((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) ≀ ((absβ€˜π΄) Β· (β„œβ€˜(𝐡 / 𝐴))))
20465, 64remulcld 11240 . . . . . . . . . . 11 (πœ‘ β†’ ((absβ€˜π΄) Β· (β„œβ€˜(𝐡 / 𝐴))) ∈ ℝ)
205174, 204, 35lemul1d 13055 . . . . . . . . . 10 (πœ‘ β†’ (((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) ≀ ((absβ€˜π΄) Β· (β„œβ€˜(𝐡 / 𝐴))) ↔ (((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) Β· 𝑅) ≀ (((absβ€˜π΄) Β· (β„œβ€˜(𝐡 / 𝐴))) Β· 𝑅)))
206203, 205mpbid 231 . . . . . . . . 9 (πœ‘ β†’ (((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) Β· 𝑅) ≀ (((absβ€˜π΄) Β· (β„œβ€˜(𝐡 / 𝐴))) Β· 𝑅))
207101, 145, 87mulassd 11233 . . . . . . . . 9 (πœ‘ β†’ (((absβ€˜π΄) Β· (β„œβ€˜(𝐡 / 𝐴))) Β· 𝑅) = ((absβ€˜π΄) Β· ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅)))
208206, 207breqtrd 5173 . . . . . . . 8 (πœ‘ β†’ (((absβ€˜π΄) βˆ’ (absβ€˜(𝐴 βˆ’ 𝐡))) Β· 𝑅) ≀ ((absβ€˜π΄) Β· ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅)))
20959, 175, 176, 195, 208ltletrd 11370 . . . . . . 7 (πœ‘ β†’ (absβ€˜(𝐴 βˆ’ 𝐡)) < ((absβ€˜π΄) Β· ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅)))
21059, 152, 60ltdivmuld 13063 . . . . . . 7 (πœ‘ β†’ (((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) < ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅) ↔ (absβ€˜(𝐴 βˆ’ 𝐡)) < ((absβ€˜π΄) Β· ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅))))
211209, 210mpbird 256 . . . . . 6 (πœ‘ β†’ ((absβ€˜(𝐴 βˆ’ 𝐡)) / (absβ€˜π΄)) < ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅))
212151, 61, 152, 173, 211lelttrd 11368 . . . . 5 (πœ‘ β†’ (absβ€˜(β„‘β€˜(𝐡 / 𝐴))) < ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅))
213 ltdivmul 12085 . . . . . 6 (((absβ€˜(β„‘β€˜(𝐡 / 𝐴))) ∈ ℝ ∧ 𝑅 ∈ ℝ ∧ ((β„œβ€˜(𝐡 / 𝐴)) ∈ ℝ ∧ 0 < (β„œβ€˜(𝐡 / 𝐴)))) β†’ (((absβ€˜(β„‘β€˜(𝐡 / 𝐴))) / (β„œβ€˜(𝐡 / 𝐴))) < 𝑅 ↔ (absβ€˜(β„‘β€˜(𝐡 / 𝐴))) < ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅)))
214151, 66, 64, 128, 213syl112anc 1374 . . . . 5 (πœ‘ β†’ (((absβ€˜(β„‘β€˜(𝐡 / 𝐴))) / (β„œβ€˜(𝐡 / 𝐴))) < 𝑅 ↔ (absβ€˜(β„‘β€˜(𝐡 / 𝐴))) < ((β„œβ€˜(𝐡 / 𝐴)) Β· 𝑅)))
215212, 214mpbird 256 . . . 4 (πœ‘ β†’ ((absβ€˜(β„‘β€˜(𝐡 / 𝐴))) / (β„œβ€˜(𝐡 / 𝐴))) < 𝑅)
216150, 215eqbrtrd 5169 . . 3 (πœ‘ β†’ (absβ€˜(tanβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴))))) < 𝑅)
21755, 136, 66, 138, 216lelttrd 11368 . 2 (πœ‘ β†’ (absβ€˜(β„‘β€˜(logβ€˜(𝐡 / 𝐴)))) < 𝑅)
21851, 217eqbrtrd 5169 1 (πœ‘ β†’ (absβ€˜((β„‘β€˜(logβ€˜π΄)) βˆ’ (β„‘β€˜(logβ€˜π΅)))) < 𝑅)
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541   ∈ wcel 2106   β‰  wne 2940   βˆ– cdif 3944  ifcif 4527   class class class wbr 5147  ran crn 5676  β€˜cfv 6540  (class class class)co 7405  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111  -∞cmnf 11242   < clt 11244   ≀ cle 11245   βˆ’ cmin 11440  -cneg 11441   / cdiv 11867  2c2 12263  β„+crp 12970  (,)cioo 13320  (,]cioc 13321  β„œcre 15040  β„‘cim 15041  abscabs 15177  expce 16001  cosccos 16004  tanctan 16005  Ο€cpi 16006  logclog 26054
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185  ax-mulf 11186
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-tp 4632  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-iin 4999  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7666  df-om 7852  df-1st 7971  df-2nd 7972  df-supp 8143  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-5 12274  df-6 12275  df-7 12276  df-8 12277  df-9 12278  df-n0 12469  df-z 12555  df-dec 12674  df-uz 12819  df-q 12929  df-rp 12971  df-xneg 13088  df-xadd 13089  df-xmul 13090  df-ioo 13324  df-ioc 13325  df-ico 13326  df-icc 13327  df-fz 13481  df-fzo 13624  df-fl 13753  df-mod 13831  df-seq 13963  df-exp 14024  df-fac 14230  df-bc 14259  df-hash 14287  df-shft 15010  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-limsup 15411  df-clim 15428  df-rlim 15429  df-sum 15629  df-ef 16007  df-sin 16009  df-cos 16010  df-tan 16011  df-pi 16012  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17141  df-ress 17170  df-plusg 17206  df-mulr 17207  df-starv 17208  df-sca 17209  df-vsca 17210  df-ip 17211  df-tset 17212  df-ple 17213  df-ds 17215  df-unif 17216  df-hom 17217  df-cco 17218  df-rest 17364  df-topn 17365  df-0g 17383  df-gsum 17384  df-topgen 17385  df-pt 17386  df-prds 17389  df-xrs 17444  df-qtop 17449  df-imas 17450  df-xps 17452  df-mre 17526  df-mrc 17527  df-acs 17529  df-mgm 18557  df-sgrp 18606  df-mnd 18622  df-submnd 18668  df-mulg 18945  df-cntz 19175  df-cmn 19644  df-psmet 20928  df-xmet 20929  df-met 20930  df-bl 20931  df-mopn 20932  df-fbas 20933  df-fg 20934  df-cnfld 20937  df-top 22387  df-topon 22404  df-topsp 22426  df-bases 22440  df-cld 22514  df-ntr 22515  df-cls 22516  df-nei 22593  df-lp 22631  df-perf 22632  df-cn 22722  df-cnp 22723  df-haus 22810  df-tx 23057  df-hmeo 23250  df-fil 23341  df-fm 23433  df-flim 23434  df-flf 23435  df-xms 23817  df-ms 23818  df-tms 23819  df-cncf 24385  df-limc 25374  df-dv 25375  df-log 26056
This theorem is referenced by:  logcnlem5  26145
  Copyright terms: Public domain W3C validator