stirlinglem15 - Mathbox for Glauco Siliprandi

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

Theorem stirlinglem15 46694

Description: The Stirling's formula is proven using a number of local definitions. The main theorem stirling 46695 will use this final lemma, but it will not expose the local definitions. (Contributed by Glauco Siliprandi, 29-Jun-2017.)

**Hypotheses**
Ref	Expression
stirlinglem15.1	⊢ Ⅎ𝑛𝜑
stirlinglem15.2	⊢ 𝑆 = (𝑛 ∈ ℕ₀ ↦ ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)))
stirlinglem15.3	⊢ 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
stirlinglem15.4	⊢ 𝐷 = (𝑛 ∈ ℕ ↦ (𝐴‘(2 · 𝑛)))
stirlinglem15.5	⊢ 𝐸 = (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
stirlinglem15.6	⊢ 𝑉 = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
stirlinglem15.7	⊢ 𝐹 = (𝑛 ∈ ℕ ↦ (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)))
stirlinglem15.8	⊢ 𝐻 = (𝑛 ∈ ℕ ↦ ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
stirlinglem15.9	⊢ (𝜑 → 𝐶 ∈ ℝ⁺)
stirlinglem15.10	⊢ (𝜑 → 𝐴 ⇝ 𝐶)

**Assertion**
Ref	Expression
stirlinglem15	⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((!‘𝑛) / (𝑆‘𝑛))) ⇝ 1)

Distinct variable group: 𝐶,𝑛 Allowed substitution hints: 𝜑(𝑛) 𝐴(𝑛) 𝐷(𝑛) 𝑆(𝑛) 𝐸(𝑛) 𝐹(𝑛) 𝐻(𝑛) 𝑉(𝑛)

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

