stirlinglem4 - Mathbox for Glauco Siliprandi

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

Theorem stirlinglem4 43078

Description: Algebraic manipulation of ((𝐵 n ) - ( B (𝑛 + 1))). It will be used in other theorems to show that 𝐵 is decreasing. (Contributed by Glauco Siliprandi, 29-Jun-2017.)

**Hypotheses**
Ref	Expression
stirlinglem4.1	⊢ 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
stirlinglem4.2	⊢ 𝐵 = (𝑛 ∈ ℕ ↦ (log‘(𝐴‘𝑛)))
stirlinglem4.3	⊢ 𝐽 = (𝑛 ∈ ℕ ↦ ((((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) − 1))

**Assertion**
Ref	Expression
stirlinglem4	⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = (𝐽‘𝑁))

Distinct variable group: 𝑛,𝑁 Allowed substitution hints: 𝐴(𝑛) 𝐵(𝑛) 𝐽(𝑛)

Proof of Theorem stirlinglem4 Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		nnre 11674	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
2		nnnn0 11934	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
3	2	nn0ge0d 11990	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 0 ≤ 𝑁)
4	1, 3	ge0p1rpd 12495	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℝ⁺)
5		nnrp 12434	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ⁺)
6	4, 5	rpdivcld 12482	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ∈ ℝ⁺)
7	6	rpsqrtcld 14812	. . . . 5 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) ∈ ℝ⁺)
8		nnz 12036	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
9	6, 8	rpexpcld 13651	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / 𝑁)↑𝑁) ∈ ℝ⁺)
10	7, 9	rpmulcld 12481	. . . 4 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) ∈ ℝ⁺)
11		epr 15602	. . . . 5 ⊢ e ∈ ℝ⁺
12	11	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → e ∈ ℝ⁺)
13	10, 12	relogdivd 25309	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)) = ((log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) − (log‘e)))
14	7, 9	relogmuld 25308	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = ((log‘(√‘((𝑁 + 1) / 𝑁))) + (log‘(((𝑁 + 1) / 𝑁)↑𝑁))))
15		logsqrt 25387	. . . . . . . 8 ⊢ (((𝑁 + 1) / 𝑁) ∈ ℝ⁺ → (log‘(√‘((𝑁 + 1) / 𝑁))) = ((log‘((𝑁 + 1) / 𝑁)) / 2))
16	6, 15	syl 17	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘(√‘((𝑁 + 1) / 𝑁))) = ((log‘((𝑁 + 1) / 𝑁)) / 2))
17		relogexp 25279	. . . . . . . 8 ⊢ ((((𝑁 + 1) / 𝑁) ∈ ℝ⁺ ∧ 𝑁 ∈ ℤ) → (log‘(((𝑁 + 1) / 𝑁)↑𝑁)) = (𝑁 · (log‘((𝑁 + 1) / 𝑁))))
18	6, 8, 17	syl2anc 588	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘(((𝑁 + 1) / 𝑁)↑𝑁)) = (𝑁 · (log‘((𝑁 + 1) / 𝑁))))
19	16, 18	oveq12d 7169	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((log‘(√‘((𝑁 + 1) / 𝑁))) + (log‘(((𝑁 + 1) / 𝑁)↑𝑁))) = (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
20	14, 19	eqtrd 2794	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
21		peano2nn 11679	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
22	21	nncnd 11683	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℂ)
23		nncn 11675	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
24		nnne0 11701	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ≠ 0)
25	22, 23, 24	divcld 11447	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ∈ ℂ)
26	21	nnne0d 11717	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ≠ 0)
27	22, 23, 26, 24	divne0d 11463	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ≠ 0)
28	25, 27	logcld 25254	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘((𝑁 + 1) / 𝑁)) ∈ ℂ)
29		2cnd 11745	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℂ)
30		2rp 12428	. . . . . . . . 9 ⊢ 2 ∈ ℝ⁺
31	30	a1i 11	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ⁺)
32	31	rpne0d 12470	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 2 ≠ 0)
33	28, 29, 32	divrec2d 11451	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((log‘((𝑁 + 1) / 𝑁)) / 2) = ((1 / 2) · (log‘((𝑁 + 1) / 𝑁))))
34	33	oveq1d 7166	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))) = (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
35		1cnd 10667	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
36	35	halfcld 11912	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (1 / 2) ∈ ℂ)
37	36, 23, 28	adddird 10697	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((1 / 2) + 𝑁) · (log‘((𝑁 + 1) / 𝑁))) = (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
38	23, 29, 32	divcan4d 11453	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 · 2) / 2) = 𝑁)
39	23, 29	mulcomd 10693	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 · 2) = (2 · 𝑁))
40	39	oveq1d 7166	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 · 2) / 2) = ((2 · 𝑁) / 2))
41	38, 40	eqtr3d 2796	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 = ((2 · 𝑁) / 2))
42	41	oveq2d 7167	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 / 2) + 𝑁) = ((1 / 2) + ((2 · 𝑁) / 2)))
43	29, 23	mulcld 10692	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℂ)
44	35, 43, 29, 32	divdird 11485	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 + (2 · 𝑁)) / 2) = ((1 / 2) + ((2 · 𝑁) / 2)))
45	42, 44	eqtr4d 2797	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((1 / 2) + 𝑁) = ((1 + (2 · 𝑁)) / 2))
46	45	oveq1d 7166	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((1 / 2) + 𝑁) · (log‘((𝑁 + 1) / 𝑁))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
47	37, 46	eqtr3d 2796	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
48	20, 34, 47	3eqtrd 2798	. . . 4 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
49		loge 25270	. . . . 5 ⊢ (log‘e) = 1
50	49	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → (log‘e) = 1)
51	48, 50	oveq12d 7169	. . 3 ⊢ (𝑁 ∈ ℕ → ((log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) − (log‘e)) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
52	13, 51	eqtrd 2794	. 2 ⊢ (𝑁 ∈ ℕ → (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
53		stirlinglem4.1	. . . . . . 7 ⊢ 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
54	53	stirlinglem2 43076	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘𝑁) ∈ ℝ⁺)
55	54	relogcld 25306	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘(𝐴‘𝑁)) ∈ ℝ)
56		nfcv 2920	. . . . . 6 ⊢ Ⅎ𝑛𝑁
57		nfcv 2920	. . . . . . 7 ⊢ Ⅎ𝑛log
58		nfmpt1 5131	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
59	53, 58	nfcxfr 2918	. . . . . . . 8 ⊢ Ⅎ𝑛𝐴
60	59, 56	nffv 6669	. . . . . . 7 ⊢ Ⅎ𝑛(𝐴‘𝑁)
61	57, 60	nffv 6669	. . . . . 6 ⊢ Ⅎ𝑛(log‘(𝐴‘𝑁))
62		2fveq3 6664	. . . . . 6 ⊢ (𝑛 = 𝑁 → (log‘(𝐴‘𝑛)) = (log‘(𝐴‘𝑁)))
63		stirlinglem4.2	. . . . . 6 ⊢ 𝐵 = (𝑛 ∈ ℕ ↦ (log‘(𝐴‘𝑛)))
64	56, 61, 62, 63	fvmptf 6781	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ (log‘(𝐴‘𝑁)) ∈ ℝ) → (𝐵‘𝑁) = (log‘(𝐴‘𝑁)))
65	55, 64	mpdan 687	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝐵‘𝑁) = (log‘(𝐴‘𝑁)))
66		nfcv 2920	. . . . . . . 8 ⊢ Ⅎ𝑘(log‘(𝐴‘𝑛))
67		nfcv 2920	. . . . . . . . . 10 ⊢ Ⅎ𝑛𝑘
68	59, 67	nffv 6669	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐴‘𝑘)
69	57, 68	nffv 6669	. . . . . . . 8 ⊢ Ⅎ𝑛(log‘(𝐴‘𝑘))
70		2fveq3 6664	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → (log‘(𝐴‘𝑛)) = (log‘(𝐴‘𝑘)))
71	66, 69, 70	cbvmpt 5134	. . . . . . 7 ⊢ (𝑛 ∈ ℕ ↦ (log‘(𝐴‘𝑛))) = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘)))
72	63, 71	eqtri 2782	. . . . . 6 ⊢ 𝐵 = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘)))
73	72	a1i 11	. . . . 5 ⊢ (𝑁 ∈ ℕ → 𝐵 = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘))))
74		simpr 489	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → 𝑘 = (𝑁 + 1))
75	74	fveq2d 6663	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (𝐴‘𝑘) = (𝐴‘(𝑁 + 1)))
76	75	fveq2d 6663	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (log‘(𝐴‘𝑘)) = (log‘(𝐴‘(𝑁 + 1))))
77	53	stirlinglem2 43076	. . . . . . 7 ⊢ ((𝑁 + 1) ∈ ℕ → (𝐴‘(𝑁 + 1)) ∈ ℝ⁺)
78	21, 77	syl 17	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘(𝑁 + 1)) ∈ ℝ⁺)
79	78	relogcld 25306	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘(𝐴‘(𝑁 + 1))) ∈ ℝ)
80	73, 76, 21, 79	fvmptd 6767	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝐵‘(𝑁 + 1)) = (log‘(𝐴‘(𝑁 + 1))))
81	65, 80	oveq12d 7169	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = ((log‘(𝐴‘𝑁)) − (log‘(𝐴‘(𝑁 + 1)))))
82	54, 78	relogdivd 25309	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘((𝐴‘𝑁) / (𝐴‘(𝑁 + 1)))) = ((log‘(𝐴‘𝑁)) − (log‘(𝐴‘(𝑁 + 1)))))
83		faccl 13686	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → (!‘𝑁) ∈ ℕ)
84		nnrp 12434	. . . . . . . . 9 ⊢ ((!‘𝑁) ∈ ℕ → (!‘𝑁) ∈ ℝ⁺)
85	2, 83, 84	3syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℝ⁺)
86	31, 5	rpmulcld 12481	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℝ⁺)
87	86	rpsqrtcld 14812	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ∈ ℝ⁺)
88	5, 12	rpdivcld 12482	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 / e) ∈ ℝ⁺)
89	88, 8	rpexpcld 13651	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ∈ ℝ⁺)
90	87, 89	rpmulcld 12481	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℝ⁺)
91	85, 90	rpdivcld 12482	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺)
92	53	a1i 11	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))))
93		simpr 489	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → 𝑛 = 𝑁)
94	93	fveq2d 6663	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (!‘𝑛) = (!‘𝑁))
95	93	oveq2d 7167	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (2 · 𝑛) = (2 · 𝑁))
96	95	fveq2d 6663	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (√‘(2 · 𝑛)) = (√‘(2 · 𝑁)))
97	93	oveq1d 7166	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (𝑛 / e) = (𝑁 / e))
98	97, 93	oveq12d 7169	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((𝑛 / e)↑𝑛) = ((𝑁 / e)↑𝑁))
99	96, 98	oveq12d 7169	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)))
100	94, 99	oveq12d 7169	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
101		simpl 487	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℕ)
102	85	rpcnd 12467	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℂ)
103	102	adantr 485	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (!‘𝑁) ∈ ℂ)
104		2cnd 11745	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 2 ∈ ℂ)
105	101	nncnd 11683	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℂ)
106	104, 105	mulcld 10692	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (2 · 𝑁) ∈ ℂ)
107	106	sqrtcld 14838	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (√‘(2 · 𝑁)) ∈ ℂ)
108		ere 15483	. . . . . . . . . . . . . 14 ⊢ e ∈ ℝ
109	108	recni 10686	. . . . . . . . . . . . 13 ⊢ e ∈ ℂ
110	109	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → e ∈ ℂ)
111		0re 10674	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℝ
112		epos 15601	. . . . . . . . . . . . . 14 ⊢ 0 < e
113	111, 112	gtneii 10783	. . . . . . . . . . . . 13 ⊢ e ≠ 0
114	113	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → e ≠ 0)
115	105, 110, 114	divcld 11447	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝑁 / e) ∈ ℂ)
116	101	nnnn0d 11987	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℕ₀)
117	115, 116	expcld 13553	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((𝑁 / e)↑𝑁) ∈ ℂ)
118	107, 117	mulcld 10692	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℂ)
119	87	rpne0d 12470	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ≠ 0)
120	119	adantr 485	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (√‘(2 · 𝑁)) ≠ 0)
121	101	nnne0d 11717	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ≠ 0)
122	105, 110, 121, 114	divne0d 11463	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝑁 / e) ≠ 0)
123	101	nnzd 12118	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℤ)
124	115, 122, 123	expne0d 13559	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((𝑁 / e)↑𝑁) ≠ 0)
125	107, 117, 120, 124	mulne0d 11323	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ≠ 0)
126	103, 118, 125	divcld 11447	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℂ)
127	92, 100, 101, 126	fvmptd 6767	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝐴‘𝑁) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
128	91, 127	mpdan 687	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘𝑁) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
129		nfcv 2920	. . . . . . . . . 10 ⊢ Ⅎ𝑘((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
130		nfcv 2920	. . . . . . . . . 10 ⊢ Ⅎ𝑛((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))
131		fveq2 6659	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → (!‘𝑛) = (!‘𝑘))
132		oveq2 7159	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → (2 · 𝑛) = (2 · 𝑘))
133	132	fveq2d 6663	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑘 → (√‘(2 · 𝑛)) = (√‘(2 · 𝑘)))
134		oveq1 7158	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → (𝑛 / e) = (𝑘 / e))
135		id 22	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → 𝑛 = 𝑘)
136	134, 135	oveq12d 7169	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑘 → ((𝑛 / e)↑𝑛) = ((𝑘 / e)↑𝑘))
137	133, 136	oveq12d 7169	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))
138	131, 137	oveq12d 7169	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
139	129, 130, 138	cbvmpt 5134	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))) = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
140	53, 139	eqtri 2782	. . . . . . . 8 ⊢ 𝐴 = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
141	140	a1i 11	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝐴 = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))))
142	74	fveq2d 6663	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (!‘𝑘) = (!‘(𝑁 + 1)))
143	74	oveq2d 7167	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (2 · 𝑘) = (2 · (𝑁 + 1)))
144	143	fveq2d 6663	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (√‘(2 · 𝑘)) = (√‘(2 · (𝑁 + 1))))
145	74	oveq1d 7166	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (𝑘 / e) = ((𝑁 + 1) / e))
146	145, 74	oveq12d 7169	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((𝑘 / e)↑𝑘) = (((𝑁 + 1) / e)↑(𝑁 + 1)))
147	144, 146	oveq12d 7169	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)) = ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
148	142, 147	oveq12d 7169	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))) = ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
149	21	nnnn0d 11987	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ₀)
150		faccl 13686	. . . . . . . . 9 ⊢ ((𝑁 + 1) ∈ ℕ₀ → (!‘(𝑁 + 1)) ∈ ℕ)
151		nnrp 12434	. . . . . . . . 9 ⊢ ((!‘(𝑁 + 1)) ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℝ⁺)
152	149, 150, 151	3syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℝ⁺)
153	31, 4	rpmulcld 12481	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2 · (𝑁 + 1)) ∈ ℝ⁺)
154	153	rpsqrtcld 14812	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) ∈ ℝ⁺)
155	4, 12	rpdivcld 12482	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / e) ∈ ℝ⁺)
156	8	peano2zd 12122	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℤ)
157	155, 156	rpexpcld 13651	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) ∈ ℝ⁺)
158	154, 157	rpmulcld 12481	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℝ⁺)
159	152, 158	rpdivcld 12482	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ∈ ℝ⁺)
160	141, 148, 21, 159	fvmptd 6767	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘(𝑁 + 1)) = ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
161	128, 160	oveq12d 7169	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝐴‘𝑁) / (𝐴‘(𝑁 + 1))) = (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
162		facp1 13681	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
163	2, 162	syl 17	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
164	163	oveq1d 7166	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = (((!‘𝑁) · (𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
165	158	rpcnd 12467	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℂ)
166	158	rpne0d 12470	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ≠ 0)
167	102, 22, 165, 166	divassd 11482	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · (𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
168	164, 167	eqtrd 2794	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
169	168	oveq2d 7167	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))))
170	90	rpcnd 12467	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℂ)
171	22, 165, 166	divcld 11447	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ∈ ℂ)
172	102, 171	mulcld 10692	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) ∈ ℂ)
173	90	rpne0d 12470	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ≠ 0)
174	85	rpne0d 12470	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ≠ 0)
175	22, 165, 26, 166	divne0d 11463	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ≠ 0)
176	102, 171, 174, 175	mulne0d 11323	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) ≠ 0)
177	102, 170, 172, 173, 176	divdiv32d 11472	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) = (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
178	102, 102, 171, 174, 175	divdiv1d 11478	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = ((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))))
179	178	eqcomd 2765	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) = (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
180	179	oveq1d 7166	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
181	102, 174	dividd 11445	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / (!‘𝑁)) = 1)
182	181	oveq1d 7166	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
183	182	oveq1d 7166	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
184	22, 165, 26, 166	recdivd 11464	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
185	184	oveq1d 7166	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
186	165, 22, 26	divcld 11447	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) ∈ ℂ)
187	87	rpcnd 12467	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ∈ ℂ)
188	89	rpcnd 12467	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ∈ ℂ)
189	89	rpne0d 12470	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ≠ 0)
190	186, 187, 188, 119, 189	divdiv1d 11478	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) / ((𝑁 / e)↑𝑁)) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
191	165, 22, 187, 26, 119	divdiv32d 11472	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) / (𝑁 + 1)))
192	154	rpcnd 12467	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) ∈ ℂ)
193	157	rpcnd 12467	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) ∈ ℂ)
194	192, 193, 187, 119	div23d 11484	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) = (((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
195	31	rpred 12465	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ)
196	31	rpge0d 12469	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 0 ≤ 2)
197	21	nnred 11682	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℝ)
198	149	nn0ge0d 11990	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 0 ≤ (𝑁 + 1))
199	195, 196, 197, 198	sqrtmuld 14825	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) = ((√‘2) · (√‘(𝑁 + 1))))
200	195, 196, 1, 3	sqrtmuld 14825	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) = ((√‘2) · (√‘𝑁)))
201	199, 200	oveq12d 7169	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) = (((√‘2) · (√‘(𝑁 + 1))) / ((√‘2) · (√‘𝑁))))
202	29	sqrtcld 14838	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘2) ∈ ℂ)
203	22	sqrtcld 14838	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(𝑁 + 1)) ∈ ℂ)
204	23	sqrtcld 14838	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ∈ ℂ)
205	31	rpsqrtcld 14812	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘2) ∈ ℝ⁺)
206	205	rpne0d 12470	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘2) ≠ 0)
207	5	rpsqrtcld 14812	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ∈ ℝ⁺)
208	207	rpne0d 12470	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ≠ 0)
209	202, 202, 203, 204, 206, 208	divmuldivd 11488	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (((√‘2) / (√‘2)) · ((√‘(𝑁 + 1)) / (√‘𝑁))) = (((√‘2) · (√‘(𝑁 + 1))) / ((√‘2) · (√‘𝑁))))
210	202, 206	dividd 11445	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((√‘2) / (√‘2)) = 1)
211	197, 198, 5	sqrtdivd 14824	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) = ((√‘(𝑁 + 1)) / (√‘𝑁)))
212	211	eqcomd 2765	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((√‘(𝑁 + 1)) / (√‘𝑁)) = (√‘((𝑁 + 1) / 𝑁)))
213	210, 212	oveq12d 7169	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (((√‘2) / (√‘2)) · ((√‘(𝑁 + 1)) / (√‘𝑁))) = (1 · (√‘((𝑁 + 1) / 𝑁))))
214	201, 209, 213	3eqtr2d 2800	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) = (1 · (√‘((𝑁 + 1) / 𝑁))))
215	214	oveq1d 7166	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) = ((1 · (√‘((𝑁 + 1) / 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
216	25	sqrtcld 14838	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) ∈ ℂ)
217	216	mulid2d 10690	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (1 · (√‘((𝑁 + 1) / 𝑁))) = (√‘((𝑁 + 1) / 𝑁)))
218	217	oveq1d 7166	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((1 · (√‘((𝑁 + 1) / 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
219	194, 215, 218	3eqtrd 2798	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
220	219	oveq1d 7166	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
221	191, 220	eqtrd 2794	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
222	221	oveq1d 7166	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)))
223	190, 222	eqtr3d 2796	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)))
224	216, 193	mulcld 10692	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℂ)
225	224, 22, 188, 26, 189	divdiv32d 11472	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) / (𝑁 + 1)))
226	216, 193, 188, 189	divassd 11482	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁))))
227	12	rpcnd 12467	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → e ∈ ℂ)
228	12	rpne0d 12470	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → e ≠ 0)
229	22, 227, 228, 149	expdivd 13567	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) = (((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))))
230	23, 227, 228, 2	expdivd 13567	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) = ((𝑁↑𝑁) / (e↑𝑁)))
231	229, 230	oveq12d 7169	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))))
232	231	oveq2d 7167	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁)))))
233	22, 149	expcld 13553	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑(𝑁 + 1)) ∈ ℂ)
234	227, 149	expcld 13553	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) ∈ ℂ)
235	23, 2	expcld 13553	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (𝑁↑𝑁) ∈ ℂ)
236	227, 2	expcld 13553	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑𝑁) ∈ ℂ)
237	227, 228, 156	expne0d 13559	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) ≠ 0)
238	227, 228, 8	expne0d 13559	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑𝑁) ≠ 0)
239	23, 24, 8	expne0d 13559	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (𝑁↑𝑁) ≠ 0)
240	233, 234, 235, 236, 237, 238, 239	divdivdivd 11494	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))) = ((((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
241	233, 236	mulcomd 10693	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) = ((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))))
242	241	oveq1d 7166	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))) = (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
243	236, 234, 233, 235, 237, 239	divmuldivd 11488	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑(𝑁 + 1))) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
244	227, 2	expp1d 13554	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) = ((e↑𝑁) · e))
245	244	oveq2d 7167	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑(𝑁 + 1))) = ((e↑𝑁) / ((e↑𝑁) · e)))
246	236, 236, 227, 238, 228	divdiv1d 11478	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑𝑁)) / e) = ((e↑𝑁) / ((e↑𝑁) · e)))
247	236, 238	dividd 11445	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑𝑁)) = 1)
248	247	oveq1d 7166	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑𝑁)) / e) = (1 / e))
249	245, 246, 248	3eqtr2d 2800	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑(𝑁 + 1))) = (1 / e))
250	249	oveq1d 7166	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑(𝑁 + 1))) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
251	243, 250	eqtr3d 2796	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
252	240, 242, 251	3eqtrd 2798	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
253	252	oveq2d 7167	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁)))) = ((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
254	226, 232, 253	3eqtrd 2798	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) = ((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
255	254	oveq1d 7166	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)))
256	233, 235, 239	divcld 11447	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) ∈ ℂ)
257	35, 227, 256, 228	div32d 11470	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = (1 · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
258	256, 227, 228	divcld 11447	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e) ∈ ℂ)
259	258	mulid2d 10690	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (1 · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e))
260	257, 259	eqtrd 2794	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e))
261	260	oveq2d 7167	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
262	227, 228	reccld 11440	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (1 / e) ∈ ℂ)
263	262, 256	mulcld 10692	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) ∈ ℂ)
264	216, 263, 22, 26	div23d 11484	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
265	216, 22, 26	divcld 11447	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) ∈ ℂ)
266	265, 256, 227, 228	divassd 11482	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
267	261, 264, 266	3eqtr4d 2804	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
268	225, 255, 267	3eqtrd 2798	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
269	185, 223, 268	3eqtrd 2798	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
270	180, 183, 269	3eqtrd 2798	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
271	169, 177, 270	3eqtrd 2798	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
272	216, 22, 256, 26	div32d 11470	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1))))
273	22, 2	expp1d 13554	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑(𝑁 + 1)) = (((𝑁 + 1)↑𝑁) · (𝑁 + 1)))
274	273	oveq1d 7166	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) = ((((𝑁 + 1)↑𝑁) · (𝑁 + 1)) / (𝑁 + 1)))
275	22, 2	expcld 13553	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑𝑁) ∈ ℂ)
276	275, 22, 26	divcan4d 11453	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑𝑁) · (𝑁 + 1)) / (𝑁 + 1)) = ((𝑁 + 1)↑𝑁))
277	274, 276	eqtrd 2794	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) = ((𝑁 + 1)↑𝑁))
278	277	oveq1d 7166	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) / (𝑁↑𝑁)) = (((𝑁 + 1)↑𝑁) / (𝑁↑𝑁)))
279	233, 235, 22, 239, 26	divdiv32d 11472	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) / (𝑁↑𝑁)))
280	22, 23, 24, 2	expdivd 13567	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / 𝑁)↑𝑁) = (((𝑁 + 1)↑𝑁) / (𝑁↑𝑁)))
281	278, 279, 280	3eqtr4d 2804	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1)) = (((𝑁 + 1) / 𝑁)↑𝑁))
282	281	oveq2d 7167	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)))
283	272, 282	eqtrd 2794	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)))
284	283	oveq1d 7166	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e))
285	161, 271, 284	3eqtrd 2798	. . . 4 ⊢ (𝑁 ∈ ℕ → ((𝐴‘𝑁) / (𝐴‘(𝑁 + 1))) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e))
286	285	fveq2d 6663	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘((𝐴‘𝑁) / (𝐴‘(𝑁 + 1)))) = (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)))
287	81, 82, 286	3eqtr2d 2800	. 2 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)))
288	35, 43	addcld 10691	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (1 + (2 · 𝑁)) ∈ ℂ)
289	288	halfcld 11912	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((1 + (2 · 𝑁)) / 2) ∈ ℂ)
290	289, 28	mulcld 10692	. . . 4 ⊢ (𝑁 ∈ ℕ → (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) ∈ ℂ)
291	290, 35	subcld 11028	. . 3 ⊢ (𝑁 ∈ ℕ → ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ)
292		stirlinglem4.3	. . . . 5 ⊢ 𝐽 = (𝑛 ∈ ℕ ↦ ((((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) − 1))
293	292	a1i 11	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → 𝐽 = (𝑛 ∈ ℕ ↦ ((((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) − 1)))
294		simpr 489	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → 𝑛 = 𝑁)
295	294	oveq2d 7167	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (2 · 𝑛) = (2 · 𝑁))
296	295	oveq2d 7167	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (1 + (2 · 𝑛)) = (1 + (2 · 𝑁)))
297	296	oveq1d 7166	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((1 + (2 · 𝑛)) / 2) = ((1 + (2 · 𝑁)) / 2))
298	294	oveq1d 7166	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (𝑛 + 1) = (𝑁 + 1))
299	298, 294	oveq12d 7169	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((𝑛 + 1) / 𝑛) = ((𝑁 + 1) / 𝑁))
300	299	fveq2d 6663	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (log‘((𝑛 + 1) / 𝑛)) = (log‘((𝑁 + 1) / 𝑁)))
301	297, 300	oveq12d 7169	. . . . 5 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
302	301	oveq1d 7166	. . . 4 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) − 1) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
303		simpl 487	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → 𝑁 ∈ ℕ)
304		simpr 489	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ)
305	293, 302, 303, 304	fvmptd 6767	. . 3 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → (𝐽‘𝑁) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
306	291, 305	mpdan 687	. 2 ⊢ (𝑁 ∈ ℕ → (𝐽‘𝑁) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
307	52, 287, 306	3eqtr4d 2804	1 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = (𝐽‘𝑁))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 400 = wceq 1539 ∈ wcel 2112 ≠ wne 2952 ↦ cmpt 5113 ‘cfv 6336 (class class class)co 7151 ℂcc 10566 ℝcr 10567 0cc0 10568 1c1 10569 + caddc 10571 · cmul 10573 − cmin 10901 / cdiv 11328 ℕcn 11667 2c2 11722 ℕ₀cn0 11927 ℤcz 12013 ℝ⁺crp 12423 ↑cexp 13472 !cfa 13676 √csqrt 14633 eceu 15457 logclog 25238

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1912 ax-6 1971 ax-7 2016 ax-8 2114 ax-9 2122 ax-10 2143 ax-11 2159 ax-12 2176 ax-ext 2730 ax-rep 5157 ax-sep 5170 ax-nul 5177 ax-pow 5235 ax-pr 5299 ax-un 7460 ax-inf2 9130 ax-cnex 10624 ax-resscn 10625 ax-1cn 10626 ax-icn 10627 ax-addcl 10628 ax-addrcl 10629 ax-mulcl 10630 ax-mulrcl 10631 ax-mulcom 10632 ax-addass 10633 ax-mulass 10634 ax-distr 10635 ax-i2m1 10636 ax-1ne0 10637 ax-1rid 10638 ax-rnegex 10639 ax-rrecex 10640 ax-cnre 10641 ax-pre-lttri 10642 ax-pre-lttrn 10643 ax-pre-ltadd 10644 ax-pre-mulgt0 10645 ax-pre-sup 10646 ax-addf 10647 ax-mulf 10648

