stirlinglem3 - Mathbox for Glauco Siliprandi

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

Theorem stirlinglem3 42355

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.

Step	Hyp	Ref	Expression
1		stirlinglem3.4	. 2 ⊢ 𝑉 = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
2		nnnn0 11898	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ₀)
3		faccl 13637	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ₀ → (!‘𝑛) ∈ ℕ)
4		nncn 11640	. . . . . . . . . . . . 13 ⊢ ((!‘𝑛) ∈ ℕ → (!‘𝑛) ∈ ℂ)
5	2, 3, 4	3syl 18	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (!‘𝑛) ∈ ℂ)
6		2cnd 11709	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℂ)
7		nncn 11640	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
8	6, 7	mulcld 10655	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℂ)
9	8	sqrtcld 14791	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ∈ ℂ)
10		ere 15436	. . . . . . . . . . . . . . . . 17 ⊢ e ∈ ℝ
11	10	recni 10649	. . . . . . . . . . . . . . . 16 ⊢ e ∈ ℂ
12	11	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → e ∈ ℂ)
13		epos 15554	. . . . . . . . . . . . . . . . 17 ⊢ 0 < e
14	10, 13	gt0ne0ii 11170	. . . . . . . . . . . . . . . 16 ⊢ e ≠ 0
15	14	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → e ≠ 0)
16	7, 12, 15	divcld 11410	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (𝑛 / e) ∈ ℂ)
17	16, 2	expcld 13504	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ∈ ℂ)
18	9, 17	mulcld 10655	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ)
19		2rp 12388	. . . . . . . . . . . . . . . . 17 ⊢ 2 ∈ ℝ⁺
20	19	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℝ⁺)
21		nnrp 12394	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℝ⁺)
22	20, 21	rpmulcld 12441	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ⁺)
23	22	sqrtgt0d 14766	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → 0 < (√‘(2 · 𝑛)))
24	23	gt0ne0d 11198	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ≠ 0)
25		nnne0 11665	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → 𝑛 ≠ 0)
26	7, 12, 25, 15	divne0d 11426	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (𝑛 / e) ≠ 0)
27		nnz 11998	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℤ)
28	16, 26, 27	expne0d 13510	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ≠ 0)
29	9, 17, 24, 28	mulne0d 11286	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ≠ 0)
30	5, 18, 29	divcld 11410	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ)
31		stirlinglem3.1	. . . . . . . . . . . 12 ⊢ 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
32	31	fvmpt2 6773	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ℕ ∧ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ) → (𝐴‘𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
33	30, 32	mpdan 685	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝐴‘𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
34	33	oveq1d 7165	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((𝐴‘𝑛)↑4) = (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4))
35		stirlinglem3.3	. . . . . . . . . . . 12 ⊢ 𝐸 = (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
36	35	fvmpt2 6773	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ℕ ∧ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ) → (𝐸‘𝑛) = ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
37	18, 36	mpdan 685	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝐸‘𝑛) = ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
38	37	oveq1d 7165	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((𝐸‘𝑛)↑4) = (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4))
39	34, 38	oveq12d 7168	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) = ((((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)))
40		4nn0 11910	. . . . . . . . . . 11 ⊢ 4 ∈ ℕ₀
41	40	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 4 ∈ ℕ₀)
42	5, 18, 29, 41	expdivd 13518	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4) = (((!‘𝑛)↑4) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)))
43	42	oveq1d 7165	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) = ((((!‘𝑛)↑4) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)))
44	5, 41	expcld 13504	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((!‘𝑛)↑4) ∈ ℂ)
45	18, 41	expcld 13504	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) ∈ ℂ)
46	41	nn0zd 12079	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 4 ∈ ℤ)
47	18, 29, 46	expne0d 13510	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) ≠ 0)
48	44, 45, 47	divcan1d 11411	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((((!‘𝑛)↑4) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) = ((!‘𝑛)↑4))
49	39, 43, 48	3eqtrd 2860	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) = ((!‘𝑛)↑4))
50	49	eqcomd 2827	. . . . . 6 ⊢ (𝑛 ∈ ℕ → ((!‘𝑛)↑4) = (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)))
51	50	oveq2d 7166	. . . . 5 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) = ((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))))
52		2nn0 11908	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ₀
53	52	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ₀)
54	53, 2	nn0mulcld 11954	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ₀)
55		faccl 13637	. . . . . . . . . . 11 ⊢ ((2 · 𝑛) ∈ ℕ₀ → (!‘(2 · 𝑛)) ∈ ℕ)
56		nncn 11640	. . . . . . . . . . 11 ⊢ ((!‘(2 · 𝑛)) ∈ ℕ → (!‘(2 · 𝑛)) ∈ ℂ)
57	54, 55, 56	3syl 18	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (!‘(2 · 𝑛)) ∈ ℂ)
58	57	sqcld 13502	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) ∈ ℂ)
59	6, 8	mulcld 10655	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (2 · (2 · 𝑛)) ∈ ℂ)
60	59	sqrtcld 14791	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (√‘(2 · (2 · 𝑛))) ∈ ℂ)
61	8, 12, 15	divcld 11410	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) / e) ∈ ℂ)
62	61, 54	expcld 13504	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑(2 · 𝑛)) ∈ ℂ)
63	60, 62	mulcld 10655	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))) ∈ ℂ)
64	63	sqcld 13502	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) ∈ ℂ)
65	20, 22	rpmulcld 12441	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (2 · (2 · 𝑛)) ∈ ℝ⁺)
66	65	sqrtgt0d 14766	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → 0 < (√‘(2 · (2 · 𝑛))))
67	66	gt0ne0d 11198	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (√‘(2 · (2 · 𝑛))) ≠ 0)
68	20	rpne0d 12430	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → 2 ≠ 0)
69	6, 7, 68, 25	mulne0d 11286	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ≠ 0)
70	8, 12, 69, 15	divne0d 11426	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) / e) ≠ 0)
71		2z 12008	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℤ
72	71	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℤ)
73	72, 27	zmulcld 12087	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℤ)
74	61, 70, 73	expne0d 13510	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑(2 · 𝑛)) ≠ 0)
75	60, 62, 67, 74	mulne0d 11286	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))) ≠ 0)
76	63, 75, 72	expne0d 13510	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) ≠ 0)
77	58, 64, 76	divcan1d 11411	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((((!‘(2 · 𝑛))↑2) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = ((!‘(2 · 𝑛))↑2))
78	57, 63, 75, 53	expdivd 13518	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) = (((!‘(2 · 𝑛))↑2) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
79	78	eqcomd 2827	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((!‘(2 · 𝑛))↑2) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2))
80	79	oveq1d 7165	. . . . . . . 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)))
81	77, 80	eqtr3d 2858	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) = ((((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
82		fveq2 6664	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑚 → (!‘𝑛) = (!‘𝑚))
83		oveq2 7158	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑚 → (2 · 𝑛) = (2 · 𝑚))
84	83	fveq2d 6668	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 𝑚 → (√‘(2 · 𝑛)) = (√‘(2 · 𝑚)))
85		oveq1 7157	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑚 → (𝑛 / e) = (𝑚 / e))
86		id 22	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑚 → 𝑛 = 𝑚)
87	85, 86	oveq12d 7168	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 𝑚 → ((𝑛 / e)↑𝑛) = ((𝑚 / e)↑𝑚))
88	84, 87	oveq12d 7168	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑚 → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))
89	82, 88	oveq12d 7168	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑚 → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
90	89	cbvmptv 5161	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))) = (𝑚 ∈ ℕ ↦ ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
91	31, 90	eqtri 2844	. . . . . . . . . . 11 ⊢ 𝐴 = (𝑚 ∈ ℕ ↦ ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
92		fveq2 6664	. . . . . . . . . . . 12 ⊢ (𝑚 = (2 · 𝑛) → (!‘𝑚) = (!‘(2 · 𝑛)))
93		oveq2 7158	. . . . . . . . . . . . . 14 ⊢ (𝑚 = (2 · 𝑛) → (2 · 𝑚) = (2 · (2 · 𝑛)))
94	93	fveq2d 6668	. . . . . . . . . . . . 13 ⊢ (𝑚 = (2 · 𝑛) → (√‘(2 · 𝑚)) = (√‘(2 · (2 · 𝑛))))
95		oveq1 7157	. . . . . . . . . . . . . 14 ⊢ (𝑚 = (2 · 𝑛) → (𝑚 / e) = ((2 · 𝑛) / e))
96		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑚 = (2 · 𝑛) → 𝑚 = (2 · 𝑛))
97	95, 96	oveq12d 7168	. . . . . . . . . . . . 13 ⊢ (𝑚 = (2 · 𝑛) → ((𝑚 / e)↑𝑚) = (((2 · 𝑛) / e)↑(2 · 𝑛)))
98	94, 97	oveq12d 7168	. . . . . . . . . . . 12 ⊢ (𝑚 = (2 · 𝑛) → ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
99	92, 98	oveq12d 7168	. . . . . . . . . . 11 ⊢ (𝑚 = (2 · 𝑛) → ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))) = ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))))
100		2nn 11704	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
101	100	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ)
102		id 22	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ)
103	101, 102	nnmulcld 11684	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ)
104	57, 63, 75	divcld 11410	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))) ∈ ℂ)
105	91, 99, 103, 104	fvmptd3 6785	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) = ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))))
106	105	oveq1d 7165	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((𝐴‘(2 · 𝑛))↑2) = (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2))
107	106	eqcomd 2827	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) = ((𝐴‘(2 · 𝑛))↑2))
108	107	oveq1d 7165	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = (((𝐴‘(2 · 𝑛))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
109		eqidd 2822	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))) = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
110	98	adantl 484	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ℕ ∧ 𝑚 = (2 · 𝑛)) → ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
111	109, 110, 103, 63	fvmptd 6769	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
112	111	oveq1d 7165	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2) = (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2))
113	112	eqcomd 2827	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) = (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2))
114	113	oveq2d 7166	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝐴‘(2 · 𝑛))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = (((𝐴‘(2 · 𝑛))↑2) · (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2)))
115	81, 108, 114	3eqtrd 2860	. . . . . 6 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) = (((𝐴‘(2 · 𝑛))↑2) · (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2)))
116	88	cbvmptv 5161	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))
117	116	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
118	117	fveq1d 6666	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)) = ((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛)))
119	118	eqcomd 2827	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛)) = ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)))
120	119	oveq1d 7165	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2) = (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2))
121	120	oveq2d 7166	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((𝐴‘(2 · 𝑛))↑2) · (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2)) = (((𝐴‘(2 · 𝑛))↑2) · (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2)))
122	105, 104	eqeltrd 2913	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) ∈ ℂ)
123		stirlinglem3.2	. . . . . . . . . . 11 ⊢ 𝐷 = (𝑛 ∈ ℕ ↦ (𝐴‘(2 · 𝑛)))
124	123	fvmpt2 6773	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ℕ ∧ (𝐴‘(2 · 𝑛)) ∈ ℂ) → (𝐷‘𝑛) = (𝐴‘(2 · 𝑛)))
125	122, 124	mpdan 685	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) = (𝐴‘(2 · 𝑛)))
126	125	eqcomd 2827	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) = (𝐷‘𝑛))
127	126	oveq1d 7165	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐴‘(2 · 𝑛))↑2) = ((𝐷‘𝑛)↑2))
128	35	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 𝐸 = (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
129	128	fveq1d 6666	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) = ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)))
130	129	eqcomd 2827	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)) = (𝐸‘(2 · 𝑛)))
131	130	oveq1d 7165	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2) = ((𝐸‘(2 · 𝑛))↑2))
132	127, 131	oveq12d 7168	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((𝐴‘(2 · 𝑛))↑2) · (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2)) = (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2)))
133	115, 121, 132	3eqtrd 2860	. . . . 5 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) = (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2)))
134	51, 133	oveq12d 7168	. . . 4 ⊢ (𝑛 ∈ ℕ → (((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) = (((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))))
135	134	oveq1d 7165	. . 3 ⊢ (𝑛 ∈ ℕ → ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)) = ((((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
136	135	mpteq2ia 5149	. 2 ⊢ (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1))) = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
137	41, 2	nn0mulcld 11954	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (4 · 𝑛) ∈ ℕ₀)
138	6, 137	expcld 13504	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (2↑(4 · 𝑛)) ∈ ℂ)
139	49, 44	eqeltrd 2913	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) ∈ ℂ)
140	138, 139	mulcomd 10656	. . . . . 6 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) = ((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))))
141	140	oveq1d 7165	. . . . 5 ⊢ (𝑛 ∈ ℕ → (((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))))
142	141	oveq1d 7165	. . . 4 ⊢ (𝑛 ∈ ℕ → ((((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
143	125, 122	eqeltrd 2913	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ∈ ℂ)
144	143	sqcld 13502	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐷‘𝑛)↑2) ∈ ℂ)
145	128, 117	eqtrd 2856	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 𝐸 = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
146	145, 110, 103, 63	fvmptd 6769	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
147	146, 63	eqeltrd 2913	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) ∈ ℂ)
148	147	sqcld 13502	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐸‘(2 · 𝑛))↑2) ∈ ℂ)
149		nnne0 11665	. . . . . . . . . . . 12 ⊢ ((!‘(2 · 𝑛)) ∈ ℕ → (!‘(2 · 𝑛)) ≠ 0)
150	54, 55, 149	3syl 18	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (!‘(2 · 𝑛)) ≠ 0)
151	57, 63, 150, 75	divne0d 11426	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))) ≠ 0)
152	105, 151	eqnetrd 3083	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) ≠ 0)
153	125, 152	eqnetrd 3083	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ≠ 0)
154	143, 153, 72	expne0d 13510	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐷‘𝑛)↑2) ≠ 0)
155	146, 75	eqnetrd 3083	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) ≠ 0)
156	147, 155, 72	expne0d 13510	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐸‘(2 · 𝑛))↑2) ≠ 0)
157	139, 144, 138, 148, 154, 156	divmuldivd 11451	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))))
158	157	eqcomd 2827	. . . . 5 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))))
159	158	oveq1d 7165	. . . 4 ⊢ (𝑛 ∈ ℕ → ((((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
160	33, 30	eqeltrd 2913	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐴‘𝑛) ∈ ℂ)
161	160, 41	expcld 13504	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝐴‘𝑛)↑4) ∈ ℂ)
162	38, 45	eqeltrd 2913	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝐸‘𝑛)↑4) ∈ ℂ)
163	161, 162, 144, 154	div23d 11447	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝐸‘𝑛)↑4)))
164	163	oveq1d 7165	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝐸‘𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))))
165	164	oveq1d 7165	. . . . 5 ⊢ (𝑛 ∈ ℕ → ((((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝐸‘𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
166	161, 144, 154	divcld 11410	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) ∈ ℂ)
167	138, 148, 156	divcld 11410	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)) ∈ ℂ)
168	166, 162, 167	mulassd 10658	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝐸‘𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))))
169	168	oveq1d 7165	. . . . 5 ⊢ (𝑛 ∈ ℕ → ((((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝐸‘𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = (((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))) / ((2 · 𝑛) + 1)))
170	162, 167	mulcld 10655	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) ∈ ℂ)
171		1cnd 10630	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℂ)
172	8, 171	addcld 10654	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℂ)
173		0red 10638	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 0 ∈ ℝ)
174	103	nnred 11647	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
175		2re 11705	. . . . . . . . . . . 12 ⊢ 2 ∈ ℝ
176	175	a1i 11	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℝ)
177		nnre 11639	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℝ)
178	176, 177	remulcld 10665	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
179		1red 10636	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℝ)
180	178, 179	readdcld 10664	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℝ)
181	103	nngt0d 11680	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 0 < (2 · 𝑛))
182	174	ltp1d 11564	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) < ((2 · 𝑛) + 1))
183	173, 174, 180, 181, 182	lttrd 10795	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → 0 < ((2 · 𝑛) + 1))
184	183	gt0ne0d 11198	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ≠ 0)
185	166, 170, 172, 184	divassd 11445	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))) / ((2 · 𝑛) + 1)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1))))
186	162, 138, 148, 156	div12d 11446	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = ((2↑(4 · 𝑛)) · (((𝐸‘𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2))))
187	9, 17, 41	mulexpd 13519	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) = (((√‘(2 · 𝑛))↑4) · (((𝑛 / e)↑𝑛)↑4)))
188	60, 62	sqmuld 13516	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) = (((√‘(2 · (2 · 𝑛)))↑2) · ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))
189	187, 188	oveq12d 7168	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = ((((√‘(2 · 𝑛))↑4) · (((𝑛 / e)↑𝑛)↑4)) / (((√‘(2 · (2 · 𝑛)))↑2) · ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))))
190	146	oveq1d 7165	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((𝐸‘(2 · 𝑛))↑2) = (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2))
191	38, 190	oveq12d 7168	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (((𝐸‘𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2)) = ((((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
192	9, 41	expcld 13504	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑4) ∈ ℂ)
193	60	sqcld 13502	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛)))↑2) ∈ ℂ)
194	17, 41	expcld 13504	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (((𝑛 / e)↑𝑛)↑4) ∈ ℂ)
195	62	sqcld 13502	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2) ∈ ℂ)
196	60, 67, 72	expne0d 13510	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛)))↑2) ≠ 0)
197	62, 74, 72	expne0d 13510	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2) ≠ 0)
198	192, 193, 194, 195, 196, 197	divmuldivd 11451	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))) = ((((√‘(2 · 𝑛))↑4) · (((𝑛 / e)↑𝑛)↑4)) / (((√‘(2 · (2 · 𝑛)))↑2) · ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))))
199	189, 191, 198	3eqtr4d 2866	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (((𝐸‘𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2)) = ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))))
200	199	oveq2d 7166	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (((𝐸‘𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2))) = ((2↑(4 · 𝑛)) · ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))))
201	65	rprege0d 12432	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((2 · (2 · 𝑛)) ∈ ℝ ∧ 0 ≤ (2 · (2 · 𝑛))))
202		resqrtth 14609	. . . . . . . . . . . . . . . 16 ⊢ (((2 · (2 · 𝑛)) ∈ ℝ ∧ 0 ≤ (2 · (2 · 𝑛))) → ((√‘(2 · (2 · 𝑛)))↑2) = (2 · (2 · 𝑛)))
203	201, 202	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛)))↑2) = (2 · (2 · 𝑛)))
204	203	oveq2d 7166	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) = (((√‘(2 · 𝑛))↑4) / (2 · (2 · 𝑛))))
205		2t2e4 11795	. . . . . . . . . . . . . . . . . . 19 ⊢ (2 · 2) = 4
206	205	eqcomi 2830	. . . . . . . . . . . . . . . . . 18 ⊢ 4 = (2 · 2)
207	206	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → 4 = (2 · 2))
208	207	oveq2d 7166	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑4) = ((√‘(2 · 𝑛))↑(2 · 2)))
209	9, 53, 53	expmuld 13507	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑(2 · 2)) = (((√‘(2 · 𝑛))↑2)↑2))
210	22	rprege0d 12432	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) ∈ ℝ ∧ 0 ≤ (2 · 𝑛)))
211		resqrtth 14609	. . . . . . . . . . . . . . . . . 18 ⊢ (((2 · 𝑛) ∈ ℝ ∧ 0 ≤ (2 · 𝑛)) → ((√‘(2 · 𝑛))↑2) = (2 · 𝑛))
212	210, 211	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑2) = (2 · 𝑛))
213	212	oveq1d 7165	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑2)↑2) = ((2 · 𝑛)↑2))
214	208, 209, 213	3eqtrd 2860	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑4) = ((2 · 𝑛)↑2))
215	6, 6, 7	mulassd 10658	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((2 · 2) · 𝑛) = (2 · (2 · 𝑛)))
216	205	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (2 · 2) = 4)
217	216	oveq1d 7165	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((2 · 2) · 𝑛) = (4 · 𝑛))
218	215, 217	eqtr3d 2858	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (2 · (2 · 𝑛)) = (4 · 𝑛))
219	214, 218	oveq12d 7168	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑4) / (2 · (2 · 𝑛))) = (((2 · 𝑛)↑2) / (4 · 𝑛)))
220	6, 7	sqmuld 13516	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛)↑2) = ((2↑2) · (𝑛↑2)))
221		sq2 13554	. . . . . . . . . . . . . . . . . . 19 ⊢ (2↑2) = 4
222	221	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → (2↑2) = 4)
223	222	oveq1d 7165	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((2↑2) · (𝑛↑2)) = (4 · (𝑛↑2)))
224	220, 223	eqtrd 2856	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛)↑2) = (4 · (𝑛↑2)))
225	224	oveq1d 7165	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛)↑2) / (4 · 𝑛)) = ((4 · (𝑛↑2)) / (4 · 𝑛)))
226		4cn 11716	. . . . . . . . . . . . . . . . . . 19 ⊢ 4 ∈ ℂ
227		4ne0 11739	. . . . . . . . . . . . . . . . . . 19 ⊢ 4 ≠ 0
228	226, 227	dividi 11367	. . . . . . . . . . . . . . . . . 18 ⊢ (4 / 4) = 1
229	228	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (4 / 4) = 1)
230	7	sqvald 13501	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (𝑛↑2) = (𝑛 · 𝑛))
231	230	oveq1d 7165	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((𝑛↑2) / 𝑛) = ((𝑛 · 𝑛) / 𝑛))
232	7, 7, 25	divcan4d 11416	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((𝑛 · 𝑛) / 𝑛) = 𝑛)
233	231, 232	eqtrd 2856	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((𝑛↑2) / 𝑛) = 𝑛)
234	229, 233	oveq12d 7168	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((4 / 4) · ((𝑛↑2) / 𝑛)) = (1 · 𝑛))
235	41	nn0cnd 11951	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → 4 ∈ ℂ)
236	7	sqcld 13502	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝑛↑2) ∈ ℂ)
237	227	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → 4 ≠ 0)
238	235, 235, 236, 7, 237, 25	divmuldivd 11451	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((4 / 4) · ((𝑛↑2) / 𝑛)) = ((4 · (𝑛↑2)) / (4 · 𝑛)))
239	7	mulid2d 10653	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (1 · 𝑛) = 𝑛)
240	234, 238, 239	3eqtr3d 2864	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((4 · (𝑛↑2)) / (4 · 𝑛)) = 𝑛)
241	225, 240	eqtrd 2856	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛)↑2) / (4 · 𝑛)) = 𝑛)
242	204, 219, 241	3eqtrd 2860	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) = 𝑛)
243	7, 235	mulcomd 10656	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝑛 · 4) = (4 · 𝑛))
244	243	oveq2d 7166	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑(𝑛 · 4)) = ((𝑛 / e)↑(4 · 𝑛)))
245	16, 41, 2	expmuld 13507	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑(𝑛 · 4)) = (((𝑛 / e)↑𝑛)↑4))
246	7, 12, 15, 137	expdivd 13518	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑(4 · 𝑛)) = ((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
247	244, 245, 246	3eqtr3d 2864	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (((𝑛 / e)↑𝑛)↑4) = ((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
248	6, 7, 6	mul32d 10844	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) · 2) = ((2 · 2) · 𝑛))
249	248, 217	eqtrd 2856	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) · 2) = (4 · 𝑛))
250	249	oveq2d 7166	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑((2 · 𝑛) · 2)) = (((2 · 𝑛) / e)↑(4 · 𝑛)))
251	61, 53, 54	expmuld 13507	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑((2 · 𝑛) · 2)) = ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))
252	8, 12, 15, 137	expdivd 13518	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑(4 · 𝑛)) = (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
253	250, 251, 252	3eqtr3d 2864	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2) = (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
254	247, 253	oveq12d 7168	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)) = (((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) / (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛)))))
255	247, 194	eqeltrrd 2914	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) ∈ ℂ)
256	8, 137	expcld 13504	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛)↑(4 · 𝑛)) ∈ ℂ)
257	12, 137	expcld 13504	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (e↑(4 · 𝑛)) ∈ ℂ)
258	46, 27	zmulcld 12087	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (4 · 𝑛) ∈ ℤ)
259	8, 69, 258	expne0d 13510	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛)↑(4 · 𝑛)) ≠ 0)
260	12, 15, 258	expne0d 13510	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (e↑(4 · 𝑛)) ≠ 0)
261	255, 256, 257, 259, 260	divdiv2d 11442	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) / (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛)))) = ((((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) / ((2 · 𝑛)↑(4 · 𝑛))))
262	7, 137	expcld 13504	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝑛↑(4 · 𝑛)) ∈ ℂ)
263	262, 257, 260	divcan1d 11411	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) = (𝑛↑(4 · 𝑛)))
264	263	oveq1d 7165	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) / ((2 · 𝑛)↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) / ((2 · 𝑛)↑(4 · 𝑛))))
265	6, 7, 137	mulexpd 13519	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛)↑(4 · 𝑛)) = ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛))))
266	265	oveq2d 7166	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / ((2 · 𝑛)↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) / ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛)))))
267	138, 262	mulcomd 10656	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) · (2↑(4 · 𝑛))))
268	267	oveq2d 7166	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛)))) = ((𝑛↑(4 · 𝑛)) / ((𝑛↑(4 · 𝑛)) · (2↑(4 · 𝑛)))))
269	7, 25, 258	expne0d 13510	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝑛↑(4 · 𝑛)) ≠ 0)
270	6, 68, 258	expne0d 13510	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (2↑(4 · 𝑛)) ≠ 0)
271	262, 262, 138, 269, 270	divdiv1d 11441	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (𝑛↑(4 · 𝑛))) / (2↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) / ((𝑛↑(4 · 𝑛)) · (2↑(4 · 𝑛)))))
272	262, 269	dividd 11408	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / (𝑛↑(4 · 𝑛))) = 1)
273	272	oveq1d 7165	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (𝑛↑(4 · 𝑛))) / (2↑(4 · 𝑛))) = (1 / (2↑(4 · 𝑛))))
274	268, 271, 273	3eqtr2d 2862	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛)))) = (1 / (2↑(4 · 𝑛))))
275	264, 266, 274	3eqtrd 2860	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → ((((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) / ((2 · 𝑛)↑(4 · 𝑛))) = (1 / (2↑(4 · 𝑛))))
276	254, 261, 275	3eqtrd 2860	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)) = (1 / (2↑(4 · 𝑛))))
277	242, 276	oveq12d 7168	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))) = (𝑛 · (1 / (2↑(4 · 𝑛)))))
278	277	oveq2d 7166	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))) = ((2↑(4 · 𝑛)) · (𝑛 · (1 / (2↑(4 · 𝑛))))))
279	138, 270	reccld 11403	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (1 / (2↑(4 · 𝑛))) ∈ ℂ)
280	138, 7, 279	mul12d 10843	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (𝑛 · (1 / (2↑(4 · 𝑛))))) = (𝑛 · ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛))))))
281	7	mulid1d 10652	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (𝑛 · 1) = 𝑛)
282	138, 270	recidd 11405	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛)))) = 1)
283	282	oveq2d 7166	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (𝑛 · ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛))))) = (𝑛 · 1))
284	281, 283, 233	3eqtr4d 2866	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (𝑛 · ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛))))) = ((𝑛↑2) / 𝑛))
285	278, 280, 284	3eqtrd 2860	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))) = ((𝑛↑2) / 𝑛))
286	186, 200, 285	3eqtrd 2860	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = ((𝑛↑2) / 𝑛))
287	286	oveq1d 7165	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = (((𝑛↑2) / 𝑛) / ((2 · 𝑛) + 1)))
288	236, 7, 172, 25, 184	divdiv1d 11441	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (((𝑛↑2) / 𝑛) / ((2 · 𝑛) + 1)) = ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
289	287, 288	eqtrd 2856	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
290	289	oveq2d 7166	. . . . . 6 ⊢ (𝑛 ∈ ℕ → ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1))) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
291	185, 290	eqtrd 2856	. . . . 5 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))) / ((2 · 𝑛) + 1)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
292	165, 169, 291	3eqtrd 2860	. . . 4 ⊢ (𝑛 ∈ ℕ → ((((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
293	142, 159, 292	3eqtrd 2860	. . 3 ⊢ (𝑛 ∈ ℕ → ((((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
294	293	mpteq2ia 5149	. 2 ⊢ (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1))) = (𝑛 ∈ ℕ ↦ ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
295	1, 136, 294	3eqtri 2848	1 ⊢ 𝑉 = (𝑛 ∈ ℕ ↦ ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))

Colors of variables: wff setvar class

Syntax hints: ∧ wa 398 = wceq 1533 ∈ wcel 2110 ≠ wne 3016 class class class wbr 5058 ↦ cmpt 5138 ‘cfv 6349 (class class class)co 7150 ℂcc 10529 ℝcr 10530 0cc0 10531 1c1 10532 + caddc 10534 · cmul 10536 ≤ cle 10670 / cdiv 11291 ℕcn 11632 2c2 11686 4c4 11688 ℕ₀cn0 11891 ℤcz 11975 ℝ⁺crp 12383 ↑cexp 13423 !cfa 13627 √csqrt 14586 eceu 15410

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1792 ax-4 1806 ax-5 1907 ax-6 1966 ax-7 2011 ax-8 2112 ax-9 2120 ax-10 2141 ax-11 2157 ax-12 2173 ax-ext 2793 ax-rep 5182 ax-sep 5195 ax-nul 5202 ax-pow 5258 ax-pr 5321 ax-un 7455 ax-inf2 9098 ax-cnex 10587 ax-resscn 10588 ax-1cn 10589 ax-icn 10590 ax-addcl 10591 ax-addrcl 10592 ax-mulcl 10593 ax-mulrcl 10594 ax-mulcom 10595 ax-addass 10596 ax-mulass 10597 ax-distr 10598 ax-i2m1 10599 ax-1ne0 10600 ax-1rid 10601 ax-rnegex 10602 ax-rrecex 10603 ax-cnre 10604 ax-pre-lttri 10605 ax-pre-lttrn 10606 ax-pre-ltadd 10607 ax-pre-mulgt0 10608 ax-pre-sup 10609 ax-addf 10610 ax-mulf 10611

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1536 df-fal 1546 df-ex 1777 df-nf 1781 df-sb 2066 df-mo 2618 df-eu 2650 df-clab 2800 df-cleq 2814 df-clel 2893 df-nfc 2963 df-ne 3017 df-nel 3124 df-ral 3143 df-rex 3144 df-reu 3145 df-rmo 3146 df-rab 3147 df-v 3496 df-sbc 3772 df-csb 3883 df-dif 3938 df-un 3940 df-in 3942 df-ss 3951 df-pss 3953 df-nul 4291 df-if 4467 df-pw 4540 df-sn 4561 df-pr 4563 df-tp 4565 df-op 4567 df-uni 4832 df-int 4869 df-iun 4913 df-br 5059 df-opab 5121 df-mpt 5139 df-tr 5165 df-id 5454 df-eprel 5459 df-po 5468 df-so 5469 df-fr 5508 df-se 5509 df-we 5510 df-xp 5555 df-rel 5556 df-cnv 5557 df-co 5558 df-dm 5559 df-rn 5560 df-res 5561 df-ima 5562 df-pred 6142 df-ord 6188 df-on 6189 df-lim 6190 df-suc 6191 df-iota 6308 df-fun 6351 df-fn 6352 df-f 6353 df-f1 6354 df-fo 6355 df-f1o 6356 df-fv 6357 df-isom 6358 df-riota 7108 df-ov 7153 df-oprab 7154 df-mpo 7155 df-om 7575 df-1st 7683 df-2nd 7684 df-wrecs 7941 df-recs 8002 df-rdg 8040 df-1o 8096 df-oadd 8100 df-er 8283 df-pm 8403 df-en 8504 df-dom 8505 df-sdom 8506 df-fin 8507 df-sup 8900 df-inf 8901 df-oi 8968 df-card 9362 df-pnf 10671 df-mnf 10672 df-xr 10673 df-ltxr 10674 df-le 10675 df-sub 10866 df-neg 10867 df-div 11292 df-nn 11633 df-2 11694 df-3 11695 df-4 11696 df-n0 11892 df-z 11976 df-uz 12238 df-q 12343 df-rp 12384 df-ico 12738 df-fz 12887 df-fzo 13028 df-fl 13156 df-seq 13364 df-exp 13424 df-fac 13628 df-bc 13657 df-hash 13685 df-shft 14420 df-cj 14452 df-re 14453 df-im 14454 df-sqrt 14588 df-abs 14589 df-limsup 14822 df-clim 14839 df-rlim 14840 df-sum 15037 df-ef 15415 df-e 15416

This theorem is referenced by: stirlinglem15 42367

W3C validator