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 35160

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 12409	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℕ₀)
2		faccl 14208	. . . . . . 7 ⊢ (𝑁 ∈ ℕ₀ → (!‘𝑁) ∈ ℕ)
3	1, 2	syl 17	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ)
4	3	nncnd 12162	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℂ)
5		ere 16014	. . . . . . 7 ⊢ e ∈ ℝ
6	5	recni 11148	. . . . . 6 ⊢ e ∈ ℂ
7		epos 16134	. . . . . . 7 ⊢ 0 < e
8	5, 7	gt0ne0ii 11674	. . . . . 6 ⊢ e ≠ 0
9		divcl 11803	. . . . . 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 35147	. . . . . . 7 ⊢ 𝑆:ℕ₀⟶ℕ₀
15	14	ffvelcdmi 7021	. . . . . 6 ⊢ (𝑁 ∈ ℕ₀ → (𝑆‘𝑁) ∈ ℕ₀)
16	1, 15	syl 17	. . . . 5 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈ ℕ₀)
17	16	nn0cnd 12465	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈ ℂ)
18	11, 17	subcld 11493	. . 3 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / e) − (𝑆‘𝑁)) ∈ ℂ)
19	18	abscld 15364	. 2 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) ∈ ℝ)
20		peano2nn 12158	. . . . 5 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ)
21	20	peano2nnd 12163	. . . 4 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℕ)
22	21	nnred 12161	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℝ)
23	20, 20	nnmulcld 12199	. . 3 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ)
24	22, 23	nndivred 12200	. 2 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) ∈ ℝ)
25		nnrecre 12188	. 2 ⊢ (𝑁 ∈ ℕ → (1 / 𝑁) ∈ ℝ)
26		eqid 2729	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))
27		eqid 2729	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ (((abs‘-1)↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ₀ ↦ (((abs‘-1)↑𝑛) / (!‘𝑛)))
28		eqid 2729	. . . . . 6 ⊢ (𝑛 ∈ ℕ₀ ↦ ((((abs‘-1)↑(𝑁 + 1)) / (!‘(𝑁 + 1))) · ((1 / ((𝑁 + 1) + 1))↑𝑛))) = (𝑛 ∈ ℕ₀ ↦ ((((abs‘-1)↑(𝑁 + 1)) / (!‘(𝑁 + 1))) · ((1 / ((𝑁 + 1) + 1))↑𝑛)))
29		neg1cn 12131	. . . . . . 7 ⊢ -1 ∈ ℂ
30	29	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → -1 ∈ ℂ)
31		ax-1cn 11086	. . . . . . . . . 10 ⊢ 1 ∈ ℂ
32	31	absnegi 15326	. . . . . . . . 9 ⊢ (abs‘-1) = (abs‘1)
33		abs1 15222	. . . . . . . . 9 ⊢ (abs‘1) = 1
34	32, 33	eqtri 2752	. . . . . . . 8 ⊢ (abs‘-1) = 1
35		1le1 11766	. . . . . . . 8 ⊢ 1 ≤ 1
36	34, 35	eqbrtri 5116	. . . . . . 7 ⊢ (abs‘-1) ≤ 1
37	36	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (abs‘-1) ≤ 1)
38	26, 27, 28, 20, 30, 37	eftlub 16036	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘)) ≤ (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
39	20	nnnn0d 12463	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℕ₀)
40		eluznn0 12836	. . . . . . . . 9 ⊢ (((𝑁 + 1) ∈ ℕ₀ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → 𝑘 ∈ ℕ₀)
41	39, 40	sylan 580	. . . . . . . 8 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → 𝑘 ∈ ℕ₀)
42	26	eftval 16001	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ₀ → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
43	41, 42	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
44	43	sumeq2dv 15627	. . . . . 6 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))
45	44	fveq2d 6830	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘)) = (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
46	34	oveq1i 7363	. . . . . . . 8 ⊢ ((abs‘-1)↑(𝑁 + 1)) = (1↑(𝑁 + 1))
47	20	nnzd 12516	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℤ)
48		1exp 14016	. . . . . . . . 9 ⊢ ((𝑁 + 1) ∈ ℤ → (1↑(𝑁 + 1)) = 1)
49	47, 48	syl 17	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (1↑(𝑁 + 1)) = 1)
50	46, 49	eqtrid 2776	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((abs‘-1)↑(𝑁 + 1)) = 1)
51	50	oveq1d 7368	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (1 · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
52		faccl 14208	. . . . . . . . . . 11 ⊢ ((𝑁 + 1) ∈ ℕ₀ → (!‘(𝑁 + 1)) ∈ ℕ)
53	39, 52	syl 17	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) ∈ ℕ)
54	53, 20	nnmulcld 12199	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ∈ ℕ)
55	22, 54	nndivred 12200	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℝ)
56	55	recnd 11162	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) ∈ ℂ)
57	56	mullidd 11152	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (1 · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
58	51, 57	eqtrd 2764	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((abs‘-1)↑(𝑁 + 1)) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
59	38, 45, 58	3brtr3d 5126	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ≤ (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
60		eqid 2729	. . . . . . 7 ⊢ (ℤ_≥‘(𝑁 + 1)) = (ℤ_≥‘(𝑁 + 1))
61		eftcl 15998	. . . . . . . . 9 ⊢ ((-1 ∈ ℂ ∧ 𝑘 ∈ ℕ₀) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
62	29, 61	mpan 690	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ₀ → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
63	41, 62	syl 17	. . . . . . 7 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ (ℤ_≥‘(𝑁 + 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
64	26	eftlcvg 16033	. . . . . . . 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 15686	. . . . . 6 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
67	66	abscld 15364	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℝ)
68	3	nnred 12161	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℝ)
69	3	nngt0d 12195	. . . . 5 ⊢ (𝑁 ∈ ℕ → 0 < (!‘𝑁))
70		lemul2 11995	. . . . 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 35159	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ₀ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
74	1, 73	syl 17	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
75		nncn 12154	. . . . . . . . . . . . 13 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℂ)
76		pncan 11387	. . . . . . . . . . . . 13 ⊢ ((𝑁 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑁 + 1) − 1) = 𝑁)
77	75, 31, 76	sylancl 586	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 1) = 𝑁)
78	77	oveq2d 7369	. . . . . . . . . . 11 ⊢ (𝑁 ∈ ℕ → (0...((𝑁 + 1) − 1)) = (0...𝑁))
79	78	sumeq1d 15625	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘)))
80	79	oveq2d 7369	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
81	74, 80	eqtr4d 2767	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))))
82	81	oveq1d 7368	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
83		divrec 11813	. . . . . . . . . 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 15993	. . . . . . . . . . . 12 ⊢ e = (exp‘1)
87	86	oveq2i 7364	. . . . . . . . . . 11 ⊢ (1 / e) = (1 / (exp‘1))
88		efneg 16025	. . . . . . . . . . . 12 ⊢ (1 ∈ ℂ → (exp‘-1) = (1 / (exp‘1)))
89	31, 88	ax-mp 5	. . . . . . . . . . 11 ⊢ (exp‘-1) = (1 / (exp‘1))
90		efval 16004	. . . . . . . . . . . 12 ⊢ (-1 ∈ ℂ → (exp‘-1) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘)))
91	29, 90	ax-mp 5	. . . . . . . . . . 11 ⊢ (exp‘-1) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘))
92	87, 89, 91	3eqtr2i 2758	. . . . . . . . . 10 ⊢ (1 / e) = Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘))
93		nn0uz 12795	. . . . . . . . . . 11 ⊢ ℕ₀ = (ℤ_≥‘0)
94	42	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → ((𝑛 ∈ ℕ₀ ↦ ((-1↑𝑛) / (!‘𝑛)))‘𝑘) = ((-1↑𝑘) / (!‘𝑘)))
95	62	adantl 481	. . . . . . . . . . 11 ⊢ ((𝑁 ∈ ℕ ∧ 𝑘 ∈ ℕ₀) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
96		0nn0 12417	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℕ₀
97	26	eftlcvg 16033	. . . . . . . . . . . . 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 15765	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ ℕ₀ ((-1↑𝑘) / (!‘𝑘)) = (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
101	92, 100	eqtrid 2776	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 / e) = (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
102	101	oveq2d 7369	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (1 / e)) = ((!‘𝑁) · (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
103		fzfid 13898	. . . . . . . . . 10 ⊢ (𝑁 ∈ ℕ → (0...((𝑁 + 1) − 1)) ∈ Fin)
104		elfznn0 13541	. . . . . . . . . . . 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 15658	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
108	4, 107, 66	adddid 11158	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · (Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘)) + Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
109	85, 102, 108	3eqtrd 2768	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) / e) = (((!‘𝑁) · Σ𝑘 ∈ (0...((𝑁 + 1) − 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
110	82, 109	eqtr4d 2767	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) / e))
111	4, 66	mulcld 11154	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ∈ ℂ)
112	11, 17, 111	subaddd 11511	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((!‘𝑁) / e) − (𝑆‘𝑁)) = ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))) ↔ ((𝑆‘𝑁) + ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) / e)))
113	110, 112	mpbird 257	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) / e) − (𝑆‘𝑁)) = ((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
114	113	fveq2d 6830	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) = (abs‘((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
115	4, 66	absmuld 15382	. . . 4 ⊢ (𝑁 ∈ ℕ → (abs‘((!‘𝑁) · Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((abs‘(!‘𝑁)) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
116	3	nnnn0d 12463	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ∈ ℕ₀)
117	116	nn0ge0d 12466	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 0 ≤ (!‘𝑁))
118	68, 117	absidd 15348	. . . . 5 ⊢ (𝑁 ∈ ℕ → (abs‘(!‘𝑁)) = (!‘𝑁))
119	118	oveq1d 7368	. . . 4 ⊢ (𝑁 ∈ ℕ → ((abs‘(!‘𝑁)) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))) = ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
120	114, 115, 119	3eqtrd 2768	. . 3 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) = ((!‘𝑁) · (abs‘Σ𝑘 ∈ (ℤ_≥‘(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
121		facp1 14203	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ₀ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
122	1, 121	syl 17	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1)))
123	122	oveq1d 7368	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) = (((!‘𝑁) · (𝑁 + 1)) · (𝑁 + 1)))
124	20	nncnd 12162	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ ℂ)
125	4, 124, 124	mulassd 11157	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · (𝑁 + 1)) · (𝑁 + 1)) = ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1))))
126	123, 125	eqtr2d 2765	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1))) = ((!‘(𝑁 + 1)) · (𝑁 + 1)))
127	126	oveq2d 7369	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1)))) = (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘(𝑁 + 1)) · (𝑁 + 1))))
128	21	nncnd 12162	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) + 1) ∈ ℂ)
129	23	nncnd 12162	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℂ)
130	23	nnne0d 12196	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ≠ 0)
131	3	nnne0d 12196	. . . . 5 ⊢ (𝑁 ∈ ℕ → (!‘𝑁) ≠ 0)
132	128, 129, 4, 130, 131	divcan5d 11944	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘𝑁) · ((𝑁 + 1) · (𝑁 + 1)))) = (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))))
133	54	nncnd 12162	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ∈ ℂ)
134	54	nnne0d 12196	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((!‘(𝑁 + 1)) · (𝑁 + 1)) ≠ 0)
135	4, 128, 133, 134	divassd 11953	. . . 4 ⊢ (𝑁 ∈ ℕ → (((!‘𝑁) · ((𝑁 + 1) + 1)) / ((!‘(𝑁 + 1)) · (𝑁 + 1))) = ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
136	127, 132, 135	3eqtr3d 2772	. . 3 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))) = ((!‘𝑁) · (((𝑁 + 1) + 1) / ((!‘(𝑁 + 1)) · (𝑁 + 1)))))
137	72, 120, 136	3brtr4d 5127	. 2 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) ≤ (((𝑁 + 1) + 1) / ((𝑁 + 1) · (𝑁 + 1))))
138		nnmulcl 12170	. . . . . . 7 ⊢ ((((𝑁 + 1) + 1) ∈ ℕ ∧ 𝑁 ∈ ℕ) → (((𝑁 + 1) + 1) · 𝑁) ∈ ℕ)
139	21, 138	mpancom 688	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) ∈ ℕ)
140	139	nnred 12161	. . . . 5 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) ∈ ℝ)
141	140	ltp1d 12073	. . . 4 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) < ((((𝑁 + 1) + 1) · 𝑁) + 1))
142	129	mullidd 11152	. . . . 5 ⊢ (𝑁 ∈ ℕ → (1 · ((𝑁 + 1) · (𝑁 + 1))) = ((𝑁 + 1) · (𝑁 + 1)))
143	31	a1i 11	. . . . . 6 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℂ)
144	75, 143, 124	adddird 11159	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) = ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))))
145	75, 124	mulcomd 11155	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (𝑁 · (𝑁 + 1)) = ((𝑁 + 1) · 𝑁))
146	124	mullidd 11152	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → (1 · (𝑁 + 1)) = (𝑁 + 1))
147	145, 146	oveq12d 7371	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
148	124, 143, 75	adddird 11159	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) = (((𝑁 + 1) · 𝑁) + (1 · 𝑁)))
149	148	oveq1d 7368	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) + 1) = ((((𝑁 + 1) · 𝑁) + (1 · 𝑁)) + 1))
150	75	mullidd 11152	. . . . . . . . 9 ⊢ (𝑁 ∈ ℕ → (1 · 𝑁) = 𝑁)
151	150	oveq2d 7369	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) · 𝑁) + (1 · 𝑁)) = (((𝑁 + 1) · 𝑁) + 𝑁))
152	151	oveq1d 7368	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) · 𝑁) + (1 · 𝑁)) + 1) = ((((𝑁 + 1) · 𝑁) + 𝑁) + 1))
153	124, 75	mulcld 11154	. . . . . . . 8 ⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) · 𝑁) ∈ ℂ)
154	153, 75, 143	addassd 11156	. . . . . . 7 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) · 𝑁) + 𝑁) + 1) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
155	149, 152, 154	3eqtrd 2768	. . . . . 6 ⊢ (𝑁 ∈ ℕ → ((((𝑁 + 1) + 1) · 𝑁) + 1) = (((𝑁 + 1) · 𝑁) + (𝑁 + 1)))
156	147, 155	eqtr4d 2767	. . . . 5 ⊢ (𝑁 ∈ ℕ → ((𝑁 · (𝑁 + 1)) + (1 · (𝑁 + 1))) = ((((𝑁 + 1) + 1) · 𝑁) + 1))
157	142, 144, 156	3eqtrd 2768	. . . 4 ⊢ (𝑁 ∈ ℕ → (1 · ((𝑁 + 1) · (𝑁 + 1))) = ((((𝑁 + 1) + 1) · 𝑁) + 1))
158	141, 157	breqtrrd 5123	. . 3 ⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) + 1) · 𝑁) < (1 · ((𝑁 + 1) · (𝑁 + 1))))
159		nnre 12153	. . . . 5 ⊢ (𝑁 ∈ ℕ → 𝑁 ∈ ℝ)
160		nngt0 12177	. . . . 5 ⊢ (𝑁 ∈ ℕ → 0 < 𝑁)
161	159, 160	jca 511	. . . 4 ⊢ (𝑁 ∈ ℕ → (𝑁 ∈ ℝ ∧ 0 < 𝑁))
162		1red 11135	. . . 4 ⊢ (𝑁 ∈ ℕ → 1 ∈ ℝ)
163		nnre 12153	. . . . . 6 ⊢ (((𝑁 + 1) · (𝑁 + 1)) ∈ ℕ → ((𝑁 + 1) · (𝑁 + 1)) ∈ ℝ)
164		nngt0 12177	. . . . . 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 12021	. . . 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 11292	1 ⊢ (𝑁 ∈ ℕ → (abs‘(((!‘𝑁) / e) − (𝑆‘𝑁))) < (1 / 𝑁))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1540 ∈ wcel 2109 {cab 2707 ≠ wne 2925 ∀wral 3044 class class class wbr 5095 ↦ cmpt 5176 dom cdm 5623 –1-1-onto→wf1o 6485 ‘cfv 6486 (class class class)co 7353 Fincfn 8879 ℂcc 11026 ℝcr 11027 0cc0 11028 1c1 11029 + caddc 11031 · cmul 11033 < clt 11168 ≤ cle 11169 − cmin 11365 -cneg 11366 / cdiv 11795 ℕcn 12146 ℕ₀cn0 12402 ℤcz 12489 ℤ_≥cuz 12753 ...cfz 13428 seqcseq 13926 ↑cexp 13986 !cfa 14198 ♯chash 14255 abscabs 15159 ⇝ cli 15409 Σcsu 15611 expce 15986 eceu 15987

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5221 ax-sep 5238 ax-nul 5248 ax-pow 5307 ax-pr 5374 ax-un 7675 ax-inf2 9556 ax-cnex 11084 ax-resscn 11085 ax-1cn 11086 ax-icn 11087 ax-addcl 11088 ax-addrcl 11089 ax-mulcl 11090 ax-mulrcl 11091 ax-mulcom 11092 ax-addass 11093 ax-mulass 11094 ax-distr 11095 ax-i2m1 11096 ax-1ne0 11097 ax-1rid 11098 ax-rnegex 11099 ax-rrecex 11100 ax-cnre 11101 ax-pre-lttri 11102 ax-pre-lttrn 11103 ax-pre-ltadd 11104 ax-pre-mulgt0 11105 ax-pre-sup 11106

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3345 df-reu 3346 df-rab 3397 df-v 3440 df-sbc 3745 df-csb 3854 df-dif 3908 df-un 3910 df-in 3912 df-ss 3922 df-pss 3925 df-nul 4287 df-if 4479 df-pw 4555 df-sn 4580 df-pr 4582 df-op 4586 df-uni 4862 df-int 4900 df-iun 4946 df-br 5096 df-opab 5158 df-mpt 5177 df-tr 5203 df-id 5518 df-eprel 5523 df-po 5531 df-so 5532 df-fr 5576 df-se 5577 df-we 5578 df-xp 5629 df-rel 5630 df-cnv 5631 df-co 5632 df-dm 5633 df-rn 5634 df-res 5635 df-ima 5636 df-pred 6253 df-ord 6314 df-on 6315 df-lim 6316 df-suc 6317 df-iota 6442 df-fun 6488 df-fn 6489 df-f 6490 df-f1 6491 df-fo 6492 df-f1o 6493 df-fv 6494 df-isom 6495 df-riota 7310 df-ov 7356 df-oprab 7357 df-mpo 7358 df-om 7807 df-1st 7931 df-2nd 7932 df-frecs 8221 df-wrecs 8252 df-recs 8301 df-rdg 8339 df-1o 8395 df-2o 8396 df-oadd 8399 df-er 8632 df-map 8762 df-pm 8763 df-en 8880 df-dom 8881 df-sdom 8882 df-fin 8883 df-sup 9351 df-inf 9352 df-oi 9421 df-dju 9816 df-card 9854 df-pnf 11170 df-mnf 11171 df-xr 11172 df-ltxr 11173 df-le 11174 df-sub 11367 df-neg 11368 df-div 11796 df-nn 12147 df-2 12209 df-3 12210 df-4 12211 df-n0 12403 df-xnn0 12476 df-z 12490 df-uz 12754 df-q 12868 df-rp 12912 df-ico 13272 df-fz 13429 df-fzo 13576 df-fl 13714 df-seq 13927 df-exp 13987 df-fac 14199 df-bc 14228 df-hash 14256 df-shft 14992 df-cj 15024 df-re 15025 df-im 15026 df-sqrt 15160 df-abs 15161 df-limsup 15396 df-clim 15413 df-rlim 15414 df-sum 15612 df-ef 15992 df-e 15993

This theorem is referenced by: subfacval3 35161

W3C validator