Metamath Proof Explorer


Theorem vmadivsum

Description: The sum of the von Mangoldt function over n is asymptotic to log x + O(1) . Equation 9.2.13 of Shapiro, p. 331. (Contributed by Mario Carneiro, 16-Apr-2016)

Ref Expression
Assertion vmadivsum ⊢ x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ∈ 𝑂⁡1

Proof

Step Hyp Ref Expression
1 reex ⊢ ℝ ∈ V
2 rpssre ⊢ ℝ + ⊆ ℝ
3 1 2 ssexi ⊢ ℝ + ∈ V
4 3 a1i ⊢ ⊤ → ℝ + ∈ V
5 ovexd ⊢ ⊤ ∧ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x ∈ V
6 ovexd ⊢ ⊤ ∧ x ∈ ℝ + → log ⁡ x − log ⁡ x ! x ∈ V
7 eqidd ⊢ ⊤ → x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x = x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x
8 eqidd ⊢ ⊤ → x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x = x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x
9 4 5 6 7 8 offval2 ⊢ ⊤ → x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x − f x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x = x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n - log ⁡ x ! x - log ⁡ x − log ⁡ x ! x
10 9 mptru ⊢ x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x − f x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x = x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n - log ⁡ x ! x - log ⁡ x − log ⁡ x ! x
11 fzfid ⊢ x ∈ ℝ + → 1 … x ∈ Fin
12 elfznn ⊢ n ∈ 1 … x → n ∈ ℕ
13 12 adantl ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → n ∈ ℕ
14 vmacl ⊢ n ∈ ℕ → Λ ⁡ n ∈ ℝ
15 13 14 syl ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n ∈ ℝ
16 15 13 nndivred ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n n ∈ ℝ
17 11 16 fsumrecl ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ∈ ℝ
18 17 recnd ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ∈ ℂ
19 relogcl ⊢ x ∈ ℝ + → log ⁡ x ∈ ℝ
20 19 recnd ⊢ x ∈ ℝ + → log ⁡ x ∈ ℂ
21 rprege0 ⊢ x ∈ ℝ + → x ∈ ℝ ∧ 0 ≤ x
22 flge0nn0 ⊢ x ∈ ℝ ∧ 0 ≤ x → x ∈ ℕ 0
23 faccl ⊢ x ∈ ℕ 0 → x ! ∈ ℕ
24 21 22 23 3syl ⊢ x ∈ ℝ + → x ! ∈ ℕ
25 24 nnrpd ⊢ x ∈ ℝ + → x ! ∈ ℝ +
26 25 relogcld ⊢ x ∈ ℝ + → log ⁡ x ! ∈ ℝ
27 rerpdivcl ⊢ log ⁡ x ! ∈ ℝ ∧ x ∈ ℝ + → log ⁡ x ! x ∈ ℝ
28 26 27 mpancom ⊢ x ∈ ℝ + → log ⁡ x ! x ∈ ℝ
29 28 recnd ⊢ x ∈ ℝ + → log ⁡ x ! x ∈ ℂ
30 18 20 29 nnncan2d ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n - log ⁡ x ! x - log ⁡ x − log ⁡ x ! x = ∑ n = 1 x Λ ⁡ n n − log ⁡ x
31 30 mpteq2ia ⊢ x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n - log ⁡ x ! x - log ⁡ x − log ⁡ x ! x = x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x
32 10 31 eqtri ⊢ x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x − f x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x = x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x
33 1red ⊢ ⊤ → 1 ∈ ℝ
34 chpo1ub ⊢ x ∈ ℝ + ⟼ ψ ⁡ x x ∈ 𝑂⁡1
35 34 a1i ⊢ ⊤ → x ∈ ℝ + ⟼ ψ ⁡ x x ∈ 𝑂⁡1
36 rpre ⊢ x ∈ ℝ + → x ∈ ℝ
37 chpcl ⊢ x ∈ ℝ → ψ ⁡ x ∈ ℝ
38 36 37 syl ⊢ x ∈ ℝ + → ψ ⁡ x ∈ ℝ
39 rerpdivcl ⊢ ψ ⁡ x ∈ ℝ ∧ x ∈ ℝ + → ψ ⁡ x x ∈ ℝ
40 38 39 mpancom ⊢ x ∈ ℝ + → ψ ⁡ x x ∈ ℝ
41 40 recnd ⊢ x ∈ ℝ + → ψ ⁡ x x ∈ ℂ
42 41 adantl ⊢ ⊤ ∧ x ∈ ℝ + → ψ ⁡ x x ∈ ℂ
43 18 29 subcld ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x ∈ ℂ
44 43 adantl ⊢ ⊤ ∧ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x ∈ ℂ
45 36 adantr ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → x ∈ ℝ
46 16 45 remulcld ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n n ⁢ x ∈ ℝ
47 nndivre ⊢ x ∈ ℝ ∧ n ∈ ℕ → x n ∈ ℝ
48 36 12 47 syl2an ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → x n ∈ ℝ
49 reflcl ⊢ x n ∈ ℝ → x n ∈ ℝ
50 48 49 syl ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → x n ∈ ℝ
51 15 50 remulcld ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n ⁢ x n ∈ ℝ
52 46 51 resubcld ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n n ⁢ x − Λ ⁡ n ⁢ x n ∈ ℝ
53 48 50 resubcld ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → x n − x n ∈ ℝ
54 1red ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → 1 ∈ ℝ
55 vmage0 ⊢ n ∈ ℕ → 0 ≤ Λ ⁡ n
56 13 55 syl ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → 0 ≤ Λ ⁡ n
57 fracle1 ⊢ x n ∈ ℝ → x n − x n ≤ 1
58 48 57 syl ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → x n − x n ≤ 1
59 53 54 15 56 58 lemul2ad ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n ⁢ x n − x n ≤ Λ ⁡ n ⋅ 1
60 15 recnd ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n ∈ ℂ
61 48 recnd ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → x n ∈ ℂ
62 50 recnd ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → x n ∈ ℂ
63 60 61 62 subdid ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n ⁢ x n − x n = Λ ⁡ n ⁢ x n − Λ ⁡ n ⁢ x n
64 rpcn ⊢ x ∈ ℝ + → x ∈ ℂ
65 64 adantr ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → x ∈ ℂ
66 13 nnrpd ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → n ∈ ℝ +
67 rpcnne0 ⊢ n ∈ ℝ + → n ∈ ℂ ∧ n ≠ 0
68 66 67 syl ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → n ∈ ℂ ∧ n ≠ 0
69 div23 ⊢ Λ ⁡ n ∈ ℂ ∧ x ∈ ℂ ∧ n ∈ ℂ ∧ n ≠ 0 → Λ ⁡ n ⁢ x n = Λ ⁡ n n ⁢ x
70 divass ⊢ Λ ⁡ n ∈ ℂ ∧ x ∈ ℂ ∧ n ∈ ℂ ∧ n ≠ 0 → Λ ⁡ n ⁢ x n = Λ ⁡ n ⁢ x n
71 69 70 eqtr3d ⊢ Λ ⁡ n ∈ ℂ ∧ x ∈ ℂ ∧ n ∈ ℂ ∧ n ≠ 0 → Λ ⁡ n n ⁢ x = Λ ⁡ n ⁢ x n
72 60 65 68 71 syl3anc ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n n ⁢ x = Λ ⁡ n ⁢ x n
73 72 oveq1d ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n n ⁢ x − Λ ⁡ n ⁢ x n = Λ ⁡ n ⁢ x n − Λ ⁡ n ⁢ x n
74 63 73 eqtr4d ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n ⁢ x n − x n = Λ ⁡ n n ⁢ x − Λ ⁡ n ⁢ x n
75 60 mulridd ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n ⋅ 1 = Λ ⁡ n
76 59 74 75 3brtr3d ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n n ⁢ x − Λ ⁡ n ⁢ x n ≤ Λ ⁡ n
77 11 52 15 76 fsumle ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − Λ ⁡ n ⁢ x n ≤ ∑ n = 1 x Λ ⁡ n
78 16 recnd ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n n ∈ ℂ
79 11 64 78 fsummulc1 ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x = ∑ n = 1 x Λ ⁡ n n ⁢ x
80 logfac2 ⊢ x ∈ ℝ ∧ 0 ≤ x → log ⁡ x ! = ∑ n = 1 x Λ ⁡ n ⁢ x n
81 21 80 syl ⊢ x ∈ ℝ + → log ⁡ x ! = ∑ n = 1 x Λ ⁡ n ⁢ x n
82 79 81 oveq12d ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! = ∑ n = 1 x Λ ⁡ n n ⁢ x − ∑ n = 1 x Λ ⁡ n ⁢ x n
83 46 recnd ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n n ⁢ x ∈ ℂ
84 51 recnd ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → Λ ⁡ n ⁢ x n ∈ ℂ
85 11 83 84 fsumsub ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − Λ ⁡ n ⁢ x n = ∑ n = 1 x Λ ⁡ n n ⁢ x − ∑ n = 1 x Λ ⁡ n ⁢ x n
86 82 85 eqtr4d ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! = ∑ n = 1 x Λ ⁡ n n ⁢ x − Λ ⁡ n ⁢ x n
87 chpval ⊢ x ∈ ℝ → ψ ⁡ x = ∑ n = 1 x Λ ⁡ n
88 36 87 syl ⊢ x ∈ ℝ + → ψ ⁡ x = ∑ n = 1 x Λ ⁡ n
89 77 86 88 3brtr4d ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! ≤ ψ ⁡ x
90 17 36 remulcld ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x ∈ ℝ
91 90 26 resubcld ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! ∈ ℝ
92 rpregt0 ⊢ x ∈ ℝ + → x ∈ ℝ ∧ 0 < x
93 lediv1 ⊢ ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! ∈ ℝ ∧ ψ ⁡ x ∈ ℝ ∧ x ∈ ℝ ∧ 0 < x → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! ≤ ψ ⁡ x ↔ ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x ≤ ψ ⁡ x x
94 91 38 92 93 syl3anc ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! ≤ ψ ⁡ x ↔ ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x ≤ ψ ⁡ x x
95 89 94 mpbid ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x ≤ ψ ⁡ x x
96 90 recnd ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x ∈ ℂ
97 26 recnd ⊢ x ∈ ℝ + → log ⁡ x ! ∈ ℂ
98 rpcnne0 ⊢ x ∈ ℝ + → x ∈ ℂ ∧ x ≠ 0
99 divsubdir ⊢ ∑ n = 1 x Λ ⁡ n n ⁢ x ∈ ℂ ∧ log ⁡ x ! ∈ ℂ ∧ x ∈ ℂ ∧ x ≠ 0 → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x = ∑ n = 1 x Λ ⁡ n n ⁢ x x − log ⁡ x ! x
100 96 97 98 99 syl3anc ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x = ∑ n = 1 x Λ ⁡ n n ⁢ x x − log ⁡ x ! x
101 rpne0 ⊢ x ∈ ℝ + → x ≠ 0
102 18 64 101 divcan4d ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x x = ∑ n = 1 x Λ ⁡ n n
103 102 oveq1d ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x x − log ⁡ x ! x = ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x
104 100 103 eqtr2d ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x = ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x
105 104 fveq2d ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x = ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x
106 rerpdivcl ⊢ ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! ∈ ℝ ∧ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x ∈ ℝ
107 91 106 mpancom ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x ∈ ℝ
108 flle ⊢ x n ∈ ℝ → x n ≤ x n
109 48 108 syl ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → x n ≤ x n
110 48 50 subge0d ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → 0 ≤ x n − x n ↔ x n ≤ x n
111 109 110 mpbird ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → 0 ≤ x n − x n
112 15 53 56 111 mulge0d ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → 0 ≤ Λ ⁡ n ⁢ x n − x n
113 112 74 breqtrd ⊢ x ∈ ℝ + ∧ n ∈ 1 … x → 0 ≤ Λ ⁡ n n ⁢ x − Λ ⁡ n ⁢ x n
114 11 52 113 fsumge0 ⊢ x ∈ ℝ + → 0 ≤ ∑ n = 1 x Λ ⁡ n n ⁢ x − Λ ⁡ n ⁢ x n
115 114 86 breqtrrd ⊢ x ∈ ℝ + → 0 ≤ ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x !
116 divge0 ⊢ ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! ∈ ℝ ∧ 0 ≤ ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! ∧ x ∈ ℝ ∧ 0 < x → 0 ≤ ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x
117 91 115 92 116 syl21anc ⊢ x ∈ ℝ + → 0 ≤ ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x
118 107 117 absidd ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x = ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x
119 105 118 eqtrd ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x = ∑ n = 1 x Λ ⁡ n n ⁢ x − log ⁡ x ! x
120 chpge0 ⊢ x ∈ ℝ → 0 ≤ ψ ⁡ x
121 36 120 syl ⊢ x ∈ ℝ + → 0 ≤ ψ ⁡ x
122 divge0 ⊢ ψ ⁡ x ∈ ℝ ∧ 0 ≤ ψ ⁡ x ∧ x ∈ ℝ ∧ 0 < x → 0 ≤ ψ ⁡ x x
123 38 121 92 122 syl21anc ⊢ x ∈ ℝ + → 0 ≤ ψ ⁡ x x
124 40 123 absidd ⊢ x ∈ ℝ + → ψ ⁡ x x = ψ ⁡ x x
125 95 119 124 3brtr4d ⊢ x ∈ ℝ + → ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x ≤ ψ ⁡ x x
126 125 ad2antrl ⊢ ⊤ ∧ x ∈ ℝ + ∧ 1 ≤ x → ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x ≤ ψ ⁡ x x
127 33 35 42 44 126 o1le ⊢ ⊤ → x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x ∈ 𝑂⁡1
128 127 mptru ⊢ x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x ∈ 𝑂⁡1
129 logfacrlim ⊢ x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x ⇝ℝ 1
130 rlimo1 ⊢ x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x ⇝ℝ 1 → x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x ∈ 𝑂⁡1
131 129 130 ax-mp ⊢ x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x ∈ 𝑂⁡1
132 o1sub ⊢ x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x ∈ 𝑂⁡1 ∧ x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x ∈ 𝑂⁡1 → x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x − f x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x ∈ 𝑂⁡1
133 128 131 132 mp2an ⊢ x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ! x − f x ∈ ℝ + ⟼ log ⁡ x − log ⁡ x ! x ∈ 𝑂⁡1
134 32 133 eqeltrri ⊢ x ∈ ℝ + ⟼ ∑ n = 1 x Λ ⁡ n n − log ⁡ x ∈ 𝑂⁡1