Proof of Theorem vmadivsum
| Step | Hyp | Ref
| Expression |
| 1 | | reex 11246 |
. . . . . . 7
⊢ ℝ
∈ V |
| 2 | | rpssre 13042 |
. . . . . . 7
⊢
ℝ+ ⊆ ℝ |
| 3 | 1, 2 | ssexi 5322 |
. . . . . 6
⊢
ℝ+ ∈ V |
| 4 | 3 | a1i 11 |
. . . . 5
⊢ (⊤
→ ℝ+ ∈ V) |
| 5 | | ovexd 7466 |
. . . . 5
⊢
((⊤ ∧ 𝑥
∈ ℝ+) → (Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)) ∈ V) |
| 6 | | ovexd 7466 |
. . . . 5
⊢
((⊤ ∧ 𝑥
∈ ℝ+) → ((log‘𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)) ∈ V) |
| 7 | | eqidd 2738 |
. . . . 5
⊢ (⊤
→ (𝑥 ∈
ℝ+ ↦ (Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) = (𝑥 ∈ ℝ+ ↦
(Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)))) |
| 8 | | eqidd 2738 |
. . . . 5
⊢ (⊤
→ (𝑥 ∈
ℝ+ ↦ ((log‘𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) = (𝑥 ∈ ℝ+ ↦
((log‘𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)))) |
| 9 | 4, 5, 6, 7, 8 | offval2 7717 |
. . . 4
⊢ (⊤
→ ((𝑥 ∈
ℝ+ ↦ (Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∘f − (𝑥 ∈ ℝ+
↦ ((log‘𝑥)
− ((log‘(!‘(⌊‘𝑥))) / 𝑥)))) = (𝑥 ∈ ℝ+ ↦
((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)) − ((log‘𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))))) |
| 10 | 9 | mptru 1547 |
. . 3
⊢ ((𝑥 ∈ ℝ+
↦ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∘f − (𝑥 ∈ ℝ+
↦ ((log‘𝑥)
− ((log‘(!‘(⌊‘𝑥))) / 𝑥)))) = (𝑥 ∈ ℝ+ ↦
((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)) − ((log‘𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)))) |
| 11 | | fzfid 14014 |
. . . . . . 7
⊢ (𝑥 ∈ ℝ+
→ (1...(⌊‘𝑥)) ∈ Fin) |
| 12 | | elfznn 13593 |
. . . . . . . . . 10
⊢ (𝑛 ∈
(1...(⌊‘𝑥))
→ 𝑛 ∈
ℕ) |
| 13 | 12 | adantl 481 |
. . . . . . . . 9
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ 𝑛 ∈
ℕ) |
| 14 | | vmacl 27161 |
. . . . . . . . 9
⊢ (𝑛 ∈ ℕ →
(Λ‘𝑛) ∈
ℝ) |
| 15 | 13, 14 | syl 17 |
. . . . . . . 8
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (Λ‘𝑛)
∈ ℝ) |
| 16 | 15, 13 | nndivred 12320 |
. . . . . . 7
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((Λ‘𝑛)
/ 𝑛) ∈
ℝ) |
| 17 | 11, 16 | fsumrecl 15770 |
. . . . . 6
⊢ (𝑥 ∈ ℝ+
→ Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) ∈ ℝ) |
| 18 | 17 | recnd 11289 |
. . . . 5
⊢ (𝑥 ∈ ℝ+
→ Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) ∈ ℂ) |
| 19 | | relogcl 26617 |
. . . . . 6
⊢ (𝑥 ∈ ℝ+
→ (log‘𝑥) ∈
ℝ) |
| 20 | 19 | recnd 11289 |
. . . . 5
⊢ (𝑥 ∈ ℝ+
→ (log‘𝑥) ∈
ℂ) |
| 21 | | rprege0 13050 |
. . . . . . . . . 10
⊢ (𝑥 ∈ ℝ+
→ (𝑥 ∈ ℝ
∧ 0 ≤ 𝑥)) |
| 22 | | flge0nn0 13860 |
. . . . . . . . . 10
⊢ ((𝑥 ∈ ℝ ∧ 0 ≤
𝑥) →
(⌊‘𝑥) ∈
ℕ0) |
| 23 | | faccl 14322 |
. . . . . . . . . 10
⊢
((⌊‘𝑥)
∈ ℕ0 → (!‘(⌊‘𝑥)) ∈ ℕ) |
| 24 | 21, 22, 23 | 3syl 18 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ (!‘(⌊‘𝑥)) ∈ ℕ) |
| 25 | 24 | nnrpd 13075 |
. . . . . . . 8
⊢ (𝑥 ∈ ℝ+
→ (!‘(⌊‘𝑥)) ∈
ℝ+) |
| 26 | 25 | relogcld 26665 |
. . . . . . 7
⊢ (𝑥 ∈ ℝ+
→ (log‘(!‘(⌊‘𝑥))) ∈ ℝ) |
| 27 | | rerpdivcl 13065 |
. . . . . . 7
⊢
(((log‘(!‘(⌊‘𝑥))) ∈ ℝ ∧ 𝑥 ∈ ℝ+) →
((log‘(!‘(⌊‘𝑥))) / 𝑥) ∈ ℝ) |
| 28 | 26, 27 | mpancom 688 |
. . . . . 6
⊢ (𝑥 ∈ ℝ+
→ ((log‘(!‘(⌊‘𝑥))) / 𝑥) ∈ ℝ) |
| 29 | 28 | recnd 11289 |
. . . . 5
⊢ (𝑥 ∈ ℝ+
→ ((log‘(!‘(⌊‘𝑥))) / 𝑥) ∈ ℂ) |
| 30 | 18, 20, 29 | nnncan2d 11655 |
. . . 4
⊢ (𝑥 ∈ ℝ+
→ ((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)) − ((log‘𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) = (Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) − (log‘𝑥))) |
| 31 | 30 | mpteq2ia 5245 |
. . 3
⊢ (𝑥 ∈ ℝ+
↦ ((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)) − ((log‘𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)))) = (𝑥 ∈ ℝ+ ↦
(Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) − (log‘𝑥))) |
| 32 | 10, 31 | eqtri 2765 |
. 2
⊢ ((𝑥 ∈ ℝ+
↦ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∘f − (𝑥 ∈ ℝ+
↦ ((log‘𝑥)
− ((log‘(!‘(⌊‘𝑥))) / 𝑥)))) = (𝑥 ∈ ℝ+ ↦
(Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) − (log‘𝑥))) |
| 33 | | 1red 11262 |
. . . . 5
⊢ (⊤
→ 1 ∈ ℝ) |
| 34 | | chpo1ub 27524 |
. . . . . 6
⊢ (𝑥 ∈ ℝ+
↦ ((ψ‘𝑥) /
𝑥)) ∈
𝑂(1) |
| 35 | 34 | a1i 11 |
. . . . 5
⊢ (⊤
→ (𝑥 ∈
ℝ+ ↦ ((ψ‘𝑥) / 𝑥)) ∈ 𝑂(1)) |
| 36 | | rpre 13043 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ 𝑥 ∈
ℝ) |
| 37 | | chpcl 27167 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ →
(ψ‘𝑥) ∈
ℝ) |
| 38 | 36, 37 | syl 17 |
. . . . . . . 8
⊢ (𝑥 ∈ ℝ+
→ (ψ‘𝑥)
∈ ℝ) |
| 39 | | rerpdivcl 13065 |
. . . . . . . 8
⊢
(((ψ‘𝑥)
∈ ℝ ∧ 𝑥
∈ ℝ+) → ((ψ‘𝑥) / 𝑥) ∈ ℝ) |
| 40 | 38, 39 | mpancom 688 |
. . . . . . 7
⊢ (𝑥 ∈ ℝ+
→ ((ψ‘𝑥) /
𝑥) ∈
ℝ) |
| 41 | 40 | recnd 11289 |
. . . . . 6
⊢ (𝑥 ∈ ℝ+
→ ((ψ‘𝑥) /
𝑥) ∈
ℂ) |
| 42 | 41 | adantl 481 |
. . . . 5
⊢
((⊤ ∧ 𝑥
∈ ℝ+) → ((ψ‘𝑥) / 𝑥) ∈ ℂ) |
| 43 | 18, 29 | subcld 11620 |
. . . . . 6
⊢ (𝑥 ∈ ℝ+
→ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)) ∈ ℂ) |
| 44 | 43 | adantl 481 |
. . . . 5
⊢
((⊤ ∧ 𝑥
∈ ℝ+) → (Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)) ∈ ℂ) |
| 45 | 36 | adantr 480 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ 𝑥 ∈
ℝ) |
| 46 | 16, 45 | remulcld 11291 |
. . . . . . . . . . 11
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (((Λ‘𝑛)
/ 𝑛) · 𝑥) ∈
ℝ) |
| 47 | | nndivre 12307 |
. . . . . . . . . . . . . 14
⊢ ((𝑥 ∈ ℝ ∧ 𝑛 ∈ ℕ) → (𝑥 / 𝑛) ∈ ℝ) |
| 48 | 36, 12, 47 | syl2an 596 |
. . . . . . . . . . . . 13
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (𝑥 / 𝑛) ∈
ℝ) |
| 49 | | reflcl 13836 |
. . . . . . . . . . . . 13
⊢ ((𝑥 / 𝑛) ∈ ℝ → (⌊‘(𝑥 / 𝑛)) ∈ ℝ) |
| 50 | 48, 49 | syl 17 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (⌊‘(𝑥 /
𝑛)) ∈
ℝ) |
| 51 | 15, 50 | remulcld 11291 |
. . . . . . . . . . 11
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((Λ‘𝑛)
· (⌊‘(𝑥
/ 𝑛))) ∈
ℝ) |
| 52 | 46, 51 | resubcld 11691 |
. . . . . . . . . 10
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((((Λ‘𝑛) / 𝑛) · 𝑥) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛)))) ∈ ℝ) |
| 53 | 48, 50 | resubcld 11691 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((𝑥 / 𝑛) − (⌊‘(𝑥 / 𝑛))) ∈ ℝ) |
| 54 | | 1red 11262 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ 1 ∈ ℝ) |
| 55 | | vmage0 27164 |
. . . . . . . . . . . . 13
⊢ (𝑛 ∈ ℕ → 0 ≤
(Λ‘𝑛)) |
| 56 | 13, 55 | syl 17 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ 0 ≤ (Λ‘𝑛)) |
| 57 | | fracle1 13843 |
. . . . . . . . . . . . 13
⊢ ((𝑥 / 𝑛) ∈ ℝ → ((𝑥 / 𝑛) − (⌊‘(𝑥 / 𝑛))) ≤ 1) |
| 58 | 48, 57 | syl 17 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((𝑥 / 𝑛) − (⌊‘(𝑥 / 𝑛))) ≤ 1) |
| 59 | 53, 54, 15, 56, 58 | lemul2ad 12208 |
. . . . . . . . . . 11
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((Λ‘𝑛)
· ((𝑥 / 𝑛) − (⌊‘(𝑥 / 𝑛)))) ≤ ((Λ‘𝑛) · 1)) |
| 60 | 15 | recnd 11289 |
. . . . . . . . . . . . 13
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (Λ‘𝑛)
∈ ℂ) |
| 61 | 48 | recnd 11289 |
. . . . . . . . . . . . 13
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (𝑥 / 𝑛) ∈
ℂ) |
| 62 | 50 | recnd 11289 |
. . . . . . . . . . . . 13
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (⌊‘(𝑥 /
𝑛)) ∈
ℂ) |
| 63 | 60, 61, 62 | subdid 11719 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((Λ‘𝑛)
· ((𝑥 / 𝑛) − (⌊‘(𝑥 / 𝑛)))) = (((Λ‘𝑛) · (𝑥 / 𝑛)) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛))))) |
| 64 | | rpcn 13045 |
. . . . . . . . . . . . . . 15
⊢ (𝑥 ∈ ℝ+
→ 𝑥 ∈
ℂ) |
| 65 | 64 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ 𝑥 ∈
ℂ) |
| 66 | 13 | nnrpd 13075 |
. . . . . . . . . . . . . . 15
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ 𝑛 ∈
ℝ+) |
| 67 | | rpcnne0 13053 |
. . . . . . . . . . . . . . 15
⊢ (𝑛 ∈ ℝ+
→ (𝑛 ∈ ℂ
∧ 𝑛 ≠
0)) |
| 68 | 66, 67 | syl 17 |
. . . . . . . . . . . . . 14
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (𝑛 ∈ ℂ
∧ 𝑛 ≠
0)) |
| 69 | | div23 11941 |
. . . . . . . . . . . . . . 15
⊢
(((Λ‘𝑛)
∈ ℂ ∧ 𝑥
∈ ℂ ∧ (𝑛
∈ ℂ ∧ 𝑛 ≠
0)) → (((Λ‘𝑛) · 𝑥) / 𝑛) = (((Λ‘𝑛) / 𝑛) · 𝑥)) |
| 70 | | divass 11940 |
. . . . . . . . . . . . . . 15
⊢
(((Λ‘𝑛)
∈ ℂ ∧ 𝑥
∈ ℂ ∧ (𝑛
∈ ℂ ∧ 𝑛 ≠
0)) → (((Λ‘𝑛) · 𝑥) / 𝑛) = ((Λ‘𝑛) · (𝑥 / 𝑛))) |
| 71 | 69, 70 | eqtr3d 2779 |
. . . . . . . . . . . . . 14
⊢
(((Λ‘𝑛)
∈ ℂ ∧ 𝑥
∈ ℂ ∧ (𝑛
∈ ℂ ∧ 𝑛 ≠
0)) → (((Λ‘𝑛) / 𝑛) · 𝑥) = ((Λ‘𝑛) · (𝑥 / 𝑛))) |
| 72 | 60, 65, 68, 71 | syl3anc 1373 |
. . . . . . . . . . . . 13
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (((Λ‘𝑛)
/ 𝑛) · 𝑥) = ((Λ‘𝑛) · (𝑥 / 𝑛))) |
| 73 | 72 | oveq1d 7446 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((((Λ‘𝑛) / 𝑛) · 𝑥) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛)))) = (((Λ‘𝑛) · (𝑥 / 𝑛)) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛))))) |
| 74 | 63, 73 | eqtr4d 2780 |
. . . . . . . . . . 11
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((Λ‘𝑛)
· ((𝑥 / 𝑛) − (⌊‘(𝑥 / 𝑛)))) = ((((Λ‘𝑛) / 𝑛) · 𝑥) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛))))) |
| 75 | 60 | mulridd 11278 |
. . . . . . . . . . 11
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((Λ‘𝑛)
· 1) = (Λ‘𝑛)) |
| 76 | 59, 74, 75 | 3brtr3d 5174 |
. . . . . . . . . 10
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((((Λ‘𝑛) / 𝑛) · 𝑥) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛)))) ≤ (Λ‘𝑛)) |
| 77 | 11, 52, 15, 76 | fsumle 15835 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ Σ𝑛 ∈
(1...(⌊‘𝑥))((((Λ‘𝑛) / 𝑛) · 𝑥) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛)))) ≤ Σ𝑛 ∈ (1...(⌊‘𝑥))(Λ‘𝑛)) |
| 78 | 16 | recnd 11289 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((Λ‘𝑛)
/ 𝑛) ∈
ℂ) |
| 79 | 11, 64, 78 | fsummulc1 15821 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ ℝ+
→ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) = Σ𝑛 ∈ (1...(⌊‘𝑥))(((Λ‘𝑛) / 𝑛) · 𝑥)) |
| 80 | | logfac2 27261 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ ∧ 0 ≤
𝑥) →
(log‘(!‘(⌊‘𝑥))) = Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛)))) |
| 81 | 21, 80 | syl 17 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ ℝ+
→ (log‘(!‘(⌊‘𝑥))) = Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛)))) |
| 82 | 79, 81 | oveq12d 7449 |
. . . . . . . . . 10
⊢ (𝑥 ∈ ℝ+
→ ((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) = (Σ𝑛 ∈ (1...(⌊‘𝑥))(((Λ‘𝑛) / 𝑛) · 𝑥) − Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛))))) |
| 83 | 46 | recnd 11289 |
. . . . . . . . . . 11
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (((Λ‘𝑛)
/ 𝑛) · 𝑥) ∈
ℂ) |
| 84 | 51 | recnd 11289 |
. . . . . . . . . . 11
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ ((Λ‘𝑛)
· (⌊‘(𝑥
/ 𝑛))) ∈
ℂ) |
| 85 | 11, 83, 84 | fsumsub 15824 |
. . . . . . . . . 10
⊢ (𝑥 ∈ ℝ+
→ Σ𝑛 ∈
(1...(⌊‘𝑥))((((Λ‘𝑛) / 𝑛) · 𝑥) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛)))) = (Σ𝑛 ∈ (1...(⌊‘𝑥))(((Λ‘𝑛) / 𝑛) · 𝑥) − Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛))))) |
| 86 | 82, 85 | eqtr4d 2780 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ ((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) = Σ𝑛 ∈ (1...(⌊‘𝑥))((((Λ‘𝑛) / 𝑛) · 𝑥) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛))))) |
| 87 | | chpval 27165 |
. . . . . . . . . 10
⊢ (𝑥 ∈ ℝ →
(ψ‘𝑥) =
Σ𝑛 ∈
(1...(⌊‘𝑥))(Λ‘𝑛)) |
| 88 | 36, 87 | syl 17 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ (ψ‘𝑥) =
Σ𝑛 ∈
(1...(⌊‘𝑥))(Λ‘𝑛)) |
| 89 | 77, 86, 88 | 3brtr4d 5175 |
. . . . . . . 8
⊢ (𝑥 ∈ ℝ+
→ ((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) ≤ (ψ‘𝑥)) |
| 90 | 17, 36 | remulcld 11291 |
. . . . . . . . . 10
⊢ (𝑥 ∈ ℝ+
→ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) ∈ ℝ) |
| 91 | 90, 26 | resubcld 11691 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ ((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) ∈ ℝ) |
| 92 | | rpregt0 13049 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ (𝑥 ∈ ℝ
∧ 0 < 𝑥)) |
| 93 | | lediv1 12133 |
. . . . . . . . 9
⊢
((((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) ∈ ℝ ∧ (ψ‘𝑥) ∈ ℝ ∧ (𝑥 ∈ ℝ ∧ 0 <
𝑥)) → (((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) ≤ (ψ‘𝑥) ↔ (((Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥) ≤ ((ψ‘𝑥) / 𝑥))) |
| 94 | 91, 38, 92, 93 | syl3anc 1373 |
. . . . . . . 8
⊢ (𝑥 ∈ ℝ+
→ (((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) ≤ (ψ‘𝑥) ↔ (((Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥) ≤ ((ψ‘𝑥) / 𝑥))) |
| 95 | 89, 94 | mpbid 232 |
. . . . . . 7
⊢ (𝑥 ∈ ℝ+
→ (((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥) ≤ ((ψ‘𝑥) / 𝑥)) |
| 96 | 90 | recnd 11289 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ ℝ+
→ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) ∈ ℂ) |
| 97 | 26 | recnd 11289 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ ℝ+
→ (log‘(!‘(⌊‘𝑥))) ∈ ℂ) |
| 98 | | rpcnne0 13053 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ ℝ+
→ (𝑥 ∈ ℂ
∧ 𝑥 ≠
0)) |
| 99 | | divsubdir 11961 |
. . . . . . . . . . 11
⊢
(((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) ∈ ℂ ∧
(log‘(!‘(⌊‘𝑥))) ∈ ℂ ∧ (𝑥 ∈ ℂ ∧ 𝑥 ≠ 0)) → (((Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥) = (((Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) / 𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) |
| 100 | 96, 97, 98, 99 | syl3anc 1373 |
. . . . . . . . . 10
⊢ (𝑥 ∈ ℝ+
→ (((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥) = (((Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) / 𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) |
| 101 | | rpne0 13051 |
. . . . . . . . . . . 12
⊢ (𝑥 ∈ ℝ+
→ 𝑥 ≠
0) |
| 102 | 18, 64, 101 | divcan4d 12049 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ ℝ+
→ ((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) / 𝑥) = Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛)) |
| 103 | 102 | oveq1d 7446 |
. . . . . . . . . 10
⊢ (𝑥 ∈ ℝ+
→ (((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) / 𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)) = (Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) |
| 104 | 100, 103 | eqtr2d 2778 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥)) = (((Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥)) |
| 105 | 104 | fveq2d 6910 |
. . . . . . . 8
⊢ (𝑥 ∈ ℝ+
→ (abs‘(Σ𝑛
∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) = (abs‘(((Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥))) |
| 106 | | rerpdivcl 13065 |
. . . . . . . . . 10
⊢
((((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) ∈ ℝ ∧ 𝑥 ∈ ℝ+) →
(((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥) ∈ ℝ) |
| 107 | 91, 106 | mpancom 688 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ (((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥) ∈ ℝ) |
| 108 | | flle 13839 |
. . . . . . . . . . . . . . . 16
⊢ ((𝑥 / 𝑛) ∈ ℝ → (⌊‘(𝑥 / 𝑛)) ≤ (𝑥 / 𝑛)) |
| 109 | 48, 108 | syl 17 |
. . . . . . . . . . . . . . 15
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (⌊‘(𝑥 /
𝑛)) ≤ (𝑥 / 𝑛)) |
| 110 | 48, 50 | subge0d 11853 |
. . . . . . . . . . . . . . 15
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ (0 ≤ ((𝑥 / 𝑛) − (⌊‘(𝑥 / 𝑛))) ↔ (⌊‘(𝑥 / 𝑛)) ≤ (𝑥 / 𝑛))) |
| 111 | 109, 110 | mpbird 257 |
. . . . . . . . . . . . . 14
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ 0 ≤ ((𝑥 / 𝑛) − (⌊‘(𝑥 / 𝑛)))) |
| 112 | 15, 53, 56, 111 | mulge0d 11840 |
. . . . . . . . . . . . 13
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ 0 ≤ ((Λ‘𝑛) · ((𝑥 / 𝑛) − (⌊‘(𝑥 / 𝑛))))) |
| 113 | 112, 74 | breqtrd 5169 |
. . . . . . . . . . . 12
⊢ ((𝑥 ∈ ℝ+
∧ 𝑛 ∈
(1...(⌊‘𝑥)))
→ 0 ≤ ((((Λ‘𝑛) / 𝑛) · 𝑥) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛))))) |
| 114 | 11, 52, 113 | fsumge0 15831 |
. . . . . . . . . . 11
⊢ (𝑥 ∈ ℝ+
→ 0 ≤ Σ𝑛
∈ (1...(⌊‘𝑥))((((Λ‘𝑛) / 𝑛) · 𝑥) − ((Λ‘𝑛) · (⌊‘(𝑥 / 𝑛))))) |
| 115 | 114, 86 | breqtrrd 5171 |
. . . . . . . . . 10
⊢ (𝑥 ∈ ℝ+
→ 0 ≤ ((Σ𝑛
∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥))))) |
| 116 | | divge0 12137 |
. . . . . . . . . 10
⊢
(((((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) ∈ ℝ ∧ 0 ≤
((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥))))) ∧ (𝑥 ∈ ℝ ∧ 0 < 𝑥)) → 0 ≤ (((Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥)) |
| 117 | 91, 115, 92, 116 | syl21anc 838 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ 0 ≤ (((Σ𝑛
∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥)) |
| 118 | 107, 117 | absidd 15461 |
. . . . . . . 8
⊢ (𝑥 ∈ ℝ+
→ (abs‘(((Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥)) = (((Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥)) |
| 119 | 105, 118 | eqtrd 2777 |
. . . . . . 7
⊢ (𝑥 ∈ ℝ+
→ (abs‘(Σ𝑛
∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) = (((Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) · 𝑥) −
(log‘(!‘(⌊‘𝑥)))) / 𝑥)) |
| 120 | | chpge0 27169 |
. . . . . . . . . 10
⊢ (𝑥 ∈ ℝ → 0 ≤
(ψ‘𝑥)) |
| 121 | 36, 120 | syl 17 |
. . . . . . . . 9
⊢ (𝑥 ∈ ℝ+
→ 0 ≤ (ψ‘𝑥)) |
| 122 | | divge0 12137 |
. . . . . . . . 9
⊢
((((ψ‘𝑥)
∈ ℝ ∧ 0 ≤ (ψ‘𝑥)) ∧ (𝑥 ∈ ℝ ∧ 0 < 𝑥)) → 0 ≤
((ψ‘𝑥) / 𝑥)) |
| 123 | 38, 121, 92, 122 | syl21anc 838 |
. . . . . . . 8
⊢ (𝑥 ∈ ℝ+
→ 0 ≤ ((ψ‘𝑥) / 𝑥)) |
| 124 | 40, 123 | absidd 15461 |
. . . . . . 7
⊢ (𝑥 ∈ ℝ+
→ (abs‘((ψ‘𝑥) / 𝑥)) = ((ψ‘𝑥) / 𝑥)) |
| 125 | 95, 119, 124 | 3brtr4d 5175 |
. . . . . 6
⊢ (𝑥 ∈ ℝ+
→ (abs‘(Σ𝑛
∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ≤ (abs‘((ψ‘𝑥) / 𝑥))) |
| 126 | 125 | ad2antrl 728 |
. . . . 5
⊢
((⊤ ∧ (𝑥
∈ ℝ+ ∧ 1 ≤ 𝑥)) → (abs‘(Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ≤ (abs‘((ψ‘𝑥) / 𝑥))) |
| 127 | 33, 35, 42, 44, 126 | o1le 15689 |
. . . 4
⊢ (⊤
→ (𝑥 ∈
ℝ+ ↦ (Σ𝑛 ∈ (1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∈ 𝑂(1)) |
| 128 | 127 | mptru 1547 |
. . 3
⊢ (𝑥 ∈ ℝ+
↦ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∈ 𝑂(1) |
| 129 | | logfacrlim 27268 |
. . . 4
⊢ (𝑥 ∈ ℝ+
↦ ((log‘𝑥)
− ((log‘(!‘(⌊‘𝑥))) / 𝑥))) ⇝𝑟
1 |
| 130 | | rlimo1 15653 |
. . . 4
⊢ ((𝑥 ∈ ℝ+
↦ ((log‘𝑥)
− ((log‘(!‘(⌊‘𝑥))) / 𝑥))) ⇝𝑟 1 →
(𝑥 ∈
ℝ+ ↦ ((log‘𝑥) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∈ 𝑂(1)) |
| 131 | 129, 130 | ax-mp 5 |
. . 3
⊢ (𝑥 ∈ ℝ+
↦ ((log‘𝑥)
− ((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∈ 𝑂(1) |
| 132 | | o1sub 15652 |
. . 3
⊢ (((𝑥 ∈ ℝ+
↦ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∈ 𝑂(1) ∧ (𝑥 ∈ ℝ+
↦ ((log‘𝑥)
− ((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∈ 𝑂(1)) → ((𝑥 ∈ ℝ+
↦ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∘f − (𝑥 ∈ ℝ+
↦ ((log‘𝑥)
− ((log‘(!‘(⌊‘𝑥))) / 𝑥)))) ∈ 𝑂(1)) |
| 133 | 128, 131,
132 | mp2an 692 |
. 2
⊢ ((𝑥 ∈ ℝ+
↦ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) −
((log‘(!‘(⌊‘𝑥))) / 𝑥))) ∘f − (𝑥 ∈ ℝ+
↦ ((log‘𝑥)
− ((log‘(!‘(⌊‘𝑥))) / 𝑥)))) ∈ 𝑂(1) |
| 134 | 32, 133 | eqeltrri 2838 |
1
⊢ (𝑥 ∈ ℝ+
↦ (Σ𝑛 ∈
(1...(⌊‘𝑥))((Λ‘𝑛) / 𝑛) − (log‘𝑥))) ∈ 𝑂(1) |