Metamath Proof Explorer


Theorem logdivlt

Description: The log x / x function is strictly decreasing on the reals greater than _e . (Contributed by Mario Carneiro, 14-Mar-2014)

Ref Expression
Assertion logdivlt ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ ∧ e ≤ B → A < B ↔ log ⁡ B B < log ⁡ A A

Proof

Step Hyp Ref Expression
1 logdivlti ⊢ A ∈ ℝ ∧ B ∈ ℝ ∧ e ≤ A ∧ A < B → log ⁡ B B < log ⁡ A A
2 1 ex ⊢ A ∈ ℝ ∧ B ∈ ℝ ∧ e ≤ A → A < B → log ⁡ B B < log ⁡ A A
3 2 3expa ⊢ A ∈ ℝ ∧ B ∈ ℝ ∧ e ≤ A → A < B → log ⁡ B B < log ⁡ A A
4 3 an32s ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ → A < B → log ⁡ B B < log ⁡ A A
5 4 adantrr ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ ∧ e ≤ B → A < B → log ⁡ B B < log ⁡ A A
6 fveq2 ⊢ A = B → log ⁡ A = log ⁡ B
7 id ⊢ A = B → A = B
8 6 7 oveq12d ⊢ A = B → log ⁡ A A = log ⁡ B B
9 8 eqcomd ⊢ A = B → log ⁡ B B = log ⁡ A A
10 9 a1i ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ ∧ e ≤ B → A = B → log ⁡ B B = log ⁡ A A
11 logdivlti ⊢ B ∈ ℝ ∧ A ∈ ℝ ∧ e ≤ B ∧ B < A → log ⁡ A A < log ⁡ B B
12 11 ex ⊢ B ∈ ℝ ∧ A ∈ ℝ ∧ e ≤ B → B < A → log ⁡ A A < log ⁡ B B
13 12 3expa ⊢ B ∈ ℝ ∧ A ∈ ℝ ∧ e ≤ B → B < A → log ⁡ A A < log ⁡ B B
14 13 an32s ⊢ B ∈ ℝ ∧ e ≤ B ∧ A ∈ ℝ → B < A → log ⁡ A A < log ⁡ B B
15 14 adantrr ⊢ B ∈ ℝ ∧ e ≤ B ∧ A ∈ ℝ ∧ e ≤ A → B < A → log ⁡ A A < log ⁡ B B
16 15 ancoms ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ ∧ e ≤ B → B < A → log ⁡ A A < log ⁡ B B
17 10 16 orim12d ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ ∧ e ≤ B → A = B ∨ B < A → log ⁡ B B = log ⁡ A A ∨ log ⁡ A A < log ⁡ B B
18 17 con3d ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ ∧ e ≤ B → ¬ log ⁡ B B = log ⁡ A A ∨ log ⁡ A A < log ⁡ B B → ¬ A = B ∨ B < A
19 simpl ⊢ B ∈ ℝ ∧ e ≤ B → B ∈ ℝ
20 epos ⊢ 0 < e
21 0re ⊢ 0 ∈ ℝ
22 ere ⊢ e ∈ ℝ
23 ltletr ⊢ 0 ∈ ℝ ∧ e ∈ ℝ ∧ B ∈ ℝ → 0 < e ∧ e ≤ B → 0 < B
24 21 22 23 mp3an12 ⊢ B ∈ ℝ → 0 < e ∧ e ≤ B → 0 < B
25 20 24 mpani ⊢ B ∈ ℝ → e ≤ B → 0 < B
26 25 imp ⊢ B ∈ ℝ ∧ e ≤ B → 0 < B
27 19 26 elrpd ⊢ B ∈ ℝ ∧ e ≤ B → B ∈ ℝ +
28 relogcl ⊢ B ∈ ℝ + → log ⁡ B ∈ ℝ
29 rerpdivcl ⊢ log ⁡ B ∈ ℝ ∧ B ∈ ℝ + → log ⁡ B B ∈ ℝ
30 28 29 mpancom ⊢ B ∈ ℝ + → log ⁡ B B ∈ ℝ
31 27 30 syl ⊢ B ∈ ℝ ∧ e ≤ B → log ⁡ B B ∈ ℝ
32 simpl ⊢ A ∈ ℝ ∧ e ≤ A → A ∈ ℝ
33 ltletr ⊢ 0 ∈ ℝ ∧ e ∈ ℝ ∧ A ∈ ℝ → 0 < e ∧ e ≤ A → 0 < A
34 21 22 33 mp3an12 ⊢ A ∈ ℝ → 0 < e ∧ e ≤ A → 0 < A
35 20 34 mpani ⊢ A ∈ ℝ → e ≤ A → 0 < A
36 35 imp ⊢ A ∈ ℝ ∧ e ≤ A → 0 < A
37 32 36 elrpd ⊢ A ∈ ℝ ∧ e ≤ A → A ∈ ℝ +
38 relogcl ⊢ A ∈ ℝ + → log ⁡ A ∈ ℝ
39 rerpdivcl ⊢ log ⁡ A ∈ ℝ ∧ A ∈ ℝ + → log ⁡ A A ∈ ℝ
40 38 39 mpancom ⊢ A ∈ ℝ + → log ⁡ A A ∈ ℝ
41 37 40 syl ⊢ A ∈ ℝ ∧ e ≤ A → log ⁡ A A ∈ ℝ
42 axlttri ⊢ log ⁡ B B ∈ ℝ ∧ log ⁡ A A ∈ ℝ → log ⁡ B B < log ⁡ A A ↔ ¬ log ⁡ B B = log ⁡ A A ∨ log ⁡ A A < log ⁡ B B
43 31 41 42 syl2anr ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ ∧ e ≤ B → log ⁡ B B < log ⁡ A A ↔ ¬ log ⁡ B B = log ⁡ A A ∨ log ⁡ A A < log ⁡ B B
44 axlttri ⊢ A ∈ ℝ ∧ B ∈ ℝ → A < B ↔ ¬ A = B ∨ B < A
45 44 ad2ant2r ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ ∧ e ≤ B → A < B ↔ ¬ A = B ∨ B < A
46 18 43 45 3imtr4d ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ ∧ e ≤ B → log ⁡ B B < log ⁡ A A → A < B
47 5 46 impbid ⊢ A ∈ ℝ ∧ e ≤ A ∧ B ∈ ℝ ∧ e ≤ B → A < B ↔ log ⁡ B B < log ⁡ A A