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 34179

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 12479	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
2		faccl 14243	. . . . . . 7 ⊢ (𝑁 ∈ ℕ₀ → (!‘𝑁) ∈ ℕ)
3	1, 2	syl 17	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ)
4	3	nncnd 12228	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℂ)
5		ere 16032	. . . . . . 7 ⊢ e ∈ ℝ
6	5	recni 11228	. . . . . 6 ⊢ e ∈ ℂ
7		epos 16150	. . . . . . 7 ⊢ 0 < e
8	5, 7	gt0ne0ii 11750	. . . . . 6 ⊢ e ≠ 0
9		divcl 11878	. . . . . 6 ⊢ (((!‘𝑁) ∈ ℂ ∧ e ∈ ℂ ∧ e ≠ 0) → ((!‘𝑁) / e) ∈ ℂ)
10	6, 8, 9	mp3an23 1454	. . . . 5 ⊢ ((!‘𝑁) ∈ ℂ → ((!‘𝑁) / e) ∈ ℂ)
11	4, 10	syl 17	. . . 4 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) ∈ ℂ)
12		derang.d	. . . . . . . 8 ⊢ 𝐷 = (𝑥 ∈ Fin ↦ (♯‘{𝑓 ∣ (𝑓:𝑥–1-1-onto→𝑥 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) ≠ 𝑦)}))
13		subfac.n	. . . . . . . 8 ⊢ 𝑆 = (𝑛 ∈ ℕ₀ ↦ (𝐷‘(1...𝑛)))
14	12, 13	subfacf 34166	. . . . . . 7 ⊢ 𝑆:ℕ₀⟶ℕ₀
15	14	ffvelcdmi 7086	. . . . . 6 ⊢ (𝑁 ∈ ℕ₀ → (𝑆‘𝑁) ∈ ℕ₀)
16	1, 15	syl 17	. . . . 5 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈ ℕ₀)
17	16	nn0cnd 12534	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈ ℂ)
18	11, 17	subcld 11571	. . 3 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / e) − (𝑆‘𝑁)) ∈ ℂ)
19	18	abscld 15383	. 2 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) ∈ ℝ)
20		peano2nn 12224	. . . . 5 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
21	20	peano2nnd 12229	. . . 4 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℕ)
22	21	nnred 12227	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℝ)
23	20, 20	nnmulcld 12265	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ)
24	22, 23	nndivred 12266	. 2 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) ∈ ℝ)
25		nnrecre 12254	. 2 ⊢ (𝑁 ∈ ℕ → (1 / 𝑁) ∈ ℝ)
26		eqid 2733	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))
27		eqid 2733	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ (((abs‘-1)↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ₀ ↦ (((abs‘-1)↑𝑛) / (!‘𝑛)))
28		eqid 2733	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ ((((abs‘-1)↑(𝑁 + 1)) / (!‘(𝑁 + 1))) · ((1 / ((𝑁 + 1) + 1))↑𝑛))) = (𝑛 ∈ ℕ₀ ↦ ((((abs‘-1)↑(𝑁 + 1)) / (!‘(𝑁 + 1))) · ((1 / ((𝑁 + 1) + 1))↑𝑛)))
29		neg1cn 12326	. . . . . . 7 ⊢ -1 ∈ ℂ
30	29	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → -1 ∈ ℂ)
31		ax-1cn 11168	. . . . . . . . . 10 ⊢ 1 ∈ ℂ
32	31	absnegi 15347	. . . . . . . . 9 ⊢ (abs‘-1) = (abs‘1)
33		abs1 15244	. . . . . . . . 9 ⊢ (abs‘1) = 1
34	32, 33	eqtri 2761	. . . . . . . 8 ⊢ (abs‘-1) = 1
35		1le1 11842	. . . . . . . 8 ⊢ 1 ≤ 1
36	34, 35	eqbrtri 5170	. . . . . . 7 ⊢ (abs‘-1) ≤ 1
37	36	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (abs‘-1) ≤ 1)
38	26, 27, 28, 20, 30, 37	eftlub 16052	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘)) ≤ (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
39	20	nnnn0d 12532	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ₀)
40		eluznn0 12901	. . . . . . . . 9 ⊢ (((𝑁 + 1) ∈ ℕ₀ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → 𝑘 ∈ ℕ₀)
41	39, 40	sylan 581	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → 𝑘 ∈ ℕ₀)
42	26	eftval 16020	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ₀ → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
43	41, 42	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
44	43	sumeq2dv 15649	. . . . . 6 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))
45	44	fveq2d 6896	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘)) = (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
46	34	oveq1i 7419	. . . . . . . 8 ⊢ ((abs‘-1)↑(𝑁 + 1)) = (1↑(𝑁 + 1))
47	20	nnzd 12585	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℤ)
48		1exp 14057	. . . . . . . . 9 ⊢ ((𝑁 + 1) ∈ ℤ → (1↑(𝑁 + 1)) = 1)
49	47, 48	syl 17	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (1↑(𝑁 + 1)) = 1)
50	46, 49	eqtrid 2785	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((abs‘-1)↑(𝑁 + 1)) = 1)
51	50	oveq1d 7424	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (1 · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
52		faccl 14243	. . . . . . . . . . 11 ⊢ ((𝑁 + 1) ∈ ℕ₀ → (!‘(𝑁 + 1)) ∈ ℕ)
53	39, 52	syl 17	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℕ)
54	53, 20	nnmulcld 12265	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ∈ ℕ)
55	22, 54	nndivred 12266	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℝ)
56	55	recnd 11242	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℂ)
57	56	mullidd 11232	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (1 · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
58	51, 57	eqtrd 2773	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
59	38, 45, 58	3brtr3d 5180	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ≤ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
60		eqid 2733	. . . . . . 7 ⊢ (ℤ_≥‘(𝑁 + 1)) = (ℤ_≥‘(𝑁 + 1))
61		eftcl 16017	. . . . . . . . 9 ⊢ ((-1 ∈ ℂ ∧ 𝑘 ∈ ℕ₀) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
62	29, 61	mpan 689	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ₀ → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
63	41, 62	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
64	26	eftlcvg 16049	. . . . . . . 8 ⊢ ((-1 ∈ ℂ ∧ (𝑁 + 1) ∈ ℕ₀) → seq(𝑁 + 1)( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
65	29, 39, 64	sylancr 588	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → seq(𝑁 + 1)( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
66	60, 47, 43, 63, 65	isumcl 15707	. . . . . 6 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
67	66	abscld 15383	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℝ)
68	3	nnred 12227	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℝ)
69	3	nngt0d 12261	. . . . 5 ⊢ (𝑁 ∈ ℕ → 0 < (!‘𝑁))
70		lemul2 12067	. . . . 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 1375	. . . 4 ⊢ (𝑁 ∈ ℕ → ((abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ≤ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ↔ ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) ≤ ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))))
72	59, 71	mpbid 231	. . 3 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) ≤ ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
73	12, 13	subfacval2 34178	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
74	1, 73	syl 17	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
75		nncn 12220	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
76		pncan 11466	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑁 + 1) − 1) = 𝑁)
77	75, 31, 76	sylancl 587	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 1) = 𝑁)
78	77	oveq2d 7425	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (0...((𝑁 + 1) − 1)) = (0...𝑁))
79	78	sumeq1d 15647	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘)))
80	79	oveq2d 7425	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
81	74, 80	eqtr4d 2776	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))))
82	81	oveq1d 7424	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
83		divrec 11888	. . . . . . . . . 10 ⊢ (((!‘𝑁) ∈ ℂ ∧ e ∈ ℂ ∧ e ≠ 0) → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
84	6, 8, 83	mp3an23 1454	. . . . . . . . 9 ⊢ ((!‘𝑁) ∈ ℂ → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
85	4, 84	syl 17	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
86		df-e 16012	. . . . . . . . . . . 12 ⊢ e = (exp‘1)
87	86	oveq2i 7420	. . . . . . . . . . 11 ⊢ (1 / e) = (1 / (exp‘1))
88		efneg 16041	. . . . . . . . . . . 12 ⊢ (1 ∈ ℂ → (exp‘-1) = (1 / (exp‘1)))
89	31, 88	ax-mp 5	. . . . . . . . . . 11 ⊢ (exp‘-1) = (1 / (exp‘1))
90		efval 16023	. . . . . . . . . . . 12 ⊢ (-1 ∈ ℂ → (exp‘-1) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘)))
91	29, 90	ax-mp 5	. . . . . . . . . . 11 ⊢ (exp‘-1) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘))
92	87, 89, 91	3eqtr2i 2767	. . . . . . . . . 10 ⊢ (1 / e) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘))
93		nn0uz 12864	. . . . . . . . . . 11 ⊢ ℕ₀ = (ℤ_≥‘0)
94	42	adantl 483	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
95	62	adantl 483	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
96		0nn0 12487	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℕ₀
97	26	eftlcvg 16049	. . . . . . . . . . . . 13 ⊢ ((-1 ∈ ℂ ∧ 0 ∈ ℕ₀) → seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
98	29, 96, 97	mp2an 691	. . . . . . . . . . . 12 ⊢ seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝
99	98	a1i 11	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
100	93, 60, 39, 94, 95, 99	isumsplit 15786	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘)) = (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
101	92, 100	eqtrid 2785	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 / e) = (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
102	101	oveq2d 7425	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (1 / e)) = ((!‘𝑁) · (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
103		fzfid 13938	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (0...((𝑁 + 1) − 1)) ∈ Fin)
104		elfznn0 13594	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (0...((𝑁 + 1) − 1)) → 𝑘 ∈ ℕ₀)
105	104	adantl 483	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((𝑁 + 1) − 1))) → 𝑘 ∈ ℕ₀)
106	29, 105, 61	sylancr 588	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((𝑁 + 1) − 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
107	103, 106	fsumcl 15679	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
108	4, 107, 66	adddid 11238	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
109	85, 102, 108	3eqtrd 2777	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
110	82, 109	eqtr4d 2776	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) / e))
111	4, 66	mulcld 11234	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℂ)
112	11, 17, 111	subaddd 11589	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((!‘𝑁) / e) − (𝑆‘𝑁)) = ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ↔ ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) / e)))
113	110, 112	mpbird 257	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / e) − (𝑆‘𝑁)) = ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
114	113	fveq2d 6896	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) = (abs‘((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
115	4, 66	absmuld 15401	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((abs‘(!‘𝑁)) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
116	3	nnnn0d 12532	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ₀)
117	116	nn0ge0d 12535	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 0 ≤ (!‘𝑁))
118	68, 117	absidd 15369	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘(!‘𝑁)) = (!‘𝑁))
119	118	oveq1d 7424	. . . 4 ⊢ (𝑁 ∈ ℕ → ((abs‘(!‘𝑁)) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
120	114, 115, 119	3eqtrd 2777	. . 3 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) = ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
121		facp1 14238	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ₀ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
122	1, 121	syl 17	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
123	122	oveq1d 7424	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) = (((!‘𝑁) · (𝑁 + 1)) · (𝑁 + 1)))
124	20	nncnd 12228	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℂ)
125	4, 124, 124	mulassd 11237	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · (𝑁 + 1)) · (𝑁 + 1)) = ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1))))
126	123, 125	eqtr2d 2774	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1))) = ((!‘(𝑁 + 1)) · (𝑁 + 1)))
127	126	oveq2d 7425	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1)))) = (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
128	21	nncnd 12228	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℂ)
129	23	nncnd 12228	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℂ)
130	23	nnne0d 12262	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ≠ 0)
131	3	nnne0d 12262	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ≠ 0)
132	128, 129, 4, 130, 131	divcan5d 12016	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))))
133	54	nncnd 12228	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ∈ ℂ)
134	54	nnne0d 12262	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ≠ 0)
135	4, 128, 133, 134	divassd 12025	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) = ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
136	127, 132, 135	3eqtr3d 2781	. . 3 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) = ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
137	72, 120, 136	3brtr4d 5181	. 2 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) ≤ (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))))
138		nnmulcl 12236	. . . . . . 7 ⊢ ((((𝑁 + 1) + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ) → (((𝑁 + 1) + 1) · 𝑁) ∈ ℕ)
139	21, 138	mpancom 687	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) ∈ ℕ)
140	139	nnred 12227	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) ∈ ℝ)
141	140	ltp1d 12144	. . . 4 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) < ((((𝑁 + 1) + 1) · 𝑁) + 1))
142	129	mullidd 11232	. . . . 5 ⊢ (𝑁 ∈ ℕ → (1 · ((𝑁 + 1) · (𝑁 + 1))) = ((𝑁 + 1) · (𝑁 + 1)))
143	31	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
144	75, 143, 124	adddird 11239	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) = ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))))
145	75, 124	mulcomd 11235	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 · (𝑁 + 1)) = ((𝑁 + 1) · 𝑁))
146	124	mullidd 11232	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (1 · (𝑁 + 1)) = (𝑁 + 1))
147	145, 146	oveq12d 7427	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
148	124, 143, 75	adddird 11239	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) = (((𝑁 + 1) · 𝑁) + (1 · 𝑁)))
149	148	oveq1d 7424	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) + 1) = ((((𝑁 + 1) · 𝑁) + (1 · 𝑁)) + 1))
150	75	mullidd 11232	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 · 𝑁) = 𝑁)
151	150	oveq2d 7425	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) · 𝑁) + (1 · 𝑁)) = (((𝑁 + 1) · 𝑁) + 𝑁))
152	151	oveq1d 7424	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) · 𝑁) + (1 · 𝑁)) + 1) = ((((𝑁 + 1) · 𝑁) + 𝑁) + 1))
153	124, 75	mulcld 11234	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · 𝑁) ∈ ℂ)
154	153, 75, 143	addassd 11236	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) · 𝑁) + 𝑁) + 1) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
155	149, 152, 154	3eqtrd 2777	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) + 1) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
156	147, 155	eqtr4d 2776	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))) = ((((𝑁 + 1) + 1) · 𝑁) + 1))
157	142, 144, 156	3eqtrd 2777	. . . 4 ⊢ (𝑁 ∈ ℕ → (1 · ((𝑁 + 1) · (𝑁 + 1))) = ((((𝑁 + 1) + 1) · 𝑁) + 1))
158	141, 157	breqtrrd 5177	. . 3 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) < (1 · ((𝑁 + 1) · (𝑁 + 1))))
159		nnre 12219	. . . . 5 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
160		nngt0 12243	. . . . 5 ⊢ (𝑁 ∈ ℕ → 0 < 𝑁)
161	159, 160	jca 513	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 ∈ ℝ ∧ 0 < 𝑁))
162		1red 11215	. . . 4 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
163		nnre 12219	. . . . . 6 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ)
164		nngt0 12243	. . . . . 6 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → 0 < ((𝑁 + 1) · (𝑁 + 1)))
165	163, 164	jca 513	. . . . 5 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → (((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ ∧ 0 < ((𝑁 + 1) · (𝑁 + 1))))
166	23, 165	syl 17	. . . 4 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ ∧ 0 < ((𝑁 + 1) · (𝑁 + 1))))
167		lt2mul2div 12092	. . . 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 838	. . 3 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) < (1 · ((𝑁 + 1) · (𝑁 + 1))) ↔ (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) < (1 / 𝑁)))
169	158, 168	mpbid 231	. 2 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) < (1 / 𝑁))
170	19, 24, 25, 137, 169	lelttrd 11372	1 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) < (1 / 𝑁))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 397 = wceq 1542 ∈ wcel 2107 {cab 2710 ≠ wne 2941 ∀wral 3062 class class class wbr 5149 ↦ cmpt 5232 dom cdm 5677 –1-1-onto→wf1o 6543 ‘cfv 6544 (class class class)co 7409 Fincfn 8939 ℂcc 11108 ℝcr 11109 0cc0 11110 1c1 11111 + caddc 11113 · cmul 11115 < clt 11248 ≤ cle 11249 − cmin 11444 -cneg 11445 / cdiv 11871 ℕcn 12212 ℕ₀cn0 12472 ℤcz 12558 ℤ_≥cuz 12822 ...cfz 13484 seqcseq 13966 ↑cexp 14027 !cfa 14233 ♯chash 14290 abscabs 15181 ⇝ cli 15428 Σcsu 15632 expce 16005 eceu 16006

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 1914 ax-6 1972 ax-7 2012 ax-8 2109 ax-9 2117 ax-10 2138 ax-11 2155 ax-12 2172 ax-ext 2704 ax-rep 5286 ax-sep 5300 ax-nul 5307 ax-pow 5364 ax-pr 5428 ax-un 7725 ax-inf2 9636 ax-cnex 11166 ax-resscn 11167 ax-1cn 11168 ax-icn 11169 ax-addcl 11170 ax-addrcl 11171 ax-mulcl 11172 ax-mulrcl 11173 ax-mulcom 11174 ax-addass 11175 ax-mulass 11176 ax-distr 11177 ax-i2m1 11178 ax-1ne0 11179 ax-1rid 11180 ax-rnegex 11181 ax-rrecex 11182 ax-cnre 11183 ax-pre-lttri 11184 ax-pre-lttrn 11185 ax-pre-ltadd 11186 ax-pre-mulgt0 11187 ax-pre-sup 11188

This theorem depends on definitions: df-bi 206 df-an 398 df-or 847 df-3or 1089 df-3an 1090 df-tru 1545 df-fal 1555 df-ex 1783 df-nf 1787 df-sb 2069 df-mo 2535 df-eu 2564 df-clab 2711 df-cleq 2725 df-clel 2811 df-nfc 2886 df-ne 2942 df-nel 3048 df-ral 3063 df-rex 3072 df-rmo 3377 df-reu 3378 df-rab 3434 df-v 3477 df-sbc 3779 df-csb 3895 df-dif 3952 df-un 3954 df-in 3956 df-ss 3966 df-pss 3968 df-nul 4324 df-if 4530 df-pw 4605 df-sn 4630 df-pr 4632 df-op 4636 df-uni 4910 df-int 4952 df-iun 5000 df-br 5150 df-opab 5212 df-mpt 5233 df-tr 5267 df-id 5575 df-eprel 5581 df-po 5589 df-so 5590 df-fr 5632 df-se 5633 df-we 5634 df-xp 5683 df-rel 5684 df-cnv 5685 df-co 5686 df-dm 5687 df-rn 5688 df-res 5689 df-ima 5690 df-pred 6301 df-ord 6368 df-on 6369 df-lim 6370 df-suc 6371 df-iota 6496 df-fun 6546 df-fn 6547 df-f 6548 df-f1 6549 df-fo 6550 df-f1o 6551 df-fv 6552 df-isom 6553 df-riota 7365 df-ov 7412 df-oprab 7413 df-mpo 7414 df-om 7856 df-1st 7975 df-2nd 7976 df-frecs 8266 df-wrecs 8297 df-recs 8371 df-rdg 8410 df-1o 8466 df-oadd 8470 df-er 8703 df-map 8822 df-pm 8823 df-en 8940 df-dom 8941 df-sdom 8942 df-fin 8943 df-sup 9437 df-inf 9438 df-oi 9505 df-dju 9896 df-card 9934 df-pnf 11250 df-mnf 11251 df-xr 11252 df-ltxr 11253 df-le 11254 df-sub 11446 df-neg 11447 df-div 11872 df-nn 12213 df-2 12275 df-3 12276 df-4 12277 df-n0 12473 df-xnn0 12545 df-z 12559 df-uz 12823 df-q 12933 df-rp 12975 df-ico 13330 df-fz 13485 df-fzo 13628 df-fl 13757 df-seq 13967 df-exp 14028 df-fac 14234 df-bc 14263 df-hash 14291 df-shft 15014 df-cj 15046 df-re 15047 df-im 15048 df-sqrt 15182 df-abs 15183 df-limsup 15415 df-clim 15432 df-rlim 15433 df-sum 15633 df-ef 16011 df-e 16012

This theorem is referenced by: subfacval3 34180

W3C validator