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 43618

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 11980	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
2		nnnn0 12240	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
3	2	nn0ge0d 12296	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 0 ≤ 𝑁)
4	1, 3	ge0p1rpd 12802	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℝ⁺)
5		nnrp 12741	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ⁺)
6	4, 5	rpdivcld 12789	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ∈ ℝ⁺)
7	6	rpsqrtcld 15123	. . . . 5 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) ∈ ℝ⁺)
8		nnz 12342	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℤ)
9	6, 8	rpexpcld 13962	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / 𝑁)↑𝑁) ∈ ℝ⁺)
10	7, 9	rpmulcld 12788	. . . 4 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) ∈ ℝ⁺)
11		epr 15917	. . . . 5 ⊢ e ∈ ℝ⁺
12	11	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → e ∈ ℝ⁺)
13	10, 12	relogdivd 25781	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)) = ((log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) − (log‘e)))
14	7, 9	relogmuld 25780	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = ((log‘(√‘((𝑁 + 1) / 𝑁))) + (log‘(((𝑁 + 1) / 𝑁)↑𝑁))))
15		logsqrt 25859	. . . . . . . 8 ⊢ (((𝑁 + 1) / 𝑁) ∈ ℝ⁺ → (log‘(√‘((𝑁 + 1) / 𝑁))) = ((log‘((𝑁 + 1) / 𝑁)) / 2))
16	6, 15	syl 17	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘(√‘((𝑁 + 1) / 𝑁))) = ((log‘((𝑁 + 1) / 𝑁)) / 2))
17		relogexp 25751	. . . . . . . 8 ⊢ ((((𝑁 + 1) / 𝑁) ∈ ℝ⁺ ∧ 𝑁 ∈ ℤ) → (log‘(((𝑁 + 1) / 𝑁)↑𝑁)) = (𝑁 · (log‘((𝑁 + 1) / 𝑁))))
18	6, 8, 17	syl2anc 584	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘(((𝑁 + 1) / 𝑁)↑𝑁)) = (𝑁 · (log‘((𝑁 + 1) / 𝑁))))
19	16, 18	oveq12d 7293	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((log‘(√‘((𝑁 + 1) / 𝑁))) + (log‘(((𝑁 + 1) / 𝑁)↑𝑁))) = (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
20	14, 19	eqtrd 2778	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
21		peano2nn 11985	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
22	21	nncnd 11989	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℂ)
23		nncn 11981	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
24		nnne0 12007	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 ≠ 0)
25	22, 23, 24	divcld 11751	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ∈ ℂ)
26	21	nnne0d 12023	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ≠ 0)
27	22, 23, 26, 24	divne0d 11767	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / 𝑁) ≠ 0)
28	25, 27	logcld 25726	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (log‘((𝑁 + 1) / 𝑁)) ∈ ℂ)
29		2cnd 12051	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℂ)
30		2rp 12735	. . . . . . . . 9 ⊢ 2 ∈ ℝ⁺
31	30	a1i 11	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ⁺)
32	31	rpne0d 12777	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 2 ≠ 0)
33	28, 29, 32	divrec2d 11755	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((log‘((𝑁 + 1) / 𝑁)) / 2) = ((1 / 2) · (log‘((𝑁 + 1) / 𝑁))))
34	33	oveq1d 7290	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((log‘((𝑁 + 1) / 𝑁)) / 2) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))) = (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
35		1cnd 10970	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
36	35	halfcld 12218	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (1 / 2) ∈ ℂ)
37	36, 23, 28	adddird 11000	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((1 / 2) + 𝑁) · (log‘((𝑁 + 1) / 𝑁))) = (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))))
38	23, 29, 32	divcan4d 11757	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 · 2) / 2) = 𝑁)
39	23, 29	mulcomd 10996	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (𝑁 · 2) = (2 · 𝑁))
40	39	oveq1d 7290	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 · 2) / 2) = ((2 · 𝑁) / 2))
41	38, 40	eqtr3d 2780	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → 𝑁 = ((2 · 𝑁) / 2))
42	41	oveq2d 7291	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 / 2) + 𝑁) = ((1 / 2) + ((2 · 𝑁) / 2)))
43	29, 23	mulcld 10995	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℂ)
44	35, 43, 29, 32	divdird 11789	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 + (2 · 𝑁)) / 2) = ((1 / 2) + ((2 · 𝑁) / 2)))
45	42, 44	eqtr4d 2781	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((1 / 2) + 𝑁) = ((1 + (2 · 𝑁)) / 2))
46	45	oveq1d 7290	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((1 / 2) + 𝑁) · (log‘((𝑁 + 1) / 𝑁))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
47	37, 46	eqtr3d 2780	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((1 / 2) · (log‘((𝑁 + 1) / 𝑁))) + (𝑁 · (log‘((𝑁 + 1) / 𝑁)))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
48	20, 34, 47	3eqtrd 2782	. . . 4 ⊢ (𝑁 ∈ ℕ → (log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
49		loge 25742	. . . . 5 ⊢ (log‘e) = 1
50	49	a1i 11	. . . 4 ⊢ (𝑁 ∈ ℕ → (log‘e) = 1)
51	48, 50	oveq12d 7293	. . 3 ⊢ (𝑁 ∈ ℕ → ((log‘((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁))) − (log‘e)) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
52	13, 51	eqtrd 2778	. 2 ⊢ (𝑁 ∈ ℕ → (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
53		stirlinglem4.1	. . . . . . 7 ⊢ 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
54	53	stirlinglem2 43616	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘𝑁) ∈ ℝ⁺)
55	54	relogcld 25778	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘(𝐴‘𝑁)) ∈ ℝ)
56		nfcv 2907	. . . . . 6 ⊢ Ⅎ𝑛𝑁
57		nfcv 2907	. . . . . . 7 ⊢ Ⅎ𝑛log
58		nfmpt1 5182	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
59	53, 58	nfcxfr 2905	. . . . . . . 8 ⊢ Ⅎ𝑛𝐴
60	59, 56	nffv 6784	. . . . . . 7 ⊢ Ⅎ𝑛(𝐴‘𝑁)
61	57, 60	nffv 6784	. . . . . 6 ⊢ Ⅎ𝑛(log‘(𝐴‘𝑁))
62		2fveq3 6779	. . . . . 6 ⊢ (𝑛 = 𝑁 → (log‘(𝐴‘𝑛)) = (log‘(𝐴‘𝑁)))
63		stirlinglem4.2	. . . . . 6 ⊢ 𝐵 = (𝑛 ∈ ℕ ↦ (log‘(𝐴‘𝑛)))
64	56, 61, 62, 63	fvmptf 6896	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ (log‘(𝐴‘𝑁)) ∈ ℝ) → (𝐵‘𝑁) = (log‘(𝐴‘𝑁)))
65	55, 64	mpdan 684	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝐵‘𝑁) = (log‘(𝐴‘𝑁)))
66		nfcv 2907	. . . . . . . 8 ⊢ Ⅎ𝑘(log‘(𝐴‘𝑛))
67		nfcv 2907	. . . . . . . . . 10 ⊢ Ⅎ𝑛𝑘
68	59, 67	nffv 6784	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐴‘𝑘)
69	57, 68	nffv 6784	. . . . . . . 8 ⊢ Ⅎ𝑛(log‘(𝐴‘𝑘))
70		2fveq3 6779	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → (log‘(𝐴‘𝑛)) = (log‘(𝐴‘𝑘)))
71	66, 69, 70	cbvmpt 5185	. . . . . . 7 ⊢ (𝑛 ∈ ℕ ↦ (log‘(𝐴‘𝑛))) = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘)))
72	63, 71	eqtri 2766	. . . . . 6 ⊢ 𝐵 = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘)))
73	72	a1i 11	. . . . 5 ⊢ (𝑁 ∈ ℕ → 𝐵 = (𝑘 ∈ ℕ ↦ (log‘(𝐴‘𝑘))))
74		simpr 485	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → 𝑘 = (𝑁 + 1))
75	74	fveq2d 6778	. . . . . 6 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (𝐴‘𝑘) = (𝐴‘(𝑁 + 1)))
76	75	fveq2d 6778	. . . . 5 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (log‘(𝐴‘𝑘)) = (log‘(𝐴‘(𝑁 + 1))))
77	53	stirlinglem2 43616	. . . . . . 7 ⊢ ((𝑁 + 1) ∈ ℕ → (𝐴‘(𝑁 + 1)) ∈ ℝ⁺)
78	21, 77	syl 17	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘(𝑁 + 1)) ∈ ℝ⁺)
79	78	relogcld 25778	. . . . 5 ⊢ (𝑁 ∈ ℕ → (log‘(𝐴‘(𝑁 + 1))) ∈ ℝ)
80	73, 76, 21, 79	fvmptd 6882	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝐵‘(𝑁 + 1)) = (log‘(𝐴‘(𝑁 + 1))))
81	65, 80	oveq12d 7293	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = ((log‘(𝐴‘𝑁)) − (log‘(𝐴‘(𝑁 + 1)))))
82	54, 78	relogdivd 25781	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘((𝐴‘𝑁) / (𝐴‘(𝑁 + 1)))) = ((log‘(𝐴‘𝑁)) − (log‘(𝐴‘(𝑁 + 1)))))
83		faccl 13997	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ₀ → (!‘𝑁) ∈ ℕ)
84		nnrp 12741	. . . . . . . . 9 ⊢ ((!‘𝑁) ∈ ℕ → (!‘𝑁) ∈ ℝ⁺)
85	2, 83, 84	3syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℝ⁺)
86	31, 5	rpmulcld 12788	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2 · 𝑁) ∈ ℝ⁺)
87	86	rpsqrtcld 15123	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ∈ ℝ⁺)
88	5, 12	rpdivcld 12789	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 / e) ∈ ℝ⁺)
89	88, 8	rpexpcld 13962	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ∈ ℝ⁺)
90	87, 89	rpmulcld 12788	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℝ⁺)
91	85, 90	rpdivcld 12789	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺)
92	53	a1i 11	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))))
93		simpr 485	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → 𝑛 = 𝑁)
94	93	fveq2d 6778	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (!‘𝑛) = (!‘𝑁))
95	93	oveq2d 7291	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (2 · 𝑛) = (2 · 𝑁))
96	95	fveq2d 6778	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (√‘(2 · 𝑛)) = (√‘(2 · 𝑁)))
97	93	oveq1d 7290	. . . . . . . . . . 11 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → (𝑛 / e) = (𝑁 / e))
98	97, 93	oveq12d 7293	. . . . . . . . . 10 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((𝑛 / e)↑𝑛) = ((𝑁 / e)↑𝑁))
99	96, 98	oveq12d 7293	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)))
100	94, 99	oveq12d 7293	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) ∧ 𝑛 = 𝑁) → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
101		simpl 483	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℕ)
102	85	rpcnd 12774	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℂ)
103	102	adantr 481	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (!‘𝑁) ∈ ℂ)
104		2cnd 12051	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 2 ∈ ℂ)
105	101	nncnd 11989	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℂ)
106	104, 105	mulcld 10995	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (2 · 𝑁) ∈ ℂ)
107	106	sqrtcld 15149	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (√‘(2 · 𝑁)) ∈ ℂ)
108		ere 15798	. . . . . . . . . . . . . 14 ⊢ e ∈ ℝ
109	108	recni 10989	. . . . . . . . . . . . 13 ⊢ e ∈ ℂ
110	109	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → e ∈ ℂ)
111		0re 10977	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℝ
112		epos 15916	. . . . . . . . . . . . . 14 ⊢ 0 < e
113	111, 112	gtneii 11087	. . . . . . . . . . . . 13 ⊢ e ≠ 0
114	113	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → e ≠ 0)
115	105, 110, 114	divcld 11751	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝑁 / e) ∈ ℂ)
116	101	nnnn0d 12293	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℕ₀)
117	115, 116	expcld 13864	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((𝑁 / e)↑𝑁) ∈ ℂ)
118	107, 117	mulcld 10995	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℂ)
119	87	rpne0d 12777	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ≠ 0)
120	119	adantr 481	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (√‘(2 · 𝑁)) ≠ 0)
121	101	nnne0d 12023	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ≠ 0)
122	105, 110, 121, 114	divne0d 11767	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝑁 / e) ≠ 0)
123	101	nnzd 12425	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → 𝑁 ∈ ℤ)
124	115, 122, 123	expne0d 13870	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((𝑁 / e)↑𝑁) ≠ 0)
125	107, 117, 120, 124	mulne0d 11627	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ≠ 0)
126	103, 118, 125	divcld 11751	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℂ)
127	92, 100, 101, 126	fvmptd 6882	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) ∈ ℝ⁺) → (𝐴‘𝑁) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
128	91, 127	mpdan 684	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘𝑁) = ((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
129		nfcv 2907	. . . . . . . . . 10 ⊢ Ⅎ𝑘((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
130		nfcv 2907	. . . . . . . . . 10 ⊢ Ⅎ𝑛((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))
131		fveq2 6774	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → (!‘𝑛) = (!‘𝑘))
132		oveq2 7283	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → (2 · 𝑛) = (2 · 𝑘))
133	132	fveq2d 6778	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑘 → (√‘(2 · 𝑛)) = (√‘(2 · 𝑘)))
134		oveq1 7282	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → (𝑛 / e) = (𝑘 / e))
135		id 22	. . . . . . . . . . . . 13 ⊢ (𝑛 = 𝑘 → 𝑛 = 𝑘)
136	134, 135	oveq12d 7293	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝑘 → ((𝑛 / e)↑𝑛) = ((𝑘 / e)↑𝑘))
137	133, 136	oveq12d 7293	. . . . . . . . . . 11 ⊢ (𝑛 = 𝑘 → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))
138	131, 137	oveq12d 7293	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
139	129, 130, 138	cbvmpt 5185	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))) = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
140	53, 139	eqtri 2766	. . . . . . . 8 ⊢ 𝐴 = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
141	140	a1i 11	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝐴 = (𝑘 ∈ ℕ ↦ ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))))
142	74	fveq2d 6778	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (!‘𝑘) = (!‘(𝑁 + 1)))
143	74	oveq2d 7291	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (2 · 𝑘) = (2 · (𝑁 + 1)))
144	143	fveq2d 6778	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (√‘(2 · 𝑘)) = (√‘(2 · (𝑁 + 1))))
145	74	oveq1d 7290	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → (𝑘 / e) = ((𝑁 + 1) / e))
146	145, 74	oveq12d 7293	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((𝑘 / e)↑𝑘) = (((𝑁 + 1) / e)↑(𝑁 + 1)))
147	144, 146	oveq12d 7293	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)) = ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
148	142, 147	oveq12d 7293	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 = (𝑁 + 1)) → ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))) = ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
149	21	nnnn0d 12293	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ₀)
150		faccl 13997	. . . . . . . . 9 ⊢ ((𝑁 + 1) ∈ ℕ₀ → (!‘(𝑁 + 1)) ∈ ℕ)
151		nnrp 12741	. . . . . . . . 9 ⊢ ((!‘(𝑁 + 1)) ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℝ⁺)
152	149, 150, 151	3syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℝ⁺)
153	31, 4	rpmulcld 12788	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (2 · (𝑁 + 1)) ∈ ℝ⁺)
154	153	rpsqrtcld 15123	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) ∈ ℝ⁺)
155	4, 12	rpdivcld 12789	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / e) ∈ ℝ⁺)
156	8	peano2zd 12429	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℤ)
157	155, 156	rpexpcld 13962	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) ∈ ℝ⁺)
158	154, 157	rpmulcld 12788	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℝ⁺)
159	152, 158	rpdivcld 12789	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ∈ ℝ⁺)
160	141, 148, 21, 159	fvmptd 6882	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐴‘(𝑁 + 1)) = ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
161	128, 160	oveq12d 7293	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝐴‘𝑁) / (𝐴‘(𝑁 + 1))) = (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
162		facp1 13992	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
163	2, 162	syl 17	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
164	163	oveq1d 7290	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = (((!‘𝑁) · (𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))
165	158	rpcnd 12774	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℂ)
166	158	rpne0d 12777	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ≠ 0)
167	102, 22, 165, 166	divassd 11786	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · (𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
168	164, 167	eqtrd 2778	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) = ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
169	168	oveq2d 7291	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))))
170	90	rpcnd 12774	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ∈ ℂ)
171	22, 165, 166	divcld 11751	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ∈ ℂ)
172	102, 171	mulcld 10995	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) ∈ ℂ)
173	90	rpne0d 12777	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁)) ≠ 0)
174	85	rpne0d 12777	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ≠ 0)
175	22, 165, 26, 166	divne0d 11767	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))) ≠ 0)
176	102, 171, 174, 175	mulne0d 11627	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) ≠ 0)
177	102, 170, 172, 173, 176	divdiv32d 11776	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) = (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
178	102, 102, 171, 174, 175	divdiv1d 11782	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = ((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))))
179	178	eqcomd 2744	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) = (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
180	179	oveq1d 7290	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
181	102, 174	dividd 11749	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / (!‘𝑁)) = 1)
182	181	oveq1d 7290	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))))
183	182	oveq1d 7290	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((!‘𝑁) / (!‘𝑁)) / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
184	22, 165, 26, 166	recdivd 11768	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
185	184	oveq1d 7290	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
186	165, 22, 26	divcld 11751	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) ∈ ℂ)
187	87	rpcnd 12774	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) ∈ ℂ)
188	89	rpcnd 12774	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ∈ ℂ)
189	89	rpne0d 12777	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) ≠ 0)
190	186, 187, 188, 119, 189	divdiv1d 11782	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) / ((𝑁 / e)↑𝑁)) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))))
191	165, 22, 187, 26, 119	divdiv32d 11776	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) = ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) / (𝑁 + 1)))
192	154	rpcnd 12774	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) ∈ ℂ)
193	157	rpcnd 12774	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) ∈ ℂ)
194	192, 193, 187, 119	div23d 11788	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) = (((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
195	31	rpred 12772	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 2 ∈ ℝ)
196	31	rpge0d 12776	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 0 ≤ 2)
197	21	nnred 11988	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℝ)
198	149	nn0ge0d 12296	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → 0 ≤ (𝑁 + 1))
199	195, 196, 197, 198	sqrtmuld 15136	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(2 · (𝑁 + 1))) = ((√‘2) · (√‘(𝑁 + 1))))
200	195, 196, 1, 3	sqrtmuld 15136	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(2 · 𝑁)) = ((√‘2) · (√‘𝑁)))
201	199, 200	oveq12d 7293	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) = (((√‘2) · (√‘(𝑁 + 1))) / ((√‘2) · (√‘𝑁))))
202	29	sqrtcld 15149	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘2) ∈ ℂ)
203	22	sqrtcld 15149	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘(𝑁 + 1)) ∈ ℂ)
204	23	sqrtcld 15149	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ∈ ℂ)
205	31	rpsqrtcld 15123	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘2) ∈ ℝ⁺)
206	205	rpne0d 12777	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘2) ≠ 0)
207	5	rpsqrtcld 15123	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ∈ ℝ⁺)
208	207	rpne0d 12777	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (√‘𝑁) ≠ 0)
209	202, 202, 203, 204, 206, 208	divmuldivd 11792	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (((√‘2) / (√‘2)) · ((√‘(𝑁 + 1)) / (√‘𝑁))) = (((√‘2) · (√‘(𝑁 + 1))) / ((√‘2) · (√‘𝑁))))
210	202, 206	dividd 11749	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((√‘2) / (√‘2)) = 1)
211	197, 198, 5	sqrtdivd 15135	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) = ((√‘(𝑁 + 1)) / (√‘𝑁)))
212	211	eqcomd 2744	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((√‘(𝑁 + 1)) / (√‘𝑁)) = (√‘((𝑁 + 1) / 𝑁)))
213	210, 212	oveq12d 7293	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (((√‘2) / (√‘2)) · ((√‘(𝑁 + 1)) / (√‘𝑁))) = (1 · (√‘((𝑁 + 1) / 𝑁))))
214	201, 209, 213	3eqtr2d 2784	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → ((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) = (1 · (√‘((𝑁 + 1) / 𝑁))))
215	214	oveq1d 7290	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) / (√‘(2 · 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) = ((1 · (√‘((𝑁 + 1) / 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
216	25	sqrtcld 15149	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → (√‘((𝑁 + 1) / 𝑁)) ∈ ℂ)
217	216	mulid2d 10993	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (1 · (√‘((𝑁 + 1) / 𝑁))) = (√‘((𝑁 + 1) / 𝑁)))
218	217	oveq1d 7290	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((1 · (√‘((𝑁 + 1) / 𝑁))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
219	194, 215, 218	3eqtrd 2782	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))))
220	219	oveq1d 7290	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (√‘(2 · 𝑁))) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
221	191, 220	eqtrd 2778	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)))
222	221	oveq1d 7290	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / (√‘(2 · 𝑁))) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)))
223	190, 222	eqtr3d 2780	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)))
224	216, 193	mulcld 10995	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) ∈ ℂ)
225	224, 22, 188, 26, 189	divdiv32d 11776	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) / (𝑁 + 1)))
226	216, 193, 188, 189	divassd 11786	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁))))
227	12	rpcnd 12774	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → e ∈ ℂ)
228	12	rpne0d 12777	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → e ≠ 0)
229	22, 227, 228, 149	expdivd 13878	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / e)↑(𝑁 + 1)) = (((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))))
230	23, 227, 228, 2	expdivd 13878	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((𝑁 / e)↑𝑁) = ((𝑁↑𝑁) / (e↑𝑁)))
231	229, 230	oveq12d 7293	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))))
232	231	oveq2d 7291	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1) / e)↑(𝑁 + 1)) / ((𝑁 / e)↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁)))))
233	22, 149	expcld 13864	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑(𝑁 + 1)) ∈ ℂ)
234	227, 149	expcld 13864	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) ∈ ℂ)
235	23, 2	expcld 13864	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (𝑁↑𝑁) ∈ ℂ)
236	227, 2	expcld 13864	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑𝑁) ∈ ℂ)
237	227, 228, 156	expne0d 13870	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) ≠ 0)
238	227, 228, 8	expne0d 13870	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (e↑𝑁) ≠ 0)
239	23, 24, 8	expne0d 13870	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (𝑁↑𝑁) ≠ 0)
240	233, 234, 235, 236, 237, 238, 239	divdivdivd 11798	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))) = ((((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
241	233, 236	mulcomd 10996	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) = ((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))))
242	241	oveq1d 7290	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) · (e↑𝑁)) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))) = (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
243	236, 234, 233, 235, 237, 239	divmuldivd 11792	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑(𝑁 + 1))) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))))
244	227, 2	expp1d 13865	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → (e↑(𝑁 + 1)) = ((e↑𝑁) · e))
245	244	oveq2d 7291	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑(𝑁 + 1))) = ((e↑𝑁) / ((e↑𝑁) · e)))
246	236, 236, 227, 238, 228	divdiv1d 11782	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑𝑁)) / e) = ((e↑𝑁) / ((e↑𝑁) · e)))
247	236, 238	dividd 11749	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑𝑁)) = 1)
248	247	oveq1d 7290	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑𝑁)) / e) = (1 / e))
249	245, 246, 248	3eqtr2d 2784	. . . . . . . . . . . . . . 15 ⊢ (𝑁 ∈ ℕ → ((e↑𝑁) / (e↑(𝑁 + 1))) = (1 / e))
250	249	oveq1d 7290	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) / (e↑(𝑁 + 1))) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
251	243, 250	eqtr3d 2780	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((e↑𝑁) · ((𝑁 + 1)↑(𝑁 + 1))) / ((e↑(𝑁 + 1)) · (𝑁↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
252	240, 242, 251	3eqtrd 2782	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁))) = ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))))
253	252	oveq2d 7291	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (e↑(𝑁 + 1))) / ((𝑁↑𝑁) / (e↑𝑁)))) = ((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
254	226, 232, 253	3eqtrd 2782	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) = ((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
255	254	oveq1d 7290	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / ((𝑁 / e)↑𝑁)) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)))
256	233, 235, 239	divcld 11751	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) ∈ ℂ)
257	35, 227, 256, 228	div32d 11774	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = (1 · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
258	256, 227, 228	divcld 11751	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e) ∈ ℂ)
259	258	mulid2d 10993	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (1 · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e))
260	257, 259	eqtrd 2778	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e))
261	260	oveq2d 7291	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
262	227, 228	reccld 11744	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → (1 / e) ∈ ℂ)
263	262, 256	mulcld 10995	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) ∈ ℂ)
264	216, 263, 22, 26	div23d 11788	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))))
265	216, 22, 26	divcld 11751	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) ∈ ℂ)
266	265, 256, 227, 228	divassd 11786	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e) = (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / e)))
267	261, 264, 266	3eqtr4d 2788	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) · ((1 / e) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)))) / (𝑁 + 1)) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
268	225, 255, 267	3eqtrd 2782	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / e)↑(𝑁 + 1))) / (𝑁 + 1)) / ((𝑁 / e)↑𝑁)) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
269	185, 223, 268	3eqtrd 2782	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((1 / ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
270	180, 183, 269	3eqtrd 2782	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((!‘𝑁) · ((𝑁 + 1) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1)))))) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
271	169, 177, 270	3eqtrd 2782	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / ((√‘(2 · 𝑁)) · ((𝑁 / e)↑𝑁))) / ((!‘(𝑁 + 1)) / ((√‘(2 · (𝑁 + 1))) · (((𝑁 + 1) / e)↑(𝑁 + 1))))) = ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e))
272	216, 22, 256, 26	div32d 11774	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1))))
273	22, 2	expp1d 13865	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑(𝑁 + 1)) = (((𝑁 + 1)↑𝑁) · (𝑁 + 1)))
274	273	oveq1d 7290	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) = ((((𝑁 + 1)↑𝑁) · (𝑁 + 1)) / (𝑁 + 1)))
275	22, 2	expcld 13864	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1)↑𝑁) ∈ ℂ)
276	275, 22, 26	divcan4d 11757	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑𝑁) · (𝑁 + 1)) / (𝑁 + 1)) = ((𝑁 + 1)↑𝑁))
277	274, 276	eqtrd 2778	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) = ((𝑁 + 1)↑𝑁))
278	277	oveq1d 7290	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) / (𝑁↑𝑁)) = (((𝑁 + 1)↑𝑁) / (𝑁↑𝑁)))
279	233, 235, 22, 239, 26	divdiv32d 11776	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1)) = ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁 + 1)) / (𝑁↑𝑁)))
280	22, 23, 24, 2	expdivd 13878	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) / 𝑁)↑𝑁) = (((𝑁 + 1)↑𝑁) / (𝑁↑𝑁)))
281	278, 279, 280	3eqtr4d 2788	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1)) = (((𝑁 + 1) / 𝑁)↑𝑁))
282	281	oveq2d 7291	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((√‘((𝑁 + 1) / 𝑁)) · ((((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁)) / (𝑁 + 1))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)))
283	272, 282	eqtrd 2778	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) = ((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)))
284	283	oveq1d 7290	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((((√‘((𝑁 + 1) / 𝑁)) / (𝑁 + 1)) · (((𝑁 + 1)↑(𝑁 + 1)) / (𝑁↑𝑁))) / e) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e))
285	161, 271, 284	3eqtrd 2782	. . . 4 ⊢ (𝑁 ∈ ℕ → ((𝐴‘𝑁) / (𝐴‘(𝑁 + 1))) = (((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e))
286	285	fveq2d 6778	. . 3 ⊢ (𝑁 ∈ ℕ → (log‘((𝐴‘𝑁) / (𝐴‘(𝑁 + 1)))) = (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)))
287	81, 82, 286	3eqtr2d 2784	. 2 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = (log‘(((√‘((𝑁 + 1) / 𝑁)) · (((𝑁 + 1) / 𝑁)↑𝑁)) / e)))
288	35, 43	addcld 10994	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (1 + (2 · 𝑁)) ∈ ℂ)
289	288	halfcld 12218	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((1 + (2 · 𝑁)) / 2) ∈ ℂ)
290	289, 28	mulcld 10995	. . . 4 ⊢ (𝑁 ∈ ℕ → (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) ∈ ℂ)
291	290, 35	subcld 11332	. . 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 485	. . . . . . . . 9 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → 𝑛 = 𝑁)
295	294	oveq2d 7291	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (2 · 𝑛) = (2 · 𝑁))
296	295	oveq2d 7291	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (1 + (2 · 𝑛)) = (1 + (2 · 𝑁)))
297	296	oveq1d 7290	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((1 + (2 · 𝑛)) / 2) = ((1 + (2 · 𝑁)) / 2))
298	294	oveq1d 7290	. . . . . . . 8 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (𝑛 + 1) = (𝑁 + 1))
299	298, 294	oveq12d 7293	. . . . . . 7 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((𝑛 + 1) / 𝑛) = ((𝑁 + 1) / 𝑁))
300	299	fveq2d 6778	. . . . . 6 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (log‘((𝑛 + 1) / 𝑛)) = (log‘((𝑁 + 1) / 𝑁)))
301	297, 300	oveq12d 7293	. . . . 5 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → (((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) = (((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))))
302	301	oveq1d 7290	. . . 4 ⊢ (((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) ∧ 𝑛 = 𝑁) → ((((1 + (2 · 𝑛)) / 2) · (log‘((𝑛 + 1) / 𝑛))) − 1) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
303		simpl 483	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → 𝑁 ∈ ℕ)
304		simpr 485	. . . 4 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ)
305	293, 302, 303, 304	fvmptd 6882	. . 3 ⊢ ((𝑁 ∈ ℕ ∧ ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1) ∈ ℂ) → (𝐽‘𝑁) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
306	291, 305	mpdan 684	. 2 ⊢ (𝑁 ∈ ℕ → (𝐽‘𝑁) = ((((1 + (2 · 𝑁)) / 2) · (log‘((𝑁 + 1) / 𝑁))) − 1))
307	52, 287, 306	3eqtr4d 2788	1 ⊢ (𝑁 ∈ ℕ → ((𝐵‘𝑁) − (𝐵‘(𝑁 + 1))) = (𝐽‘𝑁))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 396 = wceq 1539 ∈ wcel 2106 ≠ wne 2943 ↦ cmpt 5157 ‘cfv 6433 (class class class)co 7275 ℂcc 10869 ℝcr 10870 0cc0 10871 1c1 10872 + caddc 10874 · cmul 10876 − cmin 11205 / cdiv 11632 ℕcn 11973 2c2 12028 ℕ₀cn0 12233 ℤcz 12319 ℝ⁺crp 12730 ↑cexp 13782 !cfa 13987 √csqrt 14944 eceu 15772 logclog 25710

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 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2709 ax-rep 5209 ax-sep 5223 ax-nul 5230 ax-pow 5288 ax-pr 5352 ax-un 7588 ax-inf2 9399 ax-cnex 10927 ax-resscn 10928 ax-1cn 10929 ax-icn 10930 ax-addcl 10931 ax-addrcl 10932 ax-mulcl 10933 ax-mulrcl 10934 ax-mulcom 10935 ax-addass 10936 ax-mulass 10937 ax-distr 10938 ax-i2m1 10939 ax-1ne0 10940 ax-1rid 10941 ax-rnegex 10942 ax-rrecex 10943 ax-cnre 10944 ax-pre-lttri 10945 ax-pre-lttrn 10946 ax-pre-ltadd 10947 ax-pre-mulgt0 10948 ax-pre-sup 10949 ax-addf 10950 ax-mulf 10951

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3or 1087 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2068 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2816 df-nfc 2889 df-ne 2944 df-nel 3050 df-ral 3069 df-rex 3070 df-rmo 3071 df-reu 3072 df-rab 3073 df-v 3434 df-sbc 3717 df-csb 3833 df-dif 3890 df-un 3892 df-in 3894 df-ss 3904 df-pss 3906 df-nul 4257 df-if 4460 df-pw 4535 df-sn 4562 df-pr 4564 df-tp 4566 df-op 4568 df-uni 4840 df-int 4880 df-iun 4926 df-iin 4927 df-br 5075 df-opab 5137 df-mpt 5158 df-tr 5192 df-id 5489 df-eprel 5495 df-po 5503 df-so 5504 df-fr 5544 df-se 5545 df-we 5546 df-xp 5595 df-rel 5596 df-cnv 5597 df-co 5598 df-dm 5599 df-rn 5600 df-res 5601 df-ima 5602 df-pred 6202 df-ord 6269 df-on 6270 df-lim 6271 df-suc 6272 df-iota 6391 df-fun 6435 df-fn 6436 df-f 6437 df-f1 6438 df-fo 6439 df-f1o 6440 df-fv 6441 df-isom 6442 df-riota 7232 df-ov 7278 df-oprab 7279 df-mpo 7280 df-of 7533 df-om 7713 df-1st 7831 df-2nd 7832 df-supp 7978 df-frecs 8097 df-wrecs 8128 df-recs 8202 df-rdg 8241 df-1o 8297 df-2o 8298 df-er 8498 df-map 8617 df-pm 8618 df-ixp 8686 df-en 8734 df-dom 8735 df-sdom 8736 df-fin 8737 df-fsupp 9129 df-fi 9170 df-sup 9201 df-inf 9202 df-oi 9269 df-card 9697 df-pnf 11011 df-mnf 11012 df-xr 11013 df-ltxr 11014 df-le 11015 df-sub 11207 df-neg 11208 df-div 11633 df-nn 11974 df-2 12036 df-3 12037 df-4 12038 df-5 12039 df-6 12040 df-7 12041 df-8 12042 df-9 12043 df-n0 12234 df-z 12320 df-dec 12438 df-uz 12583 df-q 12689 df-rp 12731 df-xneg 12848 df-xadd 12849 df-xmul 12850 df-ioo 13083 df-ioc 13084 df-ico 13085 df-icc 13086 df-fz 13240 df-fzo 13383 df-fl 13512 df-mod 13590 df-seq 13722 df-exp 13783 df-fac 13988 df-bc 14017 df-hash 14045 df-shft 14778 df-cj 14810 df-re 14811 df-im 14812 df-sqrt 14946 df-abs 14947 df-limsup 15180 df-clim 15197 df-rlim 15198 df-sum 15398 df-ef 15777 df-e 15778 df-sin 15779 df-cos 15780 df-pi 15782 df-struct 16848 df-sets 16865 df-slot 16883 df-ndx 16895 df-base 16913 df-ress 16942 df-plusg 16975 df-mulr 16976 df-starv 16977 df-sca 16978 df-vsca 16979 df-ip 16980 df-tset 16981 df-ple 16982 df-ds 16984 df-unif 16985 df-hom 16986 df-cco 16987 df-rest 17133 df-topn 17134 df-0g 17152 df-gsum 17153 df-topgen 17154 df-pt 17155 df-prds 17158 df-xrs 17213 df-qtop 17218 df-imas 17219 df-xps 17221 df-mre 17295 df-mrc 17296 df-acs 17298 df-mgm 18326 df-sgrp 18375 df-mnd 18386 df-submnd 18431 df-mulg 18701 df-cntz 18923 df-cmn 19388 df-psmet 20589 df-xmet 20590 df-met 20591 df-bl 20592 df-mopn 20593 df-fbas 20594 df-fg 20595 df-cnfld 20598 df-top 22043 df-topon 22060 df-topsp 22082 df-bases 22096 df-cld 22170 df-ntr 22171 df-cls 22172 df-nei 22249 df-lp 22287 df-perf 22288 df-cn 22378 df-cnp 22379 df-haus 22466 df-tx 22713 df-hmeo 22906 df-fil 22997 df-fm 23089 df-flim 23090 df-flf 23091 df-xms 23473 df-ms 23474 df-tms 23475 df-cncf 24041 df-limc 25030 df-dv 25031 df-log 25712 df-cxp 25713

This theorem is referenced by: stirlinglem9 43623

W3C validator