subfaclim - Mathbox for Mario Carneiro

	Mathbox for Mario Carneiro		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > subfaclim		Structured version Visualization version GIF version

Theorem subfaclim 35922

Description: The subfactorial converges rapidly to 𝑁! / e. This is part of Metamath 100 proof #88. (Contributed by Mario Carneiro, 23-Jan-2015.)

**Hypotheses**
Ref	Expression
derang.d	⊢ 𝐷 = (𝑥 ∈ Fin ↦ (♯‘{𝑓 ∣ (𝑓:𝑥–1-1-onto→𝑥 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) ≠ 𝑦)}))
subfac.n	⊢ 𝑆 = (𝑛 ∈ ℕ₀ ↦ (𝐷‘(1...𝑛)))

**Assertion**
Ref	Expression
subfaclim	⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) < (1 / 𝑁))

Distinct variable groups: 𝑓,𝑛,𝑥,𝑦,𝑁 𝐷,𝑛 𝑆,𝑛,𝑥,𝑦 Allowed substitution hints: 𝐷(𝑥, 𝑦, 𝑓) 𝑆(𝑓)

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

Step	Hyp	Ref	Expression
1		nnnn0 12594	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
2		faccl 14407	. . . . . . 7 ⊢ (𝑁 ∈ ℕ₀ → (!‘𝑁) ∈ ℕ)
3	1, 2	syl 18	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ)
4	3	nncnd 12332	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℂ)
5		ere 16235	. . . . . . 7 ⊢ e ∈ ℝ
6	5	recni 11304	. . . . . 6 ⊢ e ∈ ℂ
7		epos 16355	. . . . . . 7 ⊢ 0 < e
8	5, 7	gt0ne0ii 11833	. . . . . 6 ⊢ e ≠ 0
9		divcl 11961	. . . . . 6 ⊢ (((!‘𝑁) ∈ ℂ ∧ e ∈ ℂ ∧ e ≠ 0) → ((!‘𝑁) / e) ∈ ℂ)
10	6, 8, 9	mp3an23 1482	. . . . 5 ⊢ ((!‘𝑁) ∈ ℂ → ((!‘𝑁) / e) ∈ ℂ)
11	4, 10	syl 18	. . . 4 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) ∈ ℂ)
12		derang.d	. . . . . . . 8 ⊢ 𝐷 = (𝑥 ∈ Fin ↦ (♯‘{𝑓 ∣ (𝑓:𝑥–1-1-onto→𝑥 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) ≠ 𝑦)}))
13		subfac.n	. . . . . . . 8 ⊢ 𝑆 = (𝑛 ∈ ℕ₀ ↦ (𝐷‘(1...𝑛)))
14	12, 13	subfacf 35909	. . . . . . 7 ⊢ 𝑆:ℕ₀⟶ℕ₀
15	14	ffvelcdmi 7075	. . . . . 6 ⊢ (𝑁 ∈ ℕ₀ → (𝑆‘𝑁) ∈ ℕ₀)
16	1, 15	syl 18	. . . . 5 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈ ℕ₀)
17	16	nn0cnd 12650	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈ ℂ)
18	11, 17	subcld 11650	. . 3 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / e) − (𝑆‘𝑁)) ∈ ℂ)
19	18	abscld 15586	. 2 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) ∈ ℝ)
20		peano2nn 12328	. . . . 5 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
21	20	peano2nnd 12333	. . . 4 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℕ)
22	21	nnred 12331	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℝ)
23	20, 20	nnmulcld 12372	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ)
24	22, 23	nndivred 12373	. 2 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) ∈ ℝ)
25		nnrecre 12361	. 2 ⊢ (𝑁 ∈ ℕ → (1 / 𝑁) ∈ ℝ)
26		eqid 2761	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))
27		eqid 2761	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ (((abs‘-1)↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ₀ ↦ (((abs‘-1)↑𝑛) / (!‘𝑛)))
28		eqid 2761	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ ((((abs‘-1)↑(𝑁 + 1)) / (!‘(𝑁 + 1))) · ((1 / ((𝑁 + 1) + 1))↑𝑛))) = (𝑛 ∈ ℕ₀ ↦ ((((abs‘-1)↑(𝑁 + 1)) / (!‘(𝑁 + 1))) · ((1 / ((𝑁 + 1) + 1))↑𝑛)))
29		neg1cn 12286	. . . . . . 7 ⊢ -1 ∈ ℂ
30	29	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → -1 ∈ ℂ)
31		ax-1cn 11239	. . . . . . . . . 10 ⊢ 1 ∈ ℂ
32	31	absnegi 15548	. . . . . . . . 9 ⊢ (abs‘-1) = (abs‘1)
33		abs1 15444	. . . . . . . . 9 ⊢ (abs‘1) = 1
34	32, 33	eqtri 2784	. . . . . . . 8 ⊢ (abs‘-1) = 1
35		1le1 11925	. . . . . . . 8 ⊢ 1 ≤ 1
36	34, 35	eqbrtri 5126	. . . . . . 7 ⊢ (abs‘-1) ≤ 1
37	36	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (abs‘-1) ≤ 1)
38	26, 27, 28, 20, 30, 37	eftlub 16257	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘)) ≤ (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
39	20	nnnn0d 12648	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ₀)
40		eluznn0 13025	. . . . . . . . 9 ⊢ (((𝑁 + 1) ∈ ℕ₀ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → 𝑘 ∈ ℕ₀)
41	39, 40	sylan 592	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → 𝑘 ∈ ℕ₀)
42	26	eftval 16222	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ₀ → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
43	41, 42	syl 18	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
44	43	sumeq2dv 15849	. . . . . 6 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))
45	44	fveq2d 6881	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘)) = (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
46	34	oveq1i 7422	. . . . . . . 8 ⊢ ((abs‘-1)↑(𝑁 + 1)) = (1↑(𝑁 + 1))
47	20	nnzd 12700	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℤ)
48		1exp 14214	. . . . . . . . 9 ⊢ ((𝑁 + 1) ∈ ℤ → (1↑(𝑁 + 1)) = 1)
49	47, 48	syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (1↑(𝑁 + 1)) = 1)
50	46, 49	eqtrid 2808	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((abs‘-1)↑(𝑁 + 1)) = 1)
51	50	oveq1d 7427	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (1 · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
52		faccl 14407	. . . . . . . . . . 11 ⊢ ((𝑁 + 1) ∈ ℕ₀ → (!‘(𝑁 + 1)) ∈ ℕ)
53	39, 52	syl 18	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℕ)
54	53, 20	nnmulcld 12372	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ∈ ℕ)
55	22, 54	nndivred 12373	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℝ)
56	55	recnd 11318	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℂ)
57	56	mullidd 11308	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (1 · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
58	51, 57	eqtrd 2796	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
59	38, 45, 58	3brtr3d 5136	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ≤ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
60		eqid 2761	. . . . . . 7 ⊢ (ℤ_≥‘(𝑁 + 1)) = (ℤ_≥‘(𝑁 + 1))
61		eftcl 16219	. . . . . . . . 9 ⊢ ((-1 ∈ ℂ ∧ 𝑘 ∈ ℕ₀) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
62	29, 61	mpan 703	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ₀ → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
63	41, 62	syl 18	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
64	26	eftlcvg 16254	. . . . . . . 8 ⊢ ((-1 ∈ ℂ ∧ (𝑁 + 1) ∈ ℕ₀) → seq(𝑁 + 1)( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
65	29, 39, 64	sylancr 599	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → seq(𝑁 + 1)( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
66	60, 47, 43, 63, 65	isumcl 15907	. . . . . 6 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
67	66	abscld 15586	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℝ)
68	3	nnred 12331	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℝ)
69	3	nngt0d 12368	. . . . 5 ⊢ (𝑁 ∈ ℕ → 0 < (!‘𝑁))
70		lemul2 12151	. . . . 5 ⊢ (((abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℝ ∧ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℝ ∧ ((!‘𝑁) ∈ ℝ ∧ 0 < (!‘𝑁))) → ((abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ≤ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ↔ ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) ≤ ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))))
71	67, 55, 68, 69, 70	syl112anc 1401	. . . 4 ⊢ (𝑁 ∈ ℕ → ((abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ≤ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ↔ ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) ≤ ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))))
72	59, 71	mpbid 235	. . 3 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) ≤ ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
73	12, 13	subfacval2 35921	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
74	1, 73	syl 18	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
75		nncn 12324	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
76		pncan 11544	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑁 + 1) − 1) = 𝑁)
77	75, 31, 76	sylancl 598	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 1) = 𝑁)
78	77	oveq2d 7428	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (0...((𝑁 + 1) − 1)) = (0...𝑁))
79	78	sumeq1d 15847	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘)))
80	79	oveq2d 7428	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
81	74, 80	eqtr4d 2799	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))))
82	81	oveq1d 7427	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
83		divrec 11971	. . . . . . . . . 10 ⊢ (((!‘𝑁) ∈ ℂ ∧ e ∈ ℂ ∧ e ≠ 0) → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
84	6, 8, 83	mp3an23 1482	. . . . . . . . 9 ⊢ ((!‘𝑁) ∈ ℂ → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
85	4, 84	syl 18	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
86		df-e 16214	. . . . . . . . . . . 12 ⊢ e = (exp‘1)
87	86	oveq2i 7423	. . . . . . . . . . 11 ⊢ (1 / e) = (1 / (exp‘1))
88		efneg 16246	. . . . . . . . . . . 12 ⊢ (1 ∈ ℂ → (exp‘-1) = (1 / (exp‘1)))
89	31, 88	ax-mp 5	. . . . . . . . . . 11 ⊢ (exp‘-1) = (1 / (exp‘1))
90		efval 16225	. . . . . . . . . . . 12 ⊢ (-1 ∈ ℂ → (exp‘-1) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘)))
91	29, 90	ax-mp 5	. . . . . . . . . . 11 ⊢ (exp‘-1) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘))
92	87, 89, 91	3eqtr2i 2790	. . . . . . . . . 10 ⊢ (1 / e) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘))
93		nn0uz 12984	. . . . . . . . . . 11 ⊢ ℕ₀ = (ℤ_≥‘0)
94	42	adantl 487	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
95	62	adantl 487	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
96		0nn0 12602	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℕ₀
97	26	eftlcvg 16254	. . . . . . . . . . . . 13 ⊢ ((-1 ∈ ℂ ∧ 0 ∈ ℕ₀) → seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
98	29, 96, 97	mp2an 705	. . . . . . . . . . . 12 ⊢ seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝
99	98	a1i 11	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
100	93, 60, 39, 94, 95, 99	isumsplit 15989	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘)) = (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
101	92, 100	eqtrid 2808	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 / e) = (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
102	101	oveq2d 7428	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (1 / e)) = ((!‘𝑁) · (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
103		fzfid 14096	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (0...((𝑁 + 1) − 1)) ∈ Fin)
104		elfznn0 13734	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (0...((𝑁 + 1) − 1)) → 𝑘 ∈ ℕ₀)
105	104	adantl 487	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((𝑁 + 1) − 1))) → 𝑘 ∈ ℕ₀)
106	29, 105, 61	sylancr 599	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((𝑁 + 1) − 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
107	103, 106	fsumcl 15879	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
108	4, 107, 66	adddid 11314	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
109	85, 102, 108	3eqtrd 2800	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
110	82, 109	eqtr4d 2799	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) / e))
111	4, 66	mulcld 11310	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℂ)
112	11, 17, 111	subaddd 11668	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((!‘𝑁) / e) − (𝑆‘𝑁)) = ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ↔ ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) / e)))
113	110, 112	mpbird 260	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / e) − (𝑆‘𝑁)) = ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
114	113	fveq2d 6881	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) = (abs‘((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
115	4, 66	absmuld 15604	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((abs‘(!‘𝑁)) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
116	3	nnnn0d 12648	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ₀)
117	116	nn0ge0d 12651	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 0 ≤ (!‘𝑁))
118	68, 117	absidd 15570	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘(!‘𝑁)) = (!‘𝑁))
119	118	oveq1d 7427	. . . 4 ⊢ (𝑁 ∈ ℕ → ((abs‘(!‘𝑁)) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
120	114, 115, 119	3eqtrd 2800	. . 3 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) = ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
121		facp1 14402	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ₀ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
122	1, 121	syl 18	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
123	122	oveq1d 7427	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) = (((!‘𝑁) · (𝑁 + 1)) · (𝑁 + 1)))
124	20	nncnd 12332	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℂ)
125	4, 124, 124	mulassd 11313	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · (𝑁 + 1)) · (𝑁 + 1)) = ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1))))
126	123, 125	eqtr2d 2797	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1))) = ((!‘(𝑁 + 1)) · (𝑁 + 1)))
127	126	oveq2d 7428	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1)))) = (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
128	21	nncnd 12332	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℂ)
129	23	nncnd 12332	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℂ)
130	23	nnne0d 12369	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ≠ 0)
131	3	nnne0d 12369	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ≠ 0)
132	128, 129, 4, 130, 131	divcan5d 12100	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))))
133	54	nncnd 12332	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ∈ ℂ)
134	54	nnne0d 12369	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ≠ 0)
135	4, 128, 133, 134	divassd 12109	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) = ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
136	127, 132, 135	3eqtr3d 2804	. . 3 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) = ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
137	72, 120, 136	3brtr4d 5137	. 2 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) ≤ (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))))
138		nnmulcl 12340	. . . . . . 7 ⊢ ((((𝑁 + 1) + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ) → (((𝑁 + 1) + 1) · 𝑁) ∈ ℕ)
139	21, 138	mpancom 701	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) ∈ ℕ)
140	139	nnred 12331	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) ∈ ℝ)
141	140	ltp1d 12228	. . . 4 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) < ((((𝑁 + 1) + 1) · 𝑁) + 1))
142	129	mullidd 11308	. . . . 5 ⊢ (𝑁 ∈ ℕ → (1 · ((𝑁 + 1) · (𝑁 + 1))) = ((𝑁 + 1) · (𝑁 + 1)))
143	31	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
144	75, 143, 124	adddird 11315	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) = ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))))
145	75, 124	mulcomd 11311	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 · (𝑁 + 1)) = ((𝑁 + 1) · 𝑁))
146	124	mullidd 11308	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (1 · (𝑁 + 1)) = (𝑁 + 1))
147	145, 146	oveq12d 7430	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
148	124, 143, 75	adddird 11315	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) = (((𝑁 + 1) · 𝑁) + (1 · 𝑁)))
149	148	oveq1d 7427	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) + 1) = ((((𝑁 + 1) · 𝑁) + (1 · 𝑁)) + 1))
150	75	mullidd 11308	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 · 𝑁) = 𝑁)
151	150	oveq2d 7428	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) · 𝑁) + (1 · 𝑁)) = (((𝑁 + 1) · 𝑁) + 𝑁))
152	151	oveq1d 7427	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) · 𝑁) + (1 · 𝑁)) + 1) = ((((𝑁 + 1) · 𝑁) + 𝑁) + 1))
153	124, 75	mulcld 11310	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · 𝑁) ∈ ℂ)
154	153, 75, 143	addassd 11312	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) · 𝑁) + 𝑁) + 1) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
155	149, 152, 154	3eqtrd 2800	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) + 1) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
156	147, 155	eqtr4d 2799	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))) = ((((𝑁 + 1) + 1) · 𝑁) + 1))
157	142, 144, 156	3eqtrd 2800	. . . 4 ⊢ (𝑁 ∈ ℕ → (1 · ((𝑁 + 1) · (𝑁 + 1))) = ((((𝑁 + 1) + 1) · 𝑁) + 1))
158	141, 157	breqtrrd 5133	. . 3 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) < (1 · ((𝑁 + 1) · (𝑁 + 1))))
159		nnre 12323	. . . . 5 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
160		nngt0 12350	. . . . 5 ⊢ (𝑁 ∈ ℕ → 0 < 𝑁)
161	159, 160	jca 521	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 ∈ ℝ ∧ 0 < 𝑁))
162		1red 11290	. . . 4 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
163		nnre 12323	. . . . . 6 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ)
164		nngt0 12350	. . . . . 6 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → 0 < ((𝑁 + 1) · (𝑁 + 1)))
165	163, 164	jca 521	. . . . 5 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → (((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ ∧ 0 < ((𝑁 + 1) · (𝑁 + 1))))
166	23, 165	syl 18	. . . 4 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ ∧ 0 < ((𝑁 + 1) · (𝑁 + 1))))
167		lt2mul2div 12176	. . . 4 ⊢ (((((𝑁 + 1) + 1) ∈ ℝ ∧ (𝑁 ∈ ℝ ∧ 0 < 𝑁)) ∧ (1 ∈ ℝ ∧ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ ∧ 0 < ((𝑁 + 1) · (𝑁 + 1))))) → ((((𝑁 + 1) + 1) · 𝑁) < (1 · ((𝑁 + 1) · (𝑁 + 1))) ↔ (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) < (1 / 𝑁)))
168	22, 161, 162, 166, 167	syl22anc 852	. . 3 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) < (1 · ((𝑁 + 1) · (𝑁 + 1))) ↔ (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) < (1 / 𝑁)))
169	158, 168	mpbid 235	. 2 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) < (1 / 𝑁))
170	19, 24, 25, 137, 169	lelttrd 11449	1 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) < (1 / 𝑁))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2145 {cab 2739 ≠ wne 2956 ∀wral 3077 class class class wbr 5103 ↦ cmpt 5186 dom cdm 5651 –1-1-onto→wf1o 6530 ‘cfv 6531 (class class class)co 7412 Fincfn 8957 ℂcc 11179 ℝcr 11180 0cc0 11181 1c1 11182 + caddc 11184 · cmul 11186 < clt 11324 ≤ cle 11325 − cmin 11522 -cneg 11523 / cdiv 11954 ℕcn 12316 ℕ₀cn0 12587 ℤcz 12674 ℤ_≥cuz 12946 ...cfz 13620 seqcseq 14124 ↑cexp 14184 !cfa 14397 ♯chash 14454 abscabs 15381 ⇝ cli 15631 Σcsu 15833 expce 16207 eceu 16208

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2733 ax-rep 5232 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7740 ax-inf2 9626 ax-cnex 11237 ax-resscn 11238 ax-1cn 11239 ax-icn 11240 ax-addcl 11241 ax-addrcl 11242 ax-mulcl 11243 ax-mulrcl 11244 ax-mulcom 11245 ax-addass 11246 ax-mulass 11247 ax-distr 11248 ax-i2m1 11249 ax-1ne0 11250 ax-1rid 11251 ax-rnegex 11252 ax-rrecex 11253 ax-cnre 11254 ax-pre-lttri 11255 ax-pre-lttrn 11256 ax-pre-ltadd 11257 ax-pre-mulgt0 11258 ax-pre-sup 11259

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3063 df-ral 3078 df-rex 3088 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3453 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-op 4591 df-uni 4868 df-int 4908 df-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-se 5605 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6297 df-ord 6358 df-on 6359 df-lim 6360 df-suc 6361 df-iota 6487 df-fun 6533 df-fn 6534 df-f 6535 df-f1 6536 df-fo 6537 df-f1o 6538 df-fv 6539 df-isom 6540 df-riota 7369 df-ov 7415 df-oprab 7416 df-mpo 7417 df-om 7867 df-1st 7990 df-2nd 7991 df-frecs 8283 df-wrecs 8314 df-recs 8363 df-rdg 8402 df-1o 8460 df-2o 8461 df-oadd 8464 df-er 8701 df-map 8833 df-pm 8834 df-en 8958 df-dom 8959 df-sdom 8960 df-fin 8961 df-sup 9418 df-inf 9419 df-oi 9488 df-dju 9963 df-card 10001 df-pnf 11326 df-mnf 11327 df-xr 11328 df-ltxr 11329 df-le 11330 df-sub 11524 df-neg 11525 df-div 11955 df-nn 12317 df-2 12386 df-3 12387 df-4 12388 df-n0 12588 df-xnn0 12661 df-z 12675 df-uz 12947 df-q 13057 df-rp 13102 df-ico 13463 df-fz 13621 df-fzo 13769 df-fl 13912 df-seq 14125 df-exp 14185 df-fac 14398 df-bc 14427 df-hash 14455 df-shft 15200 df-cj 15246 df-re 15247 df-im 15248 df-sqrt 15382 df-abs 15383 df-limsup 15618 df-clim 15635 df-rlim 15636 df-sum 15834 df-ef 16213 df-e 16214

This theorem is used by: subfacval3 35923

W3C validator