Metamath Proof Explorer


Theorem stirlinglem15

Description: The Stirling's formula is proven using a number of local definitions. The main theorem stirling will use this final lemma, but it will not expose the local definitions. (Contributed by Glauco Siliprandi, 29-Jun-2017)

Ref Expression
Hypotheses stirlinglem15.1 ⊢ Ⅎ n φ
stirlinglem15.2 ⊢ S = n ∈ ℕ 0 ⟼ 2 ⁢ π ⁢ n ⁢ n e n
stirlinglem15.3 ⊢ A = n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
stirlinglem15.4 ⊢ D = n ∈ ℕ ⟼ A ⁡ 2 ⁢ n
stirlinglem15.5 ⊢ E = n ∈ ℕ ⟼ 2 ⁢ n ⁢ n e n
stirlinglem15.6 ⊢ V = n ∈ ℕ ⟼ 2 4 ⁢ n ⁢ n ! 4 2 ⁢ n ! 2 2 ⁢ n + 1
stirlinglem15.7 ⊢ F = n ∈ ℕ ⟼ A ⁡ n 4 D ⁡ n 2
stirlinglem15.8 ⊢ H = n ∈ ℕ ⟼ n 2 n ⁢ 2 ⁢ n + 1
stirlinglem15.9 ⊢ φ → C ∈ ℝ +
stirlinglem15.10 ⊢ φ → A ⇝ C
Assertion stirlinglem15 ⊢ φ → n ∈ ℕ ⟼ n ! S ⁡ n ⇝ 1

Proof