This theorem depends on definitions: df-bi 210 df-an 401 df-or 846 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2071 df-mo 2558 df-eu 2589 df-clab 2737 df-cleq 2751 df-clel 2831 df-nfc 2902 df-ne 2953 df-nel 3057 df-ral 3076 df-rex 3077 df-reu 3078 df-rmo 3079 df-rab 3080 df-v 3412 df-sbc 3698 df-csb 3807 df-dif 3862 df-un 3864 df-in 3866 df-ss 3876 df-pss 3878 df-nul 4227 df-if 4422 df-pw 4497 df-sn 4524 df-pr 4526 df-tp 4528 df-op 4530 df-uni 4800 df-int 4840 df-iun 4886 df-iin 4887 df-br 5034 df-opab 5096 df-mpt 5114 df-tr 5140 df-id 5431 df-eprel 5436 df-po 5444 df-so 5445 df-fr 5484 df-se 5485 df-we 5486 df-xp 5531 df-rel 5532 df-cnv 5533 df-co 5534 df-dm 5535 df-rn 5536 df-res 5537 df-ima 5538 df-pred 6127 df-ord 6173 df-on 6174 df-lim 6175 df-suc 6176 df-iota 6295 df-fun 6338 df-fn 6339 df-f 6340 df-f1 6341 df-fo 6342 df-f1o 6343 df-fv 6344 df-isom 6345 df-riota 7109 df-ov 7154 df-oprab 7155 df-mpo 7156 df-of 7406 df-om 7581 df-1st 7694 df-2nd 7695 df-supp 7837 df-wrecs 7958 df-recs 8019 df-rdg 8057 df-1o 8113 df-2o 8114 df-oadd 8117 df-er 8300 df-map 8419 df-pm 8420 df-ixp 8481 df-en 8529 df-dom 8530 df-sdom 8531 df-fin 8532 df-fsupp 8860 df-fi 8901 df-sup 8932 df-inf 8933 df-oi 9000 df-card 9394 df-pnf 10708 df-mnf 10709 df-xr 10710 df-ltxr 10711 df-le 10712 df-sub 10903 df-neg 10904 df-div 11329 df-nn 11668 df-2 11730 df-3 11731 df-4 11732 df-5 11733 df-6 11734 df-7 11735 df-8 11736 df-9 11737 df-n0 11928 df-z 12014 df-dec 12131 df-uz 12276 df-q 12382 df-rp 12424 df-xneg 12541 df-xadd 12542 df-xmul 12543 df-ioo 12776 df-ioc 12777 df-ico 12778 df-icc 12779 df-fz 12933 df-fzo 13076 df-fl 13204 df-mod 13280 df-seq 13412 df-exp 13473 df-fac 13677 df-bc 13706 df-hash 13734 df-shft 14467 df-cj 14499 df-re 14500 df-im 14501 df-sqrt 14635 df-abs 14636 df-limsup 14869 df-clim 14886 df-rlim 14887 df-sum 15084 df-ef 15462 df-e 15463 df-sin 15464 df-cos 15465 df-pi 15467 df-struct 16536 df-ndx 16537 df-slot 16538 df-base 16540 df-sets 16541 df-ress 16542 df-plusg 16629 df-mulr 16630 df-starv 16631 df-sca 16632 df-vsca 16633 df-ip 16634 df-tset 16635 df-ple 16636 df-ds 16638 df-unif 16639 df-hom 16640 df-cco 16641 df-rest 16747 df-topn 16748 df-0g 16766 df-gsum 16767 df-topgen 16768 df-pt 16769 df-prds 16772 df-xrs 16826 df-qtop 16831 df-imas 16832 df-xps 16834 df-mre 16908 df-mrc 16909 df-acs 16911 df-mgm 17911 df-sgrp 17960 df-mnd 17971 df-submnd 18016 df-mulg 18285 df-cntz 18507 df-cmn 18968 df-psmet 20151 df-xmet 20152 df-met 20153 df-bl 20154 df-mopn 20155 df-fbas 20156 df-fg 20157 df-cnfld 20160 df-top 21587 df-topon 21604 df-topsp 21626 df-bases 21639 df-cld 21712 df-ntr 21713 df-cls 21714 df-nei 21791 df-lp 21829 df-perf 21830 df-cn 21920 df-cnp 21921 df-haus 22008 df-tx 22255 df-hmeo 22448 df-fil 22539 df-fm 22631 df-flim 22632 df-flf 22633 df-xms 23015 df-ms 23016 df-tms 23017 df-cncf 23572 df-limc 24558 df-dv 24559 df-log 25240 df-cxp 25241

This theorem is referenced by: stirlinglem9 43083

W3C validator