Metamath Proof Explorer


Theorem stirlinglem1

Description: A simple limit of fractions is computed. (Contributed by Glauco Siliprandi, 30-Jun-2017)

Ref Expression
Hypotheses stirlinglem1.1 ⊢ H = n ∈ ℕ ⟼ n 2 n ⁢ 2 ⁢ n + 1
stirlinglem1.2 ⊢ F = n ∈ ℕ ⟼ 1 − 1 2 ⁢ n + 1
stirlinglem1.3 ⊢ G = n ∈ ℕ ⟼ 1 2 ⁢ n + 1
stirlinglem1.4 ⊢ L = n ∈ ℕ ⟼ 1 n
Assertion stirlinglem1 ⊢ H ⇝ 1 2

Proof

Step Hyp Ref Expression
1 stirlinglem1.1 ⊢ H = n ∈ ℕ ⟼ n 2 n ⁢ 2 ⁢ n + 1
2 stirlinglem1.2 ⊢ F = n ∈ ℕ ⟼ 1 − 1 2 ⁢ n + 1
3 stirlinglem1.3 ⊢ G = n ∈ ℕ ⟼ 1 2 ⁢ n + 1
4 stirlinglem1.4 ⊢ L = n ∈ ℕ ⟼ 1 n
5 nnuz ⊢ ℕ = ℤ ≥ 1
6 1zzd ⊢ ⊤ → 1 ∈ ℤ
7 ax-1cn ⊢ 1 ∈ ℂ
8 divcnv ⊢ 1 ∈ ℂ → n ∈ ℕ ⟼ 1 n ⇝ 0
9 7 8 ax-mp ⊢ n ∈ ℕ ⟼ 1 n ⇝ 0
10 4 9 eqbrtri ⊢ L ⇝ 0
11 10 a1i ⊢ ⊤ → L ⇝ 0
12 nnex ⊢ ℕ ∈ V
13 12 mptex ⊢ n ∈ ℕ ⟼ 1 2 ⁢ n + 1 ∈ V
14 3 13 eqeltri ⊢ G ∈ V
15 14 a1i ⊢ ⊤ → G ∈ V
16 4 a1i ⊢ k ∈ ℕ → L = n ∈ ℕ ⟼ 1 n
17 simpr ⊢ k ∈ ℕ ∧ n = k → n = k
18 17 oveq2d ⊢ k ∈ ℕ ∧ n = k → 1 n = 1 k
19 id ⊢ k ∈ ℕ → k ∈ ℕ
20 nnrp ⊢ k ∈ ℕ → k ∈ ℝ +
21 20 rpreccld ⊢ k ∈ ℕ → 1 k ∈ ℝ +
22 16 18 19 21 fvmptd ⊢ k ∈ ℕ → L ⁡ k = 1 k
23 nnrecre ⊢ k ∈ ℕ → 1 k ∈ ℝ
24 22 23 eqeltrd ⊢ k ∈ ℕ → L ⁡ k ∈ ℝ
25 24 adantl ⊢ ⊤ ∧ k ∈ ℕ → L ⁡ k ∈ ℝ
26 3 a1i ⊢ k ∈ ℕ → G = n ∈ ℕ ⟼ 1 2 ⁢ n + 1
27 17 oveq2d ⊢ k ∈ ℕ ∧ n = k → 2 ⁢ n = 2 ⁢ k
28 27 oveq1d ⊢ k ∈ ℕ ∧ n = k → 2 ⁢ n + 1 = 2 ⁢ k + 1
29 28 oveq2d ⊢ k ∈ ℕ ∧ n = k → 1 2 ⁢ n + 1 = 1 2 ⁢ k + 1
30 2re ⊢ 2 ∈ ℝ
31 30 a1i ⊢ k ∈ ℕ → 2 ∈ ℝ
32 nnre ⊢ k ∈ ℕ → k ∈ ℝ
33 31 32 remulcld ⊢ k ∈ ℕ → 2 ⁢ k ∈ ℝ
34 0le2 ⊢ 0 ≤ 2
35 34 a1i ⊢ k ∈ ℕ → 0 ≤ 2
36 20 rpge0d ⊢ k ∈ ℕ → 0 ≤ k
37 31 32 35 36 mulge0d ⊢ k ∈ ℕ → 0 ≤ 2 ⁢ k
38 33 37 ge0p1rpd ⊢ k ∈ ℕ → 2 ⁢ k + 1 ∈ ℝ +
39 38 rpreccld ⊢ k ∈ ℕ → 1 2 ⁢ k + 1 ∈ ℝ +
40 26 29 19 39 fvmptd ⊢ k ∈ ℕ → G ⁡ k = 1 2 ⁢ k + 1
41 39 rpred ⊢ k ∈ ℕ → 1 2 ⁢ k + 1 ∈ ℝ
42 40 41 eqeltrd ⊢ k ∈ ℕ → G ⁡ k ∈ ℝ
43 42 adantl ⊢ ⊤ ∧ k ∈ ℕ → G ⁡ k ∈ ℝ
44 1red ⊢ k ∈ ℕ → 1 ∈ ℝ
45 0le1 ⊢ 0 ≤ 1
46 45 a1i ⊢ k ∈ ℕ → 0 ≤ 1
47 33 44 readdcld ⊢ k ∈ ℕ → 2 ⁢ k + 1 ∈ ℝ
48 nncn ⊢ k ∈ ℕ → k ∈ ℂ
49 48 mullidd ⊢ k ∈ ℕ → 1 ⁢ k = k
50 1lt2 ⊢ 1 < 2
51 50 a1i ⊢ k ∈ ℕ → 1 < 2
52 44 31 20 51 ltmul1dd ⊢ k ∈ ℕ → 1 ⁢ k < 2 ⁢ k
53 49 52 eqbrtrrd ⊢ k ∈ ℕ → k < 2 ⁢ k
54 33 ltp1d ⊢ k ∈ ℕ → 2 ⁢ k < 2 ⁢ k + 1
55 32 33 47 53 54 lttrd ⊢ k ∈ ℕ → k < 2 ⁢ k + 1
56 32 47 55 ltled ⊢ k ∈ ℕ → k ≤ 2 ⁢ k + 1
57 20 38 44 46 56 lediv2ad ⊢ k ∈ ℕ → 1 2 ⁢ k + 1 ≤ 1 k
58 57 40 22 3brtr4d ⊢ k ∈ ℕ → G ⁡ k ≤ L ⁡ k
59 58 adantl ⊢ ⊤ ∧ k ∈ ℕ → G ⁡ k ≤ L ⁡ k
60 39 rpge0d ⊢ k ∈ ℕ → 0 ≤ 1 2 ⁢ k + 1
61 60 40 breqtrrd ⊢ k ∈ ℕ → 0 ≤ G ⁡ k
62 61 adantl ⊢ ⊤ ∧ k ∈ ℕ → 0 ≤ G ⁡ k
63 5 6 11 15 25 43 59 62 climsqz2 ⊢ ⊤ → G ⇝ 0
64 1cnd ⊢ ⊤ → 1 ∈ ℂ
65 12 mptex ⊢ n ∈ ℕ ⟼ 1 − 1 2 ⁢ n + 1 ∈ V
66 2 65 eqeltri ⊢ F ∈ V
67 66 a1i ⊢ ⊤ → F ∈ V
68 43 recnd ⊢ ⊤ ∧ k ∈ ℕ → G ⁡ k ∈ ℂ
69 2 a1i ⊢ k ∈ ℕ → F = n ∈ ℕ ⟼ 1 − 1 2 ⁢ n + 1
70 29 oveq2d ⊢ k ∈ ℕ ∧ n = k → 1 − 1 2 ⁢ n + 1 = 1 − 1 2 ⁢ k + 1
71 1cnd ⊢ k ∈ ℕ → 1 ∈ ℂ
72 2cnd ⊢ k ∈ ℕ → 2 ∈ ℂ
73 72 48 mulcld ⊢ k ∈ ℕ → 2 ⁢ k ∈ ℂ
74 73 71 addcld ⊢ k ∈ ℕ → 2 ⁢ k + 1 ∈ ℂ
75 38 rpne0d ⊢ k ∈ ℕ → 2 ⁢ k + 1 ≠ 0
76 74 75 reccld ⊢ k ∈ ℕ → 1 2 ⁢ k + 1 ∈ ℂ
77 71 76 subcld ⊢ k ∈ ℕ → 1 − 1 2 ⁢ k + 1 ∈ ℂ
78 69 70 19 77 fvmptd ⊢ k ∈ ℕ → F ⁡ k = 1 − 1 2 ⁢ k + 1
79 40 eqcomd ⊢ k ∈ ℕ → 1 2 ⁢ k + 1 = G ⁡ k
80 79 oveq2d ⊢ k ∈ ℕ → 1 − 1 2 ⁢ k + 1 = 1 − G ⁡ k
81 78 80 eqtrd ⊢ k ∈ ℕ → F ⁡ k = 1 − G ⁡ k
82 81 adantl ⊢ ⊤ ∧ k ∈ ℕ → F ⁡ k = 1 − G ⁡ k
83 5 6 63 64 67 68 82 climsubc2 ⊢ ⊤ → F ⇝ 1 − 0
84 1m0e1 ⊢ 1 − 0 = 1
85 83 84 breqtrdi ⊢ ⊤ → F ⇝ 1
86 64 halfcld ⊢ ⊤ → 1 2 ∈ ℂ
87 12 mptex ⊢ n ∈ ℕ ⟼ n 2 n ⁢ 2 ⁢ n + 1 ∈ V
88 1 87 eqeltri ⊢ H ∈ V
89 88 a1i ⊢ ⊤ → H ∈ V
90 78 77 eqeltrd ⊢ k ∈ ℕ → F ⁡ k ∈ ℂ
91 90 adantl ⊢ ⊤ ∧ k ∈ ℕ → F ⁡ k ∈ ℂ
92 nncn ⊢ n ∈ ℕ → n ∈ ℂ
93 92 sqcld ⊢ n ∈ ℕ → n 2 ∈ ℂ
94 93 mullidd ⊢ n ∈ ℕ → 1 ⁢ n 2 = n 2
95 94 eqcomd ⊢ n ∈ ℕ → n 2 = 1 ⁢ n 2
96 2cnd ⊢ n ∈ ℕ → 2 ∈ ℂ
97 96 92 mulcld ⊢ n ∈ ℕ → 2 ⁢ n ∈ ℂ
98 1cnd ⊢ n ∈ ℕ → 1 ∈ ℂ
99 92 97 98 adddid ⊢ n ∈ ℕ → n ⁢ 2 ⁢ n + 1 = n ⁢ 2 ⁢ n + n ⋅ 1
100 92 96 92 mul12d ⊢ n ∈ ℕ → n ⁢ 2 ⁢ n = 2 ⁢ n ⁢ n
101 92 sqvald ⊢ n ∈ ℕ → n 2 = n ⁢ n
102 101 eqcomd ⊢ n ∈ ℕ → n ⁢ n = n 2
103 102 oveq2d ⊢ n ∈ ℕ → 2 ⁢ n ⁢ n = 2 ⁢ n 2
104 100 103 eqtrd ⊢ n ∈ ℕ → n ⁢ 2 ⁢ n = 2 ⁢ n 2
105 92 mulridd ⊢ n ∈ ℕ → n ⋅ 1 = n
106 104 105 oveq12d ⊢ n ∈ ℕ → n ⁢ 2 ⁢ n + n ⋅ 1 = 2 ⁢ n 2 + n
107 2ne0 ⊢ 2 ≠ 0
108 107 a1i ⊢ n ∈ ℕ → 2 ≠ 0
109 92 96 108 divcan2d ⊢ n ∈ ℕ → 2 ⁢ n 2 = n
110 109 eqcomd ⊢ n ∈ ℕ → n = 2 ⁢ n 2
111 110 oveq2d ⊢ n ∈ ℕ → 2 ⁢ n 2 + n = 2 ⁢ n 2 + 2 ⁢ n 2
112 92 halfcld ⊢ n ∈ ℕ → n 2 ∈ ℂ
113 96 93 112 adddid ⊢ n ∈ ℕ → 2 ⁢ n 2 + n 2 = 2 ⁢ n 2 + 2 ⁢ n 2
114 111 113 eqtr4d ⊢ n ∈ ℕ → 2 ⁢ n 2 + n = 2 ⁢ n 2 + n 2
115 99 106 114 3eqtrd ⊢ n ∈ ℕ → n ⁢ 2 ⁢ n + 1 = 2 ⁢ n 2 + n 2
116 95 115 oveq12d ⊢ n ∈ ℕ → n 2 n ⁢ 2 ⁢ n + 1 = 1 ⁢ n 2 2 ⁢ n 2 + n 2
117 93 112 addcld ⊢ n ∈ ℕ → n 2 + n 2 ∈ ℂ
118 nnrp ⊢ n ∈ ℕ → n ∈ ℝ +
119 2z ⊢ 2 ∈ ℤ
120 119 a1i ⊢ n ∈ ℕ → 2 ∈ ℤ
121 118 120 rpexpcld ⊢ n ∈ ℕ → n 2 ∈ ℝ +
122 118 rphalfcld ⊢ n ∈ ℕ → n 2 ∈ ℝ +
123 121 122 rpaddcld ⊢ n ∈ ℕ → n 2 + n 2 ∈ ℝ +
124 123 rpne0d ⊢ n ∈ ℕ → n 2 + n 2 ≠ 0
125 98 96 93 117 108 124 divmuldivd ⊢ n ∈ ℕ → 1 2 ⁢ n 2 n 2 + n 2 = 1 ⁢ n 2 2 ⁢ n 2 + n 2
126 93 112 pncand ⊢ n ∈ ℕ → n 2 + n 2 - n 2 = n 2
127 126 eqcomd ⊢ n ∈ ℕ → n 2 = n 2 + n 2 - n 2
128 127 oveq1d ⊢ n ∈ ℕ → n 2 n 2 + n 2 = n 2 + n 2 - n 2 n 2 + n 2
129 117 112 117 124 divsubdird ⊢ n ∈ ℕ → n 2 + n 2 - n 2 n 2 + n 2 = n 2 + n 2 n 2 + n 2 − n 2 n 2 + n 2
130 117 124 dividd ⊢ n ∈ ℕ → n 2 + n 2 n 2 + n 2 = 1
131 130 oveq1d ⊢ n ∈ ℕ → n 2 + n 2 n 2 + n 2 − n 2 n 2 + n 2 = 1 − n 2 n 2 + n 2
132 128 129 131 3eqtrd ⊢ n ∈ ℕ → n 2 n 2 + n 2 = 1 − n 2 n 2 + n 2
133 nnne0 ⊢ n ∈ ℕ → n ≠ 0
134 96 92 133 divcld ⊢ n ∈ ℕ → 2 n ∈ ℂ
135 96 92 108 133 divne0d ⊢ n ∈ ℕ → 2 n ≠ 0
136 112 117 134 124 135 divcan5rd ⊢ n ∈ ℕ → n 2 ⁢ 2 n n 2 + n 2 ⁢ 2 n = n 2 n 2 + n 2
137 92 96 133 108 divcan6d ⊢ n ∈ ℕ → n 2 ⁢ 2 n = 1
138 93 112 134 adddird ⊢ n ∈ ℕ → n 2 + n 2 ⁢ 2 n = n 2 ⁢ 2 n + n 2 ⁢ 2 n
139 93 96 92 133 div12d ⊢ n ∈ ℕ → n 2 ⁢ 2 n = 2 ⁢ n 2 n
140 1e2m1 ⊢ 1 = 2 − 1
141 140 oveq2i ⊢ n 1 = n 2 − 1
142 92 exp1d ⊢ n ∈ ℕ → n 1 = n
143 92 133 120 expm1d ⊢ n ∈ ℕ → n 2 − 1 = n 2 n
144 141 142 143 3eqtr3a ⊢ n ∈ ℕ → n = n 2 n
145 144 eqcomd ⊢ n ∈ ℕ → n 2 n = n
146 145 oveq2d ⊢ n ∈ ℕ → 2 ⁢ n 2 n = 2 ⁢ n
147 139 146 eqtrd ⊢ n ∈ ℕ → n 2 ⁢ 2 n = 2 ⁢ n
148 147 137 oveq12d ⊢ n ∈ ℕ → n 2 ⁢ 2 n + n 2 ⁢ 2 n = 2 ⁢ n + 1
149 138 148 eqtrd ⊢ n ∈ ℕ → n 2 + n 2 ⁢ 2 n = 2 ⁢ n + 1
150 137 149 oveq12d ⊢ n ∈ ℕ → n 2 ⁢ 2 n n 2 + n 2 ⁢ 2 n = 1 2 ⁢ n + 1
151 136 150 eqtr3d ⊢ n ∈ ℕ → n 2 n 2 + n 2 = 1 2 ⁢ n + 1
152 151 oveq2d ⊢ n ∈ ℕ → 1 − n 2 n 2 + n 2 = 1 − 1 2 ⁢ n + 1
153 132 152 eqtrd ⊢ n ∈ ℕ → n 2 n 2 + n 2 = 1 − 1 2 ⁢ n + 1
154 153 oveq2d ⊢ n ∈ ℕ → 1 2 ⁢ n 2 n 2 + n 2 = 1 2 ⁢ 1 − 1 2 ⁢ n + 1
155 116 125 154 3eqtr2d ⊢ n ∈ ℕ → n 2 n ⁢ 2 ⁢ n + 1 = 1 2 ⁢ 1 − 1 2 ⁢ n + 1
156 155 mpteq2ia ⊢ n ∈ ℕ ⟼ n 2 n ⁢ 2 ⁢ n + 1 = n ∈ ℕ ⟼ 1 2 ⁢ 1 − 1 2 ⁢ n + 1
157 1 156 eqtri ⊢ H = n ∈ ℕ ⟼ 1 2 ⁢ 1 − 1 2 ⁢ n + 1
158 157 a1i ⊢ k ∈ ℕ → H = n ∈ ℕ ⟼ 1 2 ⁢ 1 − 1 2 ⁢ n + 1
159 70 oveq2d ⊢ k ∈ ℕ ∧ n = k → 1 2 ⁢ 1 − 1 2 ⁢ n + 1 = 1 2 ⁢ 1 − 1 2 ⁢ k + 1
160 71 halfcld ⊢ k ∈ ℕ → 1 2 ∈ ℂ
161 160 77 mulcld ⊢ k ∈ ℕ → 1 2 ⁢ 1 − 1 2 ⁢ k + 1 ∈ ℂ
162 158 159 19 161 fvmptd ⊢ k ∈ ℕ → H ⁡ k = 1 2 ⁢ 1 − 1 2 ⁢ k + 1
163 78 oveq2d ⊢ k ∈ ℕ → 1 2 ⁢ F ⁡ k = 1 2 ⁢ 1 − 1 2 ⁢ k + 1
164 162 163 eqtr4d ⊢ k ∈ ℕ → H ⁡ k = 1 2 ⁢ F ⁡ k
165 164 adantl ⊢ ⊤ ∧ k ∈ ℕ → H ⁡ k = 1 2 ⁢ F ⁡ k
166 5 6 85 86 89 91 165 climmulc2 ⊢ ⊤ → H ⇝ 1 2 ⋅ 1
167 166 mptru ⊢ H ⇝ 1 2 ⋅ 1
168 halfcn ⊢ 1 2 ∈ ℂ
169 168 mulridi ⊢ 1 2 ⋅ 1 = 1 2
170 167 169 breqtri ⊢ H ⇝ 1 2