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 46068

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 12135	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
2		nnnn0 12391	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
3	2	nn0ge0d 12448	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 0 ≤ 𝑁)
4	1, 3	ge0p1rpd 12967	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℝ⁺)
5		nnrp 12905	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ⁺)
6	4, 5	rpdivcld 12954	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ∈ ℝ⁺)
7	6	rpsqrtcld 15319	. . . . 5 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) ∈ ℝ⁺)
8		nnz 12492	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
9	6, 8	rpexpcld 14154	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / 𝑁)↑𝑁) ∈ ℝ⁺)
10	7, 9	rpmulcld 12953	. . . 4 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) ∈ ℝ⁺)
11		epr 16117	. . . . 5 ⊢ e ∈ ℝ⁺
12	11	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → e ∈ ℝ⁺)
13	10, 12	relogdivd 26533	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)) = ((log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) − (log‘e)))
14	7, 9	relogmuld 26532	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = ((log‘(√‘((𝑁 + 1) / 𝑁))) + (log‘(((𝑁 + 1) / 𝑁)↑𝑁))))
15		logsqrt 26611	. . . . . . . 8 ⊢ (((𝑁 + 1) / 𝑁) ∈ ℝ⁺ → (log‘(√‘((𝑁 + 1) / 𝑁))) = ((log‘((𝑁 + 1) / 𝑁)) / 2))
16	6, 15	syl 17	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘(√‘((𝑁 + 1) / 𝑁))) = ((log‘((𝑁 + 1) / 𝑁)) / 2))
17		relogexp 26503	. . . . . . . 8 ⊢ ((((𝑁 + 1) / 𝑁) ∈ ℝ⁺ ∧ 𝑁 ∈ ℤ) → (log‘(((𝑁 + 1) / 𝑁)↑𝑁)) = (𝑁 · (log‘((𝑁 + 1) / 𝑁))))
18	6, 8, 17	syl2anc 584	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘(((𝑁 + 1) / 𝑁)↑𝑁)) = (𝑁 · (log‘((𝑁 + 1) / 𝑁))))
19	16, 18	oveq12d 7367	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((log‘(√‘((𝑁 + 1) / 𝑁))) + (log‘(((𝑁 + 1) / 𝑁)↑𝑁))) = (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
20	14, 19	eqtrd 2764	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
21		peano2nn 12140	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
22	21	nncnd 12144	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℂ)
23		nncn 12136	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
24		nnne0 12162	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ≠ 0)
25	22, 23, 24	divcld 11900	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ∈ ℂ)
26	21	nnne0d 12178	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ≠ 0)
27	22, 23, 26, 24	divne0d 11916	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ≠ 0)
28	25, 27	logcld 26477	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘((𝑁 + 1) / 𝑁)) ∈ ℂ)
29		2cnd 12206	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℂ)
30		2rp 12898	. . . . . . . . 9 ⊢ 2 ∈ ℝ⁺
31	30	a1i 11	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ⁺)
32	31	rpne0d 12942	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 2 ≠ 0)
33	28, 29, 32	divrec2d 11904	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((log‘((𝑁 + 1) / 𝑁)) / 2) = ((1 / 2) · (log‘((𝑁 + 1) / 𝑁))))
34	33	oveq1d 7364	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))) = (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
35		1cnd 11110	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
36	35	halfcld 12369	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (1 / 2) ∈ ℂ)
37	36, 23, 28	adddird 11140	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((1 / 2) + 𝑁) · (log‘((𝑁 + 1) / 𝑁))) = (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
38	23, 29, 32	divcan4d 11906	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 · 2) / 2) = 𝑁)
39	23, 29	mulcomd 11136	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 · 2) = (2 · 𝑁))
40	39	oveq1d 7364	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 · 2) / 2) = ((2 · 𝑁) / 2))
41	38, 40	eqtr3d 2766	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 = ((2 · 𝑁) / 2))
42	41	oveq2d 7365	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 / 2) + 𝑁) = ((1 / 2) + ((2 · 𝑁) / 2)))
43	29, 23	mulcld 11135	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℂ)
44	35, 43, 29, 32	divdird 11938	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 + (2 · 𝑁)) / 2) = ((1 / 2) + ((2 · 𝑁) / 2)))
45	42, 44	eqtr4d 2767	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((1 / 2) + 𝑁) = ((1 + (2 · 𝑁)) / 2))
46	45	oveq1d 7364	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((1 / 2) + 𝑁) · (log‘((𝑁 + 1) / 𝑁))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
47	37, 46	eqtr3d 2766	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
48	20, 34, 47	3eqtrd 2768	. . . 4 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
49		loge 26493	. . . . 5 ⊢ (log‘e) = 1
50	49	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → (log‘e) = 1)
51	48, 50	oveq12d 7367	. . 3 ⊢ (𝑁 ∈ ℕ → ((log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) − (log‘e)) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
52	13, 51	eqtrd 2764	. 2 ⊢ (𝑁 ∈ ℕ → (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
53		stirlinglem4.1	. . . . . . 7 ⊢ 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
54	53	stirlinglem2 46066	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘𝑁) ∈ ℝ⁺)
55	54	relogcld 26530	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘(𝐴‘𝑁)) ∈ ℝ)
56		nfcv 2891	. . . . . 6 ⊢ Ⅎ𝑛𝑁
57		nfcv 2891	. . . . . . 7 ⊢ Ⅎ𝑛log
58		nfmpt1 5191	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
59	53, 58	nfcxfr 2889	. . . . . . . 8 ⊢ Ⅎ𝑛𝐴
60	59, 56	nffv 6832	. . . . . . 7 ⊢ Ⅎ𝑛(𝐴‘𝑁)
61	57, 60	nffv 6832	. . . . . 6 ⊢ Ⅎ𝑛(log‘(𝐴‘𝑁))
62		2fveq3 6827	. . . . . 6 ⊢ (𝑛 = 𝑁 → (log‘(𝐴‘𝑛)) = (log‘(𝐴‘𝑁)))
63		stirlinglem4.2	. . . . . 6 ⊢ 𝐵 = (𝑛 ∈ ℕ ↦ (log‘(𝐴‘𝑛)))
64	56, 61, 62, 63	fvmptf 6951	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ (log‘(𝐴‘𝑁)) ∈ ℝ) → (𝐵‘𝑁) = (log‘(𝐴‘𝑁)))
65	55, 64	mpdan 687	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝐵‘𝑁) = (log‘(𝐴‘𝑁)))
66		nfcv 2891	. . . . . . . 8 ⊢ Ⅎ𝑘(log‘(𝐴‘𝑛))
67		nfcv 2891	. . . . . . . . . 10 ⊢ Ⅎ𝑛𝑘
68	59, 67	nffv 6832	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐴‘𝑘)
69	57, 68	nffv 6832	. . . . . . . 8 ⊢ Ⅎ𝑛(log‘(𝐴‘𝑘))
70		2fveq3 6827	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → (log‘(𝐴‘𝑛)) = (log‘(𝐴‘𝑘)))
71	66, 69, 70	cbvmpt 5194	. . . . . . 7 ⊢ (𝑛 ∈ ℕ ↦ (log‘(𝐴‘𝑛))) = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘)))
72	63, 71	eqtri 2752	. . . . . 6 ⊢ 𝐵 = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘)))
73	72	a1i 11	. . . . 5 ⊢ (𝑁 ∈ ℕ → 𝐵 = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘))))
74		simpr 484	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → 𝑘 = (𝑁 + 1))
75	74	fveq2d 6826	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (𝐴‘𝑘) = (𝐴‘(𝑁 + 1)))
76	75	fveq2d 6826	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (log‘(𝐴‘𝑘)) = (log‘(𝐴‘(𝑁 + 1))))
77	53	stirlinglem2 46066	. . . . . . 7 ⊢ ((𝑁 + 1) ∈ ℕ → (𝐴‘(𝑁 + 1)) ∈ ℝ⁺)
78	21, 77	syl 17	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘(𝑁 + 1)) ∈ ℝ⁺)
79	78	relogcld 26530	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘(𝐴‘(𝑁 + 1))) ∈ ℝ)
80	73, 76, 21, 79	fvmptd 6937	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝐵‘(𝑁 + 1)) = (log‘(𝐴‘(𝑁 + 1))))
81	65, 80	oveq12d 7367	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = ((log‘(𝐴‘𝑁)) − (log‘(𝐴‘(𝑁 + 1)))))
82	54, 78	relogdivd 26533	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘((𝐴‘𝑁) / (𝐴‘(𝑁 + 1)))) = ((log‘(𝐴‘𝑁)) − (log‘(𝐴‘(𝑁 + 1)))))
83		faccl 14190	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → (!‘𝑁) ∈ ℕ)
84		nnrp 12905	. . . . . . . . 9 ⊢ ((!‘𝑁) ∈ ℕ → (!‘𝑁) ∈ ℝ⁺)
85	2, 83, 84	3syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℝ⁺)
86	31, 5	rpmulcld 12953	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℝ⁺)
87	86	rpsqrtcld 15319	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ∈ ℝ⁺)
88	5, 12	rpdivcld 12954	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 / e) ∈ ℝ⁺)
89	88, 8	rpexpcld 14154	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ∈ ℝ⁺)
90	87, 89	rpmulcld 12953	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℝ⁺)
91	85, 90	rpdivcld 12954	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺)
92	53	a1i 11	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))))
93		simpr 484	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → 𝑛 = 𝑁)
94	93	fveq2d 6826	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (!‘𝑛) = (!‘𝑁))
95	93	oveq2d 7365	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (2 · 𝑛) = (2 · 𝑁))
96	95	fveq2d 6826	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (√‘(2 · 𝑛)) = (√‘(2 · 𝑁)))
97	93	oveq1d 7364	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (𝑛 / e) = (𝑁 / e))
98	97, 93	oveq12d 7367	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((𝑛 / e)↑𝑛) = ((𝑁 / e)↑𝑁))
99	96, 98	oveq12d 7367	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)))
100	94, 99	oveq12d 7367	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
101		simpl 482	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℕ)
102	85	rpcnd 12939	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℂ)
103	102	adantr 480	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (!‘𝑁) ∈ ℂ)
104		2cnd 12206	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 2 ∈ ℂ)
105	101	nncnd 12144	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℂ)
106	104, 105	mulcld 11135	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (2 · 𝑁) ∈ ℂ)
107	106	sqrtcld 15347	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (√‘(2 · 𝑁)) ∈ ℂ)
108		ere 15996	. . . . . . . . . . . . . 14 ⊢ e ∈ ℝ
109	108	recni 11129	. . . . . . . . . . . . 13 ⊢ e ∈ ℂ
110	109	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → e ∈ ℂ)
111		0re 11117	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℝ
112		epos 16116	. . . . . . . . . . . . . 14 ⊢ 0 < e
113	111, 112	gtneii 11228	. . . . . . . . . . . . 13 ⊢ e ≠ 0
114	113	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → e ≠ 0)
115	105, 110, 114	divcld 11900	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝑁 / e) ∈ ℂ)
116	101	nnnn0d 12445	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℕ₀)
117	115, 116	expcld 14053	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((𝑁 / e)↑𝑁) ∈ ℂ)
118	107, 117	mulcld 11135	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℂ)
119	87	rpne0d 12942	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ≠ 0)
120	119	adantr 480	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (√‘(2 · 𝑁)) ≠ 0)
121	101	nnne0d 12178	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ≠ 0)
122	105, 110, 121, 114	divne0d 11916	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝑁 / e) ≠ 0)
123	101	nnzd 12498	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℤ)
124	115, 122, 123	expne0d 14059	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((𝑁 / e)↑𝑁) ≠ 0)
125	107, 117, 120, 124	mulne0d 11772	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ≠ 0)
126	103, 118, 125	divcld 11900	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℂ)
127	92, 100, 101, 126	fvmptd 6937	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝐴‘𝑁) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
128	91, 127	mpdan 687	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘𝑁) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
129		nfcv 2891	. . . . . . . . . 10 ⊢ Ⅎ𝑘((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
130		nfcv 2891	. . . . . . . . . 10 ⊢ Ⅎ𝑛((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))
131		fveq2 6822	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → (!‘𝑛) = (!‘𝑘))
132		oveq2 7357	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → (2 · 𝑛) = (2 · 𝑘))
133	132	fveq2d 6826	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑘 → (√‘(2 · 𝑛)) = (√‘(2 · 𝑘)))
134		oveq1 7356	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → (𝑛 / e) = (𝑘 / e))
135		id 22	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → 𝑛 = 𝑘)
136	134, 135	oveq12d 7367	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑘 → ((𝑛 / e)↑𝑛) = ((𝑘 / e)↑𝑘))
137	133, 136	oveq12d 7367	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))
138	131, 137	oveq12d 7367	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
139	129, 130, 138	cbvmpt 5194	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))) = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
140	53, 139	eqtri 2752	. . . . . . . 8 ⊢ 𝐴 = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
141	140	a1i 11	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝐴 = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))))
142	74	fveq2d 6826	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (!‘𝑘) = (!‘(𝑁 + 1)))
143	74	oveq2d 7365	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (2 · 𝑘) = (2 · (𝑁 + 1)))
144	143	fveq2d 6826	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (√‘(2 · 𝑘)) = (√‘(2 · (𝑁 + 1))))
145	74	oveq1d 7364	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (𝑘 / e) = ((𝑁 + 1) / e))
146	145, 74	oveq12d 7367	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((𝑘 / e)↑𝑘) = (((𝑁 + 1) / e)↑(𝑁 + 1)))
147	144, 146	oveq12d 7367	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)) = ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
148	142, 147	oveq12d 7367	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))) = ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
149	21	nnnn0d 12445	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ₀)
150		faccl 14190	. . . . . . . . 9 ⊢ ((𝑁 + 1) ∈ ℕ₀ → (!‘(𝑁 + 1)) ∈ ℕ)
151		nnrp 12905	. . . . . . . . 9 ⊢ ((!‘(𝑁 + 1)) ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℝ⁺)
152	149, 150, 151	3syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℝ⁺)
153	31, 4	rpmulcld 12953	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2 · (𝑁 + 1)) ∈ ℝ⁺)
154	153	rpsqrtcld 15319	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) ∈ ℝ⁺)
155	4, 12	rpdivcld 12954	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / e) ∈ ℝ⁺)
156	8	peano2zd 12583	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℤ)
157	155, 156	rpexpcld 14154	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) ∈ ℝ⁺)
158	154, 157	rpmulcld 12953	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℝ⁺)
159	152, 158	rpdivcld 12954	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ∈ ℝ⁺)
160	141, 148, 21, 159	fvmptd 6937	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘(𝑁 + 1)) = ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
161	128, 160	oveq12d 7367	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝐴‘𝑁) / (𝐴‘(𝑁 + 1))) = (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
162		facp1 14185	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
163	2, 162	syl 17	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
164	163	oveq1d 7364	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = (((!‘𝑁) · (𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
165	158	rpcnd 12939	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℂ)
166	158	rpne0d 12942	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ≠ 0)
167	102, 22, 165, 166	divassd 11935	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · (𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
168	164, 167	eqtrd 2764	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
169	168	oveq2d 7365	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))))
170	90	rpcnd 12939	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℂ)
171	22, 165, 166	divcld 11900	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ∈ ℂ)
172	102, 171	mulcld 11135	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) ∈ ℂ)
173	90	rpne0d 12942	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ≠ 0)
174	85	rpne0d 12942	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ≠ 0)
175	22, 165, 26, 166	divne0d 11916	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ≠ 0)
176	102, 171, 174, 175	mulne0d 11772	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) ≠ 0)
177	102, 170, 172, 173, 176	divdiv32d 11925	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) = (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
178	102, 102, 171, 174, 175	divdiv1d 11931	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = ((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))))
179	178	eqcomd 2735	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) = (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
180	179	oveq1d 7364	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
181	102, 174	dividd 11898	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / (!‘𝑁)) = 1)
182	181	oveq1d 7364	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
183	182	oveq1d 7364	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
184	22, 165, 26, 166	recdivd 11917	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
185	184	oveq1d 7364	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
186	165, 22, 26	divcld 11900	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) ∈ ℂ)
187	87	rpcnd 12939	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ∈ ℂ)
188	89	rpcnd 12939	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ∈ ℂ)
189	89	rpne0d 12942	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ≠ 0)
190	186, 187, 188, 119, 189	divdiv1d 11931	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) / ((𝑁 / e)↑𝑁)) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
191	165, 22, 187, 26, 119	divdiv32d 11925	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) / (𝑁 + 1)))
192	154	rpcnd 12939	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) ∈ ℂ)
193	157	rpcnd 12939	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) ∈ ℂ)
194	192, 193, 187, 119	div23d 11937	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) = (((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
195	31	rpred 12937	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ)
196	31	rpge0d 12941	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 0 ≤ 2)
197	21	nnred 12143	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℝ)
198	149	nn0ge0d 12448	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 0 ≤ (𝑁 + 1))
199	195, 196, 197, 198	sqrtmuld 15332	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) = ((√‘2) · (√‘(𝑁 + 1))))
200	195, 196, 1, 3	sqrtmuld 15332	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) = ((√‘2) · (√‘𝑁)))
201	199, 200	oveq12d 7367	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) = (((√‘2) · (√‘(𝑁 + 1))) / ((√‘2) · (√‘𝑁))))
202	29	sqrtcld 15347	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘2) ∈ ℂ)
203	22	sqrtcld 15347	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(𝑁 + 1)) ∈ ℂ)
204	23	sqrtcld 15347	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ∈ ℂ)
205	31	rpsqrtcld 15319	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘2) ∈ ℝ⁺)
206	205	rpne0d 12942	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘2) ≠ 0)
207	5	rpsqrtcld 15319	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ∈ ℝ⁺)
208	207	rpne0d 12942	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ≠ 0)
209	202, 202, 203, 204, 206, 208	divmuldivd 11941	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (((√‘2) / (√‘2)) · ((√‘(𝑁 + 1)) / (√‘𝑁))) = (((√‘2) · (√‘(𝑁 + 1))) / ((√‘2) · (√‘𝑁))))
210	202, 206	dividd 11898	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((√‘2) / (√‘2)) = 1)
211	197, 198, 5	sqrtdivd 15331	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) = ((√‘(𝑁 + 1)) / (√‘𝑁)))
212	211	eqcomd 2735	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((√‘(𝑁 + 1)) / (√‘𝑁)) = (√‘((𝑁 + 1) / 𝑁)))
213	210, 212	oveq12d 7367	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (((√‘2) / (√‘2)) · ((√‘(𝑁 + 1)) / (√‘𝑁))) = (1 · (√‘((𝑁 + 1) / 𝑁))))
214	201, 209, 213	3eqtr2d 2770	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) = (1 · (√‘((𝑁 + 1) / 𝑁))))
215	214	oveq1d 7364	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) = ((1 · (√‘((𝑁 + 1) / 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
216	25	sqrtcld 15347	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) ∈ ℂ)
217	216	mullidd 11133	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (1 · (√‘((𝑁 + 1) / 𝑁))) = (√‘((𝑁 + 1) / 𝑁)))
218	217	oveq1d 7364	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((1 · (√‘((𝑁 + 1) / 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
219	194, 215, 218	3eqtrd 2768	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
220	219	oveq1d 7364	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
221	191, 220	eqtrd 2764	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
222	221	oveq1d 7364	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)))
223	190, 222	eqtr3d 2766	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)))
224	216, 193	mulcld 11135	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℂ)
225	224, 22, 188, 26, 189	divdiv32d 11925	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) / (𝑁 + 1)))
226	216, 193, 188, 189	divassd 11935	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁))))
227	12	rpcnd 12939	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → e ∈ ℂ)
228	12	rpne0d 12942	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → e ≠ 0)
229	22, 227, 228, 149	expdivd 14067	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) = (((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))))
230	23, 227, 228, 2	expdivd 14067	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) = ((𝑁↑𝑁) / (e↑𝑁)))
231	229, 230	oveq12d 7367	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))))
232	231	oveq2d 7365	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁)))))
233	22, 149	expcld 14053	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑(𝑁 + 1)) ∈ ℂ)
234	227, 149	expcld 14053	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) ∈ ℂ)
235	23, 2	expcld 14053	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (𝑁↑𝑁) ∈ ℂ)
236	227, 2	expcld 14053	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑𝑁) ∈ ℂ)
237	227, 228, 156	expne0d 14059	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) ≠ 0)
238	227, 228, 8	expne0d 14059	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑𝑁) ≠ 0)
239	23, 24, 8	expne0d 14059	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (𝑁↑𝑁) ≠ 0)
240	233, 234, 235, 236, 237, 238, 239	divdivdivd 11947	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))) = ((((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
241	233, 236	mulcomd 11136	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) = ((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))))
242	241	oveq1d 7364	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))) = (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
243	236, 234, 233, 235, 237, 239	divmuldivd 11941	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑(𝑁 + 1))) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
244	227, 2	expp1d 14054	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) = ((e↑𝑁) · e))
245	244	oveq2d 7365	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑(𝑁 + 1))) = ((e↑𝑁) / ((e↑𝑁) · e)))
246	236, 236, 227, 238, 228	divdiv1d 11931	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑𝑁)) / e) = ((e↑𝑁) / ((e↑𝑁) · e)))
247	236, 238	dividd 11898	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑𝑁)) = 1)
248	247	oveq1d 7364	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑𝑁)) / e) = (1 / e))
249	245, 246, 248	3eqtr2d 2770	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑(𝑁 + 1))) = (1 / e))
250	249	oveq1d 7364	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑(𝑁 + 1))) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
251	243, 250	eqtr3d 2766	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
252	240, 242, 251	3eqtrd 2768	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
253	252	oveq2d 7365	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁)))) = ((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
254	226, 232, 253	3eqtrd 2768	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) = ((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
255	254	oveq1d 7364	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)))
256	233, 235, 239	divcld 11900	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) ∈ ℂ)
257	35, 227, 256, 228	div32d 11923	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = (1 · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
258	256, 227, 228	divcld 11900	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e) ∈ ℂ)
259	258	mullidd 11133	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (1 · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e))
260	257, 259	eqtrd 2764	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e))
261	260	oveq2d 7365	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
262	227, 228	reccld 11893	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (1 / e) ∈ ℂ)
263	262, 256	mulcld 11135	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) ∈ ℂ)
264	216, 263, 22, 26	div23d 11937	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
265	216, 22, 26	divcld 11900	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) ∈ ℂ)
266	265, 256, 227, 228	divassd 11935	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
267	261, 264, 266	3eqtr4d 2774	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
268	225, 255, 267	3eqtrd 2768	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
269	185, 223, 268	3eqtrd 2768	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
270	180, 183, 269	3eqtrd 2768	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
271	169, 177, 270	3eqtrd 2768	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
272	216, 22, 256, 26	div32d 11923	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1))))
273	22, 2	expp1d 14054	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑(𝑁 + 1)) = (((𝑁 + 1)↑𝑁) · (𝑁 + 1)))
274	273	oveq1d 7364	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) = ((((𝑁 + 1)↑𝑁) · (𝑁 + 1)) / (𝑁 + 1)))
275	22, 2	expcld 14053	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑𝑁) ∈ ℂ)
276	275, 22, 26	divcan4d 11906	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑𝑁) · (𝑁 + 1)) / (𝑁 + 1)) = ((𝑁 + 1)↑𝑁))
277	274, 276	eqtrd 2764	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) = ((𝑁 + 1)↑𝑁))
278	277	oveq1d 7364	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) / (𝑁↑𝑁)) = (((𝑁 + 1)↑𝑁) / (𝑁↑𝑁)))
279	233, 235, 22, 239, 26	divdiv32d 11925	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) / (𝑁↑𝑁)))
280	22, 23, 24, 2	expdivd 14067	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / 𝑁)↑𝑁) = (((𝑁 + 1)↑𝑁) / (𝑁↑𝑁)))
281	278, 279, 280	3eqtr4d 2774	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1)) = (((𝑁 + 1) / 𝑁)↑𝑁))
282	281	oveq2d 7365	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)))
283	272, 282	eqtrd 2764	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)))
284	283	oveq1d 7364	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e))
285	161, 271, 284	3eqtrd 2768	. . . 4 ⊢ (𝑁 ∈ ℕ → ((𝐴‘𝑁) / (𝐴‘(𝑁 + 1))) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e))
286	285	fveq2d 6826	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘((𝐴‘𝑁) / (𝐴‘(𝑁 + 1)))) = (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)))
287	81, 82, 286	3eqtr2d 2770	. 2 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)))
288	35, 43	addcld 11134	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (1 + (2 · 𝑁)) ∈ ℂ)
289	288	halfcld 12369	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((1 + (2 · 𝑁)) / 2) ∈ ℂ)
290	289, 28	mulcld 11135	. . . 4 ⊢ (𝑁 ∈ ℕ → (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) ∈ ℂ)
291	290, 35	subcld 11475	. . 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 484	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → 𝑛 = 𝑁)
295	294	oveq2d 7365	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (2 · 𝑛) = (2 · 𝑁))
296	295	oveq2d 7365	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (1 + (2 · 𝑛)) = (1 + (2 · 𝑁)))
297	296	oveq1d 7364	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((1 + (2 · 𝑛)) / 2) = ((1 + (2 · 𝑁)) / 2))
298	294	oveq1d 7364	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (𝑛 + 1) = (𝑁 + 1))
299	298, 294	oveq12d 7367	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((𝑛 + 1) / 𝑛) = ((𝑁 + 1) / 𝑁))
300	299	fveq2d 6826	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (log‘((𝑛 + 1) / 𝑛)) = (log‘((𝑁 + 1) / 𝑁)))
301	297, 300	oveq12d 7367	. . . . 5 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
302	301	oveq1d 7364	. . . 4 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) − 1) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
303		simpl 482	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → 𝑁 ∈ ℕ)
304		simpr 484	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ)
305	293, 302, 303, 304	fvmptd 6937	. . 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 2774	1 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = (𝐽‘𝑁))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1540 ∈ wcel 2109 ≠ wne 2925 ↦ cmpt 5173 ‘cfv 6482 (class class class)co 7349 ℂcc 11007 ℝcr 11008 0cc0 11009 1c1 11010 + caddc 11012 · cmul 11014 − cmin 11347 / cdiv 11777 ℕcn 12128 2c2 12183 ℕ₀cn0 12384 ℤcz 12471 ℝ⁺crp 12893 ↑cexp 13968 !cfa 14180 √csqrt 15140 eceu 15969 logclog 26461

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5218 ax-sep 5235 ax-nul 5245 ax-pow 5304 ax-pr 5371 ax-un 7671 ax-inf2 9537 ax-cnex 11065 ax-resscn 11066 ax-1cn 11067 ax-icn 11068 ax-addcl 11069 ax-addrcl 11070 ax-mulcl 11071 ax-mulrcl 11072 ax-mulcom 11073 ax-addass 11074 ax-mulass 11075 ax-distr 11076 ax-i2m1 11077 ax-1ne0 11078 ax-1rid 11079 ax-rnegex 11080 ax-rrecex 11081 ax-cnre 11082 ax-pre-lttri 11083 ax-pre-lttrn 11084 ax-pre-ltadd 11085 ax-pre-mulgt0 11086 ax-pre-sup 11087 ax-addf 11088

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3343 df-reu 3344 df-rab 3395 df-v 3438 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4285 df-if 4477 df-pw 4553 df-sn 4578 df-pr 4580 df-tp 4582 df-op 4584 df-uni 4859 df-int 4897 df-iun 4943 df-iin 4944 df-br 5093 df-opab 5155 df-mpt 5174 df-tr 5200 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-se 5573 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-pred 6249 df-ord 6310 df-on 6311 df-lim 6312 df-suc 6313 df-iota 6438 df-fun 6484 df-fn 6485 df-f 6486 df-f1 6487 df-fo 6488 df-f1o 6489 df-fv 6490 df-isom 6491 df-riota 7306 df-ov 7352 df-oprab 7353 df-mpo 7354 df-of 7613 df-om 7800 df-1st 7924 df-2nd 7925 df-supp 8094 df-frecs 8214 df-wrecs 8245 df-recs 8294 df-rdg 8332 df-1o 8388 df-2o 8389 df-er 8625 df-map 8755 df-pm 8756 df-ixp 8825 df-en 8873 df-dom 8874 df-sdom 8875 df-fin 8876 df-fsupp 9252 df-fi 9301 df-sup 9332 df-inf 9333 df-oi 9402 df-card 9835 df-pnf 11151 df-mnf 11152 df-xr 11153 df-ltxr 11154 df-le 11155 df-sub 11349 df-neg 11350 df-div 11778 df-nn 12129 df-2 12191 df-3 12192 df-4 12193 df-5 12194 df-6 12195 df-7 12196 df-8 12197 df-9 12198 df-n0 12385 df-z 12472 df-dec 12592 df-uz 12736 df-q 12850 df-rp 12894 df-xneg 13014 df-xadd 13015 df-xmul 13016 df-ioo 13252 df-ioc 13253 df-ico 13254 df-icc 13255 df-fz 13411 df-fzo 13558 df-fl 13696 df-mod 13774 df-seq 13909 df-exp 13969 df-fac 14181 df-bc 14210 df-hash 14238 df-shft 14974 df-cj 15006 df-re 15007 df-im 15008 df-sqrt 15142 df-abs 15143 df-limsup 15378 df-clim 15395 df-rlim 15396 df-sum 15594 df-ef 15974 df-e 15975 df-sin 15976 df-cos 15977 df-pi 15979 df-struct 17058 df-sets 17075 df-slot 17093 df-ndx 17105 df-base 17121 df-ress 17142 df-plusg 17174 df-mulr 17175 df-starv 17176 df-sca 17177 df-vsca 17178 df-ip 17179 df-tset 17180 df-ple 17181 df-ds 17183 df-unif 17184 df-hom 17185 df-cco 17186 df-rest 17326 df-topn 17327 df-0g 17345 df-gsum 17346 df-topgen 17347 df-pt 17348 df-prds 17351 df-xrs 17406 df-qtop 17411 df-imas 17412 df-xps 17414 df-mre 17488 df-mrc 17489 df-acs 17491 df-mgm 18514 df-sgrp 18593 df-mnd 18609 df-submnd 18658 df-mulg 18947 df-cntz 19196 df-cmn 19661 df-psmet 21253 df-xmet 21254 df-met 21255 df-bl 21256 df-mopn 21257 df-fbas 21258 df-fg 21259 df-cnfld 21262 df-top 22779 df-topon 22796 df-topsp 22818 df-bases 22831 df-cld 22904 df-ntr 22905 df-cls 22906 df-nei 22983 df-lp 23021 df-perf 23022 df-cn 23112 df-cnp 23113 df-haus 23200 df-tx 23447 df-hmeo 23640 df-fil 23731 df-fm 23823 df-flim 23824 df-flf 23825 df-xms 24206 df-ms 24207 df-tms 24208 df-cncf 24769 df-limc 25765 df-dv 25766 df-log 26463 df-cxp 26464

This theorem is referenced by: stirlinglem9 46073

W3C validator