Step Hyp Ref Expression
1 stirlinglem15.1 ⊢ Ⅎ n φ
2 stirlinglem15.2 ⊢ S = n ∈ ℕ 0 ⟼ 2 ⁢ π ⁢ n ⁢ n e n
3 stirlinglem15.3 ⊢ A = n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
4 stirlinglem15.4 ⊢ D = n ∈ ℕ ⟼ A ⁡ 2 ⁢ n
5 stirlinglem15.5 ⊢ E = n ∈ ℕ ⟼ 2 ⁢ n ⁢ n e n
6 stirlinglem15.6 ⊢ V = n ∈ ℕ ⟼ 2 4 ⁢ n ⁢ n ! 4 2 ⁢ n ! 2 2 ⁢ n + 1
7 stirlinglem15.7 ⊢ F = n ∈ ℕ ⟼ A ⁡ n 4 D ⁡ n 2
8 stirlinglem15.8 ⊢ H = n ∈ ℕ ⟼ n 2 n ⁢ 2 ⁢ n + 1
9 stirlinglem15.9 ⊢ φ → C ∈ ℝ +
10 stirlinglem15.10 ⊢ φ → A ⇝ C
11 nnnn0 ⊢ n ∈ ℕ → n ∈ ℕ 0
12 11 adantl ⊢ φ ∧ n ∈ ℕ → n ∈ ℕ 0
13 2cnd ⊢ φ ∧ n ∈ ℕ → 2 ∈ ℂ
14 picn ⊢ π ∈ ℂ
15 14 a1i ⊢ φ ∧ n ∈ ℕ → π ∈ ℂ
16 13 15 mulcld ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ∈ ℂ
17 nncn ⊢ n ∈ ℕ → n ∈ ℂ
18 17 adantl ⊢ φ ∧ n ∈ ℕ → n ∈ ℂ
19 16 18 mulcld ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n ∈ ℂ
20 19 sqrtcld ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n ∈ ℂ
21 ere ⊢ e ∈ ℝ
22 21 recni ⊢ e ∈ ℂ
23 22 a1i ⊢ n ∈ ℕ → e ∈ ℂ
24 epos ⊢ 0 < e
25 21 24 gt0ne0ii ⊢ e ≠ 0
26 25 a1i ⊢ n ∈ ℕ → e ≠ 0
27 17 23 26 divcld ⊢ n ∈ ℕ → n e ∈ ℂ
28 27 11 expcld ⊢ n ∈ ℕ → n e n ∈ ℂ
29 28 adantl ⊢ φ ∧ n ∈ ℕ → n e n ∈ ℂ
30 20 29 mulcld ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n ⁢ n e n ∈ ℂ
31 2 fvmpt2 ⊢ n ∈ ℕ 0 ∧ 2 ⁢ π ⁢ n ⁢ n e n ∈ ℂ → S ⁡ n = 2 ⁢ π ⁢ n ⁢ n e n
32 12 30 31 syl2anc ⊢ φ ∧ n ∈ ℕ → S ⁡ n = 2 ⁢ π ⁢ n ⁢ n e n
33 32 oveq2d ⊢ φ ∧ n ∈ ℕ → n ! S ⁡ n = n ! 2 ⁢ π ⁢ n ⁢ n e n
34 15 sqrtcld ⊢ φ ∧ n ∈ ℕ → π ∈ ℂ
35 2cnd ⊢ n ∈ ℕ → 2 ∈ ℂ
36 35 17 mulcld ⊢ n ∈ ℕ → 2 ⁢ n ∈ ℂ
37 36 sqrtcld ⊢ n ∈ ℕ → 2 ⁢ n ∈ ℂ
38 37 adantl ⊢ φ ∧ n ∈ ℕ → 2 ⁢ n ∈ ℂ
39 34 38 29 mulassd ⊢ φ ∧ n ∈ ℕ → π ⁢ 2 ⁢ n ⁢ n e n = π ⁢ 2 ⁢ n ⁢ n e n
40 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ A ⁡ n 4 D ⁡ n 2
41 7 40 nfcxfr ⊢ Ⅎ _ n F
42 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ n 2 n ⁢ 2 ⁢ n + 1
43 8 42 nfcxfr ⊢ Ⅎ _ n H
44 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ 2 4 ⁢ n ⁢ n ! 4 2 ⁢ n ! 2 2 ⁢ n + 1
45 6 44 nfcxfr ⊢ Ⅎ _ n V
46 nnuz ⊢ ℕ = ℤ ≥ 1
47 1zzd ⊢ φ → 1 ∈ ℤ
48 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
49 3 48 nfcxfr ⊢ Ⅎ _ n A
50 nfmpt1 ⊢ Ⅎ _ n n ∈ ℕ ⟼ A ⁡ 2 ⁢ n
51 4 50 nfcxfr ⊢ Ⅎ _ n D
52 faccl ⊢ n ∈ ℕ 0 → n ! ∈ ℕ
53 11 52 syl ⊢ n ∈ ℕ → n ! ∈ ℕ
54 53 nnrpd ⊢ n ∈ ℕ → n ! ∈ ℝ +
55 2rp ⊢ 2 ∈ ℝ +
56 55 a1i ⊢ n ∈ ℕ → 2 ∈ ℝ +
57 nnrp ⊢ n ∈ ℕ → n ∈ ℝ +
58 56 57 rpmulcld ⊢ n ∈ ℕ → 2 ⁢ n ∈ ℝ +
59 58 rpsqrtcld ⊢ n ∈ ℕ → 2 ⁢ n ∈ ℝ +
60 epr ⊢ e ∈ ℝ +
61 60 a1i ⊢ n ∈ ℕ → e ∈ ℝ +
62 57 61 rpdivcld ⊢ n ∈ ℕ → n e ∈ ℝ +
63 nnz ⊢ n ∈ ℕ → n ∈ ℤ
64 62 63 rpexpcld ⊢ n ∈ ℕ → n e n ∈ ℝ +
65 59 64 rpmulcld ⊢ n ∈ ℕ → 2 ⁢ n ⁢ n e n ∈ ℝ +
66 54 65 rpdivcld ⊢ n ∈ ℕ → n ! 2 ⁢ n ⁢ n e n ∈ ℝ +
67 3 66 fmpti ⊢ A : ℕ ⟶ ℝ +
68 67 a1i ⊢ φ → A : ℕ ⟶ ℝ +
69 eqid ⊢ n ∈ ℕ ⟼ A ⁡ n 4 = n ∈ ℕ ⟼ A ⁡ n 4
70 eqid ⊢ n ∈ ℕ ⟼ D ⁡ n 2 = n ∈ ℕ ⟼ D ⁡ n 2
71 67 a1i ⊢ n ∈ ℕ → A : ℕ ⟶ ℝ +
72 2nn ⊢ 2 ∈ ℕ
73 72 a1i ⊢ n ∈ ℕ → 2 ∈ ℕ
74 id ⊢ n ∈ ℕ → n ∈ ℕ
75 73 74 nnmulcld ⊢ n ∈ ℕ → 2 ⁢ n ∈ ℕ
76 71 75 ffvelcdmd ⊢ n ∈ ℕ → A ⁡ 2 ⁢ n ∈ ℝ +
77 4 fvmpt2 ⊢ n ∈ ℕ ∧ A ⁡ 2 ⁢ n ∈ ℝ + → D ⁡ n = A ⁡ 2 ⁢ n
78 76 77 mpdan ⊢ n ∈ ℕ → D ⁡ n = A ⁡ 2 ⁢ n
79 78 76 eqeltrd ⊢ n ∈ ℕ → D ⁡ n ∈ ℝ +
80 79 adantl ⊢ φ ∧ n ∈ ℕ → D ⁡ n ∈ ℝ +
81 1 49 51 4 68 7 69 70 80 9 10 stirlinglem8 ⊢ φ → F ⇝ C 2
82 nnex ⊢ ℕ ∈ V
83 82 mptex ⊢ n ∈ ℕ ⟼ 2 4 ⁢ n ⁢ n ! 4 2 ⁢ n ! 2 2 ⁢ n + 1 ∈ V
84 6 83 eqeltri ⊢ V ∈ V
85 84 a1i ⊢ φ → V ∈ V
86 eqid ⊢ n ∈ ℕ ⟼ 1 − 1 2 ⁢ n + 1 = n ∈ ℕ ⟼ 1 − 1 2 ⁢ n + 1
87 eqid ⊢ n ∈ ℕ ⟼ 1 2 ⁢ n + 1 = n ∈ ℕ ⟼ 1 2 ⁢ n + 1
88 eqid ⊢ n ∈ ℕ ⟼ 1 n = n ∈ ℕ ⟼ 1 n
89 8 86 87 88 stirlinglem1 ⊢ H ⇝ 1 2
90 89 a1i ⊢ φ → H ⇝ 1 2
91 53 nncnd ⊢ n ∈ ℕ → n ! ∈ ℂ
92 37 28 mulcld ⊢ n ∈ ℕ → 2 ⁢ n ⁢ n e n ∈ ℂ
93 58 sqrtgt0d ⊢ n ∈ ℕ → 0 < 2 ⁢ n
94 93 gt0ne0d ⊢ n ∈ ℕ → 2 ⁢ n ≠ 0
95 nnne0 ⊢ n ∈ ℕ → n ≠ 0
96 17 23 95 26 divne0d ⊢ n ∈ ℕ → n e ≠ 0
97 27 96 63 expne0d ⊢ n ∈ ℕ → n e n ≠ 0
98 37 28 94 97 mulne0d ⊢ n ∈ ℕ → 2 ⁢ n ⁢ n e n ≠ 0
99 91 92 98 divcld ⊢ n ∈ ℕ → n ! 2 ⁢ n ⁢ n e n ∈ ℂ
100 3 fvmpt2 ⊢ n ∈ ℕ ∧ n ! 2 ⁢ n ⁢ n e n ∈ ℂ → A ⁡ n = n ! 2 ⁢ n ⁢ n e n
101 99 100 mpdan ⊢ n ∈ ℕ → A ⁡ n = n ! 2 ⁢ n ⁢ n e n
102 101 99 eqeltrd ⊢ n ∈ ℕ → A ⁡ n ∈ ℂ
103 4nn0 ⊢ 4 ∈ ℕ 0
104 103 a1i ⊢ n ∈ ℕ → 4 ∈ ℕ 0
105 102 104 expcld ⊢ n ∈ ℕ → A ⁡ n 4 ∈ ℂ
106 79 rpcnd ⊢ n ∈ ℕ → D ⁡ n ∈ ℂ
107 106 sqcld ⊢ n ∈ ℕ → D ⁡ n 2 ∈ ℂ
108 79 rpne0d ⊢ n ∈ ℕ → D ⁡ n ≠ 0
109 2z ⊢ 2 ∈ ℤ
110 109 a1i ⊢ n ∈ ℕ → 2 ∈ ℤ
111 106 108 110 expne0d ⊢ n ∈ ℕ → D ⁡ n 2 ≠ 0
112 105 107 111 divcld ⊢ n ∈ ℕ → A ⁡ n 4 D ⁡ n 2 ∈ ℂ
113 7 fvmpt2 ⊢ n ∈ ℕ ∧ A ⁡ n 4 D ⁡ n 2 ∈ ℂ → F ⁡ n = A ⁡ n 4 D ⁡ n 2
114 112 113 mpdan ⊢ n ∈ ℕ → F ⁡ n = A ⁡ n 4 D ⁡ n 2
115 114 112 eqeltrd ⊢ n ∈ ℕ → F ⁡ n ∈ ℂ
116 115 adantl ⊢ φ ∧ n ∈ ℕ → F ⁡ n ∈ ℂ
117 17 sqcld ⊢ n ∈ ℕ → n 2 ∈ ℂ
118 1cnd ⊢ n ∈ ℕ → 1 ∈ ℂ
119 36 118 addcld ⊢ n ∈ ℕ → 2 ⁢ n + 1 ∈ ℂ
120 17 119 mulcld ⊢ n ∈ ℕ → n ⁢ 2 ⁢ n + 1 ∈ ℂ
121 75 nnred ⊢ n ∈ ℕ → 2 ⁢ n ∈ ℝ
122 1red ⊢ n ∈ ℕ → 1 ∈ ℝ
123 75 nngt0d ⊢ n ∈ ℕ → 0 < 2 ⁢ n
124 0lt1 ⊢ 0 < 1
125 124 a1i ⊢ n ∈ ℕ → 0 < 1
126 121 122 123 125 addgt0d ⊢ n ∈ ℕ → 0 < 2 ⁢ n + 1
127 126 gt0ne0d ⊢ n ∈ ℕ → 2 ⁢ n + 1 ≠ 0
128 17 119 95 127 mulne0d ⊢ n ∈ ℕ → n ⁢ 2 ⁢ n + 1 ≠ 0
129 117 120 128 divcld ⊢ n ∈ ℕ → n 2 n ⁢ 2 ⁢ n + 1 ∈ ℂ
130 8 fvmpt2 ⊢ n ∈ ℕ ∧ n 2 n ⁢ 2 ⁢ n + 1 ∈ ℂ → H ⁡ n = n 2 n ⁢ 2 ⁢ n + 1
131 129 130 mpdan ⊢ n ∈ ℕ → H ⁡ n = n 2 n ⁢ 2 ⁢ n + 1
132 131 129 eqeltrd ⊢ n ∈ ℕ → H ⁡ n ∈ ℂ
133 132 adantl ⊢ φ ∧ n ∈ ℕ → H ⁡ n ∈ ℂ
134 112 129 mulcld ⊢ n ∈ ℕ → A ⁡ n 4 D ⁡ n 2 ⁢ n 2 n ⁢ 2 ⁢ n + 1 ∈ ℂ
135 3 4 5 6 stirlinglem3 ⊢ V = n ∈ ℕ ⟼ A ⁡ n 4 D ⁡ n 2 ⁢ n 2 n ⁢ 2 ⁢ n + 1
136 135 fvmpt2 ⊢ n ∈ ℕ ∧ A ⁡ n 4 D ⁡ n 2 ⁢ n 2 n ⁢ 2 ⁢ n + 1 ∈ ℂ → V ⁡ n = A ⁡ n 4 D ⁡ n 2 ⁢ n 2 n ⁢ 2 ⁢ n + 1
137 134 136 mpdan ⊢ n ∈ ℕ → V ⁡ n = A ⁡ n 4 D ⁡ n 2 ⁢ n 2 n ⁢ 2 ⁢ n + 1
138 114 131 oveq12d ⊢ n ∈ ℕ → F ⁡ n ⁢ H ⁡ n = A ⁡ n 4 D ⁡ n 2 ⁢ n 2 n ⁢ 2 ⁢ n + 1
139 137 138 eqtr4d ⊢ n ∈ ℕ → V ⁡ n = F ⁡ n ⁢ H ⁡ n
140 139 adantl ⊢ φ ∧ n ∈ ℕ → V ⁡ n = F ⁡ n ⁢ H ⁡ n
141 1 41 43 45 46 47 81 85 90 116 133 140 climmulf ⊢ φ → V ⇝ C 2 ⁢ 1 2
142 6 wallispi2 ⊢ V ⇝ π 2
143 climuni ⊢ V ⇝ C 2 ⁢ 1 2 ∧ V ⇝ π 2 → C 2 ⁢ 1 2 = π 2
144 141 142 143 sylancl ⊢ φ → C 2 ⁢ 1 2 = π 2
145 144 oveq1d ⊢ φ → C 2 ⁢ 1 2 1 2 = π 2 1 2
146 9 rpcnd ⊢ φ → C ∈ ℂ
147 146 sqcld ⊢ φ → C 2 ∈ ℂ
148 1cnd ⊢ φ → 1 ∈ ℂ
149 148 halfcld ⊢ φ → 1 2 ∈ ℂ
150 2cnd ⊢ φ → 2 ∈ ℂ
151 2pos ⊢ 0 < 2
152 151 a1i ⊢ φ → 0 < 2
153 152 gt0ne0d ⊢ φ → 2 ≠ 0
154 150 153 recne0d ⊢ φ → 1 2 ≠ 0
155 147 149 154 divcan4d ⊢ φ → C 2 ⁢ 1 2 1 2 = C 2
156 14 a1i ⊢ φ → π ∈ ℂ
157 124 a1i ⊢ φ → 0 < 1
158 157 gt0ne0d ⊢ φ → 1 ≠ 0
159 156 148 150 158 153 divcan7d ⊢ φ → π 2 1 2 = π 1
160 156 div1d ⊢ φ → π 1 = π
161 159 160 eqtrd ⊢ φ → π 2 1 2 = π
162 145 155 161 3eqtr3d ⊢ φ → C 2 = π
163 162 fveq2d ⊢ φ → C 2 = π
164 9 rprege0d ⊢ φ → C ∈ ℝ ∧ 0 ≤ C
165 sqrtsq ⊢ C ∈ ℝ ∧ 0 ≤ C → C 2 = C
166 164 165 syl ⊢ φ → C 2 = C
167 163 166 eqtr3d ⊢ φ → π = C
168 167 adantr ⊢ φ ∧ n ∈ ℕ → π = C
169 168 oveq1d ⊢ φ ∧ n ∈ ℕ → π ⁢ 2 ⁢ n ⁢ n e n = C ⁢ 2 ⁢ n ⁢ n e n
170 146 adantr ⊢ φ ∧ n ∈ ℕ → C ∈ ℂ
171 92 adantl ⊢ φ ∧ n ∈ ℕ → 2 ⁢ n ⁢ n e n ∈ ℂ
172 170 171 mulcomd ⊢ φ ∧ n ∈ ℕ → C ⁢ 2 ⁢ n ⁢ n e n = 2 ⁢ n ⁢ n e n ⁢ C
173 39 169 172 3eqtrd ⊢ φ ∧ n ∈ ℕ → π ⁢ 2 ⁢ n ⁢ n e n = 2 ⁢ n ⁢ n e n ⁢ C
174 173 oveq2d ⊢ φ ∧ n ∈ ℕ → n ! π ⁢ 2 ⁢ n ⁢ n e n = n ! 2 ⁢ n ⁢ n e n ⁢ C
175 2re ⊢ 2 ∈ ℝ
176 175 a1i ⊢ φ ∧ n ∈ ℕ → 2 ∈ ℝ
177 pire ⊢ π ∈ ℝ
178 177 a1i ⊢ φ ∧ n ∈ ℕ → π ∈ ℝ
179 176 178 remulcld ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ∈ ℝ
180 0le2 ⊢ 0 ≤ 2
181 180 a1i ⊢ φ ∧ n ∈ ℕ → 0 ≤ 2
182 pige0 ⊢ 0 ≤ π
183 182 a1i ⊢ φ ∧ n ∈ ℕ → 0 ≤ π
184 176 178 181 183 mulge0d ⊢ φ ∧ n ∈ ℕ → 0 ≤ 2 ⁢ π
185 12 nn0red ⊢ φ ∧ n ∈ ℕ → n ∈ ℝ
186 12 nn0ge0d ⊢ φ ∧ n ∈ ℕ → 0 ≤ n
187 179 184 185 186 sqrtmuld ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n = 2 ⁢ π ⁢ n
188 176 181 178 183 sqrtmuld ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π = 2 ⁢ π
189 188 oveq1d ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n = 2 ⁢ π ⁢ n
190 13 sqrtcld ⊢ φ ∧ n ∈ ℕ → 2 ∈ ℂ
191 18 sqrtcld ⊢ φ ∧ n ∈ ℕ → n ∈ ℂ
192 190 34 191 mulassd ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n = 2 ⁢ π ⁢ n
193 190 34 191 mul12d ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n = π ⁢ 2 ⁢ n
194 176 181 185 186 sqrtmuld ⊢ φ ∧ n ∈ ℕ → 2 ⁢ n = 2 ⁢ n
195 194 eqcomd ⊢ φ ∧ n ∈ ℕ → 2 ⁢ n = 2 ⁢ n
196 195 oveq2d ⊢ φ ∧ n ∈ ℕ → π ⁢ 2 ⁢ n = π ⁢ 2 ⁢ n
197 193 196 eqtrd ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n = π ⁢ 2 ⁢ n
198 189 192 197 3eqtrd ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n = π ⁢ 2 ⁢ n
199 187 198 eqtrd ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n = π ⁢ 2 ⁢ n
200 199 oveq1d ⊢ φ ∧ n ∈ ℕ → 2 ⁢ π ⁢ n ⁢ n e n = π ⁢ 2 ⁢ n ⁢ n e n
201 200 oveq2d ⊢ φ ∧ n ∈ ℕ → n ! 2 ⁢ π ⁢ n ⁢ n e n = n ! π ⁢ 2 ⁢ n ⁢ n e n
202 91 adantl ⊢ φ ∧ n ∈ ℕ → n ! ∈ ℂ
203 94 adantl ⊢ φ ∧ n ∈ ℕ → 2 ⁢ n ≠ 0
204 22 a1i ⊢ φ ∧ n ∈ ℕ → e ∈ ℂ
205 25 a1i ⊢ φ ∧ n ∈ ℕ → e ≠ 0
206 18 204 205 divcld ⊢ φ ∧ n ∈ ℕ → n e ∈ ℂ
207 95 adantl ⊢ φ ∧ n ∈ ℕ → n ≠ 0
208 18 204 207 205 divne0d ⊢ φ ∧ n ∈ ℕ → n e ≠ 0
209 63 adantl ⊢ φ ∧ n ∈ ℕ → n ∈ ℤ
210 206 208 209 expne0d ⊢ φ ∧ n ∈ ℕ → n e n ≠ 0
211 38 29 203 210 mulne0d ⊢ φ ∧ n ∈ ℕ → 2 ⁢ n ⁢ n e n ≠ 0
212 9 rpne0d ⊢ φ → C ≠ 0
213 212 adantr ⊢ φ ∧ n ∈ ℕ → C ≠ 0
214 202 171 170 211 213 divdiv1d ⊢ φ ∧ n ∈ ℕ → n ! 2 ⁢ n ⁢ n e n C = n ! 2 ⁢ n ⁢ n e n ⁢ C
215 174 201 214 3eqtr4d ⊢ φ ∧ n ∈ ℕ → n ! 2 ⁢ π ⁢ n ⁢ n e n = n ! 2 ⁢ n ⁢ n e n C
216 99 ancli ⊢ n ∈ ℕ → n ∈ ℕ ∧ n ! 2 ⁢ n ⁢ n e n ∈ ℂ
217 216 adantl ⊢ φ ∧ n ∈ ℕ → n ∈ ℕ ∧ n ! 2 ⁢ n ⁢ n e n ∈ ℂ
218 217 100 syl ⊢ φ ∧ n ∈ ℕ → A ⁡ n = n ! 2 ⁢ n ⁢ n e n
219 218 eqcomd ⊢ φ ∧ n ∈ ℕ → n ! 2 ⁢ n ⁢ n e n = A ⁡ n
220 219 oveq1d ⊢ φ ∧ n ∈ ℕ → n ! 2 ⁢ n ⁢ n e n C = A ⁡ n C
221 33 215 220 3eqtrd ⊢ φ ∧ n ∈ ℕ → n ! S ⁡ n = A ⁡ n C
222 1 221 mpteq2da ⊢ φ → n ∈ ℕ ⟼ n ! S ⁡ n = n ∈ ℕ ⟼ A ⁡ n C
223 102 adantl ⊢ φ ∧ n ∈ ℕ → A ⁡ n ∈ ℂ
224 223 170 213 divrec2d ⊢ φ ∧ n ∈ ℕ → A ⁡ n C = 1 C ⁢ A ⁡ n
225 1 224 mpteq2da ⊢ φ → n ∈ ℕ ⟼ A ⁡ n C = n ∈ ℕ ⟼ 1 C ⁢ A ⁡ n
226 146 212 reccld ⊢ φ → 1 C ∈ ℂ
227 82 mptex ⊢ n ∈ ℕ ⟼ 1 C ⁢ A ⁡ n ∈ V
228 227 a1i ⊢ φ → n ∈ ℕ ⟼ 1 C ⁢ A ⁡ n ∈ V
229 3 a1i ⊢ k ∈ ℕ → A = n ∈ ℕ ⟼ n ! 2 ⁢ n ⁢ n e n
230 simpr ⊢ k ∈ ℕ ∧ n = k → n = k
231 230 fveq2d ⊢ k ∈ ℕ ∧ n = k → n ! = k !
232 230 oveq2d ⊢ k ∈ ℕ ∧ n = k → 2 ⁢ n = 2 ⁢ k
233 232 fveq2d ⊢ k ∈ ℕ ∧ n = k → 2 ⁢ n = 2 ⁢ k
234 230 oveq1d ⊢ k ∈ ℕ ∧ n = k → n e = k e
235 234 230 oveq12d ⊢ k ∈ ℕ ∧ n = k → n e n = k e k
236 233 235 oveq12d ⊢ k ∈ ℕ ∧ n = k → 2 ⁢ n ⁢ n e n = 2 ⁢ k ⁢ k e k
237 231 236 oveq12d ⊢ k ∈ ℕ ∧ n = k → n ! 2 ⁢ n ⁢ n e n = k ! 2 ⁢ k ⁢ k e k
238 id ⊢ k ∈ ℕ → k ∈ ℕ
239 nnnn0 ⊢ k ∈ ℕ → k ∈ ℕ 0
240 faccl ⊢ k ∈ ℕ 0 → k ! ∈ ℕ
241 nncn ⊢ k ! ∈ ℕ → k ! ∈ ℂ
242 239 240 241 3syl ⊢ k ∈ ℕ → k ! ∈ ℂ
243 2cnd ⊢ k ∈ ℕ → 2 ∈ ℂ
244 nncn ⊢ k ∈ ℕ → k ∈ ℂ
245 243 244 mulcld ⊢ k ∈ ℕ → 2 ⁢ k ∈ ℂ
246 245 sqrtcld ⊢ k ∈ ℕ → 2 ⁢ k ∈ ℂ
247 22 a1i ⊢ k ∈ ℕ → e ∈ ℂ
248 25 a1i ⊢ k ∈ ℕ → e ≠ 0
249 244 247 248 divcld ⊢ k ∈ ℕ → k e ∈ ℂ
250 249 239 expcld ⊢ k ∈ ℕ → k e k ∈ ℂ
251 246 250 mulcld ⊢ k ∈ ℕ → 2 ⁢ k ⁢ k e k ∈ ℂ
252 55 a1i ⊢ k ∈ ℕ → 2 ∈ ℝ +
253 nnrp ⊢ k ∈ ℕ → k ∈ ℝ +
254 252 253 rpmulcld ⊢ k ∈ ℕ → 2 ⁢ k ∈ ℝ +
255 254 sqrtgt0d ⊢ k ∈ ℕ → 0 < 2 ⁢ k
256 255 gt0ne0d ⊢ k ∈ ℕ → 2 ⁢ k ≠ 0
257 nnne0 ⊢ k ∈ ℕ → k ≠ 0
258 244 247 257 248 divne0d ⊢ k ∈ ℕ → k e ≠ 0
259 nnz ⊢ k ∈ ℕ → k ∈ ℤ
260 249 258 259 expne0d ⊢ k ∈ ℕ → k e k ≠ 0
261 246 250 256 260 mulne0d ⊢ k ∈ ℕ → 2 ⁢ k ⁢ k e k ≠ 0
262 242 251 261 divcld ⊢ k ∈ ℕ → k ! 2 ⁢ k ⁢ k e k ∈ ℂ
263 229 237 238 262 fvmptd ⊢ k ∈ ℕ → A ⁡ k = k ! 2 ⁢ k ⁢ k e k
264 263 262 eqeltrd ⊢ k ∈ ℕ → A ⁡ k ∈ ℂ
265 264 adantl ⊢ φ ∧ k ∈ ℕ → A ⁡ k ∈ ℂ
266 nfcv ⊢ Ⅎ _ k 1 C ⁢ A ⁡ n
267 nfcv ⊢ Ⅎ _ n 1
268 nfcv ⊢ Ⅎ _ n ÷
269 nfcv ⊢ Ⅎ _ n C
270 267 268 269 nfov ⊢ Ⅎ _ n 1 C
271 nfcv ⊢ Ⅎ _ n ×
272 nfcv ⊢ Ⅎ _ n k
273 49 272 nffv ⊢ Ⅎ _ n A ⁡ k
274 270 271 273 nfov ⊢ Ⅎ _ n 1 C ⁢ A ⁡ k
275 fveq2 ⊢ n = k → A ⁡ n = A ⁡ k
276 275 oveq2d ⊢ n = k → 1 C ⁢ A ⁡ n = 1 C ⁢ A ⁡ k
277 266 274 276 cbvmpt ⊢ n ∈ ℕ ⟼ 1 C ⁢ A ⁡ n = k ∈ ℕ ⟼ 1 C ⁢ A ⁡ k
278 277 a1i ⊢ φ ∧ k ∈ ℕ → n ∈ ℕ ⟼ 1 C ⁢ A ⁡ n = k ∈ ℕ ⟼ 1 C ⁢ A ⁡ k
279 278 fveq1d ⊢ φ ∧ k ∈ ℕ → n ∈ ℕ ⟼ 1 C ⁢ A ⁡ n ⁡ k = k ∈ ℕ ⟼ 1 C ⁢ A ⁡ k ⁡ k
280 simpr ⊢ φ ∧ k ∈ ℕ → k ∈ ℕ
281 146 adantr ⊢ φ ∧ k ∈ ℕ → C ∈ ℂ
282 212 adantr ⊢ φ ∧ k ∈ ℕ → C ≠ 0
283 281 282 reccld ⊢ φ ∧ k ∈ ℕ → 1 C ∈ ℂ
284 283 265 mulcld ⊢ φ ∧ k ∈ ℕ → 1 C ⁢ A ⁡ k ∈ ℂ
285 eqid ⊢ k ∈ ℕ ⟼ 1 C ⁢ A ⁡ k = k ∈ ℕ ⟼ 1 C ⁢ A ⁡ k
286 285 fvmpt2 ⊢ k ∈ ℕ ∧ 1 C ⁢ A ⁡ k ∈ ℂ → k ∈ ℕ ⟼ 1 C ⁢ A ⁡ k ⁡ k = 1 C ⁢ A ⁡ k
287 280 284 286 syl2anc ⊢ φ ∧ k ∈ ℕ → k ∈ ℕ ⟼ 1 C ⁢ A ⁡ k ⁡ k = 1 C ⁢ A ⁡ k
288 279 287 eqtrd ⊢ φ ∧ k ∈ ℕ → n ∈ ℕ ⟼ 1 C ⁢ A ⁡ n ⁡ k = 1 C ⁢ A ⁡ k
289 46 47 10 226 228 265 288 climmulc2 ⊢ φ → n ∈ ℕ ⟼ 1 C ⁢ A ⁡ n ⇝ 1 C ⁢ C
290 146 212 recid2d ⊢ φ → 1 C ⁢ C = 1
291 289 290 breqtrd ⊢ φ → n ∈ ℕ ⟼ 1 C ⁢ A ⁡ n ⇝ 1
292 225 291 eqbrtrd ⊢ φ → n ∈ ℕ ⟼ A ⁡ n C ⇝ 1
293 222 292 eqbrtrd ⊢ φ → n ∈ ℕ ⟼ n ! S ⁡ n ⇝ 1