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 46662

Description: The Stirling's formula is proven using a number of local definitions. The main theorem stirling 46663 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 12488	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ₀)
3	2	adantl 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℕ₀)
4		2cnd 12296	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 2 ∈ ℂ)
5		picn 26521	. . . . . . . . . . 11 ⊢ π ∈ ℂ
6	5	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → π ∈ ℂ)
7	4, 6	mulcld 11202	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (2 · π) ∈ ℂ)
8		nncn 12218	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
9	8	adantl 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℂ)
10	7, 9	mulcld 11202	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((2 · π) · 𝑛) ∈ ℂ)
11	10	sqrtcld 15467	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘((2 · π) · 𝑛)) ∈ ℂ)
12		ere 16119	. . . . . . . . . . . 12 ⊢ e ∈ ℝ
13	12	recni 11196	. . . . . . . . . . 11 ⊢ e ∈ ℂ
14	13	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → e ∈ ℂ)
15		epos 16239	. . . . . . . . . . . 12 ⊢ 0 < e
16	12, 15	gt0ne0ii 11723	. . . . . . . . . . 11 ⊢ e ≠ 0
17	16	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → e ≠ 0)
18	8, 14, 17	divcld 11967	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝑛 / e) ∈ ℂ)
19	18, 2	expcld 14159	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ∈ ℂ)
20	19	adantl 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝑛 / e)↑𝑛) ∈ ℂ)
21	11, 20	mulcld 11202	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ)
22		stirlinglem15.2	. . . . . . 7 ⊢ 𝑆 = (𝑛 ∈ ℕ₀ ↦ ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)))
23	22	fvmpt2 6987	. . . . . 6 ⊢ ((𝑛 ∈ ℕ₀ ∧ ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ) → (𝑆‘𝑛) = ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)))
24	3, 21, 23	syl2anc 593	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑆‘𝑛) = ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)))
25	24	oveq2d 7412	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / (𝑆‘𝑛)) = ((!‘𝑛) / ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛))))
26	6	sqrtcld 15467	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘π) ∈ ℂ)
27		2cnd 12296	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℂ)
28	27, 8	mulcld 11202	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℂ)
29	28	sqrtcld 15467	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ∈ ℂ)
30	29	adantl 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘(2 · 𝑛)) ∈ ℂ)
31	26, 30, 20	mulassd 11205	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (((√‘π) · (√‘(2 · 𝑛))) · ((𝑛 / e)↑𝑛)) = ((√‘π) · ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
32		stirlinglem15.7	. . . . . . . . . . . . . . . 16 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)))
33		nfmpt1 5199	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)))
34	32, 33	nfcxfr 2922	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑛𝐹
35		stirlinglem15.8	. . . . . . . . . . . . . . . 16 ⊢ 𝐻 = (𝑛 ∈ ℕ ↦ ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
36		nfmpt1 5199	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
37	35, 36	nfcxfr 2922	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑛𝐻
38		stirlinglem15.6	. . . . . . . . . . . . . . . 16 ⊢ 𝑉 = (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
39		nfmpt1 5199	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1)))
40	38, 39	nfcxfr 2922	. . . . . . . . . . . . . . 15 ⊢ Ⅎ𝑛𝑉
41		nnuz 12878	. . . . . . . . . . . . . . 15 ⊢ ℕ = (ℤ_≥‘1)
42		1zzd 12602	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ∈ ℤ)
43		stirlinglem15.3	. . . . . . . . . . . . . . . . 17 ⊢ 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
44		nfmpt1 5199	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
45	43, 44	nfcxfr 2922	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛𝐴
46		stirlinglem15.4	. . . . . . . . . . . . . . . . 17 ⊢ 𝐷 = (𝑛 ∈ ℕ ↦ (𝐴‘(2 · 𝑛)))
47		nfmpt1 5199	. . . . . . . . . . . . . . . . 17 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ ↦ (𝐴‘(2 · 𝑛)))
48	46, 47	nfcxfr 2922	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑛𝐷
49		faccl 14296	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ₀ → (!‘𝑛) ∈ ℕ)
50	2, 49	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (!‘𝑛) ∈ ℕ)
51	50	nnrpd 13035	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (!‘𝑛) ∈ ℝ⁺)
52		2rp 12998	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 2 ∈ ℝ⁺
53	52	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℝ⁺)
54		nnrp 13005	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℝ⁺)
55	53, 54	rpmulcld 13053	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ⁺)
56	55	rpsqrtcld 15439	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ∈ ℝ⁺)
57		epr 16240	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ e ∈ ℝ⁺
58	57	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → e ∈ ℝ⁺)
59	54, 58	rpdivcld 13054	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → (𝑛 / e) ∈ ℝ⁺)
60		nnz 12589	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℤ)
61	59, 60	rpexpcld 14260	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ∈ ℝ⁺)
62	56, 61	rpmulcld 13053	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℝ⁺)
63	51, 62	rpdivcld 13054	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℝ⁺)
64	43, 63	fmpti 7093	. . . . . . . . . . . . . . . . 17 ⊢ 𝐴:ℕ⟶ℝ⁺
65	64	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴:ℕ⟶ℝ⁺)
66		eqid 2762	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ ↦ ((𝐴‘𝑛)↑4)) = (𝑛 ∈ ℕ ↦ ((𝐴‘𝑛)↑4))
67		eqid 2762	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ ↦ ((𝐷‘𝑛)↑2)) = (𝑛 ∈ ℕ ↦ ((𝐷‘𝑛)↑2))
68	64	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → 𝐴:ℕ⟶ℝ⁺)
69		2nn 12291	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 2 ∈ ℕ
70	69	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ)
71		id 22	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ)
72	70, 71	nnmulcld 12266	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ)
73	68, 72	ffvelcdmd 7066	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (𝐴‘(2 · 𝑛)) ∈ ℝ⁺)
74	46	fvmpt2 6987	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑛 ∈ ℕ ∧ (𝐴‘(2 · 𝑛)) ∈ ℝ⁺) → (𝐷‘𝑛) = (𝐴‘(2 · 𝑛)))
75	73, 74	mpdan 697	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) = (𝐴‘(2 · 𝑛)))
76	75, 73	eqeltrd 2862	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ∈ ℝ⁺)
77	76	adantl 485	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐷‘𝑛) ∈ ℝ⁺)
78		stirlinglem15.9	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐶 ∈ ℝ⁺)
79		stirlinglem15.10	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 ⇝ 𝐶)
80	1, 45, 48, 46, 65, 32, 66, 67, 77, 78, 79	stirlinglem8 46655	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐹 ⇝ (𝐶↑2))
81		nnex 12216	. . . . . . . . . . . . . . . . . 18 ⊢ ℕ ∈ V
82	81	mptex 7207	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ ↦ ((((2↑(4 · 𝑛)) · ((!‘𝑛)↑4)) / ((!‘(2 · 𝑛))↑2)) / ((2 · 𝑛) + 1))) ∈ V
83	38, 82	eqeltri 2858	. . . . . . . . . . . . . . . 16 ⊢ 𝑉 ∈ V
84	83	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑉 ∈ V)
85		eqid 2762	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ ↦ (1 − (1 / ((2 · 𝑛) + 1)))) = (𝑛 ∈ ℕ ↦ (1 − (1 / ((2 · 𝑛) + 1))))
86		eqid 2762	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ ↦ (1 / ((2 · 𝑛) + 1))) = (𝑛 ∈ ℕ ↦ (1 / ((2 · 𝑛) + 1)))
87		eqid 2762	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ ↦ (1 / 𝑛)) = (𝑛 ∈ ℕ ↦ (1 / 𝑛))
88	35, 85, 86, 87	stirlinglem1 46648	. . . . . . . . . . . . . . . 16 ⊢ 𝐻 ⇝ (1 / 2)
89	88	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐻 ⇝ (1 / 2))
90	50	nncnd 12226	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 ∈ ℕ → (!‘𝑛) ∈ ℂ)
91	29, 19	mulcld 11202	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ)
92	55	sqrtgt0d 15440	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑛 ∈ ℕ → 0 < (√‘(2 · 𝑛)))
93	92	gt0ne0d 11751	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑛 ∈ ℕ → (√‘(2 · 𝑛)) ≠ 0)
94		nnne0 12247	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑛 ∈ ℕ → 𝑛 ≠ 0)
95	8, 14, 94, 17	divne0d 11983	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑛 ∈ ℕ → (𝑛 / e) ≠ 0)
96	18, 95, 60	expne0d 14165	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑛 ∈ ℕ → ((𝑛 / e)↑𝑛) ≠ 0)
97	29, 19, 93, 96	mulne0d 11839	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑛 ∈ ℕ → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ≠ 0)
98	90, 91, 97	divcld 11967	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ)
99	43	fvmpt2 6987	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑛 ∈ ℕ ∧ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ) → (𝐴‘𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
100	98, 99	mpdan 697	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → (𝐴‘𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
101	100, 98	eqeltrd 2862	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (𝐴‘𝑛) ∈ ℂ)
102		4nn0 12500	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 4 ∈ ℕ₀
103	102	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → 4 ∈ ℕ₀)
104	101, 103	expcld 14159	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → ((𝐴‘𝑛)↑4) ∈ ℂ)
105	76	rpcnd 13039	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ∈ ℂ)
106	105	sqcld 14157	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → ((𝐷‘𝑛)↑2) ∈ ℂ)
107	76	rpne0d 13042	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ≠ 0)
108		2z 12603	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 2 ∈ ℤ
109	108	a1i 11	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℤ)
110	105, 107, 109	expne0d 14165	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → ((𝐷‘𝑛)↑2) ≠ 0)
111	104, 106, 110	divcld 11967	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) ∈ ℂ)
112	32	fvmpt2 6987	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ℕ ∧ (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) ∈ ℂ) → (𝐹‘𝑛) = (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)))
113	111, 112	mpdan 697	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝐹‘𝑛) = (((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)))
114	113, 111	eqeltrd 2862	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (𝐹‘𝑛) ∈ ℂ)
115	114	adantl 485	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ ℂ)
116	8	sqcld 14157	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (𝑛↑2) ∈ ℂ)
117		1cnd 11175	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℂ)
118	28, 117	addcld 11201	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℂ)
119	8, 118	mulcld 11202	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (𝑛 · ((2 · 𝑛) + 1)) ∈ ℂ)
120	72	nnred 12225	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
121		1red 11182	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℝ)
122	72	nngt0d 12262	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → 0 < (2 · 𝑛))
123		0lt1 11709	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ 0 < 1
124	123	a1i 11	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑛 ∈ ℕ → 0 < 1)
125	120, 121, 122, 124	addgt0d 11762	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑛 ∈ ℕ → 0 < ((2 · 𝑛) + 1))
126	125	gt0ne0d 11751	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ≠ 0)
127	8, 118, 94, 126	mulne0d 11839	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ → (𝑛 · ((2 · 𝑛) + 1)) ≠ 0)
128	116, 119, 127	divcld 11967	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))) ∈ ℂ)
129	35	fvmpt2 6987	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ℕ ∧ ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))) ∈ ℂ) → (𝐻‘𝑛) = ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
130	128, 129	mpdan 697	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝐻‘𝑛) = ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1))))
131	130, 128	eqeltrd 2862	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (𝐻‘𝑛) ∈ ℂ)
132	131	adantl 485	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐻‘𝑛) ∈ ℂ)
133	111, 128	mulcld 11202	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ → ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))) ∈ ℂ)
134		stirlinglem15.5	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝐸 = (𝑛 ∈ ℕ ↦ ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))
135	43, 46, 134, 38	stirlinglem3 46650	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑉 = (𝑛 ∈ ℕ ↦ ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
136	135	fvmpt2 6987	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑛 ∈ ℕ ∧ ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))) ∈ ℂ) → (𝑉‘𝑛) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
137	133, 136	mpdan 697	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → (𝑉‘𝑛) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
138	113, 130	oveq12d 7414	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ → ((𝐹‘𝑛) · (𝐻‘𝑛)) = ((((𝐴‘𝑛)↑4) / ((𝐷‘𝑛)↑2)) · ((𝑛↑2) / (𝑛 · ((2 · 𝑛) + 1)))))
139	137, 138	eqtr4d 2800	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ → (𝑉‘𝑛) = ((𝐹‘𝑛) · (𝐻‘𝑛)))
140	139	adantl 485	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑉‘𝑛) = ((𝐹‘𝑛) · (𝐻‘𝑛)))
141	1, 34, 37, 40, 41, 42, 80, 84, 89, 115, 132, 140	climmulf 46180	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑉 ⇝ ((𝐶↑2) · (1 / 2)))
142	38	wallispi2 46647	. . . . . . . . . . . . . 14 ⊢ 𝑉 ⇝ (π / 2)
143		climuni 15579	. . . . . . . . . . . . . 14 ⊢ ((𝑉 ⇝ ((𝐶↑2) · (1 / 2)) ∧ 𝑉 ⇝ (π / 2)) → ((𝐶↑2) · (1 / 2)) = (π / 2))
144	141, 142, 143	sylancl 595	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝐶↑2) · (1 / 2)) = (π / 2))
145	144	oveq1d 7411	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐶↑2) · (1 / 2)) / (1 / 2)) = ((π / 2) / (1 / 2)))
146	78	rpcnd 13039	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐶 ∈ ℂ)
147	146	sqcld 14157	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐶↑2) ∈ ℂ)
148		1cnd 11175	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 1 ∈ ℂ)
149	148	halfcld 12466	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 / 2) ∈ ℂ)
150		2cnd 12296	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 2 ∈ ℂ)
151		2pos 12322	. . . . . . . . . . . . . . . 16 ⊢ 0 < 2
152	151	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 < 2)
153	152	gt0ne0d 11751	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 2 ≠ 0)
154	150, 153	recne0d 11961	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 / 2) ≠ 0)
155	147, 149, 154	divcan4d 11973	. . . . . . . . . . . 12 ⊢ (𝜑 → (((𝐶↑2) · (1 / 2)) / (1 / 2)) = (𝐶↑2))
156	5	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → π ∈ ℂ)
157	123	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 0 < 1)
158	157	gt0ne0d 11751	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 1 ≠ 0)
159	156, 148, 150, 158, 153	divcan7d 11995	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((π / 2) / (1 / 2)) = (π / 1))
160	156	div1d 11959	. . . . . . . . . . . . 13 ⊢ (𝜑 → (π / 1) = π)
161	159, 160	eqtrd 2797	. . . . . . . . . . . 12 ⊢ (𝜑 → ((π / 2) / (1 / 2)) = π)
162	145, 155, 161	3eqtr3d 2805	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐶↑2) = π)
163	162	fveq2d 6871	. . . . . . . . . 10 ⊢ (𝜑 → (√‘(𝐶↑2)) = (√‘π))
164	78	rprege0d 13044	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐶 ∈ ℝ ∧ 0 ≤ 𝐶))
165		sqrtsq 15296	. . . . . . . . . . 11 ⊢ ((𝐶 ∈ ℝ ∧ 0 ≤ 𝐶) → (√‘(𝐶↑2)) = 𝐶)
166	164, 165	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (√‘(𝐶↑2)) = 𝐶)
167	163, 166	eqtr3d 2799	. . . . . . . . 9 ⊢ (𝜑 → (√‘π) = 𝐶)
168	167	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘π) = 𝐶)
169	168	oveq1d 7411	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘π) · ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (𝐶 · ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
170	146	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐶 ∈ ℂ)
171	91	adantl 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ∈ ℂ)
172	170, 171	mulcomd 11203	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐶 · ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) · 𝐶))
173	31, 169, 172	3eqtrd 2801	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (((√‘π) · (√‘(2 · 𝑛))) · ((𝑛 / e)↑𝑛)) = (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) · 𝐶))
174	173	oveq2d 7412	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / (((√‘π) · (√‘(2 · 𝑛))) · ((𝑛 / e)↑𝑛))) = ((!‘𝑛) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) · 𝐶)))
175		2re 12292	. . . . . . . . . . 11 ⊢ 2 ∈ ℝ
176	175	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 2 ∈ ℝ)
177		pire 26519	. . . . . . . . . . 11 ⊢ π ∈ ℝ
178	177	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → π ∈ ℝ)
179	176, 178	remulcld 11212	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (2 · π) ∈ ℝ)
180		0le2 12320	. . . . . . . . . . 11 ⊢ 0 ≤ 2
181	180	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ 2)
182		pige0 26524	. . . . . . . . . . 11 ⊢ 0 ≤ π
183	182	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ π)
184	176, 178, 181, 183	mulge0d 11764	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ (2 · π))
185	3	nn0red 12543	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℝ)
186	3	nn0ge0d 12545	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 0 ≤ 𝑛)
187	179, 184, 185, 186	sqrtmuld 15452	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘((2 · π) · 𝑛)) = ((√‘(2 · π)) · (√‘𝑛)))
188	176, 181, 178, 183	sqrtmuld 15452	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘(2 · π)) = ((√‘2) · (√‘π)))
189	188	oveq1d 7411	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘(2 · π)) · (√‘𝑛)) = (((√‘2) · (√‘π)) · (√‘𝑛)))
190	4	sqrtcld 15467	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘2) ∈ ℂ)
191	9	sqrtcld 15467	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘𝑛) ∈ ℂ)
192	190, 26, 191	mulassd 11205	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (((√‘2) · (√‘π)) · (√‘𝑛)) = ((√‘2) · ((√‘π) · (√‘𝑛))))
193	190, 26, 191	mul12d 11392	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘2) · ((√‘π) · (√‘𝑛))) = ((√‘π) · ((√‘2) · (√‘𝑛))))
194	176, 181, 185, 186	sqrtmuld 15452	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘(2 · 𝑛)) = ((√‘2) · (√‘𝑛)))
195	194	eqcomd 2768	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘2) · (√‘𝑛)) = (√‘(2 · 𝑛)))
196	195	oveq2d 7412	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘π) · ((√‘2) · (√‘𝑛))) = ((√‘π) · (√‘(2 · 𝑛))))
197	193, 196	eqtrd 2797	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘2) · ((√‘π) · (√‘𝑛))) = ((√‘π) · (√‘(2 · 𝑛))))
198	189, 192, 197	3eqtrd 2801	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘(2 · π)) · (√‘𝑛)) = ((√‘π) · (√‘(2 · 𝑛))))
199	187, 198	eqtrd 2797	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘((2 · π) · 𝑛)) = ((√‘π) · (√‘(2 · 𝑛))))
200	199	oveq1d 7411	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛)) = (((√‘π) · (√‘(2 · 𝑛))) · ((𝑛 / e)↑𝑛)))
201	200	oveq2d 7412	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑛) / (((√‘π) · (√‘(2 · 𝑛))) · ((𝑛 / e)↑𝑛))))
202	90	adantl 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (!‘𝑛) ∈ ℂ)
203	93	adantl 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (√‘(2 · 𝑛)) ≠ 0)
204	13	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → e ∈ ℂ)
205	16	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → e ≠ 0)
206	9, 204, 205	divcld 11967	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑛 / e) ∈ ℂ)
207	94	adantl 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ≠ 0)
208	9, 204, 207, 205	divne0d 11983	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑛 / e) ≠ 0)
209	60	adantl 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℤ)
210	206, 208, 209	expne0d 14165	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝑛 / e)↑𝑛) ≠ 0)
211	30, 20, 203, 210	mulne0d 11839	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) ≠ 0)
212	78	rpne0d 13042	. . . . . . 7 ⊢ (𝜑 → 𝐶 ≠ 0)
213	212	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐶 ≠ 0)
214	202, 171, 170, 211, 213	divdiv1d 11998	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) / 𝐶) = ((!‘𝑛) / (((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) · 𝐶)))
215	174, 201, 214	3eqtr4d 2807	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / ((√‘((2 · π) · 𝑛)) · ((𝑛 / e)↑𝑛))) = (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) / 𝐶))
216	98	ancli 556	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝑛 ∈ ℕ ∧ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ))
217	216	adantl 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑛 ∈ ℕ ∧ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) ∈ ℂ))
218	217, 99	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐴‘𝑛) = ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))))
219	218	eqcomd 2768	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = (𝐴‘𝑛))
220	219	oveq1d 7411	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) / 𝐶) = ((𝐴‘𝑛) / 𝐶))
221	25, 215, 220	3eqtrd 2801	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((!‘𝑛) / (𝑆‘𝑛)) = ((𝐴‘𝑛) / 𝐶))
222	1, 221	mpteq2da 5192	. 2 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((!‘𝑛) / (𝑆‘𝑛))) = (𝑛 ∈ ℕ ↦ ((𝐴‘𝑛) / 𝐶)))
223	101	adantl 485	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐴‘𝑛) ∈ ℂ)
224	223, 170, 213	divrec2d 11971	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐴‘𝑛) / 𝐶) = ((1 / 𝐶) · (𝐴‘𝑛)))
225	1, 224	mpteq2da 5192	. . 3 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((𝐴‘𝑛) / 𝐶)) = (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))))
226	146, 212	reccld 11960	. . . . 5 ⊢ (𝜑 → (1 / 𝐶) ∈ ℂ)
227	81	mptex 7207	. . . . . 6 ⊢ (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) ∈ V
228	227	a1i 11	. . . . 5 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) ∈ V)
229	43	a1i 11	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → 𝐴 = (𝑛 ∈ ℕ ↦ ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)))))
230		simpr 488	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → 𝑛 = 𝑘)
231	230	fveq2d 6871	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (!‘𝑛) = (!‘𝑘))
232	230	oveq2d 7412	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (2 · 𝑛) = (2 · 𝑘))
233	232	fveq2d 6871	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (√‘(2 · 𝑛)) = (√‘(2 · 𝑘)))
234	230	oveq1d 7411	. . . . . . . . . . 11 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (𝑛 / e) = (𝑘 / e))
235	234, 230	oveq12d 7414	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → ((𝑛 / e)↑𝑛) = ((𝑘 / e)↑𝑘))
236	233, 235	oveq12d 7414	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛)) = ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)))
237	231, 236	oveq12d 7414	. . . . . . . 8 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → ((!‘𝑛) / ((√‘(2 · 𝑛)) · ((𝑛 / e)↑𝑛))) = ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
238		id 22	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ)
239		nnnn0 12488	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ₀)
240		faccl 14296	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ₀ → (!‘𝑘) ∈ ℕ)
241		nncn 12218	. . . . . . . . . 10 ⊢ ((!‘𝑘) ∈ ℕ → (!‘𝑘) ∈ ℂ)
242	239, 240, 241	3syl 18	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (!‘𝑘) ∈ ℂ)
243		2cnd 12296	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℂ)
244		nncn 12218	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℂ)
245	243, 244	mulcld 11202	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℂ)
246	245	sqrtcld 15467	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (√‘(2 · 𝑘)) ∈ ℂ)
247	13	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → e ∈ ℂ)
248	16	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → e ≠ 0)
249	244, 247, 248	divcld 11967	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝑘 / e) ∈ ℂ)
250	249, 239	expcld 14159	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((𝑘 / e)↑𝑘) ∈ ℂ)
251	246, 250	mulcld 11202	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)) ∈ ℂ)
252	52	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℝ⁺)
253		nnrp 13005	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ⁺)
254	252, 253	rpmulcld 13053	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℝ⁺)
255	254	sqrtgt0d 15440	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 0 < (√‘(2 · 𝑘)))
256	255	gt0ne0d 11751	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (√‘(2 · 𝑘)) ≠ 0)
257		nnne0 12247	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ≠ 0)
258	244, 247, 257, 248	divne0d 11983	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝑘 / e) ≠ 0)
259		nnz 12589	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
260	249, 258, 259	expne0d 14165	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((𝑘 / e)↑𝑘) ≠ 0)
261	246, 250, 256, 260	mulne0d 11839	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘)) ≠ 0)
262	242, 251, 261	divcld 11967	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))) ∈ ℂ)
263	229, 237, 238, 262	fvmptd 6983	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (𝐴‘𝑘) = ((!‘𝑘) / ((√‘(2 · 𝑘)) · ((𝑘 / e)↑𝑘))))
264	263, 262	eqeltrd 2862	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐴‘𝑘) ∈ ℂ)
265	264	adantl 485	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐴‘𝑘) ∈ ℂ)
266		nfcv 2924	. . . . . . . . 9 ⊢ Ⅎ𝑘((1 / 𝐶) · (𝐴‘𝑛))
267		nfcv 2924	. . . . . . . . . . 11 ⊢ Ⅎ𝑛1
268		nfcv 2924	. . . . . . . . . . 11 ⊢ Ⅎ𝑛 /
269		nfcv 2924	. . . . . . . . . . 11 ⊢ Ⅎ𝑛𝐶
270	267, 268, 269	nfov 7426	. . . . . . . . . 10 ⊢ Ⅎ𝑛(1 / 𝐶)
271		nfcv 2924	. . . . . . . . . 10 ⊢ Ⅎ𝑛 ·
272		nfcv 2924	. . . . . . . . . . 11 ⊢ Ⅎ𝑛𝑘
273	45, 272	nffv 6877	. . . . . . . . . 10 ⊢ Ⅎ𝑛(𝐴‘𝑘)
274	270, 271, 273	nfov 7426	. . . . . . . . 9 ⊢ Ⅎ𝑛((1 / 𝐶) · (𝐴‘𝑘))
275		fveq2 6867	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → (𝐴‘𝑛) = (𝐴‘𝑘))
276	275	oveq2d 7412	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → ((1 / 𝐶) · (𝐴‘𝑛)) = ((1 / 𝐶) · (𝐴‘𝑘)))
277	266, 274, 276	cbvmpt 5202	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) = (𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘)))
278	277	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) = (𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘))))
279	278	fveq1d 6869	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛)))‘𝑘) = ((𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘)))‘𝑘))
280		simpr 488	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
281	146	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝐶 ∈ ℂ)
282	212	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝐶 ≠ 0)
283	281, 282	reccld 11960	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (1 / 𝐶) ∈ ℂ)
284	283, 265	mulcld 11202	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((1 / 𝐶) · (𝐴‘𝑘)) ∈ ℂ)
285		eqid 2762	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘))) = (𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘)))
286	285	fvmpt2 6987	. . . . . . 7 ⊢ ((𝑘 ∈ ℕ ∧ ((1 / 𝐶) · (𝐴‘𝑘)) ∈ ℂ) → ((𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘)))‘𝑘) = ((1 / 𝐶) · (𝐴‘𝑘)))
287	280, 284, 286	syl2anc 593	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑘 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑘)))‘𝑘) = ((1 / 𝐶) · (𝐴‘𝑘)))
288	279, 287	eqtrd 2797	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛)))‘𝑘) = ((1 / 𝐶) · (𝐴‘𝑘)))
289	41, 42, 79, 226, 228, 265, 288	climmulc2 15664	. . . 4 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) ⇝ ((1 / 𝐶) · 𝐶))
290	146, 212	recid2d 11963	. . . 4 ⊢ (𝜑 → ((1 / 𝐶) · 𝐶) = 1)
291	289, 290	breqtrd 5126	. . 3 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((1 / 𝐶) · (𝐴‘𝑛))) ⇝ 1)
292	225, 291	eqbrtrd 5122	. 2 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((𝐴‘𝑛) / 𝐶)) ⇝ 1)
293	222, 292	eqbrtrd 5122	1 ⊢ (𝜑 → (𝑛 ∈ ℕ ↦ ((!‘𝑛) / (𝑆‘𝑛))) ⇝ 1)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 399 = wceq 1560 Ⅎwnf 1803 ∈ wcel 2142 ≠ wne 2957 Vcvv 3454 class class class wbr 5100 ↦ cmpt 5181 ⟶wf 6517 ‘cfv 6521 (class class class)co 7396 ℂcc 11071 ℝcr 11072 0cc0 11073 1c1 11074 + caddc 11076 · cmul 11078 < clt 11216 ≤ cle 11217 − cmin 11414 / cdiv 11844 ℕcn 12210 2c2 12272 4c4 12274 ℕ₀cn0 12481 ℤcz 12568 ℝ⁺crp 12993 ↑cexp 14074 !cfa 14286 √csqrt 15260 ⇝ cli 15511 eceu 16092 πcpi 16096

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1815 ax-4 1829 ax-5 1930 ax-6 1987 ax-7 2028 ax-8 2144 ax-9 2152 ax-10 2175 ax-11 2191 ax-12 2212 ax-ext 2734 ax-rep 5227 ax-sep 5246 ax-nul 5256 ax-pow 5322 ax-pr 5390 ax-un 7718 ax-inf2 9596 ax-cc 10392 ax-cnex 11129 ax-resscn 11130 ax-1cn 11131 ax-icn 11132 ax-addcl 11133 ax-addrcl 11134 ax-mulcl 11135 ax-mulrcl 11136 ax-mulcom 11137 ax-addass 11138 ax-mulass 11139 ax-distr 11140 ax-i2m1 11141 ax-1ne0 11142 ax-1rid 11143 ax-rnegex 11144 ax-rrecex 11145 ax-cnre 11146 ax-pre-lttri 11147 ax-pre-lttrn 11148 ax-pre-ltadd 11149 ax-pre-mulgt0 11150 ax-pre-sup 11151 ax-addf 11152

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1099 df-3an 1100 df-tru 1563 df-fal 1573 df-ex 1800 df-nf 1804 df-sb 2091 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3367 df-reu 3368 df-rab 3415 df-v 3456 df-sbc 3745 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-symdif 4205 df-nul 4286 df-if 4481 df-pw 4557 df-sn 4583 df-pr 4585 df-tp 4587 df-op 4589 df-uni 4866 df-int 4906 df-iun 4951 df-iin 4952 df-disj 5068 df-br 5101 df-opab 5163 df-mpt 5182 df-tr 5208 df-id 5542 df-eprel 5547 df-po 5555 df-so 5556 df-fr 5600 df-se 5601 df-we 5602 df-xp 5653 df-rel 5654 df-cnv 5655 df-co 5656 df-dm 5657 df-rn 5658 df-res 5659 df-ima 5660 df-pred 6288 df-ord 6349 df-on 6350 df-lim 6351 df-suc 6352 df-iota 6477 df-fun 6523 df-fn 6524 df-f 6525 df-f1 6526 df-fo 6527 df-f1o 6528 df-fv 6529 df-isom 6530 df-riota 7353 df-ov 7399 df-oprab 7400 df-mpo 7401 df-of 7660 df-ofr 7661 df-om 7847 df-1st 7970 df-2nd 7971 df-supp 8141 df-frecs 8262 df-wrecs 8293 df-recs 8342 df-rdg 8381 df-1o 8437 df-2o 8438 df-oadd 8441 df-omul 8442 df-er 8678 df-map 8810 df-pm 8811 df-ixp 8880 df-en 8928 df-dom 8929 df-sdom 8930 df-fin 8931 df-fsupp 9308 df-fi 9357 df-sup 9388 df-inf 9389 df-oi 9458 df-dju 9859 df-card 9897 df-acn 9900 df-pnf 11218 df-mnf 11219 df-xr 11220 df-ltxr 11221 df-le 11222 df-sub 11416 df-neg 11417 df-div 11845 df-nn 12211 df-2 12280 df-3 12281 df-4 12282 df-5 12283 df-6 12284 df-7 12285 df-8 12286 df-9 12287 df-n0 12482 df-z 12569 df-dec 12689 df-uz 12840 df-q 12950 df-rp 12994 df-xneg 13114 df-xadd 13115 df-xmul 13116 df-ioo 13353 df-ioc 13354 df-ico 13355 df-icc 13356 df-fz 13513 df-fzo 13660 df-fl 13802 df-mod 13880 df-seq 14015 df-exp 14075 df-fac 14287 df-bc 14316 df-hash 14344 df-shft 15080 df-cj 15126 df-re 15127 df-im 15128 df-sqrt 15262 df-abs 15263 df-limsup 15498 df-clim 15515 df-rlim 15516 df-sum 15714 df-ef 16097 df-e 16098 df-sin 16099 df-cos 16100 df-pi 16102 df-struct 17183 df-sets 17200 df-slot 17218 df-ndx 17230 df-base 17246 df-ress 17267 df-plusg 17299 df-mulr 17300 df-starv 17301 df-sca 17302 df-vsca 17303 df-ip 17304 df-tset 17305 df-ple 17306 df-ds 17308 df-unif 17309 df-hom 17310 df-cco 17311 df-rest 17451 df-topn 17452 df-0g 17470 df-gsum 17471 df-topgen 17472 df-pt 17473 df-prds 17476 df-xrs 17532 df-qtop 17537 df-imas 17538 df-xps 17540 df-mre 17614 df-mrc 17615 df-acs 17617 df-mgm 18674 df-sgrp 18753 df-mnd 18769 df-submnd 18818 df-mulg 19110 df-cntz 19357 df-cmn 19822 df-psmet 21416 df-xmet 21417 df-met 21418 df-bl 21419 df-mopn 21420 df-fbas 21421 df-fg 21422 df-cnfld 21425 df-top 22954 df-topon 22971 df-topsp 22993 df-bases 23006 df-cld 23079 df-ntr 23080 df-cls 23081 df-nei 23158 df-lp 23196 df-perf 23197 df-cn 23287 df-cnp 23288 df-haus 23375 df-cmp 23447 df-tx 23622 df-hmeo 23815 df-fil 23906 df-fm 23998 df-flim 23999 df-flf 24000 df-xms 24380 df-ms 24381 df-tms 24382 df-cncf 24940 df-ovol 25526 df-vol 25527 df-mbf 25681 df-itg1 25682 df-itg2 25683 df-ibl 25684 df-itg 25685 df-0p 25732 df-limc 25928 df-dv 25929

This theorem is referenced by: stirling 46663

W3C validator