Metamath Proof Explorer


Theorem eflt

Description: The exponential function on the reals is strictly increasing. (Contributed by Paul Chapman, 21-Aug-2007) (Revised by Mario Carneiro, 17-Jul-2014)

Ref Expression
Assertion eflt ⊢ A ∈ ℝ ∧ B ∈ ℝ → A < B ↔ e A < e B

Proof

Step Hyp Ref Expression
1 tru ⊢ ⊤
2 fveq2 ⊢ x = y → e x = e y
3 fveq2 ⊢ x = A → e x = e A
4 fveq2 ⊢ x = B → e x = e B
5 ssid ⊢ ℝ ⊆ ℝ
6 reefcl ⊢ x ∈ ℝ → e x ∈ ℝ
7 6 adantl ⊢ ⊤ ∧ x ∈ ℝ → e x ∈ ℝ
8 simp2 ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → y ∈ ℝ
9 simp1 ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → x ∈ ℝ
10 8 9 resubcld ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → y − x ∈ ℝ
11 posdif ⊢ x ∈ ℝ ∧ y ∈ ℝ → x < y ↔ 0 < y − x
12 11 biimp3a ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → 0 < y − x
13 10 12 elrpd ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → y − x ∈ ℝ +
14 efgt1 ⊢ y − x ∈ ℝ + → 1 < e y − x
15 13 14 syl ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → 1 < e y − x
16 9 reefcld ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → e x ∈ ℝ
17 10 reefcld ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → e y − x ∈ ℝ
18 efgt0 ⊢ x ∈ ℝ → 0 < e x
19 9 18 syl ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → 0 < e x
20 ltmulgt11 ⊢ e x ∈ ℝ ∧ e y − x ∈ ℝ ∧ 0 < e x → 1 < e y − x ↔ e x < e x ⁢ e y − x
21 16 17 19 20 syl3anc ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → 1 < e y − x ↔ e x < e x ⁢ e y − x
22 15 21 mpbid ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → e x < e x ⁢ e y − x
23 9 recnd ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → x ∈ ℂ
24 10 recnd ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → y − x ∈ ℂ
25 efadd ⊢ x ∈ ℂ ∧ y − x ∈ ℂ → e x + y - x = e x ⁢ e y − x
26 23 24 25 syl2anc ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → e x + y - x = e x ⁢ e y − x
27 8 recnd ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → y ∈ ℂ
28 23 27 pncan3d ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → x + y - x = y
29 28 fveq2d ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → e x + y - x = e y
30 26 29 eqtr3d ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → e x ⁢ e y − x = e y
31 22 30 breqtrd ⊢ x ∈ ℝ ∧ y ∈ ℝ ∧ x < y → e x < e y
32 31 3expia ⊢ x ∈ ℝ ∧ y ∈ ℝ → x < y → e x < e y
33 32 adantl ⊢ ⊤ ∧ x ∈ ℝ ∧ y ∈ ℝ → x < y → e x < e y
34 2 3 4 5 7 33 ltord1 ⊢ ⊤ ∧ A ∈ ℝ ∧ B ∈ ℝ → A < B ↔ e A < e B
35 1 34 mpan ⊢ A ∈ ℝ ∧ B ∈ ℝ → A < B ↔ e A < e B