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 35220

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 12385	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
2		faccl 14187	. . . . . . 7 ⊢ (𝑁 ∈ ℕ₀ → (!‘𝑁) ∈ ℕ)
3	1, 2	syl 17	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ)
4	3	nncnd 12138	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℂ)
5		ere 15993	. . . . . . 7 ⊢ e ∈ ℝ
6	5	recni 11123	. . . . . 6 ⊢ e ∈ ℂ
7		epos 16113	. . . . . . 7 ⊢ 0 < e
8	5, 7	gt0ne0ii 11650	. . . . . 6 ⊢ e ≠ 0
9		divcl 11779	. . . . . 6 ⊢ (((!‘𝑁) ∈ ℂ ∧ e ∈ ℂ ∧ e ≠ 0) → ((!‘𝑁) / e) ∈ ℂ)
10	6, 8, 9	mp3an23 1455	. . . . 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 35207	. . . . . . 7 ⊢ 𝑆:ℕ₀⟶ℕ₀
15	14	ffvelcdmi 7016	. . . . . 6 ⊢ (𝑁 ∈ ℕ₀ → (𝑆‘𝑁) ∈ ℕ₀)
16	1, 15	syl 17	. . . . 5 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈ ℕ₀)
17	16	nn0cnd 12441	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈ ℂ)
18	11, 17	subcld 11469	. . 3 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / e) − (𝑆‘𝑁)) ∈ ℂ)
19	18	abscld 15343	. 2 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) ∈ ℝ)
20		peano2nn 12134	. . . . 5 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
21	20	peano2nnd 12139	. . . 4 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℕ)
22	21	nnred 12137	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℝ)
23	20, 20	nnmulcld 12175	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ)
24	22, 23	nndivred 12176	. 2 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) ∈ ℝ)
25		nnrecre 12164	. 2 ⊢ (𝑁 ∈ ℕ → (1 / 𝑁) ∈ ℝ)
26		eqid 2731	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))
27		eqid 2731	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ (((abs‘-1)↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ₀ ↦ (((abs‘-1)↑𝑛) / (!‘𝑛)))
28		eqid 2731	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ ((((abs‘-1)↑(𝑁 + 1)) / (!‘(𝑁 + 1))) · ((1 / ((𝑁 + 1) + 1))↑𝑛))) = (𝑛 ∈ ℕ₀ ↦ ((((abs‘-1)↑(𝑁 + 1)) / (!‘(𝑁 + 1))) · ((1 / ((𝑁 + 1) + 1))↑𝑛)))
29		neg1cn 12107	. . . . . . 7 ⊢ -1 ∈ ℂ
30	29	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → -1 ∈ ℂ)
31		ax-1cn 11061	. . . . . . . . . 10 ⊢ 1 ∈ ℂ
32	31	absnegi 15305	. . . . . . . . 9 ⊢ (abs‘-1) = (abs‘1)
33		abs1 15201	. . . . . . . . 9 ⊢ (abs‘1) = 1
34	32, 33	eqtri 2754	. . . . . . . 8 ⊢ (abs‘-1) = 1
35		1le1 11742	. . . . . . . 8 ⊢ 1 ≤ 1
36	34, 35	eqbrtri 5112	. . . . . . 7 ⊢ (abs‘-1) ≤ 1
37	36	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (abs‘-1) ≤ 1)
38	26, 27, 28, 20, 30, 37	eftlub 16015	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘)) ≤ (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
39	20	nnnn0d 12439	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ₀)
40		eluznn0 12812	. . . . . . . . 9 ⊢ (((𝑁 + 1) ∈ ℕ₀ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → 𝑘 ∈ ℕ₀)
41	39, 40	sylan 580	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → 𝑘 ∈ ℕ₀)
42	26	eftval 15980	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ₀ → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
43	41, 42	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
44	43	sumeq2dv 15606	. . . . . 6 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))
45	44	fveq2d 6826	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘)) = (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
46	34	oveq1i 7356	. . . . . . . 8 ⊢ ((abs‘-1)↑(𝑁 + 1)) = (1↑(𝑁 + 1))
47	20	nnzd 12492	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℤ)
48		1exp 13995	. . . . . . . . 9 ⊢ ((𝑁 + 1) ∈ ℤ → (1↑(𝑁 + 1)) = 1)
49	47, 48	syl 17	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (1↑(𝑁 + 1)) = 1)
50	46, 49	eqtrid 2778	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((abs‘-1)↑(𝑁 + 1)) = 1)
51	50	oveq1d 7361	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (1 · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
52		faccl 14187	. . . . . . . . . . 11 ⊢ ((𝑁 + 1) ∈ ℕ₀ → (!‘(𝑁 + 1)) ∈ ℕ)
53	39, 52	syl 17	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℕ)
54	53, 20	nnmulcld 12175	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ∈ ℕ)
55	22, 54	nndivred 12176	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℝ)
56	55	recnd 11137	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℂ)
57	56	mullidd 11127	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (1 · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
58	51, 57	eqtrd 2766	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
59	38, 45, 58	3brtr3d 5122	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ≤ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
60		eqid 2731	. . . . . . 7 ⊢ (ℤ_≥‘(𝑁 + 1)) = (ℤ_≥‘(𝑁 + 1))
61		eftcl 15977	. . . . . . . . 9 ⊢ ((-1 ∈ ℂ ∧ 𝑘 ∈ ℕ₀) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
62	29, 61	mpan 690	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ₀ → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
63	41, 62	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
64	26	eftlcvg 16012	. . . . . . . 8 ⊢ ((-1 ∈ ℂ ∧ (𝑁 + 1) ∈ ℕ₀) → seq(𝑁 + 1)( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
65	29, 39, 64	sylancr 587	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → seq(𝑁 + 1)( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
66	60, 47, 43, 63, 65	isumcl 15665	. . . . . 6 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
67	66	abscld 15343	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℝ)
68	3	nnred 12137	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℝ)
69	3	nngt0d 12171	. . . . 5 ⊢ (𝑁 ∈ ℕ → 0 < (!‘𝑁))
70		lemul2 11971	. . . . 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 1376	. . . 4 ⊢ (𝑁 ∈ ℕ → ((abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ≤ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ↔ ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) ≤ ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))))
72	59, 71	mpbid 232	. . 3 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) ≤ ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
73	12, 13	subfacval2 35219	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
74	1, 73	syl 17	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
75		nncn 12130	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
76		pncan 11363	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑁 + 1) − 1) = 𝑁)
77	75, 31, 76	sylancl 586	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 1) = 𝑁)
78	77	oveq2d 7362	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (0...((𝑁 + 1) − 1)) = (0...𝑁))
79	78	sumeq1d 15604	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘)))
80	79	oveq2d 7362	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
81	74, 80	eqtr4d 2769	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))))
82	81	oveq1d 7361	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
83		divrec 11789	. . . . . . . . . 10 ⊢ (((!‘𝑁) ∈ ℂ ∧ e ∈ ℂ ∧ e ≠ 0) → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
84	6, 8, 83	mp3an23 1455	. . . . . . . . 9 ⊢ ((!‘𝑁) ∈ ℂ → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
85	4, 84	syl 17	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
86		df-e 15972	. . . . . . . . . . . 12 ⊢ e = (exp‘1)
87	86	oveq2i 7357	. . . . . . . . . . 11 ⊢ (1 / e) = (1 / (exp‘1))
88		efneg 16004	. . . . . . . . . . . 12 ⊢ (1 ∈ ℂ → (exp‘-1) = (1 / (exp‘1)))
89	31, 88	ax-mp 5	. . . . . . . . . . 11 ⊢ (exp‘-1) = (1 / (exp‘1))
90		efval 15983	. . . . . . . . . . . 12 ⊢ (-1 ∈ ℂ → (exp‘-1) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘)))
91	29, 90	ax-mp 5	. . . . . . . . . . 11 ⊢ (exp‘-1) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘))
92	87, 89, 91	3eqtr2i 2760	. . . . . . . . . 10 ⊢ (1 / e) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘))
93		nn0uz 12771	. . . . . . . . . . 11 ⊢ ℕ₀ = (ℤ_≥‘0)
94	42	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
95	62	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
96		0nn0 12393	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℕ₀
97	26	eftlcvg 16012	. . . . . . . . . . . . 13 ⊢ ((-1 ∈ ℂ ∧ 0 ∈ ℕ₀) → seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
98	29, 96, 97	mp2an 692	. . . . . . . . . . . 12 ⊢ seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝
99	98	a1i 11	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
100	93, 60, 39, 94, 95, 99	isumsplit 15744	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘)) = (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
101	92, 100	eqtrid 2778	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 / e) = (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
102	101	oveq2d 7362	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (1 / e)) = ((!‘𝑁) · (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
103		fzfid 13877	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (0...((𝑁 + 1) − 1)) ∈ Fin)
104		elfznn0 13517	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (0...((𝑁 + 1) − 1)) → 𝑘 ∈ ℕ₀)
105	104	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((𝑁 + 1) − 1))) → 𝑘 ∈ ℕ₀)
106	29, 105, 61	sylancr 587	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((𝑁 + 1) − 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
107	103, 106	fsumcl 15637	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
108	4, 107, 66	adddid 11133	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
109	85, 102, 108	3eqtrd 2770	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
110	82, 109	eqtr4d 2769	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) / e))
111	4, 66	mulcld 11129	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℂ)
112	11, 17, 111	subaddd 11487	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((!‘𝑁) / e) − (𝑆‘𝑁)) = ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ↔ ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) / e)))
113	110, 112	mpbird 257	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / e) − (𝑆‘𝑁)) = ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
114	113	fveq2d 6826	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) = (abs‘((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
115	4, 66	absmuld 15361	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((abs‘(!‘𝑁)) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
116	3	nnnn0d 12439	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ₀)
117	116	nn0ge0d 12442	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 0 ≤ (!‘𝑁))
118	68, 117	absidd 15327	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘(!‘𝑁)) = (!‘𝑁))
119	118	oveq1d 7361	. . . 4 ⊢ (𝑁 ∈ ℕ → ((abs‘(!‘𝑁)) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
120	114, 115, 119	3eqtrd 2770	. . 3 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) = ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
121		facp1 14182	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ₀ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
122	1, 121	syl 17	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
123	122	oveq1d 7361	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) = (((!‘𝑁) · (𝑁 + 1)) · (𝑁 + 1)))
124	20	nncnd 12138	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℂ)
125	4, 124, 124	mulassd 11132	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · (𝑁 + 1)) · (𝑁 + 1)) = ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1))))
126	123, 125	eqtr2d 2767	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1))) = ((!‘(𝑁 + 1)) · (𝑁 + 1)))
127	126	oveq2d 7362	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1)))) = (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
128	21	nncnd 12138	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℂ)
129	23	nncnd 12138	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℂ)
130	23	nnne0d 12172	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ≠ 0)
131	3	nnne0d 12172	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ≠ 0)
132	128, 129, 4, 130, 131	divcan5d 11920	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))))
133	54	nncnd 12138	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ∈ ℂ)
134	54	nnne0d 12172	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ≠ 0)
135	4, 128, 133, 134	divassd 11929	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) = ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
136	127, 132, 135	3eqtr3d 2774	. . 3 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) = ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
137	72, 120, 136	3brtr4d 5123	. 2 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) ≤ (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))))
138		nnmulcl 12146	. . . . . . 7 ⊢ ((((𝑁 + 1) + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ) → (((𝑁 + 1) + 1) · 𝑁) ∈ ℕ)
139	21, 138	mpancom 688	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) ∈ ℕ)
140	139	nnred 12137	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) ∈ ℝ)
141	140	ltp1d 12049	. . . 4 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) < ((((𝑁 + 1) + 1) · 𝑁) + 1))
142	129	mullidd 11127	. . . . 5 ⊢ (𝑁 ∈ ℕ → (1 · ((𝑁 + 1) · (𝑁 + 1))) = ((𝑁 + 1) · (𝑁 + 1)))
143	31	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
144	75, 143, 124	adddird 11134	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) = ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))))
145	75, 124	mulcomd 11130	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 · (𝑁 + 1)) = ((𝑁 + 1) · 𝑁))
146	124	mullidd 11127	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (1 · (𝑁 + 1)) = (𝑁 + 1))
147	145, 146	oveq12d 7364	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
148	124, 143, 75	adddird 11134	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) = (((𝑁 + 1) · 𝑁) + (1 · 𝑁)))
149	148	oveq1d 7361	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) + 1) = ((((𝑁 + 1) · 𝑁) + (1 · 𝑁)) + 1))
150	75	mullidd 11127	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 · 𝑁) = 𝑁)
151	150	oveq2d 7362	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) · 𝑁) + (1 · 𝑁)) = (((𝑁 + 1) · 𝑁) + 𝑁))
152	151	oveq1d 7361	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) · 𝑁) + (1 · 𝑁)) + 1) = ((((𝑁 + 1) · 𝑁) + 𝑁) + 1))
153	124, 75	mulcld 11129	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · 𝑁) ∈ ℂ)
154	153, 75, 143	addassd 11131	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) · 𝑁) + 𝑁) + 1) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
155	149, 152, 154	3eqtrd 2770	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) + 1) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
156	147, 155	eqtr4d 2769	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))) = ((((𝑁 + 1) + 1) · 𝑁) + 1))
157	142, 144, 156	3eqtrd 2770	. . . 4 ⊢ (𝑁 ∈ ℕ → (1 · ((𝑁 + 1) · (𝑁 + 1))) = ((((𝑁 + 1) + 1) · 𝑁) + 1))
158	141, 157	breqtrrd 5119	. . 3 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) < (1 · ((𝑁 + 1) · (𝑁 + 1))))
159		nnre 12129	. . . . 5 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
160		nngt0 12153	. . . . 5 ⊢ (𝑁 ∈ ℕ → 0 < 𝑁)
161	159, 160	jca 511	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 ∈ ℝ ∧ 0 < 𝑁))
162		1red 11110	. . . 4 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
163		nnre 12129	. . . . . 6 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ)
164		nngt0 12153	. . . . . 6 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → 0 < ((𝑁 + 1) · (𝑁 + 1)))
165	163, 164	jca 511	. . . . 5 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → (((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ ∧ 0 < ((𝑁 + 1) · (𝑁 + 1))))
166	23, 165	syl 17	. . . 4 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ ∧ 0 < ((𝑁 + 1) · (𝑁 + 1))))
167		lt2mul2div 11997	. . . 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 232	. 2 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) < (1 / 𝑁))
170	19, 24, 25, 137, 169	lelttrd 11268	1 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) < (1 / 𝑁))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1541 ∈ wcel 2111 {cab 2709 ≠ wne 2928 ∀wral 3047 class class class wbr 5091 ↦ cmpt 5172 dom cdm 5616 –1-1-onto→wf1o 6480 ‘cfv 6481 (class class class)co 7346 Fincfn 8869 ℂcc 11001 ℝcr 11002 0cc0 11003 1c1 11004 + caddc 11006 · cmul 11008 < clt 11143 ≤ cle 11144 − cmin 11341 -cneg 11342 / cdiv 11771 ℕcn 12122 ℕ₀cn0 12378 ℤcz 12465 ℤ_≥cuz 12729 ...cfz 13404 seqcseq 13905 ↑cexp 13965 !cfa 14177 ♯chash 14234 abscabs 15138 ⇝ cli 15388 Σcsu 15590 expce 15965 eceu 15966

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1968 ax-7 2009 ax-8 2113 ax-9 2121 ax-10 2144 ax-11 2160 ax-12 2180 ax-ext 2703 ax-rep 5217 ax-sep 5234 ax-nul 5244 ax-pow 5303 ax-pr 5370 ax-un 7668 ax-inf2 9531 ax-cnex 11059 ax-resscn 11060 ax-1cn 11061 ax-icn 11062 ax-addcl 11063 ax-addrcl 11064 ax-mulcl 11065 ax-mulrcl 11066 ax-mulcom 11067 ax-addass 11068 ax-mulass 11069 ax-distr 11070 ax-i2m1 11071 ax-1ne0 11072 ax-1rid 11073 ax-rnegex 11074 ax-rrecex 11075 ax-cnre 11076 ax-pre-lttri 11077 ax-pre-lttrn 11078 ax-pre-ltadd 11079 ax-pre-mulgt0 11080 ax-pre-sup 11081

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1544 df-fal 1554 df-ex 1781 df-nf 1785 df-sb 2068 df-mo 2535 df-eu 2564 df-clab 2710 df-cleq 2723 df-clel 2806 df-nfc 2881 df-ne 2929 df-nel 3033 df-ral 3048 df-rex 3057 df-rmo 3346 df-reu 3347 df-rab 3396 df-v 3438 df-sbc 3742 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-pss 3922 df-nul 4284 df-if 4476 df-pw 4552 df-sn 4577 df-pr 4579 df-op 4583 df-uni 4860 df-int 4898 df-iun 4943 df-br 5092 df-opab 5154 df-mpt 5173 df-tr 5199 df-id 5511 df-eprel 5516 df-po 5524 df-so 5525 df-fr 5569 df-se 5570 df-we 5571 df-xp 5622 df-rel 5623 df-cnv 5624 df-co 5625 df-dm 5626 df-rn 5627 df-res 5628 df-ima 5629 df-pred 6248 df-ord 6309 df-on 6310 df-lim 6311 df-suc 6312 df-iota 6437 df-fun 6483 df-fn 6484 df-f 6485 df-f1 6486 df-fo 6487 df-f1o 6488 df-fv 6489 df-isom 6490 df-riota 7303 df-ov 7349 df-oprab 7350 df-mpo 7351 df-om 7797 df-1st 7921 df-2nd 7922 df-frecs 8211 df-wrecs 8242 df-recs 8291 df-rdg 8329 df-1o 8385 df-2o 8386 df-oadd 8389 df-er 8622 df-map 8752 df-pm 8753 df-en 8870 df-dom 8871 df-sdom 8872 df-fin 8873 df-sup 9326 df-inf 9327 df-oi 9396 df-dju 9791 df-card 9829 df-pnf 11145 df-mnf 11146 df-xr 11147 df-ltxr 11148 df-le 11149 df-sub 11343 df-neg 11344 df-div 11772 df-nn 12123 df-2 12185 df-3 12186 df-4 12187 df-n0 12379 df-xnn0 12452 df-z 12466 df-uz 12730 df-q 12844 df-rp 12888 df-ico 13248 df-fz 13405 df-fzo 13552 df-fl 13693 df-seq 13906 df-exp 13966 df-fac 14178 df-bc 14207 df-hash 14235 df-shft 14971 df-cj 15003 df-re 15004 df-im 15005 df-sqrt 15139 df-abs 15140 df-limsup 15375 df-clim 15392 df-rlim 15393 df-sum 15591 df-ef 15971 df-e 15972

This theorem is referenced by: subfacval3 35221

W3C validator