Step	Hyp	Ref	Expression
1		stirlinglem15.1	. . 3 ⊢ Ⅎ𝑛𝜑
2		nnnn0 12511	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ₀)
3	2	adantl 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℕ₀)
4		2cnd 12319	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 2 ∈ ℂ)
5		picn 26587	. . . . . . . . . . 11 ⊢ π ∈ ℂ
6	5	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → π ∈ ℂ)
7	4, 6	mulcld 11229	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (2 · π) ∈ ℂ)
8		nncn 12241	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
9	8	adantl 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℂ)
10	7, 9	mulcld 11229	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((2 · π) · 𝑛) ∈ ℂ)
11	10	sqrtcld 15491	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘((2 · π) · 𝑛)) ∈ ℂ)
12		ere 16143	. . . . . . . . . . . 12 ⊢ e ∈ ℝ
13	12	recni 11223	. . . . . . . . . . 11 ⊢ e ∈ ℂ
14	13	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → e ∈ ℂ)
15		epos 16263	. . . . . . . . . . . 12 ⊢ 0 < e
16	12, 15	gt0ne0ii 11750	. . . . . . . . . . 11 ⊢ e ≠ 0
17	16	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → e ≠ 0)
18	8, 14, 17	divcld 11991	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝑛 / e) ∈ ℂ)
19	18, 2	expcld 14182	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ∈ ℂ)
20	19	adantl 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝑛 / e)↑𝑛) ∈ ℂ)
21	11, 20	mulcld 11229	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ)
22		stirlinglem15.2	. . . . . . 7 ⊢ 𝑆 = (𝑛 ∈ ℕ₀ ↦ ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)))
23	22	fvmpt2 7002	. . . . . 6 ⊢ ((𝑛 ∈ ℕ₀ ∧ ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ) → (𝑆‘𝑛) = ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)))
24	3, 21, 23	syl2anc 595	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑆‘𝑛) = ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)))
25	24	oveq2d 7427	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / (𝑆‘𝑛)) = ((!‘𝑛) / ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛))))
26	6	sqrtcld 15491	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘π) ∈ ℂ)
27		2cnd 12319	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℂ)
28	27, 8	mulcld 11229	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℂ)
29	28	sqrtcld 15491	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ∈ ℂ)
30	29	adantl 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘(2 · 𝑛)) ∈ ℂ)
31	26, 30, 20	mulassd 11232	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (((√‘π) · (√‘(2 · 𝑛))) · ((𝑛 / e)↑𝑛)) = ((√‘π) · ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
32		stirlinglem15.7	. . . . . . . . . . . . . . . 16 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)))
33		nfmpt1 5214	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)))
34	32, 33	nfcxfr 2929	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑛𝐹
35		stirlinglem15.8	. . . . . . . . . . . . . . . 16 ⊢ 𝐻 = (𝑛 ∈ ℕ ↦ ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
36		nfmpt1 5214	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
37	35, 36	nfcxfr 2929	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑛𝐻
38		stirlinglem15.6	. . . . . . . . . . . . . . . 16 ⊢ 𝑉 = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
39		nfmpt1 5214	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
40	38, 39	nfcxfr 2929	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑛𝑉
41		nnuz 12901	. . . . . . . . . . . . . . 15 ⊢ ℕ = (ℤ_≥‘1)
42		1zzd 12625	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℤ)
43		stirlinglem15.3	. . . . . . . . . . . . . . . . 17 ⊢ 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
44		nfmpt1 5214	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
45	43, 44	nfcxfr 2929	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛𝐴
46		stirlinglem15.4	. . . . . . . . . . . . . . . . 17 ⊢ 𝐷 = (𝑛 ∈ ℕ ↦ (𝐴‘(2 · 𝑛)))
47		nfmpt1 5214	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ (𝐴‘(2 · 𝑛)))
48	46, 47	nfcxfr 2929	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛𝐷
49		faccl 14319	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ₀ → (!‘𝑛) ∈ ℕ)
50	2, 49	syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (!‘𝑛) ∈ ℕ)
51	50	nnrpd 13058	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (!‘𝑛) ∈ ℝ⁺)
52		2rp 13021	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 2 ∈ ℝ⁺
53	52	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℝ⁺)
54		nnrp 13028	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℝ⁺)
55	53, 54	rpmulcld 13076	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ⁺)
56	55	rpsqrtcld 15463	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ∈ ℝ⁺)
57		epr 16264	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ e ∈ ℝ⁺
58	57	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → e ∈ ℝ⁺)
59	54, 58	rpdivcld 13077	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → (𝑛 / e) ∈ ℝ⁺)
60		nnz 12612	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℤ)
61	59, 60	rpexpcld 14283	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ∈ ℝ⁺)
62	56, 61	rpmulcld 13076	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℝ⁺)
63	51, 62	rpdivcld 13077	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℝ⁺)
64	43, 63	fmpti 7108	. . . . . . . . . . . . . . . . 17 ⊢ 𝐴:ℕ⟶ℝ⁺
65	64	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴:ℕ⟶ℝ⁺)
66		eqid 2769	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ ↦ ((𝐴‘𝑛)↑4)) = (𝑛 ∈ ℕ ↦ ((𝐴‘𝑛)↑4))
67		eqid 2769	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ ↦ ((𝐷‘𝑛)↑2)) = (𝑛 ∈ ℕ ↦ ((𝐷‘𝑛)↑2))
68	64	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → 𝐴:ℕ⟶ℝ⁺)
69		2nn 12314	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 2 ∈ ℕ
70	69	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ)
71		id 23	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ)
72	70, 71	nnmulcld 12289	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ)
73	68, 72	ffvelcdmd 7081	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) ∈ ℝ⁺)
74	46	fvmpt2 7002	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ ℕ ∧ (𝐴‘(2 · 𝑛)) ∈ ℝ⁺) → (𝐷‘𝑛) = (𝐴‘(2 · 𝑛)))
75	73, 74	mpdan 699	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) = (𝐴‘(2 · 𝑛)))
76	75, 73	eqeltrd 2869	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ∈ ℝ⁺)
77	76	adantl 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐷‘𝑛) ∈ ℝ⁺)
78		stirlinglem15.9	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐶 ∈ ℝ⁺)
79		stirlinglem15.10	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 ⇝ 𝐶)
80	1, 45, 48, 46, 65, 32, 66, 67, 77, 78, 79	stirlinglem8 46687	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹 ⇝ (𝐶↑2))
81		nnex 12239	. . . . . . . . . . . . . . . . . 18 ⊢ ℕ ∈ V
82	81	mptex 7222	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1))) ∈ V
83	38, 82	eqeltri 2865	. . . . . . . . . . . . . . . 16 ⊢ 𝑉 ∈ V
84	83	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑉 ∈ V)
85		eqid 2769	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ ↦ (1 − (1 / ((2 · 𝑛) + 1)))) = (𝑛 ∈ ℕ ↦ (1 − (1 / ((2 · 𝑛) + 1))))
86		eqid 2769	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ ↦ (1 / ((2 · 𝑛) + 1))) = (𝑛 ∈ ℕ ↦ (1 / ((2 · 𝑛) + 1)))
87		eqid 2769	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ ↦ (1 / 𝑛)) = (𝑛 ∈ ℕ ↦ (1 / 𝑛))
88	35, 85, 86, 87	stirlinglem1 46680	. . . . . . . . . . . . . . . 16 ⊢ 𝐻 ⇝ (1 / 2)
89	88	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐻 ⇝ (1 / 2))
90	50	nncnd 12249	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 ∈ ℕ → (!‘𝑛) ∈ ℂ)
91	29, 19	mulcld 11229	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ)
92	55	sqrtgt0d 15464	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑛 ∈ ℕ → 0 < (√‘(2 · 𝑛)))
93	92	gt0ne0d 11778	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ≠ 0)
94		nnne0 12270	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑛 ∈ ℕ → 𝑛 ≠ 0)
95	8, 14, 94, 17	divne0d 12007	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑛 ∈ ℕ → (𝑛 / e) ≠ 0)
96	18, 95, 60	expne0d 14188	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ≠ 0)
97	29, 19, 93, 96	mulne0d 11866	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ≠ 0)
98	90, 91, 97	divcld 11991	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ)
99	43	fvmpt2 7002	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑛 ∈ ℕ ∧ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ) → (𝐴‘𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
100	98, 99	mpdan 699	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → (𝐴‘𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
101	100, 98	eqeltrd 2869	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (𝐴‘𝑛) ∈ ℂ)
102		4nn0 12523	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 4 ∈ ℕ₀
103	102	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → 4 ∈ ℕ₀)
104	101, 103	expcld 14182	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → ((𝐴‘𝑛)↑4) ∈ ℂ)
105	76	rpcnd 13062	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ∈ ℂ)
106	105	sqcld 14180	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → ((𝐷‘𝑛)↑2) ∈ ℂ)
107	76	rpne0d 13065	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ≠ 0)
108		2z 12626	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 2 ∈ ℤ
109	108	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℤ)
110	105, 107, 109	expne0d 14188	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → ((𝐷‘𝑛)↑2) ≠ 0)
111	104, 106, 110	divcld 11991	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) ∈ ℂ)
112	32	fvmpt2 7002	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ℕ ∧ (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) ∈ ℂ) → (𝐹‘𝑛) = (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)))
113	111, 112	mpdan 699	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝐹‘𝑛) = (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)))
114	113, 111	eqeltrd 2869	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (𝐹‘𝑛) ∈ ℂ)
115	114	adantl 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ ℂ)
116	8	sqcld 14180	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (𝑛↑2) ∈ ℂ)
117		1cnd 11202	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℂ)
118	28, 117	addcld 11228	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℂ)
119	8, 118	mulcld 11229	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (𝑛 · ((2 · 𝑛) + 1)) ∈ ℂ)
120	72	nnred 12248	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
121		1red 11209	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℝ)
122	72	nngt0d 12285	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → 0 < (2 · 𝑛))
123		0lt1 11736	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 0 < 1
124	123	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → 0 < 1)
125	120, 121, 122, 124	addgt0d 11789	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → 0 < ((2 · 𝑛) + 1))
126	125	gt0ne0d 11778	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ≠ 0)
127	8, 118, 94, 126	mulne0d 11866	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (𝑛 · ((2 · 𝑛) + 1)) ≠ 0)
128	116, 119, 127	divcld 11991	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))) ∈ ℂ)
129	35	fvmpt2 7002	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ℕ ∧ ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))) ∈ ℂ) → (𝐻‘𝑛) = ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
130	128, 129	mpdan 699	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝐻‘𝑛) = ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
131	130, 128	eqeltrd 2869	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (𝐻‘𝑛) ∈ ℂ)
132	131	adantl 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐻‘𝑛) ∈ ℂ)
133	111, 128	mulcld 11229	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))) ∈ ℂ)
134		stirlinglem15.5	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐸 = (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
135	43, 46, 134, 38	stirlinglem3 46682	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑉 = (𝑛 ∈ ℕ ↦ ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
136	135	fvmpt2 7002	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ℕ ∧ ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))) ∈ ℂ) → (𝑉‘𝑛) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
137	133, 136	mpdan 699	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝑉‘𝑛) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
138	113, 130	oveq12d 7429	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((𝐹‘𝑛) · (𝐻‘𝑛)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
139	137, 138	eqtr4d 2807	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (𝑉‘𝑛) = ((𝐹‘𝑛) · (𝐻‘𝑛)))
140	139	adantl 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑉‘𝑛) = ((𝐹‘𝑛) · (𝐻‘𝑛)))
141	1, 34, 37, 40, 41, 42, 80, 84, 89, 115, 132, 140	climmulf 46212	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑉 ⇝ ((𝐶↑2) · (1 / 2)))
142	38	wallispi2 46679	. . . . . . . . . . . . . 14 ⊢ 𝑉 ⇝ (π / 2)
143		climuni 15603	. . . . . . . . . . . . . 14 ⊢ ((𝑉 ⇝ ((𝐶↑2) · (1 / 2)) ∧ 𝑉 ⇝ (π / 2)) → ((𝐶↑2) · (1 / 2)) = (π / 2))
144	141, 142, 143	sylancl 597	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐶↑2) · (1 / 2)) = (π / 2))
145	144	oveq1d 7426	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐶↑2) · (1 / 2)) / (1 / 2)) = ((π / 2) / (1 / 2)))
146	78	rpcnd 13062	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐶 ∈ ℂ)
147	146	sqcld 14180	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐶↑2) ∈ ℂ)
148		1cnd 11202	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 1 ∈ ℂ)
149	148	halfcld 12489	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 / 2) ∈ ℂ)
150		2cnd 12319	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 2 ∈ ℂ)
151		2pos 12345	. . . . . . . . . . . . . . . 16 ⊢ 0 < 2
152	151	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 < 2)
153	152	gt0ne0d 11778	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 2 ≠ 0)
154	150, 153	recne0d 11985	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 / 2) ≠ 0)
155	147, 149, 154	divcan4d 11997	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐶↑2) · (1 / 2)) / (1 / 2)) = (𝐶↑2))
156	5	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → π ∈ ℂ)
157	123	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 < 1)
158	157	gt0ne0d 11778	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 1 ≠ 0)
159	156, 148, 150, 158, 153	divcan7d 12019	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((π / 2) / (1 / 2)) = (π / 1))
160	156	div1d 11983	. . . . . . . . . . . . 13 ⊢ (𝜑 → (π / 1) = π)
161	159, 160	eqtrd 2804	. . . . . . . . . . . 12 ⊢ (𝜑 → ((π / 2) / (1 / 2)) = π)
162	145, 155, 161	3eqtr3d 2812	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐶↑2) = π)
163	162	fveq2d 6886	. . . . . . . . . 10 ⊢ (𝜑 → (√‘(𝐶↑2)) = (√‘π))
164	78	rprege0d 13067	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐶 ∈ ℝ ∧ 0 ≤ 𝐶))
165		sqrtsq 15320	. . . . . . . . . . 11 ⊢ ((𝐶 ∈ ℝ ∧ 0 ≤ 𝐶) → (√‘(𝐶↑2)) = 𝐶)
166	164, 165	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (√‘(𝐶↑2)) = 𝐶)
167	163, 166	eqtr3d 2806	. . . . . . . . 9 ⊢ (𝜑 → (√‘π) = 𝐶)
168	167	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘π) = 𝐶)
169	168	oveq1d 7426	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘π) · ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (𝐶 · ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
170	146	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐶 ∈ ℂ)
171	91	adantl 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ)
172	170, 171	mulcomd 11230	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐶 · ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) · 𝐶))
173	31, 169, 172	3eqtrd 2808	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (((√‘π) · (√‘(2 · 𝑛))) · ((𝑛 / e)↑𝑛)) = (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) · 𝐶))
174	173	oveq2d 7427	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / (((√‘π) · (√‘(2 · 𝑛))) · ((𝑛 / e)↑𝑛))) = ((!‘𝑛) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) · 𝐶)))
175		2re 12315	. . . . . . . . . . 11 ⊢ 2 ∈ ℝ
176	175	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 2 ∈ ℝ)
177		pire 26585	. . . . . . . . . . 11 ⊢ π ∈ ℝ
178	177	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → π ∈ ℝ)
179	176, 178	remulcld 11239	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (2 · π) ∈ ℝ)
180		0le2 12343	. . . . . . . . . . 11 ⊢ 0 ≤ 2
181	180	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ 2)
182		pige0 26590	. . . . . . . . . . 11 ⊢ 0 ≤ π
183	182	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ π)
184	176, 178, 181, 183	mulge0d 11791	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ (2 · π))
185	3	nn0red 12566	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℝ)
186	3	nn0ge0d 12568	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ 𝑛)
187	179, 184, 185, 186	sqrtmuld 15476	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘((2 · π) · 𝑛)) = ((√‘(2 · π)) · (√‘𝑛)))
188	176, 181, 178, 183	sqrtmuld 15476	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘(2 · π)) = ((√‘2) · (√‘π)))
189	188	oveq1d 7426	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘(2 · π)) · (√‘𝑛)) = (((√‘2) · (√‘π)) · (√‘𝑛)))
190	4	sqrtcld 15491	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘2) ∈ ℂ)
191	9	sqrtcld 15491	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘𝑛) ∈ ℂ)
192	190, 26, 191	mulassd 11232	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (((√‘2) · (√‘π)) · (√‘𝑛)) = ((√‘2) · ((√‘π) · (√‘𝑛))))
193	190, 26, 191	mul12d 11419	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘2) · ((√‘π) · (√‘𝑛))) = ((√‘π) · ((√‘2) · (√‘𝑛))))
194	176, 181, 185, 186	sqrtmuld 15476	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘(2 · 𝑛)) = ((√‘2) · (√‘𝑛)))
195	194	eqcomd 2775	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘2) · (√‘𝑛)) = (√‘(2 · 𝑛)))
196	195	oveq2d 7427	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘π) · ((√‘2) · (√‘𝑛))) = ((√‘π) · (√‘(2 · 𝑛))))
197	193, 196	eqtrd 2804	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘2) · ((√‘π) · (√‘𝑛))) = ((√‘π) · (√‘(2 · 𝑛))))
198	189, 192, 197	3eqtrd 2808	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘(2 · π)) · (√‘𝑛)) = ((√‘π) · (√‘(2 · 𝑛))))
199	187, 198	eqtrd 2804	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘((2 · π) · 𝑛)) = ((√‘π) · (√‘(2 · 𝑛))))
200	199	oveq1d 7426	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)) = (((√‘π) · (√‘(2 · 𝑛))) · ((𝑛 / e)↑𝑛)))
201	200	oveq2d 7427	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑛) / (((√‘π) · (√‘(2 · 𝑛))) · ((𝑛 / e)↑𝑛))))
202	90	adantl 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (!‘𝑛) ∈ ℂ)
203	93	adantl 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘(2 · 𝑛)) ≠ 0)
204	13	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → e ∈ ℂ)
205	16	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → e ≠ 0)
206	9, 204, 205	divcld 11991	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑛 / e) ∈ ℂ)
207	94	adantl 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ≠ 0)
208	9, 204, 207, 205	divne0d 12007	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑛 / e) ≠ 0)
209	60	adantl 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℤ)
210	206, 208, 209	expne0d 14188	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝑛 / e)↑𝑛) ≠ 0)
211	30, 20, 203, 210	mulne0d 11866	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ≠ 0)
212	78	rpne0d 13065	. . . . . . 7 ⊢ (𝜑 → 𝐶 ≠ 0)
213	212	adantr 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐶 ≠ 0)
214	202, 171, 170, 211, 213	divdiv1d 12022	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) / 𝐶) = ((!‘𝑛) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) · 𝐶)))
215	174, 201, 214	3eqtr4d 2814	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛))) = (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) / 𝐶))
216	98	ancli 557	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝑛 ∈ ℕ ∧ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ))
217	216	adantl 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑛 ∈ ℕ ∧ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ))
218	217, 99	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐴‘𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
219	218	eqcomd 2775	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (𝐴‘𝑛))
220	219	oveq1d 7426	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) / 𝐶) = ((𝐴‘𝑛) / 𝐶))
221	25, 215, 220	3eqtrd 2808	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / (𝑆‘𝑛)) = ((𝐴‘𝑛) / 𝐶))
222	1, 221	mpteq2da 5207	. 2 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((!‘𝑛) / (𝑆‘𝑛))) = (𝑛 ∈ ℕ ↦ ((𝐴‘𝑛) / 𝐶)))
223	101	adantl 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐴‘𝑛) ∈ ℂ)
224	223, 170, 213	divrec2d 11995	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐴‘𝑛) / 𝐶) = ((1 / 𝐶) · (𝐴‘𝑛)))
225	1, 224	mpteq2da 5207	. . 3 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((𝐴‘𝑛) / 𝐶)) = (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))))
226	146, 212	reccld 11984	. . . . 5 ⊢ (𝜑 → (1 / 𝐶) ∈ ℂ)
227	81	mptex 7222	. . . . . 6 ⊢ (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) ∈ V
228	227	a1i 11	. . . . 5 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) ∈ V)
229	43	a1i 11	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))))
230		simpr 489	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → 𝑛 = 𝑘)
231	230	fveq2d 6886	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (!‘𝑛) = (!‘𝑘))
232	230	oveq2d 7427	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (2 · 𝑛) = (2 · 𝑘))
233	232	fveq2d 6886	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (√‘(2 · 𝑛)) = (√‘(2 · 𝑘)))
234	230	oveq1d 7426	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (𝑛 / e) = (𝑘 / e))
235	234, 230	oveq12d 7429	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → ((𝑛 / e)↑𝑛) = ((𝑘 / e)↑𝑘))
236	233, 235	oveq12d 7429	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))
237	231, 236	oveq12d 7429	. . . . . . . 8 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
238		id 23	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ)
239		nnnn0 12511	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ₀)
240		faccl 14319	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ₀ → (!‘𝑘) ∈ ℕ)
241		nncn 12241	. . . . . . . . . 10 ⊢ ((!‘𝑘) ∈ ℕ → (!‘𝑘) ∈ ℂ)
242	239, 240, 241	3syl 19	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (!‘𝑘) ∈ ℂ)
243		2cnd 12319	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℂ)
244		nncn 12241	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℂ)
245	243, 244	mulcld 11229	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℂ)
246	245	sqrtcld 15491	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (√‘(2 · 𝑘)) ∈ ℂ)
247	13	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → e ∈ ℂ)
248	16	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → e ≠ 0)
249	244, 247, 248	divcld 11991	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝑘 / e) ∈ ℂ)
250	249, 239	expcld 14182	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((𝑘 / e)↑𝑘) ∈ ℂ)
251	246, 250	mulcld 11229	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)) ∈ ℂ)
252	52	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℝ⁺)
253		nnrp 13028	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ⁺)
254	252, 253	rpmulcld 13076	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℝ⁺)
255	254	sqrtgt0d 15464	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 0 < (√‘(2 · 𝑘)))
256	255	gt0ne0d 11778	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (√‘(2 · 𝑘)) ≠ 0)
257		nnne0 12270	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ≠ 0)
258	244, 247, 257, 248	divne0d 12007	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝑘 / e) ≠ 0)
259		nnz 12612	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
260	249, 258, 259	expne0d 14188	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((𝑘 / e)↑𝑘) ≠ 0)
261	246, 250, 256, 260	mulne0d 11866	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)) ≠ 0)
262	242, 251, 261	divcld 11991	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))) ∈ ℂ)
263	229, 237, 238, 262	fvmptd 6998	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (𝐴‘𝑘) = ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
264	263, 262	eqeltrd 2869	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐴‘𝑘) ∈ ℂ)
265	264	adantl 486	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐴‘𝑘) ∈ ℂ)
266		nfcv 2931	. . . . . . . . 9 ⊢ Ⅎ𝑘((1 / 𝐶) · (𝐴‘𝑛))
267		nfcv 2931	. . . . . . . . . . 11 ⊢ Ⅎ𝑛1
268		nfcv 2931	. . . . . . . . . . 11 ⊢ Ⅎ𝑛 /
269		nfcv 2931	. . . . . . . . . . 11 ⊢ Ⅎ𝑛𝐶
270	267, 268, 269	nfov 7441	. . . . . . . . . 10 ⊢ Ⅎ𝑛(1 / 𝐶)
271		nfcv 2931	. . . . . . . . . 10 ⊢ Ⅎ𝑛 ·
272		nfcv 2931	. . . . . . . . . . 11 ⊢ Ⅎ𝑛𝑘
273	45, 272	nffv 6892	. . . . . . . . . 10 ⊢ Ⅎ𝑛(𝐴‘𝑘)
274	270, 271, 273	nfov 7441	. . . . . . . . 9 ⊢ Ⅎ𝑛((1 / 𝐶) · (𝐴‘𝑘))
275		fveq2 6882	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → (𝐴‘𝑛) = (𝐴‘𝑘))
276	275	oveq2d 7427	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → ((1 / 𝐶) · (𝐴‘𝑛)) = ((1 / 𝐶) · (𝐴‘𝑘)))
277	266, 274, 276	cbvmpt 5217	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) = (𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘)))
278	277	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) = (𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘))))
279	278	fveq1d 6884	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛)))‘𝑘) = ((𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘)))‘𝑘))
280		simpr 489	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
281	146	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝐶 ∈ ℂ)
282	212	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝐶 ≠ 0)
283	281, 282	reccld 11984	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (1 / 𝐶) ∈ ℂ)
284	283, 265	mulcld 11229	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((1 / 𝐶) · (𝐴‘𝑘)) ∈ ℂ)
285		eqid 2769	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘))) = (𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘)))
286	285	fvmpt2 7002	. . . . . . 7 ⊢ ((𝑘 ∈ ℕ ∧ ((1 / 𝐶) · (𝐴‘𝑘)) ∈ ℂ) → ((𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘)))‘𝑘) = ((1 / 𝐶) · (𝐴‘𝑘)))
287	280, 284, 286	syl2anc 595	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘)))‘𝑘) = ((1 / 𝐶) · (𝐴‘𝑘)))
288	279, 287	eqtrd 2804	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛)))‘𝑘) = ((1 / 𝐶) · (𝐴‘𝑘)))
289	41, 42, 79, 226, 228, 265, 288	climmulc2 15688	. . . 4 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) ⇝ ((1 / 𝐶) · 𝐶))
290	146, 212	recid2d 11987	. . . 4 ⊢ (𝜑 → ((1 / 𝐶) · 𝐶) = 1)
291	289, 290	breqtrd 5141	. . 3 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) ⇝ 1)
292	225, 291	eqbrtrd 5137	. 2 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((𝐴‘𝑛) / 𝐶)) ⇝ 1)
293	222, 292	eqbrtrd 5137	1 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((!‘𝑛) / (𝑆‘𝑛))) ⇝ 1)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 400 = wceq 1567 Ⅎwnf 1810 ∈ wcel 2149 ≠ wne 2964 Vcvv 3463 class class class wbr 5113 ↦ cmpt 5196 ⟶wf 6533 ‘cfv 6537 (class class class)co 7411 ℂcc 11098 ℝcr 11099 0cc0 11100 1c1 11101 + caddc 11103 · cmul 11105 < clt 11243 ≤ cle 11244 − cmin 11441 / cdiv 11871 ℕcn 12233 2c2 12295 4c4 12297 ℕ₀cn0 12504 ℤcz 12591 ℝ⁺crp 13016 ↑cexp 14097 !cfa 14309 √csqrt 15284 ⇝ cli 15535 eceu 16116 πcpi 16120

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1822 ax-4 1836 ax-5 1937 ax-6 1994 ax-7 2035 ax-8 2151 ax-9 2159 ax-10 2182 ax-11 2198 ax-12 2219 ax-ext 2741 ax-rep 5242 ax-sep 5261 ax-nul 5271 ax-pow 5337 ax-pr 5405 ax-un 7733 ax-inf2 9610 ax-cc 10419 ax-cnex 11156 ax-resscn 11157 ax-1cn 11158 ax-icn 11159 ax-addcl 11160 ax-addrcl 11161 ax-mulcl 11162 ax-mulrcl 11163 ax-mulcom 11164 ax-addass 11165 ax-mulass 11166 ax-distr 11167 ax-i2m1 11168 ax-1ne0 11169 ax-1rid 11170 ax-rnegex 11171 ax-rrecex 11172 ax-cnre 11173 ax-pre-lttri 11174 ax-pre-lttrn 11175 ax-pre-ltadd 11176 ax-pre-mulgt0 11177 ax-pre-sup 11178 ax-addf 11179

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1102 df-3an 1103 df-tru 1570 df-fal 1580 df-ex 1807 df-nf 1811 df-sb 2098 df-mo 2573 df-eu 2603 df-clab 2748 df-cleq 2761 df-clel 2844 df-nfc 2918 df-ne 2965 df-nel 3071 df-ral 3086 df-rex 3096 df-rmo 3376 df-reu 3377 df-rab 3424 df-v 3465 df-sbc 3754 df-csb 3862 df-dif 3916 df-un 3918 df-in 3920 df-ss 3930 df-pss 3933 df-symdif 4214 df-nul 4295 df-if 4493 df-pw 4569 df-sn 4595 df-pr 4597 df-tp 4599 df-op 4601 df-uni 4877 df-int 4917 df-iun 4962 df-iin 4963 df-disj 5081 df-br 5114 df-opab 5178 df-mpt 5197 df-tr 5223 df-id 5557 df-eprel 5562 df-po 5570 df-so 5571 df-fr 5615 df-se 5616 df-we 5617 df-xp 5668 df-rel 5669 df-cnv 5670 df-co 5671 df-dm 5672 df-rn 5673 df-res 5674 df-ima 5675 df-pred 6303 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6493 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-isom 6546 df-riota 7368 df-ov 7414 df-oprab 7415 df-mpo 7416 df-of 7675 df-ofr 7676 df-om 7863 df-1st 7986 df-2nd 7987 df-supp 8157 df-frecs 8278 df-wrecs 8309 df-recs 8358 df-rdg 8397 df-1o 8453 df-2o 8454 df-oadd 8457 df-omul 8458 df-er 8694 df-map 8826 df-pm 8827 df-ixp 8896 df-en 8944 df-dom 8945 df-sdom 8946 df-fin 8947 df-fsupp 9322 df-fi 9371 df-sup 9402 df-inf 9403 df-oi 9472 df-dju 9887 df-card 9925 df-acn 9928 df-pnf 11245 df-mnf 11246 df-xr 11247 df-ltxr 11248 df-le 11249 df-sub 11443 df-neg 11444 df-div 11872 df-nn 12234 df-2 12303 df-3 12304 df-4 12305 df-5 12306 df-6 12307 df-7 12308 df-8 12309 df-9 12310 df-n0 12505 df-z 12592 df-dec 12712 df-uz 12863 df-q 12973 df-rp 13017 df-xneg 13137 df-xadd 13138 df-xmul 13139 df-ioo 13376 df-ioc 13377 df-ico 13378 df-icc 13379 df-fz 13536 df-fzo 13683 df-fl 13825 df-mod 13903 df-seq 14038 df-exp 14098 df-fac 14310 df-bc 14339 df-hash 14367 df-shft 15104 df-cj 15150 df-re 15151 df-im 15152 df-sqrt 15286 df-abs 15287 df-limsup 15522 df-clim 15539 df-rlim 15540 df-sum 15738 df-ef 16121 df-e 16122 df-sin 16123 df-cos 16124 df-pi 16126 df-struct 17207 df-sets 17224 df-slot 17242 df-ndx 17254 df-base 17270 df-ress 17291 df-plusg 17323 df-mulr 17324 df-starv 17325 df-sca 17326 df-vsca 17327 df-ip 17328 df-tset 17329 df-ple 17330 df-ds 17332 df-unif 17333 df-hom 17334 df-cco 17335 df-rest 17475 df-topn 17476 df-0g 17494 df-gsum 17495 df-topgen 17496 df-pt 17497 df-prds 17500 df-xrs 17556 df-qtop 17561 df-imas 17562 df-xps 17564 df-mre 17638 df-mrc 17639 df-acs 17641 df-mgm 18698 df-sgrp 18777 df-mnd 18793 df-submnd 18842 df-mulg 19134 df-cntz 19387 df-cmn 19852 df-psmet 21483 df-xmet 21484 df-met 21485 df-bl 21486 df-mopn 21487 df-fbas 21488 df-fg 21489 df-cnfld 21492 df-top 23020 df-topon 23037 df-topsp 23059 df-bases 23072 df-cld 23145 df-ntr 23146 df-cls 23147 df-nei 23224 df-lp 23262 df-perf 23263 df-cn 23353 df-cnp 23354 df-haus 23441 df-cmp 23513 df-tx 23688 df-hmeo 23881 df-fil 23972 df-fm 24064 df-flim 24065 df-flf 24066 df-xms 24446 df-ms 24447 df-tms 24448 df-cncf 25006 df-ovol 25592 df-vol 25593 df-mbf 25747 df-itg1 25748 df-itg2 25749 df-ibl 25750 df-itg 25751 df-0p 25798 df-limc 25994 df-dv 25995

This theorem is referenced by: stirling 46695

W3C validator