Theorem stirlinglem3 44778

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 12475	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ0)
3		faccl 14239	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ0 → (!‘𝑛) ∈ ℕ)
4		nncn 12216	. . . . . . . . . . . . 13 ⊢ ((!‘𝑛) ∈ ℕ → (!‘𝑛) ∈ ℂ)
5	2, 3, 4	3syl 18	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (!‘𝑛) ∈ ℂ)
6		2cnd 12286	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℂ)
7		nncn 12216	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
8	6, 7	mulcld 11230	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℂ)
9	8	sqrtcld 15380	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ∈ ℂ)
10		ere 16028	. . . . . . . . . . . . . . . . 17 ⊢ e ∈ ℝ
11	10	recni 11224	. . . . . . . . . . . . . . . 16 ⊢ e ∈ ℂ
12	11	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → e ∈ ℂ)
13		epos 16146	. . . . . . . . . . . . . . . . 17 ⊢ 0 < e
14	10, 13	gt0ne0ii 11746	. . . . . . . . . . . . . . . 16 ⊢ e ≠ 0
15	14	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → e ≠ 0)
16	7, 12, 15	divcld 11986	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (𝑛 / e) ∈ ℂ)
17	16, 2	expcld 14107	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ∈ ℂ)
18	9, 17	mulcld 11230	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ)
19		2rp 12975	. . . . . . . . . . . . . . . . 17 ⊢ 2 ∈ ℝ+
20	19	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℝ+)
21		nnrp 12981	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℝ+)
22	20, 21	rpmulcld 13028	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ+)
23	22	sqrtgt0d 15355	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → 0 < (√‘(2 · 𝑛)))
24	23	gt0ne0d 11774	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ≠ 0)
25		nnne0 12242	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → 𝑛 ≠ 0)
26	7, 12, 25, 15	divne0d 12002	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (𝑛 / e) ≠ 0)
27		nnz 12575	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℤ)
28	16, 26, 27	expne0d 14113	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ≠ 0)
29	9, 17, 24, 28	mulne0d 11862	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ≠ 0)
30	5, 18, 29	divcld 11986	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ)
31		stirlinglem3.1	. . . . . . . . . . . 12 ⊢ 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
32	31	fvmpt2 7006	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ℕ ∧ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ) → (𝐴‘𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
33	30, 32	mpdan 685	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝐴‘𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
34	33	oveq1d 7420	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((𝐴‘𝑛)↑4) = (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4))
35		stirlinglem3.3	. . . . . . . . . . . 12 ⊢ 𝐸 = (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
36	35	fvmpt2 7006	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ℕ ∧ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ) → (𝐸‘𝑛) = ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
37	18, 36	mpdan 685	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝐸‘𝑛) = ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
38	37	oveq1d 7420	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((𝐸‘𝑛)↑4) = (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4))
39	34, 38	oveq12d 7423	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) = ((((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)))
40		4nn0 12487	. . . . . . . . . . 11 ⊢ 4 ∈ ℕ0
41	40	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 4 ∈ ℕ0)
42	5, 18, 29, 41	expdivd 14121	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4) = (((!‘𝑛)↑4) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)))
43	42	oveq1d 7420	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))↑4) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) = ((((!‘𝑛)↑4) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)))
44	5, 41	expcld 14107	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((!‘𝑛)↑4) ∈ ℂ)
45	18, 41	expcld 14107	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) ∈ ℂ)
46	41	nn0zd 12580	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 4 ∈ ℤ)
47	18, 29, 46	expne0d 14113	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) ≠ 0)
48	44, 45, 47	divcan1d 11987	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((((!‘𝑛)↑4) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) · (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4)) = ((!‘𝑛)↑4))
49	39, 43, 48	3eqtrd 2776	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) = ((!‘𝑛)↑4))
50	49	eqcomd 2738	. . . . . 6 ⊢ (𝑛 ∈ ℕ → ((!‘𝑛)↑4) = (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)))
51	50	oveq2d 7421	. . . . 5 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) = ((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))))
52		2nn0 12485	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ0
53	52	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ0)
54	53, 2	nn0mulcld 12533	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ0)
55		faccl 14239	. . . . . . . . . . 11 ⊢ ((2 · 𝑛) ∈ ℕ0 → (!‘(2 · 𝑛)) ∈ ℕ)
56		nncn 12216	. . . . . . . . . . 11 ⊢ ((!‘(2 · 𝑛)) ∈ ℕ → (!‘(2 · 𝑛)) ∈ ℂ)
57	54, 55, 56	3syl 18	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (!‘(2 · 𝑛)) ∈ ℂ)
58	57	sqcld 14105	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) ∈ ℂ)
59	6, 8	mulcld 11230	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (2 · (2 · 𝑛)) ∈ ℂ)
60	59	sqrtcld 15380	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (√‘(2 · (2 · 𝑛))) ∈ ℂ)
61	8, 12, 15	divcld 11986	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) / e) ∈ ℂ)
62	61, 54	expcld 14107	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑(2 · 𝑛)) ∈ ℂ)
63	60, 62	mulcld 11230	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))) ∈ ℂ)
64	63	sqcld 14105	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) ∈ ℂ)
65	20, 22	rpmulcld 13028	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (2 · (2 · 𝑛)) ∈ ℝ+)
66	65	sqrtgt0d 15355	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → 0 < (√‘(2 · (2 · 𝑛))))
67	66	gt0ne0d 11774	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (√‘(2 · (2 · 𝑛))) ≠ 0)
68	20	rpne0d 13017	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → 2 ≠ 0)
69	6, 7, 68, 25	mulne0d 11862	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ≠ 0)
70	8, 12, 69, 15	divne0d 12002	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) / e) ≠ 0)
71		2z 12590	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℤ
72	71	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℤ)
73	72, 27	zmulcld 12668	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℤ)
74	61, 70, 73	expne0d 14113	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑(2 · 𝑛)) ≠ 0)
75	60, 62, 67, 74	mulne0d 11862	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))) ≠ 0)
76	63, 75, 72	expne0d 14113	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) ≠ 0)
77	58, 64, 76	divcan1d 11987	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((((!‘(2 · 𝑛))↑2) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = ((!‘(2 · 𝑛))↑2))
78	57, 63, 75, 53	expdivd 14121	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) = (((!‘(2 · 𝑛))↑2) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
79	78	eqcomd 2738	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((!‘(2 · 𝑛))↑2) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2))
80	79	oveq1d 7420	. . . . . . . 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 2774	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) = ((((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
82		fveq2 6888	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑚 → (!‘𝑛) = (!‘𝑚))
83		oveq2 7413	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑚 → (2 · 𝑛) = (2 · 𝑚))
84	83	fveq2d 6892	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 𝑚 → (√‘(2 · 𝑛)) = (√‘(2 · 𝑚)))
85		oveq1 7412	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑚 → (𝑛 / e) = (𝑚 / e))
86		id 22	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 = 𝑚 → 𝑛 = 𝑚)
87	85, 86	oveq12d 7423	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 𝑚 → ((𝑛 / e)↑𝑛) = ((𝑚 / e)↑𝑚))
88	84, 87	oveq12d 7423	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑚 → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))
89	82, 88	oveq12d 7423	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑚 → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
90	89	cbvmptv 5260	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))) = (𝑚 ∈ ℕ ↦ ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
91	31, 90	eqtri 2760	. . . . . . . . . . 11 ⊢ 𝐴 = (𝑚 ∈ ℕ ↦ ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
92		fveq2 6888	. . . . . . . . . . . 12 ⊢ (𝑚 = (2 · 𝑛) → (!‘𝑚) = (!‘(2 · 𝑛)))
93		oveq2 7413	. . . . . . . . . . . . . 14 ⊢ (𝑚 = (2 · 𝑛) → (2 · 𝑚) = (2 · (2 · 𝑛)))
94	93	fveq2d 6892	. . . . . . . . . . . . 13 ⊢ (𝑚 = (2 · 𝑛) → (√‘(2 · 𝑚)) = (√‘(2 · (2 · 𝑛))))
95		oveq1 7412	. . . . . . . . . . . . . 14 ⊢ (𝑚 = (2 · 𝑛) → (𝑚 / e) = ((2 · 𝑛) / e))
96		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑚 = (2 · 𝑛) → 𝑚 = (2 · 𝑛))
97	95, 96	oveq12d 7423	. . . . . . . . . . . . 13 ⊢ (𝑚 = (2 · 𝑛) → ((𝑚 / e)↑𝑚) = (((2 · 𝑛) / e)↑(2 · 𝑛)))
98	94, 97	oveq12d 7423	. . . . . . . . . . . 12 ⊢ (𝑚 = (2 · 𝑛) → ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
99	92, 98	oveq12d 7423	. . . . . . . . . . 11 ⊢ (𝑚 = (2 · 𝑛) → ((!‘𝑚) / ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))) = ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))))
100		2nn 12281	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
101	100	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ)
102		id 22	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ)
103	101, 102	nnmulcld 12261	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ)
104	57, 63, 75	divcld 11986	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))) ∈ ℂ)
105	91, 99, 103, 104	fvmptd3 7018	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) = ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))))
106	105	oveq1d 7420	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((𝐴‘(2 · 𝑛))↑2) = (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2))
107	106	eqcomd 2738	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) = ((𝐴‘(2 · 𝑛))↑2))
108	107	oveq1d 7420	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = (((𝐴‘(2 · 𝑛))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
109		eqidd 2733	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))) = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
110	98	adantl 482	. . . . . . . . . . 11 ⊢ ((𝑛 ∈ ℕ ∧ 𝑚 = (2 · 𝑛)) → ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
111	109, 110, 103, 63	fvmptd 7002	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
112	111	oveq1d 7420	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2) = (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2))
113	112	eqcomd 2738	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) = (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2))
114	113	oveq2d 7421	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝐴‘(2 · 𝑛))↑2) · (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = (((𝐴‘(2 · 𝑛))↑2) · (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2)))
115	81, 108, 114	3eqtrd 2776	. . . . . 6 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) = (((𝐴‘(2 · 𝑛))↑2) · (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2)))
116	88	cbvmptv 5260	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))
117	116	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
118	117	fveq1d 6890	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)) = ((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛)))
119	118	eqcomd 2738	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛)) = ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)))
120	119	oveq1d 7420	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2) = (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2))
121	120	oveq2d 7421	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((𝐴‘(2 · 𝑛))↑2) · (((𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚)))‘(2 · 𝑛))↑2)) = (((𝐴‘(2 · 𝑛))↑2) · (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2)))
122	105, 104	eqeltrd 2833	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) ∈ ℂ)
123		stirlinglem3.2	. . . . . . . . . . 11 ⊢ 𝐷 = (𝑛 ∈ ℕ ↦ (𝐴‘(2 · 𝑛)))
124	123	fvmpt2 7006	. . . . . . . . . 10 ⊢ ((𝑛 ∈ ℕ ∧ (𝐴‘(2 · 𝑛)) ∈ ℂ) → (𝐷‘𝑛) = (𝐴‘(2 · 𝑛)))
125	122, 124	mpdan 685	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) = (𝐴‘(2 · 𝑛)))
126	125	eqcomd 2738	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) = (𝐷‘𝑛))
127	126	oveq1d 7420	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐴‘(2 · 𝑛))↑2) = ((𝐷‘𝑛)↑2))
128	35	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 𝐸 = (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
129	128	fveq1d 6890	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) = ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)))
130	129	eqcomd 2738	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛)) = (𝐸‘(2 · 𝑛)))
131	130	oveq1d 7420	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2) = ((𝐸‘(2 · 𝑛))↑2))
132	127, 131	oveq12d 7423	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((𝐴‘(2 · 𝑛))↑2) · (((𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))‘(2 · 𝑛))↑2)) = (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2)))
133	115, 121, 132	3eqtrd 2776	. . . . 5 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛))↑2) = (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2)))
134	51, 133	oveq12d 7423	. . . 4 ⊢ (𝑛 ∈ ℕ → (((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) = (((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))))
135	134	oveq1d 7420	. . 3 ⊢ (𝑛 ∈ ℕ → ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)) = ((((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
136	135	mpteq2ia 5250	. 2 ⊢ (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1))) = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
137	41, 2	nn0mulcld 12533	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (4 · 𝑛) ∈ ℕ0)
138	6, 137	expcld 14107	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (2↑(4 · 𝑛)) ∈ ℂ)
139	49, 44	eqeltrd 2833	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) ∈ ℂ)
140	138, 139	mulcomd 11231	. . . . . 6 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) = ((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))))
141	140	oveq1d 7420	. . . . 5 ⊢ (𝑛 ∈ ℕ → (((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))))
142	141	oveq1d 7420	. . . 4 ⊢ (𝑛 ∈ ℕ → ((((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
143	125, 122	eqeltrd 2833	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ∈ ℂ)
144	143	sqcld 14105	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐷‘𝑛)↑2) ∈ ℂ)
145	128, 117	eqtrd 2772	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 𝐸 = (𝑚 ∈ ℕ ↦ ((√‘(2 · 𝑚)) · ((𝑚 / e)↑𝑚))))
146	145, 110, 103, 63	fvmptd 7002	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) = ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛))))
147	146, 63	eqeltrd 2833	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) ∈ ℂ)
148	147	sqcld 14105	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐸‘(2 · 𝑛))↑2) ∈ ℂ)
149		nnne0 12242	. . . . . . . . . . . 12 ⊢ ((!‘(2 · 𝑛)) ∈ ℕ → (!‘(2 · 𝑛)) ≠ 0)
150	54, 55, 149	3syl 18	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (!‘(2 · 𝑛)) ≠ 0)
151	57, 63, 150, 75	divne0d 12002	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((!‘(2 · 𝑛)) / ((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))) ≠ 0)
152	105, 151	eqnetrd 3008	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) ≠ 0)
153	125, 152	eqnetrd 3008	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ≠ 0)
154	143, 153, 72	expne0d 14113	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐷‘𝑛)↑2) ≠ 0)
155	146, 75	eqnetrd 3008	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐸‘(2 · 𝑛)) ≠ 0)
156	147, 155, 72	expne0d 14113	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐸‘(2 · 𝑛))↑2) ≠ 0)
157	139, 144, 138, 148, 154, 156	divmuldivd 12027	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))))
158	157	eqcomd 2738	. . . . 5 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))))
159	158	oveq1d 7420	. . . 4 ⊢ (𝑛 ∈ ℕ → ((((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) · (2↑(4 · 𝑛))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
160	33, 30	eqeltrd 2833	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐴‘𝑛) ∈ ℂ)
161	160, 41	expcld 14107	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝐴‘𝑛)↑4) ∈ ℂ)
162	38, 45	eqeltrd 2833	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝐸‘𝑛)↑4) ∈ ℂ)
163	161, 162, 144, 154	div23d 12023	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝐸‘𝑛)↑4)))
164	163	oveq1d 7420	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = (((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝐸‘𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))))
165	164	oveq1d 7420	. . . . 5 ⊢ (𝑛 ∈ ℕ → ((((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝐸‘𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)))
166	161, 144, 154	divcld 11986	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) ∈ ℂ)
167	138, 148, 156	divcld 11986	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)) ∈ ℂ)
168	166, 162, 167	mulassd 11233	. . . . . 6 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝐸‘𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))))
169	168	oveq1d 7420	. . . . 5 ⊢ (𝑛 ∈ ℕ → ((((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝐸‘𝑛)↑4)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = (((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))) / ((2 · 𝑛) + 1)))
170	162, 167	mulcld 11230	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) ∈ ℂ)
171		1cnd 11205	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℂ)
172	8, 171	addcld 11229	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℂ)
173		0red 11213	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 0 ∈ ℝ)
174	103	nnred 12223	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
175		2re 12282	. . . . . . . . . . . 12 ⊢ 2 ∈ ℝ
176	175	a1i 11	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℝ)
177		nnre 12215	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℝ)
178	176, 177	remulcld 11240	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
179		1red 11211	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℝ)
180	178, 179	readdcld 11239	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℝ)
181	103	nngt0d 12257	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 0 < (2 · 𝑛))
182	174	ltp1d 12140	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) < ((2 · 𝑛) + 1))
183	173, 174, 180, 181, 182	lttrd 11371	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → 0 < ((2 · 𝑛) + 1))
184	183	gt0ne0d 11774	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ≠ 0)
185	166, 170, 172, 184	divassd 12021	. . . . . 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 12022	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = ((2↑(4 · 𝑛)) · (((𝐸‘𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2))))
187	9, 17, 41	mulexpd 14122	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) = (((√‘(2 · 𝑛))↑4) · (((𝑛 / e)↑𝑛)↑4)))
188	60, 62	sqmuld 14119	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2) = (((√‘(2 · (2 · 𝑛)))↑2) · ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))
189	187, 188	oveq12d 7423	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)) = ((((√‘(2 · 𝑛))↑4) · (((𝑛 / e)↑𝑛)↑4)) / (((√‘(2 · (2 · 𝑛)))↑2) · ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))))
190	146	oveq1d 7420	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((𝐸‘(2 · 𝑛))↑2) = (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2))
191	38, 190	oveq12d 7423	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (((𝐸‘𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2)) = ((((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))↑4) / (((√‘(2 · (2 · 𝑛))) · (((2 · 𝑛) / e)↑(2 · 𝑛)))↑2)))
192	9, 41	expcld 14107	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑4) ∈ ℂ)
193	60	sqcld 14105	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛)))↑2) ∈ ℂ)
194	17, 41	expcld 14107	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (((𝑛 / e)↑𝑛)↑4) ∈ ℂ)
195	62	sqcld 14105	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2) ∈ ℂ)
196	60, 67, 72	expne0d 14113	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · (2 · 𝑛)))↑2) ≠ 0)
197	62, 74, 72	expne0d 14113	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2) ≠ 0)
198	192, 193, 194, 195, 196, 197	divmuldivd 12027	. . . . . . . . . . . 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 2782	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (((𝐸‘𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2)) = ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))))
200	199	oveq2d 7421	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (((𝐸‘𝑛)↑4) / ((𝐸‘(2 · 𝑛))↑2))) = ((2↑(4 · 𝑛)) · ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))))
201	65	rprege0d 13019	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((2 · (2 · 𝑛)) ∈ ℝ ∧ 0 ≤ (2 · (2 · 𝑛))))
202		resqrtth 15198	. . . . . . . . . . . . . . . 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 7421	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) = (((√‘(2 · 𝑛))↑4) / (2 · (2 · 𝑛))))
205		2t2e4 12372	. . . . . . . . . . . . . . . . . . 19 ⊢ (2 · 2) = 4
206	205	eqcomi 2741	. . . . . . . . . . . . . . . . . 18 ⊢ 4 = (2 · 2)
207	206	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → 4 = (2 · 2))
208	207	oveq2d 7421	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑4) = ((√‘(2 · 𝑛))↑(2 · 2)))
209	9, 53, 53	expmuld 14110	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑(2 · 2)) = (((√‘(2 · 𝑛))↑2)↑2))
210	22	rprege0d 13019	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) ∈ ℝ ∧ 0 ≤ (2 · 𝑛)))
211		resqrtth 15198	. . . . . . . . . . . . . . . . . 18 ⊢ (((2 · 𝑛) ∈ ℝ ∧ 0 ≤ (2 · 𝑛)) → ((√‘(2 · 𝑛))↑2) = (2 · 𝑛))
212	210, 211	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑2) = (2 · 𝑛))
213	212	oveq1d 7420	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑2)↑2) = ((2 · 𝑛)↑2))
214	208, 209, 213	3eqtrd 2776	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛))↑4) = ((2 · 𝑛)↑2))
215	6, 6, 7	mulassd 11233	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((2 · 2) · 𝑛) = (2 · (2 · 𝑛)))
216	205	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (2 · 2) = 4)
217	216	oveq1d 7420	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((2 · 2) · 𝑛) = (4 · 𝑛))
218	215, 217	eqtr3d 2774	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (2 · (2 · 𝑛)) = (4 · 𝑛))
219	214, 218	oveq12d 7423	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑4) / (2 · (2 · 𝑛))) = (((2 · 𝑛)↑2) / (4 · 𝑛)))
220	6, 7	sqmuld 14119	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛)↑2) = ((2↑2) · (𝑛↑2)))
221		sq2 14157	. . . . . . . . . . . . . . . . . . 19 ⊢ (2↑2) = 4
222	221	a1i 11	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → (2↑2) = 4)
223	222	oveq1d 7420	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((2↑2) · (𝑛↑2)) = (4 · (𝑛↑2)))
224	220, 223	eqtrd 2772	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛)↑2) = (4 · (𝑛↑2)))
225	224	oveq1d 7420	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛)↑2) / (4 · 𝑛)) = ((4 · (𝑛↑2)) / (4 · 𝑛)))
226		4cn 12293	. . . . . . . . . . . . . . . . . . 19 ⊢ 4 ∈ ℂ
227		4ne0 12316	. . . . . . . . . . . . . . . . . . 19 ⊢ 4 ≠ 0
228	226, 227	dividi 11943	. . . . . . . . . . . . . . . . . 18 ⊢ (4 / 4) = 1
229	228	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (4 / 4) = 1)
230	7	sqvald 14104	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (𝑛↑2) = (𝑛 · 𝑛))
231	230	oveq1d 7420	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((𝑛↑2) / 𝑛) = ((𝑛 · 𝑛) / 𝑛))
232	7, 7, 25	divcan4d 11992	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((𝑛 · 𝑛) / 𝑛) = 𝑛)
233	231, 232	eqtrd 2772	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((𝑛↑2) / 𝑛) = 𝑛)
234	229, 233	oveq12d 7423	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((4 / 4) · ((𝑛↑2) / 𝑛)) = (1 · 𝑛))
235	41	nn0cnd 12530	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → 4 ∈ ℂ)
236	7	sqcld 14105	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝑛↑2) ∈ ℂ)
237	227	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → 4 ≠ 0)
238	235, 235, 236, 7, 237, 25	divmuldivd 12027	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((4 / 4) · ((𝑛↑2) / 𝑛)) = ((4 · (𝑛↑2)) / (4 · 𝑛)))
239	7	mullidd 11228	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (1 · 𝑛) = 𝑛)
240	234, 238, 239	3eqtr3d 2780	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((4 · (𝑛↑2)) / (4 · 𝑛)) = 𝑛)
241	225, 240	eqtrd 2772	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛)↑2) / (4 · 𝑛)) = 𝑛)
242	204, 219, 241	3eqtrd 2776	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → (((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) = 𝑛)
243	7, 235	mulcomd 11231	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝑛 · 4) = (4 · 𝑛))
244	243	oveq2d 7421	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑(𝑛 · 4)) = ((𝑛 / e)↑(4 · 𝑛)))
245	16, 41, 2	expmuld 14110	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑(𝑛 · 4)) = (((𝑛 / e)↑𝑛)↑4))
246	7, 12, 15, 137	expdivd 14121	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑(4 · 𝑛)) = ((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
247	244, 245, 246	3eqtr3d 2780	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (((𝑛 / e)↑𝑛)↑4) = ((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
248	6, 7, 6	mul32d 11420	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) · 2) = ((2 · 2) · 𝑛))
249	248, 217	eqtrd 2772	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) · 2) = (4 · 𝑛))
250	249	oveq2d 7421	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑((2 · 𝑛) · 2)) = (((2 · 𝑛) / e)↑(4 · 𝑛)))
251	61, 53, 54	expmuld 14110	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑((2 · 𝑛) · 2)) = ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))
252	8, 12, 15, 137	expdivd 14121	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) / e)↑(4 · 𝑛)) = (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
253	250, 251, 252	3eqtr3d 2780	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2) = (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛))))
254	247, 253	oveq12d 7423	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)) = (((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) / (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛)))))
255	247, 194	eqeltrrd 2834	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) ∈ ℂ)
256	8, 137	expcld 14107	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛)↑(4 · 𝑛)) ∈ ℂ)
257	12, 137	expcld 14107	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (e↑(4 · 𝑛)) ∈ ℂ)
258	46, 27	zmulcld 12668	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (4 · 𝑛) ∈ ℤ)
259	8, 69, 258	expne0d 14113	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛)↑(4 · 𝑛)) ≠ 0)
260	12, 15, 258	expne0d 14113	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → (e↑(4 · 𝑛)) ≠ 0)
261	255, 256, 257, 259, 260	divdiv2d 12018	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) / (((2 · 𝑛)↑(4 · 𝑛)) / (e↑(4 · 𝑛)))) = ((((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) / ((2 · 𝑛)↑(4 · 𝑛))))
262	7, 137	expcld 14107	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝑛↑(4 · 𝑛)) ∈ ℂ)
263	262, 257, 260	divcan1d 11987	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) = (𝑛↑(4 · 𝑛)))
264	263	oveq1d 7420	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) / ((2 · 𝑛)↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) / ((2 · 𝑛)↑(4 · 𝑛))))
265	6, 7, 137	mulexpd 14122	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛)↑(4 · 𝑛)) = ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛))))
266	265	oveq2d 7421	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / ((2 · 𝑛)↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) / ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛)))))
267	138, 262	mulcomd 11231	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) · (2↑(4 · 𝑛))))
268	267	oveq2d 7421	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛)))) = ((𝑛↑(4 · 𝑛)) / ((𝑛↑(4 · 𝑛)) · (2↑(4 · 𝑛)))))
269	7, 25, 258	expne0d 14113	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝑛↑(4 · 𝑛)) ≠ 0)
270	6, 68, 258	expne0d 14113	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (2↑(4 · 𝑛)) ≠ 0)
271	262, 262, 138, 269, 270	divdiv1d 12017	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (𝑛↑(4 · 𝑛))) / (2↑(4 · 𝑛))) = ((𝑛↑(4 · 𝑛)) / ((𝑛↑(4 · 𝑛)) · (2↑(4 · 𝑛)))))
272	262, 269	dividd 11984	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / (𝑛↑(4 · 𝑛))) = 1)
273	272	oveq1d 7420	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (((𝑛↑(4 · 𝑛)) / (𝑛↑(4 · 𝑛))) / (2↑(4 · 𝑛))) = (1 / (2↑(4 · 𝑛))))
274	268, 271, 273	3eqtr2d 2778	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ ℕ → ((𝑛↑(4 · 𝑛)) / ((2↑(4 · 𝑛)) · (𝑛↑(4 · 𝑛)))) = (1 / (2↑(4 · 𝑛))))
275	264, 266, 274	3eqtrd 2776	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ ℕ → ((((𝑛↑(4 · 𝑛)) / (e↑(4 · 𝑛))) · (e↑(4 · 𝑛))) / ((2 · 𝑛)↑(4 · 𝑛))) = (1 / (2↑(4 · 𝑛))))
276	254, 261, 275	3eqtrd 2776	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)) = (1 / (2↑(4 · 𝑛))))
277	242, 276	oveq12d 7423	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2))) = (𝑛 · (1 / (2↑(4 · 𝑛)))))
278	277	oveq2d 7421	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))) = ((2↑(4 · 𝑛)) · (𝑛 · (1 / (2↑(4 · 𝑛))))))
279	138, 270	reccld 11979	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (1 / (2↑(4 · 𝑛))) ∈ ℂ)
280	138, 7, 279	mul12d 11419	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (𝑛 · (1 / (2↑(4 · 𝑛))))) = (𝑛 · ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛))))))
281	7	mulridd 11227	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (𝑛 · 1) = 𝑛)
282	138, 270	recidd 11981	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛)))) = 1)
283	282	oveq2d 7421	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ ℕ → (𝑛 · ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛))))) = (𝑛 · 1))
284	281, 283, 233	3eqtr4d 2782	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (𝑛 · ((2↑(4 · 𝑛)) · (1 / (2↑(4 · 𝑛))))) = ((𝑛↑2) / 𝑛))
285	278, 280, 284	3eqtrd 2776	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → ((2↑(4 · 𝑛)) · ((((√‘(2 · 𝑛))↑4) / ((√‘(2 · (2 · 𝑛)))↑2)) · ((((𝑛 / e)↑𝑛)↑4) / ((((2 · 𝑛) / e)↑(2 · 𝑛))↑2)))) = ((𝑛↑2) / 𝑛))
286	186, 200, 285	3eqtrd 2776	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) = ((𝑛↑2) / 𝑛))
287	286	oveq1d 7420	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = (((𝑛↑2) / 𝑛) / ((2 · 𝑛) + 1)))
288	236, 7, 172, 25, 184	divdiv1d 12017	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (((𝑛↑2) / 𝑛) / ((2 · 𝑛) + 1)) = ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
289	287, 288	eqtrd 2772	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
290	289	oveq2d 7421	. . . . . 6 ⊢ (𝑛 ∈ ℕ → ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1))) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
291	185, 290	eqtrd 2772	. . . . 5 ⊢ (𝑛 ∈ ℕ → (((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · (((𝐸‘𝑛)↑4) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2)))) / ((2 · 𝑛) + 1)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
292	165, 169, 291	3eqtrd 2776	. . . 4 ⊢ (𝑛 ∈ ℕ → ((((((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4)) / ((𝐷‘𝑛)↑2)) · ((2↑(4 · 𝑛)) / ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
293	142, 159, 292	3eqtrd 2776	. . 3 ⊢ (𝑛 ∈ ℕ → ((((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
294	293	mpteq2ia 5250	. 2 ⊢ (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · (((𝐴‘𝑛)↑4) · ((𝐸‘𝑛)↑4))) / (((𝐷‘𝑛)↑2) · ((𝐸‘(2 · 𝑛))↑2))) / ((2 · 𝑛) + 1))) = (𝑛 ∈ ℕ ↦ ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
295	1, 136, 294	3eqtri 2764	1 ⊢ 𝑉 = (𝑛 ∈ ℕ ↦ ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))

Syntax hints:   ∧ wa 396   = wceq 1541   ∈ wcel 2106   ≠ wne 2940   class class class wbr 5147   ↦ cmpt 5230  ‘cfv 6540  (class class class)co 7405  ℂcc 11104  ℝcr 11105  0cc0 11106  1c1 11107   + caddc 11109   · cmul 11111   ≤ cle 11245   / cdiv 11867  ℕcn 12208  2c2 12263  4c4 12265  ℕ₀cn0 12468  ℤcz 12554  ℝ⁺crp 12970  ↑cexp 14023  !cfa 14229  √csqrt 15176  eceu 16002

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-om 7852  df-1st 7971  df-2nd 7972  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8699  df-pm 8819  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-n0 12469  df-z 12555  df-uz 12819  df-q 12929  df-rp 12971  df-ico 13326  df-fz 13481  df-fzo 13624  df-fl 13753  df-seq 13963  df-exp 14024  df-fac 14230  df-bc 14259  df-hash 14287  df-shft 15010  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-limsup 15411  df-clim 15428  df-rlim 15429  df-sum 15629  df-ef 16007  df-e 16008

This theorem is referenced by:  stirlinglem15  44790