Mathbox for Glauco Siliprandi < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  stirlinglem3 Structured version   Visualization version   GIF version

Theorem stirlinglem3 40814
 Description: Long but simple algebraic transformations are applied to show that 𝑉, the Wallis formula for π , can be expressed in terms of 𝐴, the Stirling's approximation formula for the factorial, up to a constant factor. This will allow (in a later theorem) to determine the right constant factor to be put into the 𝐴, in order to get the exact Stirling's formula. (Contributed by Glauco Siliprandi, 29-Jun-2017.)
Hypotheses
Ref Expression
stirlinglem3.1 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
stirlinglem3.2 𝐷 = (𝑛 ∈ ℕ ↦ (𝐴‘(2 · 𝑛)))
stirlinglem3.3 𝐸 = (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
stirlinglem3.4 𝑉 = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
Assertion
Ref Expression
stirlinglem3 𝑉 = (𝑛 ∈ ℕ ↦ ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))

Proof of Theorem stirlinglem3
Dummy variable 𝑚 is distinct from all other variables.
StepHypRef Expression
1 stirlinglem3.4 . 2 𝑉 = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
2 nnnn0 11511 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → 𝑛 ∈ ℕ0)
3 faccl 13284 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ0 → (!‘𝑛) ∈ ℕ)
4 nncn 11240 . . . . . . . . . . . . 13 ((!‘𝑛) ∈ ℕ → (!‘𝑛) ∈ ℂ)
52, 3, 43syl 18 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (!‘𝑛) ∈ ℂ)
6 2cnd 11305 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → 2 ∈ ℂ)
7 nncn 11240 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
86, 7mulcld 10272 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℂ)
98sqrtcld 14395 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ∈ ℂ)
10 ere 15038 . . . . . . . . . . . . . . . . 17 e ∈ ℝ
1110recni 10264 . . . . . . . . . . . . . . . 16 e ∈ ℂ
1211a1i 11 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → e ∈ ℂ)
13 epos 15154 . . . . . . . . . . . . . . . . 17 0 < e
1410, 13gt0ne0ii 10776 . . . . . . . . . . . . . . . 16 e ≠ 0
1514a1i 11 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → e ≠ 0)
167, 12, 15divcld 11013 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → (𝑛 / e) ∈ ℂ)
1716, 2expcld 13222 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ∈ ℂ)
189, 17mulcld 10272 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ)
19 2rp 12050 . . . . . . . . . . . . . . . . 17 2 ∈ ℝ+
2019a1i 11 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → 2 ∈ ℝ+)
21 nnrp 12055 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → 𝑛 ∈ ℝ+)
2220, 21rpmulcld 12101 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ+)
2322sqrtgt0d 14370 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → 0 < (√‘(2 · 𝑛)))
2423gt0ne0d 10804 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ≠ 0)
25 nnne0 11265 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → 𝑛 ≠ 0)
267, 12, 25, 15divne0d 11029 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → (𝑛 / e) ≠ 0)
27 nnz 11611 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → 𝑛 ∈ ℤ)
2816, 26, 27expne0d 13228 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ≠ 0)
299, 17, 24, 28mulne0d 10891 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ≠ 0)
305, 18, 29divcld 11013 . . . . . . . . . . 11 (𝑛 ∈ ℕ → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ)
31 stirlinglem3.1 . . . . . . . . . . . 12 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
3231fvmpt2 6454 . . . . . . . . . . 11 ((𝑛 ∈ ℕ ∧ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ) → (𝐴𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
3330, 32mpdan 705 . . . . . . . . . 10 (𝑛 ∈ ℕ → (𝐴𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
3433oveq1d 6829 . . . . . . . . 9 (𝑛 ∈ ℕ → ((𝐴𝑛)↑4) = (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4))
35 stirlinglem3.3 . . . . . . . . . . . 12 𝐸 = (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
3635fvmpt2 6454 . . . . . . . . . . 11 ((𝑛 ∈ ℕ ∧ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ) → (𝐸𝑛) = ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
3718, 36mpdan 705 . . . . . . . . . 10 (𝑛 ∈ ℕ → (𝐸𝑛) = ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
3837oveq1d 6829 . . . . . . . . 9 (𝑛 ∈ ℕ → ((𝐸𝑛)↑4) = (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4))
3934, 38oveq12d 6832 . . . . . . . 8 (𝑛 ∈ ℕ → (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) = ((((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)))
40 4nn0 11523 . . . . . . . . . . 11 4 ∈ ℕ0
4140a1i 11 . . . . . . . . . 10 (𝑛 ∈ ℕ → 4 ∈ ℕ0)
425, 18, 29, 41expdivd 13236 . . . . . . . . 9 (𝑛 ∈ ℕ → (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4) = (((!‘𝑛)↑4) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)))
4342oveq1d 6829 . . . . . . . 8 (𝑛 ∈ ℕ → ((((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) = ((((!‘𝑛)↑4) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)))
445, 41expcld 13222 . . . . . . . . 9 (𝑛 ∈ ℕ → ((!‘𝑛)↑4) ∈ ℂ)
4518, 41expcld 13222 . . . . . . . . 9 (𝑛 ∈ ℕ → (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) ∈ ℂ)
4641nn0zd 11692 . . . . . . . . . 10 (𝑛 ∈ ℕ → 4 ∈ ℤ)
4718, 29, 46expne0d 13228 . . . . . . . . 9 (𝑛 ∈ ℕ → (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) ≠ 0)
4844, 45, 47divcan1d 11014 . . . . . . . 8 (𝑛 ∈ ℕ → ((((!‘𝑛)↑4) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) = ((!‘𝑛)↑4))
4939, 43, 483eqtrd 2798 . . . . . . 7 (𝑛 ∈ ℕ → (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) = ((!‘𝑛)↑4))
5049eqcomd 2766 . . . . . 6 (𝑛 ∈ ℕ → ((!‘𝑛)↑4) = (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)))
5150oveq2d 6830 . . . . 5 (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) = ((2↑(4 · 𝑛)) · (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4))))
52 2nn0 11521 . . . . . . . . . . . . 13 2 ∈ ℕ0
5352a1i 11 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → 2 ∈ ℕ0)
5453, 2nn0mulcld 11568 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ0)
55 faccl 13284 . . . . . . . . . . 11 ((2 · 𝑛) ∈ ℕ0 → (!‘(2 · 𝑛)) ∈ ℕ)
56 nncn 11240 . . . . . . . . . . 11 ((!‘(2 · 𝑛)) ∈ ℕ → (!‘(2 · 𝑛)) ∈ ℂ)
5754, 55, 563syl 18 . . . . . . . . . 10 (𝑛 ∈ ℕ → (!‘(2 · 𝑛)) ∈ ℂ)
5857sqcld 13220 . . . . . . . . 9 (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) ∈ ℂ)
596, 8mulcld 10272 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (2 · (2 · 𝑛)) ∈ ℂ)
6059sqrtcld 14395 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (√‘(2 · (2 · 𝑛))) ∈ ℂ)
618, 12, 15divcld 11013 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → ((2 · 𝑛) / e) ∈ ℂ)
6261, 54expcld 13222 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑(2 · 𝑛)) ∈ ℂ)
6360, 62mulcld 10272 . . . . . . . . . 10 (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))) ∈ ℂ)
6463sqcld 13220 . . . . . . . . 9 (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) ∈ ℂ)
6520, 22rpmulcld 12101 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → (2 · (2 · 𝑛)) ∈ ℝ+)
6665sqrtgt0d 14370 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → 0 < (√‘(2 · (2 · 𝑛))))
6766gt0ne0d 10804 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (√‘(2 · (2 · 𝑛))) ≠ 0)
6820rpne0d 12090 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → 2 ≠ 0)
696, 7, 68, 25mulne0d 10891 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → (2 · 𝑛) ≠ 0)
708, 12, 69, 15divne0d 11029 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → ((2 · 𝑛) / e) ≠ 0)
71 2z 11621 . . . . . . . . . . . . . 14 2 ∈ ℤ
7271a1i 11 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → 2 ∈ ℤ)
7372, 27zmulcld 11700 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℤ)
7461, 70, 73expne0d 13228 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑(2 · 𝑛)) ≠ 0)
7560, 62, 67, 74mulne0d 10891 . . . . . . . . . 10 (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))) ≠ 0)
7663, 75, 72expne0d 13228 . . . . . . . . 9 (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) ≠ 0)
7758, 64, 76divcan1d 11014 . . . . . . . 8 (𝑛 ∈ ℕ → ((((!‘(2 · 𝑛))↑2) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = ((!‘(2 · 𝑛))↑2))
7857, 63, 75, 53expdivd 13236 . . . . . . . . . 10 (𝑛 ∈ ℕ → (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) = (((!‘(2 · 𝑛))↑2) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
7978eqcomd 2766 . . . . . . . . 9 (𝑛 ∈ ℕ → (((!‘(2 · 𝑛))↑2) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2))
8079oveq1d 6829 . . . . . . . 8 (𝑛 ∈ ℕ → ((((!‘(2 · 𝑛))↑2) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = ((((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
8177, 80eqtr3d 2796 . . . . . . 7 (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) = ((((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
82 fveq2 6353 . . . . . . . . . . . . . . 15 (𝑛 = 𝑚 → (!‘𝑛) = (!‘𝑚))
83 oveq2 6822 . . . . . . . . . . . . . . . . 17 (𝑛 = 𝑚 → (2 · 𝑛) = (2 · 𝑚))
8483fveq2d 6357 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑚 → (√‘(2 · 𝑛)) = (√‘(2 · 𝑚)))
85 oveq1 6821 . . . . . . . . . . . . . . . . 17 (𝑛 = 𝑚 → (𝑛 / e) = (𝑚 / e))
86 id 22 . . . . . . . . . . . . . . . . 17 (𝑛 = 𝑚𝑛 = 𝑚)
8785, 86oveq12d 6832 . . . . . . . . . . . . . . . 16 (𝑛 = 𝑚 → ((𝑛 / e)↑𝑛) = ((𝑚 / e)↑𝑚))
8884, 87oveq12d 6832 . . . . . . . . . . . . . . 15 (𝑛 = 𝑚 → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))
8982, 88oveq12d 6832 . . . . . . . . . . . . . 14 (𝑛 = 𝑚 → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
9089cbvmptv 4902 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))) = (𝑚 ∈ ℕ ↦ ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
9131, 90eqtri 2782 . . . . . . . . . . . 12 𝐴 = (𝑚 ∈ ℕ ↦ ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
9291a1i 11 . . . . . . . . . . 11 (𝑛 ∈ ℕ → 𝐴 = (𝑚 ∈ ℕ ↦ ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))))
93 fveq2 6353 . . . . . . . . . . . . 13 (𝑚 = (2 · 𝑛) → (!‘𝑚) = (!‘(2 · 𝑛)))
94 oveq2 6822 . . . . . . . . . . . . . . 15 (𝑚 = (2 · 𝑛) → (2 · 𝑚) = (2 · (2 · 𝑛)))
9594fveq2d 6357 . . . . . . . . . . . . . 14 (𝑚 = (2 · 𝑛) → (√‘(2 · 𝑚)) = (√‘(2 · (2 · 𝑛))))
96 oveq1 6821 . . . . . . . . . . . . . . 15 (𝑚 = (2 · 𝑛) → (𝑚 / e) = ((2 · 𝑛) / e))
97 id 22 . . . . . . . . . . . . . . 15 (𝑚 = (2 · 𝑛) → 𝑚 = (2 · 𝑛))
9896, 97oveq12d 6832 . . . . . . . . . . . . . 14 (𝑚 = (2 · 𝑛) → ((𝑚 / e)↑𝑚) = (((2 · 𝑛) / e)↑(2 · 𝑛)))
9995, 98oveq12d 6832 . . . . . . . . . . . . 13 (𝑚 = (2 · 𝑛) → ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
10093, 99oveq12d 6832 . . . . . . . . . . . 12 (𝑚 = (2 · 𝑛) → ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))) = ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))))
101100adantl 473 . . . . . . . . . . 11 ((𝑛 ∈ ℕ ∧ 𝑚 = (2 · 𝑛)) → ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))) = ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))))
102 2nn 11397 . . . . . . . . . . . . 13 2 ∈ ℕ
103102a1i 11 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → 2 ∈ ℕ)
104 id 22 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → 𝑛 ∈ ℕ)
105103, 104nnmulcld 11280 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ)
10657, 63, 75divcld 11013 . . . . . . . . . . 11 (𝑛 ∈ ℕ → ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))) ∈ ℂ)
10792, 101, 105, 106fvmptd 6451 . . . . . . . . . 10 (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) = ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))))
108107oveq1d 6829 . . . . . . . . 9 (𝑛 ∈ ℕ → ((𝐴‘(2 · 𝑛))↑2) = (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2))
109108eqcomd 2766 . . . . . . . 8 (𝑛 ∈ ℕ → (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) = ((𝐴‘(2 · 𝑛))↑2))
110109oveq1d 6829 . . . . . . 7 (𝑛 ∈ ℕ → ((((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = (((𝐴‘(2 · 𝑛))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
111 eqidd 2761 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))) = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
11299adantl 473 . . . . . . . . . . 11 ((𝑛 ∈ ℕ ∧ 𝑚 = (2 · 𝑛)) → ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
113111, 112, 105, 63fvmptd 6451 . . . . . . . . . 10 (𝑛 ∈ ℕ → ((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
114113oveq1d 6829 . . . . . . . . 9 (𝑛 ∈ ℕ → (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2) = (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2))
115114eqcomd 2766 . . . . . . . 8 (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) = (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2))
116115oveq2d 6830 . . . . . . 7 (𝑛 ∈ ℕ → (((𝐴‘(2 · 𝑛))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = (((𝐴‘(2 · 𝑛))↑2) · (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2)))
11781, 110, 1163eqtrd 2798 . . . . . 6 (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) = (((𝐴‘(2 · 𝑛))↑2) · (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2)))
11888cbvmptv 4902 . . . . . . . . . . 11 (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))
119118a1i 11 . . . . . . . . . 10 (𝑛 ∈ ℕ → (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
120119fveq1d 6355 . . . . . . . . 9 (𝑛 ∈ ℕ → ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)) = ((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛)))
121120eqcomd 2766 . . . . . . . 8 (𝑛 ∈ ℕ → ((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛)) = ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)))
122121oveq1d 6829 . . . . . . 7 (𝑛 ∈ ℕ → (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2) = (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2))
123122oveq2d 6830 . . . . . 6 (𝑛 ∈ ℕ → (((𝐴‘(2 · 𝑛))↑2) · (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2)) = (((𝐴‘(2 · 𝑛))↑2) · (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2)))
124107, 106eqeltrd 2839 . . . . . . . . . 10 (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) ∈ ℂ)
125 stirlinglem3.2 . . . . . . . . . . 11 𝐷 = (𝑛 ∈ ℕ ↦ (𝐴‘(2 · 𝑛)))
126125fvmpt2 6454 . . . . . . . . . 10 ((𝑛 ∈ ℕ ∧ (𝐴‘(2 · 𝑛)) ∈ ℂ) → (𝐷𝑛) = (𝐴‘(2 · 𝑛)))
127124, 126mpdan 705 . . . . . . . . 9 (𝑛 ∈ ℕ → (𝐷𝑛) = (𝐴‘(2 · 𝑛)))
128127eqcomd 2766 . . . . . . . 8 (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) = (𝐷𝑛))
129128oveq1d 6829 . . . . . . 7 (𝑛 ∈ ℕ → ((𝐴‘(2 · 𝑛))↑2) = ((𝐷𝑛)↑2))
13035a1i 11 . . . . . . . . . 10 (𝑛 ∈ ℕ → 𝐸 = (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
131130fveq1d 6355 . . . . . . . . 9 (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) = ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)))
132131eqcomd 2766 . . . . . . . 8 (𝑛 ∈ ℕ → ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)) = (𝐸‘(2 · 𝑛)))
133132oveq1d 6829 . . . . . . 7 (𝑛 ∈ ℕ → (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2) = ((𝐸‘(2 · 𝑛))↑2))
134129, 133oveq12d 6832 . . . . . 6 (𝑛 ∈ ℕ → (((𝐴‘(2 · 𝑛))↑2) · (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2)) = (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2)))
135117, 123, 1343eqtrd 2798 . . . . 5 (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) = (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2)))
13651, 135oveq12d 6832 . . . 4 (𝑛 ∈ ℕ → (((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) = (((2↑(4 · 𝑛)) · (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))))
137136oveq1d 6829 . . 3 (𝑛 ∈ ℕ → ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)) = ((((2↑(4 · 𝑛)) · (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
138137mpteq2ia 4892 . 2 (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1))) = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
13941, 2nn0mulcld 11568 . . . . . . . 8 (𝑛 ∈ ℕ → (4 · 𝑛) ∈ ℕ0)
1406, 139expcld 13222 . . . . . . 7 (𝑛 ∈ ℕ → (2↑(4 · 𝑛)) ∈ ℂ)
14149, 44eqeltrd 2839 . . . . . . 7 (𝑛 ∈ ℕ → (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) ∈ ℂ)
142140, 141mulcomd 10273 . . . . . 6 (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4))) = ((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) · (2↑(4 · 𝑛))))
143142oveq1d 6829 . . . . 5 (𝑛 ∈ ℕ → (((2↑(4 · 𝑛)) · (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))))
144143oveq1d 6829 . . . 4 (𝑛 ∈ ℕ → ((((2↑(4 · 𝑛)) · (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
145127, 124eqeltrd 2839 . . . . . . . 8 (𝑛 ∈ ℕ → (𝐷𝑛) ∈ ℂ)
146145sqcld 13220 . . . . . . 7 (𝑛 ∈ ℕ → ((𝐷𝑛)↑2) ∈ ℂ)
147130, 119eqtrd 2794 . . . . . . . . . 10 (𝑛 ∈ ℕ → 𝐸 = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
148147, 112, 105, 63fvmptd 6451 . . . . . . . . 9 (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
149148, 63eqeltrd 2839 . . . . . . . 8 (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) ∈ ℂ)
150149sqcld 13220 . . . . . . 7 (𝑛 ∈ ℕ → ((𝐸‘(2 · 𝑛))↑2) ∈ ℂ)
151 nnne0 11265 . . . . . . . . . . . 12 ((!‘(2 · 𝑛)) ∈ ℕ → (!‘(2 · 𝑛)) ≠ 0)
15254, 55, 1513syl 18 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (!‘(2 · 𝑛)) ≠ 0)
15357, 63, 152, 75divne0d 11029 . . . . . . . . . 10 (𝑛 ∈ ℕ → ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))) ≠ 0)
154107, 153eqnetrd 2999 . . . . . . . . 9 (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) ≠ 0)
155127, 154eqnetrd 2999 . . . . . . . 8 (𝑛 ∈ ℕ → (𝐷𝑛) ≠ 0)
156145, 155, 72expne0d 13228 . . . . . . 7 (𝑛 ∈ ℕ → ((𝐷𝑛)↑2) ≠ 0)
157148, 75eqnetrd 2999 . . . . . . . 8 (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) ≠ 0)
158149, 157, 72expne0d 13228 . . . . . . 7 (𝑛 ∈ ℕ → ((𝐸‘(2 · 𝑛))↑2) ≠ 0)
159141, 146, 140, 150, 156, 158divmuldivd 11054 . . . . . 6 (𝑛 ∈ ℕ → (((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) / ((𝐷𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))))
160159eqcomd 2766 . . . . 5 (𝑛 ∈ ℕ → (((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) / ((𝐷𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))))
161160oveq1d 6829 . . . 4 (𝑛 ∈ ℕ → ((((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) / ((𝐷𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
16233, 30eqeltrd 2839 . . . . . . . . 9 (𝑛 ∈ ℕ → (𝐴𝑛) ∈ ℂ)
163162, 41expcld 13222 . . . . . . . 8 (𝑛 ∈ ℕ → ((𝐴𝑛)↑4) ∈ ℂ)
16438, 45eqeltrd 2839 . . . . . . . 8 (𝑛 ∈ ℕ → ((𝐸𝑛)↑4) ∈ ℂ)
165163, 164, 146, 156div23d 11050 . . . . . . 7 (𝑛 ∈ ℕ → ((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) / ((𝐷𝑛)↑2)) = ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝐸𝑛)↑4)))
166165oveq1d 6829 . . . . . 6 (𝑛 ∈ ℕ → (((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) / ((𝐷𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝐸𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))))
167166oveq1d 6829 . . . . 5 (𝑛 ∈ ℕ → ((((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) / ((𝐷𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝐸𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
168163, 146, 156divcld 11013 . . . . . . 7 (𝑛 ∈ ℕ → (((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) ∈ ℂ)
169140, 150, 158divcld 11013 . . . . . . 7 (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)) ∈ ℂ)
170168, 164, 169mulassd 10275 . . . . . 6 (𝑛 ∈ ℕ → (((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝐸𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · (((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))))
171170oveq1d 6829 . . . . 5 (𝑛 ∈ ℕ → ((((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝐸𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = (((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · (((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))) / ((2 · 𝑛) + 1)))
172164, 169mulcld 10272 . . . . . . 7 (𝑛 ∈ ℕ → (((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) ∈ ℂ)
173 1cnd 10268 . . . . . . . 8 (𝑛 ∈ ℕ → 1 ∈ ℂ)
1748, 173addcld 10271 . . . . . . 7 (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℂ)
175 0red 10253 . . . . . . . . 9 (𝑛 ∈ ℕ → 0 ∈ ℝ)
176105nnred 11247 . . . . . . . . 9 (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
177 2re 11302 . . . . . . . . . . . 12 2 ∈ ℝ
178177a1i 11 . . . . . . . . . . 11 (𝑛 ∈ ℕ → 2 ∈ ℝ)
179 nnre 11239 . . . . . . . . . . 11 (𝑛 ∈ ℕ → 𝑛 ∈ ℝ)
180178, 179remulcld 10282 . . . . . . . . . 10 (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
181 1red 10267 . . . . . . . . . 10 (𝑛 ∈ ℕ → 1 ∈ ℝ)
182180, 181readdcld 10281 . . . . . . . . 9 (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℝ)
183105nngt0d 11276 . . . . . . . . 9 (𝑛 ∈ ℕ → 0 < (2 · 𝑛))
184176ltp1d 11166 . . . . . . . . 9 (𝑛 ∈ ℕ → (2 · 𝑛) < ((2 · 𝑛) + 1))
185175, 176, 182, 183, 184lttrd 10410 . . . . . . . 8 (𝑛 ∈ ℕ → 0 < ((2 · 𝑛) + 1))
186185gt0ne0d 10804 . . . . . . 7 (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ≠ 0)
187168, 172, 174, 186divassd 11048 . . . . . 6 (𝑛 ∈ ℕ → (((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · (((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))) / ((2 · 𝑛) + 1)) = ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1))))
188164, 140, 150, 158div12d 11049 . . . . . . . . . 10 (𝑛 ∈ ℕ → (((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = ((2↑(4 · 𝑛)) · (((𝐸𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2))))
1899, 17, 41mulexpd 13237 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) = (((√‘(2 · 𝑛))↑4) · (((𝑛 / e)↑𝑛)↑4)))
19060, 62sqmuld 13234 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) = (((√‘(2 · (2 · 𝑛)))↑2) · ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))
191189, 190oveq12d 6832 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → ((((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = ((((√‘(2 · 𝑛))↑4) · (((𝑛 / e)↑𝑛)↑4)) / (((√‘(2 · (2 · 𝑛)))↑2) · ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))))
192148oveq1d 6829 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((𝐸‘(2 · 𝑛))↑2) = (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2))
19338, 192oveq12d 6832 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (((𝐸𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2)) = ((((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
1949, 41expcld 13222 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑4) ∈ ℂ)
19560sqcld 13220 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛)))↑2) ∈ ℂ)
19617, 41expcld 13222 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → (((𝑛 / e)↑𝑛)↑4) ∈ ℂ)
19762sqcld 13220 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2) ∈ ℂ)
19860, 67, 72expne0d 13228 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛)))↑2) ≠ 0)
19962, 74, 72expne0d 13228 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2) ≠ 0)
200194, 195, 196, 197, 198, 199divmuldivd 11054 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))) = ((((√‘(2 · 𝑛))↑4) · (((𝑛 / e)↑𝑛)↑4)) / (((√‘(2 · (2 · 𝑛)))↑2) · ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))))
201191, 193, 2003eqtr4d 2804 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (((𝐸𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2)) = ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))))
202201oveq2d 6830 . . . . . . . . . 10 (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (((𝐸𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2))) = ((2↑(4 · 𝑛)) · ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))))
20365rprege0d 12092 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((2 · (2 · 𝑛)) ∈ ℝ ∧ 0 ≤ (2 · (2 · 𝑛))))
204 resqrtth 14215 . . . . . . . . . . . . . . . 16 (((2 · (2 · 𝑛)) ∈ ℝ ∧ 0 ≤ (2 · (2 · 𝑛))) → ((√‘(2 · (2 · 𝑛)))↑2) = (2 · (2 · 𝑛)))
205203, 204syl 17 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛)))↑2) = (2 · (2 · 𝑛)))
206205oveq2d 6830 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) = (((√‘(2 · 𝑛))↑4) / (2 · (2 · 𝑛))))
207 2t2e4 11389 . . . . . . . . . . . . . . . . . . 19 (2 · 2) = 4
208207eqcomi 2769 . . . . . . . . . . . . . . . . . 18 4 = (2 · 2)
209208a1i 11 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → 4 = (2 · 2))
210209oveq2d 6830 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑4) = ((√‘(2 · 𝑛))↑(2 · 2)))
2119, 53, 53expmuld 13225 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑(2 · 2)) = (((√‘(2 · 𝑛))↑2)↑2))
21222rprege0d 12092 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → ((2 · 𝑛) ∈ ℝ ∧ 0 ≤ (2 · 𝑛)))
213 resqrtth 14215 . . . . . . . . . . . . . . . . . 18 (((2 · 𝑛) ∈ ℝ ∧ 0 ≤ (2 · 𝑛)) → ((√‘(2 · 𝑛))↑2) = (2 · 𝑛))
214212, 213syl 17 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑2) = (2 · 𝑛))
215214oveq1d 6829 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑2)↑2) = ((2 · 𝑛)↑2))
216210, 211, 2153eqtrd 2798 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑4) = ((2 · 𝑛)↑2))
2176, 6, 7mulassd 10275 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((2 · 2) · 𝑛) = (2 · (2 · 𝑛)))
218207a1i 11 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → (2 · 2) = 4)
219218oveq1d 6829 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((2 · 2) · 𝑛) = (4 · 𝑛))
220217, 219eqtr3d 2796 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → (2 · (2 · 𝑛)) = (4 · 𝑛))
221216, 220oveq12d 6832 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑4) / (2 · (2 · 𝑛))) = (((2 · 𝑛)↑2) / (4 · 𝑛)))
2226, 7sqmuld 13234 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → ((2 · 𝑛)↑2) = ((2↑2) · (𝑛↑2)))
223 sq2 13174 . . . . . . . . . . . . . . . . . . 19 (2↑2) = 4
224223a1i 11 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → (2↑2) = 4)
225224oveq1d 6829 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → ((2↑2) · (𝑛↑2)) = (4 · (𝑛↑2)))
226222, 225eqtrd 2794 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((2 · 𝑛)↑2) = (4 · (𝑛↑2)))
227226oveq1d 6829 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → (((2 · 𝑛)↑2) / (4 · 𝑛)) = ((4 · (𝑛↑2)) / (4 · 𝑛)))
228 4cn 11310 . . . . . . . . . . . . . . . . . . 19 4 ∈ ℂ
229 4ne0 11329 . . . . . . . . . . . . . . . . . . 19 4 ≠ 0
230228, 229dividi 10970 . . . . . . . . . . . . . . . . . 18 (4 / 4) = 1
231230a1i 11 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → (4 / 4) = 1)
2327sqvald 13219 . . . . . . . . . . . . . . . . . . 19 (𝑛 ∈ ℕ → (𝑛↑2) = (𝑛 · 𝑛))
233232oveq1d 6829 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → ((𝑛↑2) / 𝑛) = ((𝑛 · 𝑛) / 𝑛))
2347, 7, 25divcan4d 11019 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → ((𝑛 · 𝑛) / 𝑛) = 𝑛)
235233, 234eqtrd 2794 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → ((𝑛↑2) / 𝑛) = 𝑛)
236231, 235oveq12d 6832 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((4 / 4) · ((𝑛↑2) / 𝑛)) = (1 · 𝑛))
23741nn0cnd 11565 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → 4 ∈ ℂ)
2387sqcld 13220 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → (𝑛↑2) ∈ ℂ)
239229a1i 11 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → 4 ≠ 0)
240237, 237, 238, 7, 239, 25divmuldivd 11054 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((4 / 4) · ((𝑛↑2) / 𝑛)) = ((4 · (𝑛↑2)) / (4 · 𝑛)))
2417mulid2d 10270 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (1 · 𝑛) = 𝑛)
242236, 240, 2413eqtr3d 2802 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((4 · (𝑛↑2)) / (4 · 𝑛)) = 𝑛)
243227, 242eqtrd 2794 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → (((2 · 𝑛)↑2) / (4 · 𝑛)) = 𝑛)
244206, 221, 2433eqtrd 2798 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) = 𝑛)
2457, 237mulcomd 10273 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → (𝑛 · 4) = (4 · 𝑛))
246245oveq2d 6830 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((𝑛 / e)↑(𝑛 · 4)) = ((𝑛 / e)↑(4 · 𝑛)))
24716, 41, 2expmuld 13225 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((𝑛 / e)↑(𝑛 · 4)) = (((𝑛 / e)↑𝑛)↑4))
2487, 12, 15, 139expdivd 13236 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((𝑛 / e)↑(4 · 𝑛)) = ((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
249246, 247, 2483eqtr3d 2802 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → (((𝑛 / e)↑𝑛)↑4) = ((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
2506, 7, 6mul32d 10458 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ → ((2 · 𝑛) · 2) = ((2 · 2) · 𝑛))
251250, 219eqtrd 2794 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → ((2 · 𝑛) · 2) = (4 · 𝑛))
252251oveq2d 6830 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑((2 · 𝑛) · 2)) = (((2 · 𝑛) / e)↑(4 · 𝑛)))
25361, 53, 54expmuld 13225 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑((2 · 𝑛) · 2)) = ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))
2548, 12, 15, 139expdivd 13236 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑(4 · 𝑛)) = (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
255252, 253, 2543eqtr3d 2802 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2) = (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
256249, 255oveq12d 6832 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)) = (((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) / (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛)))))
257249, 196eqeltrrd 2840 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) ∈ ℂ)
2588, 139expcld 13222 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((2 · 𝑛)↑(4 · 𝑛)) ∈ ℂ)
25912, 139expcld 13222 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → (e↑(4 · 𝑛)) ∈ ℂ)
26046, 27zmulcld 11700 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (4 · 𝑛) ∈ ℤ)
2618, 69, 260expne0d 13228 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((2 · 𝑛)↑(4 · 𝑛)) ≠ 0)
26212, 15, 260expne0d 13228 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → (e↑(4 · 𝑛)) ≠ 0)
263257, 258, 259, 261, 262divdiv2d 11045 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) / (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛)))) = ((((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) / ((2 · 𝑛)↑(4 · 𝑛))))
2647, 139expcld 13222 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → (𝑛↑(4 · 𝑛)) ∈ ℂ)
265264, 259, 262divcan1d 11014 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) = (𝑛↑(4 · 𝑛)))
266265oveq1d 6829 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) / ((2 · 𝑛)↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) / ((2 · 𝑛)↑(4 · 𝑛))))
2676, 7, 139mulexpd 13237 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((2 · 𝑛)↑(4 · 𝑛)) = ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛))))
268267oveq2d 6830 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / ((2 · 𝑛)↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) / ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛)))))
269140, 264mulcomd 10273 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) · (2↑(4 · 𝑛))))
270269oveq2d 6830 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛)))) = ((𝑛↑(4 · 𝑛)) / ((𝑛↑(4 · 𝑛)) · (2↑(4 · 𝑛)))))
2717, 25, 260expne0d 13228 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → (𝑛↑(4 · 𝑛)) ≠ 0)
2726, 68, 260expne0d 13228 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → (2↑(4 · 𝑛)) ≠ 0)
273264, 264, 140, 271, 272divdiv1d 11044 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (𝑛↑(4 · 𝑛))) / (2↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) / ((𝑛↑(4 · 𝑛)) · (2↑(4 · 𝑛)))))
274264, 271dividd 11011 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / (𝑛↑(4 · 𝑛))) = 1)
275274oveq1d 6829 . . . . . . . . . . . . . . . 16 (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (𝑛↑(4 · 𝑛))) / (2↑(4 · 𝑛))) = (1 / (2↑(4 · 𝑛))))
276270, 273, 2753eqtr2d 2800 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛)))) = (1 / (2↑(4 · 𝑛))))
277266, 268, 2763eqtrd 2798 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ → ((((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) / ((2 · 𝑛)↑(4 · 𝑛))) = (1 / (2↑(4 · 𝑛))))
278256, 263, 2773eqtrd 2798 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)) = (1 / (2↑(4 · 𝑛))))
279244, 278oveq12d 6832 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))) = (𝑛 · (1 / (2↑(4 · 𝑛)))))
280279oveq2d 6830 . . . . . . . . . . 11 (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))) = ((2↑(4 · 𝑛)) · (𝑛 · (1 / (2↑(4 · 𝑛))))))
281140, 272reccld 11006 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (1 / (2↑(4 · 𝑛))) ∈ ℂ)
282140, 7, 281mul12d 10457 . . . . . . . . . . 11 (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (𝑛 · (1 / (2↑(4 · 𝑛))))) = (𝑛 · ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛))))))
2837mulid1d 10269 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (𝑛 · 1) = 𝑛)
284140, 272recidd 11008 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛)))) = 1)
285284oveq2d 6830 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (𝑛 · ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛))))) = (𝑛 · 1))
286283, 285, 2353eqtr4d 2804 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (𝑛 · ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛))))) = ((𝑛↑2) / 𝑛))
287280, 282, 2863eqtrd 2798 . . . . . . . . . 10 (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))) = ((𝑛↑2) / 𝑛))
288188, 202, 2873eqtrd 2798 . . . . . . . . 9 (𝑛 ∈ ℕ → (((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = ((𝑛↑2) / 𝑛))
289288oveq1d 6829 . . . . . . . 8 (𝑛 ∈ ℕ → ((((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = (((𝑛↑2) / 𝑛) / ((2 · 𝑛) + 1)))
290238, 7, 174, 25, 186divdiv1d 11044 . . . . . . . 8 (𝑛 ∈ ℕ → (((𝑛↑2) / 𝑛) / ((2 · 𝑛) + 1)) = ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
291289, 290eqtrd 2794 . . . . . . 7 (𝑛 ∈ ℕ → ((((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
292291oveq2d 6830 . . . . . 6 (𝑛 ∈ ℕ → ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1))) = ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
293187, 292eqtrd 2794 . . . . 5 (𝑛 ∈ ℕ → (((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · (((𝐸𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))) / ((2 · 𝑛) + 1)) = ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
294167, 171, 2933eqtrd 2798 . . . 4 (𝑛 ∈ ℕ → ((((((𝐴𝑛)↑4) · ((𝐸𝑛)↑4)) / ((𝐷𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
295144, 161, 2943eqtrd 2798 . . 3 (𝑛 ∈ ℕ → ((((2↑(4 · 𝑛)) · (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
296295mpteq2ia 4892 . 2 (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · (((𝐴𝑛)↑4) · ((𝐸𝑛)↑4))) / (((𝐷𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1))) = (𝑛 ∈ ℕ ↦ ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
2971, 138, 2963eqtri 2786 1 𝑉 = (𝑛 ∈ ℕ ↦ ((((𝐴𝑛)↑4) / ((𝐷𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
 Colors of variables: wff setvar class Syntax hints:   ∧ wa 383   = wceq 1632   ∈ wcel 2139   ≠ wne 2932   class class class wbr 4804   ↦ cmpt 4881  ‘cfv 6049  (class class class)co 6814  ℂcc 10146  ℝcr 10147  0cc0 10148  1c1 10149   + caddc 10151   · cmul 10153   ≤ cle 10287   / cdiv 10896  ℕcn 11232  2c2 11282  4c4 11284  ℕ0cn0 11504  ℤcz 11589  ℝ+crp 12045  ↑cexp 13074  !cfa 13274  √csqrt 14192  eceu 15012 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-8 2141  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740  ax-rep 4923  ax-sep 4933  ax-nul 4941  ax-pow 4992  ax-pr 5055  ax-un 7115  ax-inf2 8713  ax-cnex 10204  ax-resscn 10205  ax-1cn 10206  ax-icn 10207  ax-addcl 10208  ax-addrcl 10209  ax-mulcl 10210  ax-mulrcl 10211  ax-mulcom 10212  ax-addass 10213  ax-mulass 10214  ax-distr 10215  ax-i2m1 10216  ax-1ne0 10217  ax-1rid 10218  ax-rnegex 10219  ax-rrecex 10220  ax-cnre 10221  ax-pre-lttri 10222  ax-pre-lttrn 10223  ax-pre-ltadd 10224  ax-pre-mulgt0 10225  ax-pre-sup 10226  ax-addf 10227  ax-mulf 10228 This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-fal 1638  df-ex 1854  df-nf 1859  df-sb 2047  df-eu 2611  df-mo 2612  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ne 2933  df-nel 3036  df-ral 3055  df-rex 3056  df-reu 3057  df-rmo 3058  df-rab 3059  df-v 3342  df-sbc 3577  df-csb 3675  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-pss 3731  df-nul 4059  df-if 4231  df-pw 4304  df-sn 4322  df-pr 4324  df-tp 4326  df-op 4328  df-uni 4589  df-int 4628  df-iun 4674  df-br 4805  df-opab 4865  df-mpt 4882  df-tr 4905  df-id 5174  df-eprel 5179  df-po 5187  df-so 5188  df-fr 5225  df-se 5226  df-we 5227  df-xp 5272  df-rel 5273  df-cnv 5274  df-co 5275  df-dm 5276  df-rn 5277  df-res 5278  df-ima 5279  df-pred 5841  df-ord 5887  df-on 5888  df-lim 5889  df-suc 5890  df-iota 6012  df-fun 6051  df-fn 6052  df-f 6053  df-f1 6054  df-fo 6055  df-f1o 6056  df-fv 6057  df-isom 6058  df-riota 6775  df-ov 6817  df-oprab 6818  df-mpt2 6819  df-om 7232  df-1st 7334  df-2nd 7335  df-wrecs 7577  df-recs 7638  df-rdg 7676  df-1o 7730  df-oadd 7734  df-er 7913  df-pm 8028  df-en 8124  df-dom 8125  df-sdom 8126  df-fin 8127  df-sup 8515  df-inf 8516  df-oi 8582  df-card 8975  df-pnf 10288  df-mnf 10289  df-xr 10290  df-ltxr 10291  df-le 10292  df-sub 10480  df-neg 10481  df-div 10897  df-nn 11233  df-2 11291  df-3 11292  df-4 11293  df-n0 11505  df-z 11590  df-uz 11900  df-q 12002  df-rp 12046  df-ico 12394  df-fz 12540  df-fzo 12680  df-fl 12807  df-seq 13016  df-exp 13075  df-fac 13275  df-bc 13304  df-hash 13332  df-shft 14026  df-cj 14058  df-re 14059  df-im 14060  df-sqrt 14194  df-abs 14195  df-limsup 14421  df-clim 14438  df-rlim 14439  df-sum 14636  df-ef 15017  df-e 15018 This theorem is referenced by:  stirlinglem15  40826
 Copyright terms: Public domain W3C validator