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 35476

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 12474	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
2		faccl 14282	. . . . . . 7 ⊢ (𝑁 ∈ ℕ₀ → (!‘𝑁) ∈ ℕ)
3	1, 2	syl 17	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ)
4	3	nncnd 12212	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℂ)
5		ere 16091	. . . . . . 7 ⊢ e ∈ ℝ
6	5	recni 11182	. . . . . 6 ⊢ e ∈ ℂ
7		epos 16211	. . . . . . 7 ⊢ 0 < e
8	5, 7	gt0ne0ii 11709	. . . . . 6 ⊢ e ≠ 0
9		divcl 11837	. . . . . 6 ⊢ (((!‘𝑁) ∈ ℂ ∧ e ∈ ℂ ∧ e ≠ 0) → ((!‘𝑁) / e) ∈ ℂ)
10	6, 8, 9	mp3an23 1464	. . . . 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 35463	. . . . . . 7 ⊢ 𝑆:ℕ₀⟶ℕ₀
15	14	ffvelcdmi 7049	. . . . . 6 ⊢ (𝑁 ∈ ℕ₀ → (𝑆‘𝑁) ∈ ℕ₀)
16	1, 15	syl 17	. . . . 5 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈ ℕ₀)
17	16	nn0cnd 12530	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈ ℂ)
18	11, 17	subcld 11528	. . 3 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / e) − (𝑆‘𝑁)) ∈ ℂ)
19	18	abscld 15438	. 2 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) ∈ ℝ)
20		peano2nn 12208	. . . . 5 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
21	20	peano2nnd 12213	. . . 4 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℕ)
22	21	nnred 12211	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℝ)
23	20, 20	nnmulcld 12252	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ)
24	22, 23	nndivred 12253	. 2 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) ∈ ℝ)
25		nnrecre 12241	. 2 ⊢ (𝑁 ∈ ℕ → (1 / 𝑁) ∈ ℝ)
26		eqid 2752	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))
27		eqid 2752	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ (((abs‘-1)↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ₀ ↦ (((abs‘-1)↑𝑛) / (!‘𝑛)))
28		eqid 2752	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ ((((abs‘-1)↑(𝑁 + 1)) / (!‘(𝑁 + 1))) · ((1 / ((𝑁 + 1) + 1))↑𝑛))) = (𝑛 ∈ ℕ₀ ↦ ((((abs‘-1)↑(𝑁 + 1)) / (!‘(𝑁 + 1))) · ((1 / ((𝑁 + 1) + 1))↑𝑛)))
29		neg1cn 12166	. . . . . . 7 ⊢ -1 ∈ ℂ
30	29	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → -1 ∈ ℂ)
31		ax-1cn 11117	. . . . . . . . . 10 ⊢ 1 ∈ ℂ
32	31	absnegi 15400	. . . . . . . . 9 ⊢ (abs‘-1) = (abs‘1)
33		abs1 15296	. . . . . . . . 9 ⊢ (abs‘1) = 1
34	32, 33	eqtri 2775	. . . . . . . 8 ⊢ (abs‘-1) = 1
35		1le1 11801	. . . . . . . 8 ⊢ 1 ≤ 1
36	34, 35	eqbrtri 5111	. . . . . . 7 ⊢ (abs‘-1) ≤ 1
37	36	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (abs‘-1) ≤ 1)
38	26, 27, 28, 20, 30, 37	eftlub 16113	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘)) ≤ (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
39	20	nnnn0d 12528	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ₀)
40		eluznn0 12904	. . . . . . . . 9 ⊢ (((𝑁 + 1) ∈ ℕ₀ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → 𝑘 ∈ ℕ₀)
41	39, 40	sylan 588	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → 𝑘 ∈ ℕ₀)
42	26	eftval 16078	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ₀ → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
43	41, 42	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
44	43	sumeq2dv 15701	. . . . . 6 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))
45	44	fveq2d 6856	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘)) = (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
46	34	oveq1i 7391	. . . . . . . 8 ⊢ ((abs‘-1)↑(𝑁 + 1)) = (1↑(𝑁 + 1))
47	20	nnzd 12580	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℤ)
48		1exp 14090	. . . . . . . . 9 ⊢ ((𝑁 + 1) ∈ ℤ → (1↑(𝑁 + 1)) = 1)
49	47, 48	syl 17	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (1↑(𝑁 + 1)) = 1)
50	46, 49	eqtrid 2799	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((abs‘-1)↑(𝑁 + 1)) = 1)
51	50	oveq1d 7396	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (1 · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
52		faccl 14282	. . . . . . . . . . 11 ⊢ ((𝑁 + 1) ∈ ℕ₀ → (!‘(𝑁 + 1)) ∈ ℕ)
53	39, 52	syl 17	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℕ)
54	53, 20	nnmulcld 12252	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ∈ ℕ)
55	22, 54	nndivred 12253	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℝ)
56	55	recnd 11196	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℂ)
57	56	mullidd 11186	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (1 · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
58	51, 57	eqtrd 2787	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
59	38, 45, 58	3brtr3d 5121	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ≤ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
60		eqid 2752	. . . . . . 7 ⊢ (ℤ_≥‘(𝑁 + 1)) = (ℤ_≥‘(𝑁 + 1))
61		eftcl 16075	. . . . . . . . 9 ⊢ ((-1 ∈ ℂ ∧ 𝑘 ∈ ℕ₀) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
62	29, 61	mpan 698	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ₀ → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
63	41, 62	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
64	26	eftlcvg 16110	. . . . . . . 8 ⊢ ((-1 ∈ ℂ ∧ (𝑁 + 1) ∈ ℕ₀) → seq(𝑁 + 1)( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
65	29, 39, 64	sylancr 595	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → seq(𝑁 + 1)( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
66	60, 47, 43, 63, 65	isumcl 15760	. . . . . 6 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
67	66	abscld 15438	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℝ)
68	3	nnred 12211	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℝ)
69	3	nngt0d 12248	. . . . 5 ⊢ (𝑁 ∈ ℕ → 0 < (!‘𝑁))
70		lemul2 12030	. . . . 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 1385	. . . 4 ⊢ (𝑁 ∈ ℕ → ((abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ≤ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ↔ ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) ≤ ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))))
72	59, 71	mpbid 234	. . 3 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) ≤ ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
73	12, 13	subfacval2 35475	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
74	1, 73	syl 17	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
75		nncn 12204	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
76		pncan 11422	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑁 + 1) − 1) = 𝑁)
77	75, 31, 76	sylancl 594	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 1) = 𝑁)
78	77	oveq2d 7397	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (0...((𝑁 + 1) − 1)) = (0...𝑁))
79	78	sumeq1d 15699	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘)))
80	79	oveq2d 7397	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
81	74, 80	eqtr4d 2790	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))))
82	81	oveq1d 7396	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
83		divrec 11847	. . . . . . . . . 10 ⊢ (((!‘𝑁) ∈ ℂ ∧ e ∈ ℂ ∧ e ≠ 0) → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
84	6, 8, 83	mp3an23 1464	. . . . . . . . 9 ⊢ ((!‘𝑁) ∈ ℂ → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
85	4, 84	syl 17	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) = ((!‘𝑁) · (1 / e)))
86		df-e 16070	. . . . . . . . . . . 12 ⊢ e = (exp‘1)
87	86	oveq2i 7392	. . . . . . . . . . 11 ⊢ (1 / e) = (1 / (exp‘1))
88		efneg 16102	. . . . . . . . . . . 12 ⊢ (1 ∈ ℂ → (exp‘-1) = (1 / (exp‘1)))
89	31, 88	ax-mp 5	. . . . . . . . . . 11 ⊢ (exp‘-1) = (1 / (exp‘1))
90		efval 16081	. . . . . . . . . . . 12 ⊢ (-1 ∈ ℂ → (exp‘-1) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘)))
91	29, 90	ax-mp 5	. . . . . . . . . . 11 ⊢ (exp‘-1) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘))
92	87, 89, 91	3eqtr2i 2781	. . . . . . . . . 10 ⊢ (1 / e) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘))
93		nn0uz 12863	. . . . . . . . . . 11 ⊢ ℕ₀ = (ℤ_≥‘0)
94	42	adantl 484	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
95	62	adantl 484	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
96		0nn0 12482	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℕ₀
97	26	eftlcvg 16110	. . . . . . . . . . . . 13 ⊢ ((-1 ∈ ℂ ∧ 0 ∈ ℕ₀) → seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
98	29, 96, 97	mp2an 700	. . . . . . . . . . . 12 ⊢ seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝
99	98	a1i 11	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → seq0( + , (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))) ∈ dom ⇝ )
100	93, 60, 39, 94, 95, 99	isumsplit 15842	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘)) = (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
101	92, 100	eqtrid 2799	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 / e) = (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
102	101	oveq2d 7397	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (1 / e)) = ((!‘𝑁) · (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
103		fzfid 13972	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (0...((𝑁 + 1) − 1)) ∈ Fin)
104		elfznn0 13611	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (0...((𝑁 + 1) − 1)) → 𝑘 ∈ ℕ₀)
105	104	adantl 484	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((𝑁 + 1) − 1))) → 𝑘 ∈ ℕ₀)
106	29, 105, 61	sylancr 595	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (0...((𝑁 + 1) − 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
107	103, 106	fsumcl 15732	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
108	4, 107, 66	adddid 11192	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
109	85, 102, 108	3eqtrd 2791	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
110	82, 109	eqtr4d 2790	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) / e))
111	4, 66	mulcld 11188	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℂ)
112	11, 17, 111	subaddd 11546	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((!‘𝑁) / e) − (𝑆‘𝑁)) = ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ↔ ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) / e)))
113	110, 112	mpbird 259	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / e) − (𝑆‘𝑁)) = ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
114	113	fveq2d 6856	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) = (abs‘((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
115	4, 66	absmuld 15456	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((abs‘(!‘𝑁)) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
116	3	nnnn0d 12528	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ₀)
117	116	nn0ge0d 12531	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 0 ≤ (!‘𝑁))
118	68, 117	absidd 15422	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘(!‘𝑁)) = (!‘𝑁))
119	118	oveq1d 7396	. . . 4 ⊢ (𝑁 ∈ ℕ → ((abs‘(!‘𝑁)) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
120	114, 115, 119	3eqtrd 2791	. . 3 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) = ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
121		facp1 14277	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ₀ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
122	1, 121	syl 17	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
123	122	oveq1d 7396	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) = (((!‘𝑁) · (𝑁 + 1)) · (𝑁 + 1)))
124	20	nncnd 12212	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℂ)
125	4, 124, 124	mulassd 11191	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · (𝑁 + 1)) · (𝑁 + 1)) = ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1))))
126	123, 125	eqtr2d 2788	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1))) = ((!‘(𝑁 + 1)) · (𝑁 + 1)))
127	126	oveq2d 7397	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1)))) = (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
128	21	nncnd 12212	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℂ)
129	23	nncnd 12212	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℂ)
130	23	nnne0d 12249	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ≠ 0)
131	3	nnne0d 12249	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ≠ 0)
132	128, 129, 4, 130, 131	divcan5d 11979	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))))
133	54	nncnd 12212	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ∈ ℂ)
134	54	nnne0d 12249	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ≠ 0)
135	4, 128, 133, 134	divassd 11988	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) = ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
136	127, 132, 135	3eqtr3d 2795	. . 3 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) = ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
137	72, 120, 136	3brtr4d 5122	. 2 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) ≤ (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))))
138		nnmulcl 12220	. . . . . . 7 ⊢ ((((𝑁 + 1) + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ) → (((𝑁 + 1) + 1) · 𝑁) ∈ ℕ)
139	21, 138	mpancom 696	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) ∈ ℕ)
140	139	nnred 12211	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) ∈ ℝ)
141	140	ltp1d 12108	. . . 4 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) < ((((𝑁 + 1) + 1) · 𝑁) + 1))
142	129	mullidd 11186	. . . . 5 ⊢ (𝑁 ∈ ℕ → (1 · ((𝑁 + 1) · (𝑁 + 1))) = ((𝑁 + 1) · (𝑁 + 1)))
143	31	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
144	75, 143, 124	adddird 11193	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) = ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))))
145	75, 124	mulcomd 11189	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 · (𝑁 + 1)) = ((𝑁 + 1) · 𝑁))
146	124	mullidd 11186	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (1 · (𝑁 + 1)) = (𝑁 + 1))
147	145, 146	oveq12d 7399	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
148	124, 143, 75	adddird 11193	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) = (((𝑁 + 1) · 𝑁) + (1 · 𝑁)))
149	148	oveq1d 7396	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) + 1) = ((((𝑁 + 1) · 𝑁) + (1 · 𝑁)) + 1))
150	75	mullidd 11186	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 · 𝑁) = 𝑁)
151	150	oveq2d 7397	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) · 𝑁) + (1 · 𝑁)) = (((𝑁 + 1) · 𝑁) + 𝑁))
152	151	oveq1d 7396	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) · 𝑁) + (1 · 𝑁)) + 1) = ((((𝑁 + 1) · 𝑁) + 𝑁) + 1))
153	124, 75	mulcld 11188	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · 𝑁) ∈ ℂ)
154	153, 75, 143	addassd 11190	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) · 𝑁) + 𝑁) + 1) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
155	149, 152, 154	3eqtrd 2791	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) + 1) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
156	147, 155	eqtr4d 2790	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))) = ((((𝑁 + 1) + 1) · 𝑁) + 1))
157	142, 144, 156	3eqtrd 2791	. . . 4 ⊢ (𝑁 ∈ ℕ → (1 · ((𝑁 + 1) · (𝑁 + 1))) = ((((𝑁 + 1) + 1) · 𝑁) + 1))
158	141, 157	breqtrrd 5118	. . 3 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) < (1 · ((𝑁 + 1) · (𝑁 + 1))))
159		nnre 12203	. . . . 5 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
160		nngt0 12230	. . . . 5 ⊢ (𝑁 ∈ ℕ → 0 < 𝑁)
161	159, 160	jca 518	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 ∈ ℝ ∧ 0 < 𝑁))
162		1red 11168	. . . 4 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
163		nnre 12203	. . . . . 6 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ)
164		nngt0 12230	. . . . . 6 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → 0 < ((𝑁 + 1) · (𝑁 + 1)))
165	163, 164	jca 518	. . . . 5 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → (((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ ∧ 0 < ((𝑁 + 1) · (𝑁 + 1))))
166	23, 165	syl 17	. . . 4 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ ∧ 0 < ((𝑁 + 1) · (𝑁 + 1))))
167		lt2mul2div 12056	. . . 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 847	. . 3 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) < (1 · ((𝑁 + 1) · (𝑁 + 1))) ↔ (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) < (1 / 𝑁)))
169	158, 168	mpbid 234	. 2 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) < (1 / 𝑁))
170	19, 24, 25, 137, 169	lelttrd 11327	1 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) < (1 / 𝑁))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 398 = wceq 1550 ∈ wcel 2132 {cab 2730 ≠ wne 2947 ∀wral 3066 class class class wbr 5090 ↦ cmpt 5171 dom cdm 5636 –1-1-onto→wf1o 6505 ‘cfv 6506 (class class class)co 7381 Fincfn 8912 ℂcc 11057 ℝcr 11058 0cc0 11059 1c1 11060 + caddc 11062 · cmul 11064 < clt 11202 ≤ cle 11203 − cmin 11400 -cneg 11401 / cdiv 11830 ℕcn 12196 ℕ₀cn0 12467 ℤcz 12554 ℤ_≥cuz 12825 ...cfz 13498 seqcseq 14000 ↑cexp 14060 !cfa 14272 ♯chash 14329 abscabs 15233 ⇝ cli 15483 Σcsu 15685 expce 16063 eceu 16064

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1805 ax-4 1819 ax-5 1920 ax-6 1977 ax-7 2018 ax-8 2134 ax-9 2142 ax-10 2165 ax-11 2181 ax-12 2202 ax-ext 2724 ax-rep 5217 ax-sep 5236 ax-nul 5246 ax-pow 5312 ax-pr 5380 ax-un 7703 ax-inf2 9582 ax-cnex 11115 ax-resscn 11116 ax-1cn 11117 ax-icn 11118 ax-addcl 11119 ax-addrcl 11120 ax-mulcl 11121 ax-mulrcl 11122 ax-mulcom 11123 ax-addass 11124 ax-mulass 11125 ax-distr 11126 ax-i2m1 11127 ax-1ne0 11128 ax-1rid 11129 ax-rnegex 11130 ax-rrecex 11131 ax-cnre 11132 ax-pre-lttri 11133 ax-pre-lttrn 11134 ax-pre-ltadd 11135 ax-pre-mulgt0 11136 ax-pre-sup 11137

This theorem depends on definitions: df-bi 209 df-an 399 df-or 857 df-3or 1096 df-3an 1097 df-tru 1553 df-fal 1563 df-ex 1790 df-nf 1794 df-sb 2081 df-mo 2556 df-eu 2586 df-clab 2731 df-cleq 2744 df-clel 2827 df-nfc 2901 df-ne 2948 df-nel 3052 df-ral 3067 df-rex 3077 df-rmo 3357 df-reu 3358 df-rab 3405 df-v 3446 df-sbc 3736 df-csb 3844 df-dif 3898 df-un 3900 df-in 3902 df-ss 3912 df-pss 3915 df-nul 4277 df-if 4471 df-pw 4547 df-sn 4573 df-pr 4575 df-op 4579 df-uni 4856 df-int 4896 df-iun 4941 df-br 5091 df-opab 5153 df-mpt 5172 df-tr 5198 df-id 5531 df-eprel 5536 df-po 5544 df-so 5545 df-fr 5589 df-se 5590 df-we 5591 df-xp 5642 df-rel 5643 df-cnv 5644 df-co 5645 df-dm 5646 df-rn 5647 df-res 5648 df-ima 5649 df-pred 6273 df-ord 6334 df-on 6335 df-lim 6336 df-suc 6337 df-iota 6462 df-fun 6508 df-fn 6509 df-f 6510 df-f1 6511 df-fo 6512 df-f1o 6513 df-fv 6514 df-isom 6515 df-riota 7338 df-ov 7384 df-oprab 7385 df-mpo 7386 df-om 7832 df-1st 7955 df-2nd 7956 df-frecs 8246 df-wrecs 8277 df-recs 8326 df-rdg 8365 df-1o 8421 df-2o 8422 df-oadd 8425 df-er 8662 df-map 8794 df-pm 8795 df-en 8913 df-dom 8914 df-sdom 8915 df-fin 8916 df-sup 9374 df-inf 9375 df-oi 9444 df-dju 9845 df-card 9883 df-pnf 11204 df-mnf 11205 df-xr 11206 df-ltxr 11207 df-le 11208 df-sub 11402 df-neg 11403 df-div 11831 df-nn 12197 df-2 12266 df-3 12267 df-4 12268 df-n0 12468 df-xnn0 12541 df-z 12555 df-uz 12826 df-q 12936 df-rp 12980 df-ico 13341 df-fz 13499 df-fzo 13646 df-fl 13788 df-seq 14001 df-exp 14061 df-fac 14273 df-bc 14302 df-hash 14330 df-shft 15066 df-cj 15098 df-re 15099 df-im 15100 df-sqrt 15234 df-abs 15235 df-limsup 15470 df-clim 15487 df-rlim 15488 df-sum 15686 df-ef 16069 df-e 16070

This theorem is referenced by: subfacval3 35477

W3C validator