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 46908

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 12267	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
2		nnnn0 12538	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
3	2	nn0ge0d 12595	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 0 ≤ 𝑁)
4	1, 3	ge0p1rpd 13119	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℝ⁺)
5		nnrp 13057	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ⁺)
6	4, 5	rpdivcld 13106	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ∈ ℝ⁺)
7	6	rpsqrtcld 15502	. . . . 5 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) ∈ ℝ⁺)
8		nnz 12639	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
9	6, 8	rpexpcld 14314	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / 𝑁)↑𝑁) ∈ ℝ⁺)
10	7, 9	rpmulcld 13105	. . . 4 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) ∈ ℝ⁺)
11		epr 16299	. . . . 5 ⊢ e ∈ ℝ⁺
12	11	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → e ∈ ℝ⁺)
13	10, 12	relogdivd 26866	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)) = ((log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) − (log‘e)))
14	7, 9	relogmuld 26865	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = ((log‘(√‘((𝑁 + 1) / 𝑁))) + (log‘(((𝑁 + 1) / 𝑁)↑𝑁))))
15		logsqrt 26944	. . . . . . . 8 ⊢ (((𝑁 + 1) / 𝑁) ∈ ℝ⁺ → (log‘(√‘((𝑁 + 1) / 𝑁))) = ((log‘((𝑁 + 1) / 𝑁)) / 2))
16	6, 15	syl 18	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘(√‘((𝑁 + 1) / 𝑁))) = ((log‘((𝑁 + 1) / 𝑁)) / 2))
17		relogexp 26836	. . . . . . . 8 ⊢ ((((𝑁 + 1) / 𝑁) ∈ ℝ⁺ ∧ 𝑁 ∈ ℤ) → (log‘(((𝑁 + 1) / 𝑁)↑𝑁)) = (𝑁 · (log‘((𝑁 + 1) / 𝑁))))
18	6, 8, 17	syl2anc 596	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘(((𝑁 + 1) / 𝑁)↑𝑁)) = (𝑁 · (log‘((𝑁 + 1) / 𝑁))))
19	16, 18	oveq12d 7432	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((log‘(√‘((𝑁 + 1) / 𝑁))) + (log‘(((𝑁 + 1) / 𝑁)↑𝑁))) = (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
20	14, 19	eqtrd 2795	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
21		peano2nn 12272	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
22	21	nncnd 12276	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℂ)
23		nncn 12268	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
24		nnne0 12297	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ≠ 0)
25	22, 23, 24	divcld 12018	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ∈ ℂ)
26	21	nnne0d 12313	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ≠ 0)
27	22, 23, 26, 24	divne0d 12034	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ≠ 0)
28	25, 27	logcld 26810	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘((𝑁 + 1) / 𝑁)) ∈ ℂ)
29		2cnd 12346	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℂ)
30		2rp 13050	. . . . . . . . 9 ⊢ 2 ∈ ℝ⁺
31	30	a1i 11	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ⁺)
32	31	rpne0d 13094	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 2 ≠ 0)
33	28, 29, 32	divrec2d 12022	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((log‘((𝑁 + 1) / 𝑁)) / 2) = ((1 / 2) · (log‘((𝑁 + 1) / 𝑁))))
34	33	oveq1d 7429	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))) = (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
35		1cnd 11229	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
36	35	halfcld 12516	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (1 / 2) ∈ ℂ)
37	36, 23, 28	adddird 11261	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((1 / 2) + 𝑁) · (log‘((𝑁 + 1) / 𝑁))) = (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
38	23, 29, 32	divcan4d 12024	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 · 2) / 2) = 𝑁)
39	23, 29	mulcomd 11257	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 · 2) = (2 · 𝑁))
40	39	oveq1d 7429	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 · 2) / 2) = ((2 · 𝑁) / 2))
41	38, 40	eqtr3d 2797	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 = ((2 · 𝑁) / 2))
42	41	oveq2d 7430	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 / 2) + 𝑁) = ((1 / 2) + ((2 · 𝑁) / 2)))
43	29, 23	mulcld 11256	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℂ)
44	35, 43, 29, 32	divdird 12056	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 + (2 · 𝑁)) / 2) = ((1 / 2) + ((2 · 𝑁) / 2)))
45	42, 44	eqtr4d 2798	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((1 / 2) + 𝑁) = ((1 + (2 · 𝑁)) / 2))
46	45	oveq1d 7429	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((1 / 2) + 𝑁) · (log‘((𝑁 + 1) / 𝑁))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
47	37, 46	eqtr3d 2797	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
48	20, 34, 47	3eqtrd 2799	. . . 4 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
49		loge 26826	. . . . 5 ⊢ (log‘e) = 1
50	49	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → (log‘e) = 1)
51	48, 50	oveq12d 7432	. . 3 ⊢ (𝑁 ∈ ℕ → ((log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) − (log‘e)) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
52	13, 51	eqtrd 2795	. 2 ⊢ (𝑁 ∈ ℕ → (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
53		stirlinglem4.1	. . . . . . 7 ⊢ 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
54	53	stirlinglem2 46906	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘𝑁) ∈ ℝ⁺)
55	54	relogcld 26863	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘(𝐴‘𝑁)) ∈ ℝ)
56		nfcv 2922	. . . . . 6 ⊢ Ⅎ𝑛𝑁
57		nfcv 2922	. . . . . . 7 ⊢ Ⅎ𝑛log
58		nfmpt1 5204	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
59	53, 58	nfcxfr 2920	. . . . . . . 8 ⊢ Ⅎ𝑛𝐴
60	59, 56	nffv 6889	. . . . . . 7 ⊢ Ⅎ𝑛(𝐴‘𝑁)
61	57, 60	nffv 6889	. . . . . 6 ⊢ Ⅎ𝑛(log‘(𝐴‘𝑁))
62		2fveq3 6884	. . . . . 6 ⊢ (𝑛 = 𝑁 → (log‘(𝐴‘𝑛)) = (log‘(𝐴‘𝑁)))
63		stirlinglem4.2	. . . . . 6 ⊢ 𝐵 = (𝑛 ∈ ℕ ↦ (log‘(𝐴‘𝑛)))
64	56, 61, 62, 63	fvmptf 7009	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ (log‘(𝐴‘𝑁)) ∈ ℝ) → (𝐵‘𝑁) = (log‘(𝐴‘𝑁)))
65	55, 64	mpdan 700	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝐵‘𝑁) = (log‘(𝐴‘𝑁)))
66		nfcv 2922	. . . . . . . 8 ⊢ Ⅎ𝑘(log‘(𝐴‘𝑛))
67		nfcv 2922	. . . . . . . . . 10 ⊢ Ⅎ𝑛𝑘
68	59, 67	nffv 6889	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐴‘𝑘)
69	57, 68	nffv 6889	. . . . . . . 8 ⊢ Ⅎ𝑛(log‘(𝐴‘𝑘))
70		2fveq3 6884	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → (log‘(𝐴‘𝑛)) = (log‘(𝐴‘𝑘)))
71	66, 69, 70	cbvmpt 5207	. . . . . . 7 ⊢ (𝑛 ∈ ℕ ↦ (log‘(𝐴‘𝑛))) = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘)))
72	63, 71	eqtri 2783	. . . . . 6 ⊢ 𝐵 = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘)))
73	72	a1i 11	. . . . 5 ⊢ (𝑁 ∈ ℕ → 𝐵 = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘))))
74		simpr 490	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → 𝑘 = (𝑁 + 1))
75	74	fveq2d 6883	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (𝐴‘𝑘) = (𝐴‘(𝑁 + 1)))
76	75	fveq2d 6883	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (log‘(𝐴‘𝑘)) = (log‘(𝐴‘(𝑁 + 1))))
77	53	stirlinglem2 46906	. . . . . . 7 ⊢ ((𝑁 + 1) ∈ ℕ → (𝐴‘(𝑁 + 1)) ∈ ℝ⁺)
78	21, 77	syl 18	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘(𝑁 + 1)) ∈ ℝ⁺)
79	78	relogcld 26863	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘(𝐴‘(𝑁 + 1))) ∈ ℝ)
80	73, 76, 21, 79	fvmptd 6995	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝐵‘(𝑁 + 1)) = (log‘(𝐴‘(𝑁 + 1))))
81	65, 80	oveq12d 7432	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = ((log‘(𝐴‘𝑁)) − (log‘(𝐴‘(𝑁 + 1)))))
82	54, 78	relogdivd 26866	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘((𝐴‘𝑁) / (𝐴‘(𝑁 + 1)))) = ((log‘(𝐴‘𝑁)) − (log‘(𝐴‘(𝑁 + 1)))))
83		faccl 14350	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → (!‘𝑁) ∈ ℕ)
84		nnrp 13057	. . . . . . . . 9 ⊢ ((!‘𝑁) ∈ ℕ → (!‘𝑁) ∈ ℝ⁺)
85	2, 83, 84	3syl 19	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℝ⁺)
86	31, 5	rpmulcld 13105	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℝ⁺)
87	86	rpsqrtcld 15502	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ∈ ℝ⁺)
88	5, 12	rpdivcld 13106	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 / e) ∈ ℝ⁺)
89	88, 8	rpexpcld 14314	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ∈ ℝ⁺)
90	87, 89	rpmulcld 13105	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℝ⁺)
91	85, 90	rpdivcld 13106	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺)
92	53	a1i 11	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))))
93		simpr 490	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → 𝑛 = 𝑁)
94	93	fveq2d 6883	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (!‘𝑛) = (!‘𝑁))
95	93	oveq2d 7430	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (2 · 𝑛) = (2 · 𝑁))
96	95	fveq2d 6883	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (√‘(2 · 𝑛)) = (√‘(2 · 𝑁)))
97	93	oveq1d 7429	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (𝑛 / e) = (𝑁 / e))
98	97, 93	oveq12d 7432	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((𝑛 / e)↑𝑛) = ((𝑁 / e)↑𝑁))
99	96, 98	oveq12d 7432	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)))
100	94, 99	oveq12d 7432	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
101		simpl 488	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℕ)
102	85	rpcnd 13091	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℂ)
103	102	adantr 486	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (!‘𝑁) ∈ ℂ)
104		2cnd 12346	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 2 ∈ ℂ)
105	101	nncnd 12276	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℂ)
106	104, 105	mulcld 11256	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (2 · 𝑁) ∈ ℂ)
107	106	sqrtcld 15530	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (√‘(2 · 𝑁)) ∈ ℂ)
108		ere 16178	. . . . . . . . . . . . . 14 ⊢ e ∈ ℝ
109	108	recni 11250	. . . . . . . . . . . . 13 ⊢ e ∈ ℂ
110	109	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → e ∈ ℂ)
111		0re 11237	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℝ
112		epos 16298	. . . . . . . . . . . . . 14 ⊢ 0 < e
113	111, 112	gtneii 11349	. . . . . . . . . . . . 13 ⊢ e ≠ 0
114	113	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → e ≠ 0)
115	105, 110, 114	divcld 12018	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝑁 / e) ∈ ℂ)
116	101	nnnn0d 12592	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℕ₀)
117	115, 116	expcld 14213	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((𝑁 / e)↑𝑁) ∈ ℂ)
118	107, 117	mulcld 11256	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℂ)
119	87	rpne0d 13094	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ≠ 0)
120	119	adantr 486	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (√‘(2 · 𝑁)) ≠ 0)
121	101	nnne0d 12313	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ≠ 0)
122	105, 110, 121, 114	divne0d 12034	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝑁 / e) ≠ 0)
123	101	nnzd 12644	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℤ)
124	115, 122, 123	expne0d 14219	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((𝑁 / e)↑𝑁) ≠ 0)
125	107, 117, 120, 124	mulne0d 11893	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ≠ 0)
126	103, 118, 125	divcld 12018	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℂ)
127	92, 100, 101, 126	fvmptd 6995	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝐴‘𝑁) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
128	91, 127	mpdan 700	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘𝑁) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
129		nfcv 2922	. . . . . . . . . 10 ⊢ Ⅎ𝑘((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
130		nfcv 2922	. . . . . . . . . 10 ⊢ Ⅎ𝑛((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))
131		fveq2 6879	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → (!‘𝑛) = (!‘𝑘))
132		oveq2 7422	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → (2 · 𝑛) = (2 · 𝑘))
133	132	fveq2d 6883	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑘 → (√‘(2 · 𝑛)) = (√‘(2 · 𝑘)))
134		oveq1 7421	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → (𝑛 / e) = (𝑘 / e))
135		id 23	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → 𝑛 = 𝑘)
136	134, 135	oveq12d 7432	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑘 → ((𝑛 / e)↑𝑛) = ((𝑘 / e)↑𝑘))
137	133, 136	oveq12d 7432	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))
138	131, 137	oveq12d 7432	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
139	129, 130, 138	cbvmpt 5207	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))) = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
140	53, 139	eqtri 2783	. . . . . . . 8 ⊢ 𝐴 = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
141	140	a1i 11	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝐴 = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))))
142	74	fveq2d 6883	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (!‘𝑘) = (!‘(𝑁 + 1)))
143	74	oveq2d 7430	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (2 · 𝑘) = (2 · (𝑁 + 1)))
144	143	fveq2d 6883	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (√‘(2 · 𝑘)) = (√‘(2 · (𝑁 + 1))))
145	74	oveq1d 7429	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (𝑘 / e) = ((𝑁 + 1) / e))
146	145, 74	oveq12d 7432	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((𝑘 / e)↑𝑘) = (((𝑁 + 1) / e)↑(𝑁 + 1)))
147	144, 146	oveq12d 7432	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)) = ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
148	142, 147	oveq12d 7432	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))) = ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
149	21	nnnn0d 12592	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ₀)
150		faccl 14350	. . . . . . . . 9 ⊢ ((𝑁 + 1) ∈ ℕ₀ → (!‘(𝑁 + 1)) ∈ ℕ)
151		nnrp 13057	. . . . . . . . 9 ⊢ ((!‘(𝑁 + 1)) ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℝ⁺)
152	149, 150, 151	3syl 19	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℝ⁺)
153	31, 4	rpmulcld 13105	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2 · (𝑁 + 1)) ∈ ℝ⁺)
154	153	rpsqrtcld 15502	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) ∈ ℝ⁺)
155	4, 12	rpdivcld 13106	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / e) ∈ ℝ⁺)
156	8	peano2zd 12731	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℤ)
157	155, 156	rpexpcld 14314	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) ∈ ℝ⁺)
158	154, 157	rpmulcld 13105	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℝ⁺)
159	152, 158	rpdivcld 13106	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ∈ ℝ⁺)
160	141, 148, 21, 159	fvmptd 6995	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘(𝑁 + 1)) = ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
161	128, 160	oveq12d 7432	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝐴‘𝑁) / (𝐴‘(𝑁 + 1))) = (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
162		facp1 14345	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
163	2, 162	syl 18	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
164	163	oveq1d 7429	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = (((!‘𝑁) · (𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
165	158	rpcnd 13091	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℂ)
166	158	rpne0d 13094	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ≠ 0)
167	102, 22, 165, 166	divassd 12053	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · (𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
168	164, 167	eqtrd 2795	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
169	168	oveq2d 7430	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))))
170	90	rpcnd 13091	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℂ)
171	22, 165, 166	divcld 12018	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ∈ ℂ)
172	102, 171	mulcld 11256	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) ∈ ℂ)
173	90	rpne0d 13094	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ≠ 0)
174	85	rpne0d 13094	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ≠ 0)
175	22, 165, 26, 166	divne0d 12034	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ≠ 0)
176	102, 171, 174, 175	mulne0d 11893	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) ≠ 0)
177	102, 170, 172, 173, 176	divdiv32d 12043	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) = (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
178	102, 102, 171, 174, 175	divdiv1d 12049	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = ((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))))
179	178	eqcomd 2766	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) = (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
180	179	oveq1d 7429	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
181	102, 174	dividd 12016	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / (!‘𝑁)) = 1)
182	181	oveq1d 7429	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
183	182	oveq1d 7429	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
184	22, 165, 26, 166	recdivd 12035	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
185	184	oveq1d 7429	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
186	165, 22, 26	divcld 12018	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) ∈ ℂ)
187	87	rpcnd 13091	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ∈ ℂ)
188	89	rpcnd 13091	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ∈ ℂ)
189	89	rpne0d 13094	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ≠ 0)
190	186, 187, 188, 119, 189	divdiv1d 12049	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) / ((𝑁 / e)↑𝑁)) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
191	165, 22, 187, 26, 119	divdiv32d 12043	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) / (𝑁 + 1)))
192	154	rpcnd 13091	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) ∈ ℂ)
193	157	rpcnd 13091	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) ∈ ℂ)
194	192, 193, 187, 119	div23d 12055	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) = (((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
195	31	rpred 13089	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ)
196	31	rpge0d 13093	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 0 ≤ 2)
197	21	nnred 12275	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℝ)
198	149	nn0ge0d 12595	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 0 ≤ (𝑁 + 1))
199	195, 196, 197, 198	sqrtmuld 15515	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) = ((√‘2) · (√‘(𝑁 + 1))))
200	195, 196, 1, 3	sqrtmuld 15515	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) = ((√‘2) · (√‘𝑁)))
201	199, 200	oveq12d 7432	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) = (((√‘2) · (√‘(𝑁 + 1))) / ((√‘2) · (√‘𝑁))))
202	29	sqrtcld 15530	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘2) ∈ ℂ)
203	22	sqrtcld 15530	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(𝑁 + 1)) ∈ ℂ)
204	23	sqrtcld 15530	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ∈ ℂ)
205	31	rpsqrtcld 15502	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘2) ∈ ℝ⁺)
206	205	rpne0d 13094	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘2) ≠ 0)
207	5	rpsqrtcld 15502	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ∈ ℝ⁺)
208	207	rpne0d 13094	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ≠ 0)
209	202, 202, 203, 204, 206, 208	divmuldivd 12059	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (((√‘2) / (√‘2)) · ((√‘(𝑁 + 1)) / (√‘𝑁))) = (((√‘2) · (√‘(𝑁 + 1))) / ((√‘2) · (√‘𝑁))))
210	202, 206	dividd 12016	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((√‘2) / (√‘2)) = 1)
211	197, 198, 5	sqrtdivd 15514	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) = ((√‘(𝑁 + 1)) / (√‘𝑁)))
212	211	eqcomd 2766	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((√‘(𝑁 + 1)) / (√‘𝑁)) = (√‘((𝑁 + 1) / 𝑁)))
213	210, 212	oveq12d 7432	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (((√‘2) / (√‘2)) · ((√‘(𝑁 + 1)) / (√‘𝑁))) = (1 · (√‘((𝑁 + 1) / 𝑁))))
214	201, 209, 213	3eqtr2d 2801	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) = (1 · (√‘((𝑁 + 1) / 𝑁))))
215	214	oveq1d 7429	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) = ((1 · (√‘((𝑁 + 1) / 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
216	25	sqrtcld 15530	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) ∈ ℂ)
217	216	mullidd 11254	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (1 · (√‘((𝑁 + 1) / 𝑁))) = (√‘((𝑁 + 1) / 𝑁)))
218	217	oveq1d 7429	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((1 · (√‘((𝑁 + 1) / 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
219	194, 215, 218	3eqtrd 2799	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
220	219	oveq1d 7429	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
221	191, 220	eqtrd 2795	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
222	221	oveq1d 7429	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)))
223	190, 222	eqtr3d 2797	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)))
224	216, 193	mulcld 11256	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℂ)
225	224, 22, 188, 26, 189	divdiv32d 12043	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) / (𝑁 + 1)))
226	216, 193, 188, 189	divassd 12053	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁))))
227	12	rpcnd 13091	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → e ∈ ℂ)
228	12	rpne0d 13094	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → e ≠ 0)
229	22, 227, 228, 149	expdivd 14227	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) = (((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))))
230	23, 227, 228, 2	expdivd 14227	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) = ((𝑁↑𝑁) / (e↑𝑁)))
231	229, 230	oveq12d 7432	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))))
232	231	oveq2d 7430	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁)))))
233	22, 149	expcld 14213	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑(𝑁 + 1)) ∈ ℂ)
234	227, 149	expcld 14213	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) ∈ ℂ)
235	23, 2	expcld 14213	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (𝑁↑𝑁) ∈ ℂ)
236	227, 2	expcld 14213	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑𝑁) ∈ ℂ)
237	227, 228, 156	expne0d 14219	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) ≠ 0)
238	227, 228, 8	expne0d 14219	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑𝑁) ≠ 0)
239	23, 24, 8	expne0d 14219	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (𝑁↑𝑁) ≠ 0)
240	233, 234, 235, 236, 237, 238, 239	divdivdivd 12065	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))) = ((((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
241	233, 236	mulcomd 11257	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) = ((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))))
242	241	oveq1d 7429	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))) = (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
243	236, 234, 233, 235, 237, 239	divmuldivd 12059	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑(𝑁 + 1))) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
244	227, 2	expp1d 14214	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) = ((e↑𝑁) · e))
245	244	oveq2d 7430	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑(𝑁 + 1))) = ((e↑𝑁) / ((e↑𝑁) · e)))
246	236, 236, 227, 238, 228	divdiv1d 12049	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑𝑁)) / e) = ((e↑𝑁) / ((e↑𝑁) · e)))
247	236, 238	dividd 12016	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑𝑁)) = 1)
248	247	oveq1d 7429	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑𝑁)) / e) = (1 / e))
249	245, 246, 248	3eqtr2d 2801	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑(𝑁 + 1))) = (1 / e))
250	249	oveq1d 7429	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑(𝑁 + 1))) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
251	243, 250	eqtr3d 2797	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
252	240, 242, 251	3eqtrd 2799	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
253	252	oveq2d 7430	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁)))) = ((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
254	226, 232, 253	3eqtrd 2799	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) = ((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
255	254	oveq1d 7429	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)))
256	233, 235, 239	divcld 12018	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) ∈ ℂ)
257	35, 227, 256, 228	div32d 12041	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = (1 · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
258	256, 227, 228	divcld 12018	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e) ∈ ℂ)
259	258	mullidd 11254	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (1 · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e))
260	257, 259	eqtrd 2795	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e))
261	260	oveq2d 7430	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
262	227, 228	reccld 12011	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (1 / e) ∈ ℂ)
263	262, 256	mulcld 11256	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) ∈ ℂ)
264	216, 263, 22, 26	div23d 12055	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
265	216, 22, 26	divcld 12018	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) ∈ ℂ)
266	265, 256, 227, 228	divassd 12053	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
267	261, 264, 266	3eqtr4d 2805	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
268	225, 255, 267	3eqtrd 2799	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
269	185, 223, 268	3eqtrd 2799	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
270	180, 183, 269	3eqtrd 2799	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
271	169, 177, 270	3eqtrd 2799	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
272	216, 22, 256, 26	div32d 12041	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1))))
273	22, 2	expp1d 14214	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑(𝑁 + 1)) = (((𝑁 + 1)↑𝑁) · (𝑁 + 1)))
274	273	oveq1d 7429	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) = ((((𝑁 + 1)↑𝑁) · (𝑁 + 1)) / (𝑁 + 1)))
275	22, 2	expcld 14213	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑𝑁) ∈ ℂ)
276	275, 22, 26	divcan4d 12024	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑𝑁) · (𝑁 + 1)) / (𝑁 + 1)) = ((𝑁 + 1)↑𝑁))
277	274, 276	eqtrd 2795	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) = ((𝑁 + 1)↑𝑁))
278	277	oveq1d 7429	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) / (𝑁↑𝑁)) = (((𝑁 + 1)↑𝑁) / (𝑁↑𝑁)))
279	233, 235, 22, 239, 26	divdiv32d 12043	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) / (𝑁↑𝑁)))
280	22, 23, 24, 2	expdivd 14227	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / 𝑁)↑𝑁) = (((𝑁 + 1)↑𝑁) / (𝑁↑𝑁)))
281	278, 279, 280	3eqtr4d 2805	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1)) = (((𝑁 + 1) / 𝑁)↑𝑁))
282	281	oveq2d 7430	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)))
283	272, 282	eqtrd 2795	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)))
284	283	oveq1d 7429	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e))
285	161, 271, 284	3eqtrd 2799	. . . 4 ⊢ (𝑁 ∈ ℕ → ((𝐴‘𝑁) / (𝐴‘(𝑁 + 1))) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e))
286	285	fveq2d 6883	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘((𝐴‘𝑁) / (𝐴‘(𝑁 + 1)))) = (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)))
287	81, 82, 286	3eqtr2d 2801	. 2 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)))
288	35, 43	addcld 11255	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (1 + (2 · 𝑁)) ∈ ℂ)
289	288	halfcld 12516	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((1 + (2 · 𝑁)) / 2) ∈ ℂ)
290	289, 28	mulcld 11256	. . . 4 ⊢ (𝑁 ∈ ℕ → (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) ∈ ℂ)
291	290, 35	subcld 11596	. . 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 490	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → 𝑛 = 𝑁)
295	294	oveq2d 7430	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (2 · 𝑛) = (2 · 𝑁))
296	295	oveq2d 7430	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (1 + (2 · 𝑛)) = (1 + (2 · 𝑁)))
297	296	oveq1d 7429	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((1 + (2 · 𝑛)) / 2) = ((1 + (2 · 𝑁)) / 2))
298	294	oveq1d 7429	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (𝑛 + 1) = (𝑁 + 1))
299	298, 294	oveq12d 7432	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((𝑛 + 1) / 𝑛) = ((𝑁 + 1) / 𝑁))
300	299	fveq2d 6883	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (log‘((𝑛 + 1) / 𝑛)) = (log‘((𝑁 + 1) / 𝑁)))
301	297, 300	oveq12d 7432	. . . . 5 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
302	301	oveq1d 7429	. . . 4 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) − 1) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
303		simpl 488	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → 𝑁 ∈ ℕ)
304		simpr 490	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ)
305	293, 302, 303, 304	fvmptd 6995	. . 3 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → (𝐽‘𝑁) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
306	291, 305	mpdan 700	. 2 ⊢ (𝑁 ∈ ℕ → (𝐽‘𝑁) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
307	52, 287, 306	3eqtr4d 2805	1 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = (𝐽‘𝑁))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 401 = wceq 1570 ∈ wcel 2145 ≠ wne 2955 ↦ cmpt 5186 ‘cfv 6533 (class class class)co 7414 ℂcc 11125 ℝcr 11126 0cc0 11127 1c1 11128 + caddc 11130 · cmul 11132 − cmin 11468 / cdiv 11898 ℕcn 12260 2c2 12322 ℕ₀cn0 12531 ℤcz 12618 ℝ⁺crp 13045 ↑cexp 14128 !cfa 14340 √csqrt 15323 eceu 16151 logclog 26794

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2732 ax-rep 5232 ax-sep 5251 ax-nul 5263 ax-pow 5330 ax-pr 5398 ax-un 7737 ax-inf2 9623 ax-cnex 11183 ax-resscn 11184 ax-1cn 11185 ax-icn 11186 ax-addcl 11187 ax-addrcl 11188 ax-mulcl 11189 ax-mulrcl 11190 ax-mulcom 11191 ax-addass 11192 ax-mulass 11193 ax-distr 11194 ax-i2m1 11195 ax-1ne0 11196 ax-1rid 11197 ax-rnegex 11198 ax-rrecex 11199 ax-cnre 11200 ax-pre-lttri 11201 ax-pre-lttrn 11202 ax-pre-ltadd 11203 ax-pre-mulgt0 11204 ax-pre-sup 11205 ax-addf 11206

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4591 df-uni 4868 df-int 4908 df-iun 4953 df-iin 4954 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-se 5609 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6299 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6535 df-fn 6536 df-f 6537 df-f1 6538 df-fo 6539 df-f1o 6540 df-fv 6541 df-isom 6542 df-riota 7371 df-ov 7417 df-oprab 7418 df-mpo 7419 df-of 7679 df-om 7864 df-1st 7987 df-2nd 7988 df-supp 8160 df-frecs 8281 df-wrecs 8312 df-recs 8361 df-rdg 8400 df-1o 8458 df-2o 8459 df-er 8699 df-map 8831 df-pm 8832 df-ixp 8908 df-en 8956 df-dom 8957 df-sdom 8958 df-fin 8959 df-fsupp 9335 df-fi 9384 df-sup 9415 df-inf 9416 df-oi 9485 df-card 9947 df-pnf 11272 df-mnf 11273 df-xr 11274 df-ltxr 11275 df-le 11276 df-sub 11470 df-neg 11471 df-div 11899 df-nn 12261 df-2 12330 df-3 12331 df-4 12332 df-5 12333 df-6 12334 df-7 12335 df-8 12336 df-9 12337 df-n0 12532 df-z 12619 df-dec 12740 df-uz 12891 df-q 13001 df-rp 13046 df-xneg 13166 df-xadd 13167 df-xmul 13168 df-ioo 13405 df-ioc 13406 df-ico 13407 df-icc 13408 df-fz 13565 df-fzo 13713 df-fl 13856 df-mod 13934 df-seq 14069 df-exp 14129 df-fac 14341 df-bc 14370 df-hash 14398 df-shft 15143 df-cj 15189 df-re 15190 df-im 15191 df-sqrt 15325 df-abs 15326 df-limsup 15561 df-clim 15578 df-rlim 15579 df-sum 15777 df-ef 16156 df-e 16157 df-sin 16158 df-cos 16159 df-pi 16161 df-struct 17242 df-sets 17259 df-slot 17277 df-ndx 17289 df-base 17305 df-ress 17326 df-plusg 17358 df-mulr 17359 df-starv 17360 df-sca 17361 df-vsca 17362 df-ip 17363 df-tset 17364 df-ple 17365 df-ds 17367 df-unif 17368 df-hom 17369 df-cco 17370 df-rest 17510 df-topn 17511 df-0g 17529 df-gsum 17530 df-topgen 17531 df-pt 17532 df-prds 17535 df-xrs 17591 df-qtop 17596 df-imas 17597 df-xps 17599 df-mre 17673 df-mrc 17674 df-acs 17676 df-mgm 18733 df-sgrp 18824 df-mnd 18840 df-submnd 18895 df-mulg 19194 df-cntz 19447 df-cmn 19912 df-psmet 21580 df-xmet 21581 df-met 21582 df-bl 21583 df-mopn 21584 df-fbas 21585 df-fg 21586 df-cnfld 21589 df-top 23122 df-topon 23139 df-topsp 23161 df-bases 23174 df-cld 23247 df-ntr 23248 df-cls 23249 df-nei 23326 df-lp 23364 df-perf 23365 df-cn 23455 df-cnp 23456 df-haus 23543 df-tx 23791 df-hmeo 23984 df-fil 24075 df-fm 24167 df-flim 24168 df-flf 24169 df-xms 24549 df-ms 24550 df-tms 24551 df-cncf 25109 df-limc 26096 df-dv 26097 df-log 26796 df-cxp 26797

This theorem is used by: stirlinglem9 46913

W3C validator