Proof of Theorem tanhlt1
Step | Hyp | Ref
| Expression |
1 | | ax-icn 10674 |
. . . . . . 7
⊢ i ∈
ℂ |
2 | | recn 10705 |
. . . . . . 7
⊢ (𝐴 ∈ ℝ → 𝐴 ∈
ℂ) |
3 | | mulcl 10699 |
. . . . . . 7
⊢ ((i
∈ ℂ ∧ 𝐴
∈ ℂ) → (i · 𝐴) ∈ ℂ) |
4 | 1, 2, 3 | sylancr 590 |
. . . . . 6
⊢ (𝐴 ∈ ℝ → (i
· 𝐴) ∈
ℂ) |
5 | | rpcoshcl 15602 |
. . . . . . 7
⊢ (𝐴 ∈ ℝ →
(cos‘(i · 𝐴))
∈ ℝ+) |
6 | 5 | rpne0d 12519 |
. . . . . 6
⊢ (𝐴 ∈ ℝ →
(cos‘(i · 𝐴))
≠ 0) |
7 | | tanval 15573 |
. . . . . 6
⊢ (((i
· 𝐴) ∈ ℂ
∧ (cos‘(i · 𝐴)) ≠ 0) → (tan‘(i ·
𝐴)) = ((sin‘(i
· 𝐴)) /
(cos‘(i · 𝐴)))) |
8 | 4, 6, 7 | syl2anc 587 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
(tan‘(i · 𝐴))
= ((sin‘(i · 𝐴)) / (cos‘(i · 𝐴)))) |
9 | 8 | oveq1d 7185 |
. . . 4
⊢ (𝐴 ∈ ℝ →
((tan‘(i · 𝐴))
/ i) = (((sin‘(i · 𝐴)) / (cos‘(i · 𝐴))) / i)) |
10 | 4 | sincld 15575 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
(sin‘(i · 𝐴))
∈ ℂ) |
11 | | recoshcl 15603 |
. . . . . 6
⊢ (𝐴 ∈ ℝ →
(cos‘(i · 𝐴))
∈ ℝ) |
12 | 11 | recnd 10747 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
(cos‘(i · 𝐴))
∈ ℂ) |
13 | 1 | a1i 11 |
. . . . 5
⊢ (𝐴 ∈ ℝ → i ∈
ℂ) |
14 | | ine0 11153 |
. . . . . 6
⊢ i ≠
0 |
15 | 14 | a1i 11 |
. . . . 5
⊢ (𝐴 ∈ ℝ → i ≠
0) |
16 | 10, 12, 13, 6, 15 | divdiv32d 11519 |
. . . 4
⊢ (𝐴 ∈ ℝ →
(((sin‘(i · 𝐴)) / (cos‘(i · 𝐴))) / i) = (((sin‘(i
· 𝐴)) / i) /
(cos‘(i · 𝐴)))) |
17 | | sinhval 15599 |
. . . . . 6
⊢ (𝐴 ∈ ℂ →
((sin‘(i · 𝐴))
/ i) = (((exp‘𝐴)
− (exp‘-𝐴)) /
2)) |
18 | 2, 17 | syl 17 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
((sin‘(i · 𝐴))
/ i) = (((exp‘𝐴)
− (exp‘-𝐴)) /
2)) |
19 | | coshval 15600 |
. . . . . 6
⊢ (𝐴 ∈ ℂ →
(cos‘(i · 𝐴))
= (((exp‘𝐴) +
(exp‘-𝐴)) /
2)) |
20 | 2, 19 | syl 17 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
(cos‘(i · 𝐴))
= (((exp‘𝐴) +
(exp‘-𝐴)) /
2)) |
21 | 18, 20 | oveq12d 7188 |
. . . 4
⊢ (𝐴 ∈ ℝ →
(((sin‘(i · 𝐴)) / i) / (cos‘(i · 𝐴))) = ((((exp‘𝐴) − (exp‘-𝐴)) / 2) / (((exp‘𝐴) + (exp‘-𝐴)) / 2))) |
22 | 9, 16, 21 | 3eqtrd 2777 |
. . 3
⊢ (𝐴 ∈ ℝ →
((tan‘(i · 𝐴))
/ i) = ((((exp‘𝐴)
− (exp‘-𝐴)) /
2) / (((exp‘𝐴) +
(exp‘-𝐴)) /
2))) |
23 | | reefcl 15532 |
. . . . . 6
⊢ (𝐴 ∈ ℝ →
(exp‘𝐴) ∈
ℝ) |
24 | | renegcl 11027 |
. . . . . . 7
⊢ (𝐴 ∈ ℝ → -𝐴 ∈
ℝ) |
25 | 24 | reefcld 15533 |
. . . . . 6
⊢ (𝐴 ∈ ℝ →
(exp‘-𝐴) ∈
ℝ) |
26 | 23, 25 | resubcld 11146 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
((exp‘𝐴) −
(exp‘-𝐴)) ∈
ℝ) |
27 | 26 | recnd 10747 |
. . . 4
⊢ (𝐴 ∈ ℝ →
((exp‘𝐴) −
(exp‘-𝐴)) ∈
ℂ) |
28 | 23, 25 | readdcld 10748 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
((exp‘𝐴) +
(exp‘-𝐴)) ∈
ℝ) |
29 | 28 | recnd 10747 |
. . . 4
⊢ (𝐴 ∈ ℝ →
((exp‘𝐴) +
(exp‘-𝐴)) ∈
ℂ) |
30 | | 2cnd 11794 |
. . . 4
⊢ (𝐴 ∈ ℝ → 2 ∈
ℂ) |
31 | 20, 6 | eqnetrrd 3002 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
(((exp‘𝐴) +
(exp‘-𝐴)) / 2) ≠
0) |
32 | | 2ne0 11820 |
. . . . . . 7
⊢ 2 ≠
0 |
33 | 32 | a1i 11 |
. . . . . 6
⊢ (𝐴 ∈ ℝ → 2 ≠
0) |
34 | 29, 30, 33 | divne0bd 11506 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
(((exp‘𝐴) +
(exp‘-𝐴)) ≠ 0
↔ (((exp‘𝐴) +
(exp‘-𝐴)) / 2) ≠
0)) |
35 | 31, 34 | mpbird 260 |
. . . 4
⊢ (𝐴 ∈ ℝ →
((exp‘𝐴) +
(exp‘-𝐴)) ≠
0) |
36 | 27, 29, 30, 35, 33 | divcan7d 11522 |
. . 3
⊢ (𝐴 ∈ ℝ →
((((exp‘𝐴) −
(exp‘-𝐴)) / 2) /
(((exp‘𝐴) +
(exp‘-𝐴)) / 2)) =
(((exp‘𝐴) −
(exp‘-𝐴)) /
((exp‘𝐴) +
(exp‘-𝐴)))) |
37 | 22, 36 | eqtrd 2773 |
. 2
⊢ (𝐴 ∈ ℝ →
((tan‘(i · 𝐴))
/ i) = (((exp‘𝐴)
− (exp‘-𝐴)) /
((exp‘𝐴) +
(exp‘-𝐴)))) |
38 | 24 | rpefcld 15550 |
. . . . . 6
⊢ (𝐴 ∈ ℝ →
(exp‘-𝐴) ∈
ℝ+) |
39 | 23, 38 | ltsubrpd 12546 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
((exp‘𝐴) −
(exp‘-𝐴)) <
(exp‘𝐴)) |
40 | 23, 38 | ltaddrpd 12547 |
. . . . 5
⊢ (𝐴 ∈ ℝ →
(exp‘𝐴) <
((exp‘𝐴) +
(exp‘-𝐴))) |
41 | 26, 23, 28, 39, 40 | lttrd 10879 |
. . . 4
⊢ (𝐴 ∈ ℝ →
((exp‘𝐴) −
(exp‘-𝐴)) <
((exp‘𝐴) +
(exp‘-𝐴))) |
42 | 29 | mulid1d 10736 |
. . . 4
⊢ (𝐴 ∈ ℝ →
(((exp‘𝐴) +
(exp‘-𝐴)) · 1)
= ((exp‘𝐴) +
(exp‘-𝐴))) |
43 | 41, 42 | breqtrrd 5058 |
. . 3
⊢ (𝐴 ∈ ℝ →
((exp‘𝐴) −
(exp‘-𝐴)) <
(((exp‘𝐴) +
(exp‘-𝐴)) ·
1)) |
44 | | 1red 10720 |
. . . 4
⊢ (𝐴 ∈ ℝ → 1 ∈
ℝ) |
45 | | efgt0 15548 |
. . . . 5
⊢ (𝐴 ∈ ℝ → 0 <
(exp‘𝐴)) |
46 | | efgt0 15548 |
. . . . . 6
⊢ (-𝐴 ∈ ℝ → 0 <
(exp‘-𝐴)) |
47 | 24, 46 | syl 17 |
. . . . 5
⊢ (𝐴 ∈ ℝ → 0 <
(exp‘-𝐴)) |
48 | 23, 25, 45, 47 | addgt0d 11293 |
. . . 4
⊢ (𝐴 ∈ ℝ → 0 <
((exp‘𝐴) +
(exp‘-𝐴))) |
49 | | ltdivmul 11593 |
. . . 4
⊢
((((exp‘𝐴)
− (exp‘-𝐴))
∈ ℝ ∧ 1 ∈ ℝ ∧ (((exp‘𝐴) + (exp‘-𝐴)) ∈ ℝ ∧ 0 <
((exp‘𝐴) +
(exp‘-𝐴)))) →
((((exp‘𝐴) −
(exp‘-𝐴)) /
((exp‘𝐴) +
(exp‘-𝐴))) < 1
↔ ((exp‘𝐴)
− (exp‘-𝐴))
< (((exp‘𝐴) +
(exp‘-𝐴)) ·
1))) |
50 | 26, 44, 28, 48, 49 | syl112anc 1375 |
. . 3
⊢ (𝐴 ∈ ℝ →
((((exp‘𝐴) −
(exp‘-𝐴)) /
((exp‘𝐴) +
(exp‘-𝐴))) < 1
↔ ((exp‘𝐴)
− (exp‘-𝐴))
< (((exp‘𝐴) +
(exp‘-𝐴)) ·
1))) |
51 | 43, 50 | mpbird 260 |
. 2
⊢ (𝐴 ∈ ℝ →
(((exp‘𝐴) −
(exp‘-𝐴)) /
((exp‘𝐴) +
(exp‘-𝐴))) <
1) |
52 | 37, 51 | eqbrtrd 5052 |
1
⊢ (𝐴 ∈ ℝ →
((tan‘(i · 𝐴))
/ i) < 1) |