Theorem eirraplem 11920

Description: Lemma for eirrap 11921. (Contributed by Paul Chapman, 9-Feb-2008.) (Revised by Jim Kingdon, 5-Jan-2022.)

Hypotheses

Ref	Expression
eirr.1	⊢ 𝐹 = (𝑛 ∈ ℕ0 ↦ (1 / (!‘𝑛)))
eirr.2	⊢ (𝜑 → 𝑃 ∈ ℤ)
eirr.3	⊢ (𝜑 → 𝑄 ∈ ℕ)

Assertion

Ref	Expression
eirraplem	⊢ (𝜑 → e # (𝑃 / 𝑄))

Distinct variable group:   𝑄,𝑛

Allowed substitution hints:   𝜑(𝑛)   𝑃(𝑛)   𝐹(𝑛)

Proof of Theorem eirraplem

Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		esum 11805	. . . . . . . . . . 11 ⊢ e = Σ𝑘 ∈ ℕ0 (1 / (!‘𝑘))
2		faccl 10806	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ0 → (!‘𝑘) ∈ ℕ)
3	2	nnrecred 9029	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ0 → (1 / (!‘𝑘)) ∈ ℝ)
4		fveq2 5554	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 𝑘 → (!‘𝑛) = (!‘𝑘))
5	4	oveq2d 5934	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 𝑘 → (1 / (!‘𝑛)) = (1 / (!‘𝑘)))
6		eirr.1	. . . . . . . . . . . . . 14 ⊢ 𝐹 = (𝑛 ∈ ℕ0 ↦ (1 / (!‘𝑛)))
7	5, 6	fvmptg 5633	. . . . . . . . . . . . 13 ⊢ ((𝑘 ∈ ℕ0 ∧ (1 / (!‘𝑘)) ∈ ℝ) → (𝐹‘𝑘) = (1 / (!‘𝑘)))
8	3, 7	mpdan 421	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ0 → (𝐹‘𝑘) = (1 / (!‘𝑘)))
9	8	sumeq2i 11507	. . . . . . . . . . 11 ⊢ Σ𝑘 ∈ ℕ0 (𝐹‘𝑘) = Σ𝑘 ∈ ℕ0 (1 / (!‘𝑘))
10	1, 9	eqtr4i 2217	. . . . . . . . . 10 ⊢ e = Σ𝑘 ∈ ℕ0 (𝐹‘𝑘)
11		nn0uz 9627	. . . . . . . . . . 11 ⊢ ℕ0 = (ℤ≥‘0)
12		eqid 2193	. . . . . . . . . . 11 ⊢ (ℤ≥‘(𝑄 + 1)) = (ℤ≥‘(𝑄 + 1))
13		eirr.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑄 ∈ ℕ)
14	13	peano2nnd 8997	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑄 + 1) ∈ ℕ)
15	14	nnnn0d 9293	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑄 + 1) ∈ ℕ0)
16		eqidd 2194	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐹‘𝑘) = (𝐹‘𝑘))
17		ax-1cn 7965	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℂ
18		nn0z 9337	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℕ0 → 𝑛 ∈ ℤ)
19		1exp 10639	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑛 ∈ ℤ → (1↑𝑛) = 1)
20	18, 19	syl 14	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑛 ∈ ℕ0 → (1↑𝑛) = 1)
21	20	oveq1d 5933	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ℕ0 → ((1↑𝑛) / (!‘𝑛)) = (1 / (!‘𝑛)))
22	21	mpteq2ia 4115	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ ℕ0 ↦ ((1↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ0 ↦ (1 / (!‘𝑛)))
23	6, 22	eqtr4i 2217	. . . . . . . . . . . . . . 15 ⊢ 𝐹 = (𝑛 ∈ ℕ0 ↦ ((1↑𝑛) / (!‘𝑛)))
24	23	eftvalcn 11800	. . . . . . . . . . . . . 14 ⊢ ((1 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → (𝐹‘𝑘) = ((1↑𝑘) / (!‘𝑘)))
25	17, 24	mpan 424	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ0 → (𝐹‘𝑘) = ((1↑𝑘) / (!‘𝑘)))
26	25	adantl 277	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐹‘𝑘) = ((1↑𝑘) / (!‘𝑘)))
27	17	a1i 9	. . . . . . . . . . . . 13 ⊢ (𝜑 → 1 ∈ ℂ)
28		eftcl 11797	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → ((1↑𝑘) / (!‘𝑘)) ∈ ℂ)
29	27, 28	sylan 283	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → ((1↑𝑘) / (!‘𝑘)) ∈ ℂ)
30	26, 29	eqeltrd 2270	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐹‘𝑘) ∈ ℂ)
31	23	efcllem 11802	. . . . . . . . . . . 12 ⊢ (1 ∈ ℂ → seq0( + , 𝐹) ∈ dom ⇝ )
32	27, 31	syl 14	. . . . . . . . . . 11 ⊢ (𝜑 → seq0( + , 𝐹) ∈ dom ⇝ )
33	11, 12, 15, 16, 30, 32	isumsplit 11634	. . . . . . . . . 10 ⊢ (𝜑 → Σ𝑘 ∈ ℕ0 (𝐹‘𝑘) = (Σ𝑘 ∈ (0...((𝑄 + 1) − 1))(𝐹‘𝑘) + Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)))
34	10, 33	eqtrid 2238	. . . . . . . . 9 ⊢ (𝜑 → e = (Σ𝑘 ∈ (0...((𝑄 + 1) − 1))(𝐹‘𝑘) + Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)))
35	13	nncnd 8996	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑄 ∈ ℂ)
36		pncan 8225	. . . . . . . . . . . . 13 ⊢ ((𝑄 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑄 + 1) − 1) = 𝑄)
37	35, 17, 36	sylancl 413	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑄 + 1) − 1) = 𝑄)
38	37	oveq2d 5934	. . . . . . . . . . 11 ⊢ (𝜑 → (0...((𝑄 + 1) − 1)) = (0...𝑄))
39	38	sumeq1d 11509	. . . . . . . . . 10 ⊢ (𝜑 → Σ𝑘 ∈ (0...((𝑄 + 1) − 1))(𝐹‘𝑘) = Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))
40	39	oveq1d 5933	. . . . . . . . 9 ⊢ (𝜑 → (Σ𝑘 ∈ (0...((𝑄 + 1) − 1))(𝐹‘𝑘) + Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) = (Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘) + Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)))
41	34, 40	eqtrd 2226	. . . . . . . 8 ⊢ (𝜑 → e = (Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘) + Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)))
42	41	oveq1d 5933	. . . . . . 7 ⊢ (𝜑 → (e − Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘)) = ((Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘) + Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) − Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘)))
43		0zd 9329	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ ℤ)
44	13	nnzd 9438	. . . . . . . . . 10 ⊢ (𝜑 → 𝑄 ∈ ℤ)
45	43, 44	fzfigd 10502	. . . . . . . . 9 ⊢ (𝜑 → (0...𝑄) ∈ Fin)
46		elfznn0 10180	. . . . . . . . . 10 ⊢ (𝑘 ∈ (0...𝑄) → 𝑘 ∈ ℕ0)
47	46, 30	sylan2 286	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → (𝐹‘𝑘) ∈ ℂ)
48	45, 47	fsumcl 11543	. . . . . . . 8 ⊢ (𝜑 → Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘) ∈ ℂ)
49	8	adantl 277	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐹‘𝑘) = (1 / (!‘𝑘)))
50	2	adantl 277	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ∈ ℕ)
51	50	nnrpd 9760	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (!‘𝑘) ∈ ℝ+)
52	51	rpreccld 9773	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (1 / (!‘𝑘)) ∈ ℝ+)
53	49, 52	eqeltrd 2270	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐹‘𝑘) ∈ ℝ+)
54	11, 12, 15, 16, 53, 32	isumrpcl 11637	. . . . . . . . . 10 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘) ∈ ℝ+)
55	54	rpred 9762	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘) ∈ ℝ)
56	55	recnd 8048	. . . . . . . 8 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘) ∈ ℂ)
57	48, 56	pncan2d 8332	. . . . . . 7 ⊢ (𝜑 → ((Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘) + Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) − Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘)) = Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘))
58	42, 57	eqtrd 2226	. . . . . 6 ⊢ (𝜑 → (e − Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘)) = Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘))
59	58	oveq2d 5934	. . . . 5 ⊢ (𝜑 → ((!‘𝑄) · (e − Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))) = ((!‘𝑄) · Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)))
60	13	nnnn0d 9293	. . . . . . . 8 ⊢ (𝜑 → 𝑄 ∈ ℕ0)
61	60	faccld 10807	. . . . . . 7 ⊢ (𝜑 → (!‘𝑄) ∈ ℕ)
62	61	nncnd 8996	. . . . . 6 ⊢ (𝜑 → (!‘𝑄) ∈ ℂ)
63		ere 11813	. . . . . . . 8 ⊢ e ∈ ℝ
64	63	recni 8031	. . . . . . 7 ⊢ e ∈ ℂ
65	64	a1i 9	. . . . . 6 ⊢ (𝜑 → e ∈ ℂ)
66	62, 65, 48	subdid 8433	. . . . 5 ⊢ (𝜑 → ((!‘𝑄) · (e − Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))) = (((!‘𝑄) · e) − ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))))
67	59, 66	eqtr3d 2228	. . . 4 ⊢ (𝜑 → ((!‘𝑄) · Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) = (((!‘𝑄) · e) − ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))))
68	61	nnrpd 9760	. . . . . . 7 ⊢ (𝜑 → (!‘𝑄) ∈ ℝ+)
69	68, 54	rpmulcld 9779	. . . . . 6 ⊢ (𝜑 → ((!‘𝑄) · Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) ∈ ℝ+)
70	69	rpred 9762	. . . . 5 ⊢ (𝜑 → ((!‘𝑄) · Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) ∈ ℝ)
71		eirr.2	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ ℤ)
72	71	zcnd 9440	. . . . . . . 8 ⊢ (𝜑 → 𝑃 ∈ ℂ)
73	13	nnap0d 9028	. . . . . . . 8 ⊢ (𝜑 → 𝑄 # 0)
74	62, 72, 35, 73	div12apd 8846	. . . . . . 7 ⊢ (𝜑 → ((!‘𝑄) · (𝑃 / 𝑄)) = (𝑃 · ((!‘𝑄) / 𝑄)))
75	13	nnred 8995	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑄 ∈ ℝ)
76	75	leidd 8533	. . . . . . . . . 10 ⊢ (𝜑 → 𝑄 ≤ 𝑄)
77		facdiv 10809	. . . . . . . . . 10 ⊢ ((𝑄 ∈ ℕ0 ∧ 𝑄 ∈ ℕ ∧ 𝑄 ≤ 𝑄) → ((!‘𝑄) / 𝑄) ∈ ℕ)
78	60, 13, 76, 77	syl3anc 1249	. . . . . . . . 9 ⊢ (𝜑 → ((!‘𝑄) / 𝑄) ∈ ℕ)
79	78	nnzd 9438	. . . . . . . 8 ⊢ (𝜑 → ((!‘𝑄) / 𝑄) ∈ ℤ)
80	71, 79	zmulcld 9445	. . . . . . 7 ⊢ (𝜑 → (𝑃 · ((!‘𝑄) / 𝑄)) ∈ ℤ)
81	74, 80	eqeltrd 2270	. . . . . 6 ⊢ (𝜑 → ((!‘𝑄) · (𝑃 / 𝑄)) ∈ ℤ)
82	45, 62, 47	fsummulc2 11591	. . . . . . 7 ⊢ (𝜑 → ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘)) = Σ𝑘 ∈ (0...𝑄)((!‘𝑄) · (𝐹‘𝑘)))
83	46	adantl 277	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → 𝑘 ∈ ℕ0)
84	83, 8	syl 14	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → (𝐹‘𝑘) = (1 / (!‘𝑘)))
85	84	oveq2d 5934	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → ((!‘𝑄) · (𝐹‘𝑘)) = ((!‘𝑄) · (1 / (!‘𝑘))))
86	62	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → (!‘𝑄) ∈ ℂ)
87	46, 50	sylan2 286	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → (!‘𝑘) ∈ ℕ)
88	87	nncnd 8996	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → (!‘𝑘) ∈ ℂ)
89	87	nnap0d 9028	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → (!‘𝑘) # 0)
90	86, 88, 89	divrecapd 8812	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → ((!‘𝑄) / (!‘𝑘)) = ((!‘𝑄) · (1 / (!‘𝑘))))
91	85, 90	eqtr4d 2229	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → ((!‘𝑄) · (𝐹‘𝑘)) = ((!‘𝑄) / (!‘𝑘)))
92		permnn 10842	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (0...𝑄) → ((!‘𝑄) / (!‘𝑘)) ∈ ℕ)
93	92	adantl 277	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → ((!‘𝑄) / (!‘𝑘)) ∈ ℕ)
94	91, 93	eqeltrd 2270	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → ((!‘𝑄) · (𝐹‘𝑘)) ∈ ℕ)
95	94	nnzd 9438	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑘 ∈ (0...𝑄)) → ((!‘𝑄) · (𝐹‘𝑘)) ∈ ℤ)
96	45, 95	fsumzcl 11545	. . . . . . 7 ⊢ (𝜑 → Σ𝑘 ∈ (0...𝑄)((!‘𝑄) · (𝐹‘𝑘)) ∈ ℤ)
97	82, 96	eqeltrd 2270	. . . . . 6 ⊢ (𝜑 → ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘)) ∈ ℤ)
98	81, 97	zsubcld 9444	. . . . 5 ⊢ (𝜑 → (((!‘𝑄) · (𝑃 / 𝑄)) − ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))) ∈ ℤ)
99	69	rpgt0d 9765	. . . . 5 ⊢ (𝜑 → 0 < ((!‘𝑄) · Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)))
100	14	peano2nnd 8997	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑄 + 1) + 1) ∈ ℕ)
101	100	nnred 8995	. . . . . . . . 9 ⊢ (𝜑 → ((𝑄 + 1) + 1) ∈ ℝ)
102	15	faccld 10807	. . . . . . . . . 10 ⊢ (𝜑 → (!‘(𝑄 + 1)) ∈ ℕ)
103	102, 14	nnmulcld 9031	. . . . . . . . 9 ⊢ (𝜑 → ((!‘(𝑄 + 1)) · (𝑄 + 1)) ∈ ℕ)
104	101, 103	nndivred 9032	. . . . . . . 8 ⊢ (𝜑 → (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1))) ∈ ℝ)
105	61	nnrecred 9029	. . . . . . . 8 ⊢ (𝜑 → (1 / (!‘𝑄)) ∈ ℝ)
106		abs1 11216	. . . . . . . . . . . . . 14 ⊢ (abs‘1) = 1
107	106	oveq1i 5928	. . . . . . . . . . . . 13 ⊢ ((abs‘1)↑𝑛) = (1↑𝑛)
108	107	oveq1i 5928	. . . . . . . . . . . 12 ⊢ (((abs‘1)↑𝑛) / (!‘𝑛)) = ((1↑𝑛) / (!‘𝑛))
109	108	mpteq2i 4116	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ0 ↦ (((abs‘1)↑𝑛) / (!‘𝑛))) = (𝑛 ∈ ℕ0 ↦ ((1↑𝑛) / (!‘𝑛)))
110	23, 109	eqtr4i 2217	. . . . . . . . . 10 ⊢ 𝐹 = (𝑛 ∈ ℕ0 ↦ (((abs‘1)↑𝑛) / (!‘𝑛)))
111		eqid 2193	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ0 ↦ ((((abs‘1)↑(𝑄 + 1)) / (!‘(𝑄 + 1))) · ((1 / ((𝑄 + 1) + 1))↑𝑛))) = (𝑛 ∈ ℕ0 ↦ ((((abs‘1)↑(𝑄 + 1)) / (!‘(𝑄 + 1))) · ((1 / ((𝑄 + 1) + 1))↑𝑛)))
112		1le1 8591	. . . . . . . . . . . 12 ⊢ 1 ≤ 1
113	106, 112	eqbrtri 4050	. . . . . . . . . . 11 ⊢ (abs‘1) ≤ 1
114	113	a1i 9	. . . . . . . . . 10 ⊢ (𝜑 → (abs‘1) ≤ 1)
115	23, 110, 111, 14, 27, 114	eftlub 11833	. . . . . . . . 9 ⊢ (𝜑 → (abs‘Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) ≤ (((abs‘1)↑(𝑄 + 1)) · (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1)))))
116	54	rprege0d 9770	. . . . . . . . . 10 ⊢ (𝜑 → (Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘) ∈ ℝ ∧ 0 ≤ Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)))
117		absid 11215	. . . . . . . . . 10 ⊢ ((Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘) ∈ ℝ ∧ 0 ≤ Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) → (abs‘Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) = Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘))
118	116, 117	syl 14	. . . . . . . . 9 ⊢ (𝜑 → (abs‘Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) = Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘))
119	106	oveq1i 5928	. . . . . . . . . . . 12 ⊢ ((abs‘1)↑(𝑄 + 1)) = (1↑(𝑄 + 1))
120	14	nnzd 9438	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑄 + 1) ∈ ℤ)
121		1exp 10639	. . . . . . . . . . . . 13 ⊢ ((𝑄 + 1) ∈ ℤ → (1↑(𝑄 + 1)) = 1)
122	120, 121	syl 14	. . . . . . . . . . . 12 ⊢ (𝜑 → (1↑(𝑄 + 1)) = 1)
123	119, 122	eqtrid 2238	. . . . . . . . . . 11 ⊢ (𝜑 → ((abs‘1)↑(𝑄 + 1)) = 1)
124	123	oveq1d 5933	. . . . . . . . . 10 ⊢ (𝜑 → (((abs‘1)↑(𝑄 + 1)) · (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1)))) = (1 · (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1)))))
125	104	recnd 8048	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1))) ∈ ℂ)
126	125	mulid2d 8038	. . . . . . . . . 10 ⊢ (𝜑 → (1 · (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1)))) = (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1))))
127	124, 126	eqtrd 2226	. . . . . . . . 9 ⊢ (𝜑 → (((abs‘1)↑(𝑄 + 1)) · (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1)))) = (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1))))
128	115, 118, 127	3brtr3d 4060	. . . . . . . 8 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘) ≤ (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1))))
129	14	nnred 8995	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑄 + 1) ∈ ℝ)
130	129, 129	readdcld 8049	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑄 + 1) + (𝑄 + 1)) ∈ ℝ)
131	129, 129	remulcld 8050	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑄 + 1) · (𝑄 + 1)) ∈ ℝ)
132		1red 8034	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℝ)
133	13	nnge1d 9025	. . . . . . . . . . . . 13 ⊢ (𝜑 → 1 ≤ 𝑄)
134		1nn 8993	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℕ
135		nnleltp1 9376	. . . . . . . . . . . . . 14 ⊢ ((1 ∈ ℕ ∧ 𝑄 ∈ ℕ) → (1 ≤ 𝑄 ↔ 1 < (𝑄 + 1)))
136	134, 13, 135	sylancr 414	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 ≤ 𝑄 ↔ 1 < (𝑄 + 1)))
137	133, 136	mpbid 147	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 < (𝑄 + 1))
138	132, 129, 129, 137	ltadd2dd 8441	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑄 + 1) + 1) < ((𝑄 + 1) + (𝑄 + 1)))
139	14	nncnd 8996	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑄 + 1) ∈ ℂ)
140	139	2timesd 9225	. . . . . . . . . . . 12 ⊢ (𝜑 → (2 · (𝑄 + 1)) = ((𝑄 + 1) + (𝑄 + 1)))
141		df-2 9041	. . . . . . . . . . . . . 14 ⊢ 2 = (1 + 1)
142	132, 75, 132, 133	leadd1dd 8578	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (1 + 1) ≤ (𝑄 + 1))
143	141, 142	eqbrtrid 4064	. . . . . . . . . . . . 13 ⊢ (𝜑 → 2 ≤ (𝑄 + 1))
144		2re 9052	. . . . . . . . . . . . . . 15 ⊢ 2 ∈ ℝ
145	144	a1i 9	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 2 ∈ ℝ)
146	14	nngt0d 9026	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 < (𝑄 + 1))
147		lemul1 8612	. . . . . . . . . . . . . 14 ⊢ ((2 ∈ ℝ ∧ (𝑄 + 1) ∈ ℝ ∧ ((𝑄 + 1) ∈ ℝ ∧ 0 < (𝑄 + 1))) → (2 ≤ (𝑄 + 1) ↔ (2 · (𝑄 + 1)) ≤ ((𝑄 + 1) · (𝑄 + 1))))
148	145, 129, 129, 146, 147	syl112anc 1253	. . . . . . . . . . . . 13 ⊢ (𝜑 → (2 ≤ (𝑄 + 1) ↔ (2 · (𝑄 + 1)) ≤ ((𝑄 + 1) · (𝑄 + 1))))
149	143, 148	mpbid 147	. . . . . . . . . . . 12 ⊢ (𝜑 → (2 · (𝑄 + 1)) ≤ ((𝑄 + 1) · (𝑄 + 1)))
150	140, 149	eqbrtrrd 4053	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑄 + 1) + (𝑄 + 1)) ≤ ((𝑄 + 1) · (𝑄 + 1)))
151	101, 130, 131, 138, 150	ltletrd 8442	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑄 + 1) + 1) < ((𝑄 + 1) · (𝑄 + 1)))
152		facp1 10801	. . . . . . . . . . . . . . 15 ⊢ (𝑄 ∈ ℕ0 → (!‘(𝑄 + 1)) = ((!‘𝑄) · (𝑄 + 1)))
153	60, 152	syl 14	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (!‘(𝑄 + 1)) = ((!‘𝑄) · (𝑄 + 1)))
154	153	oveq1d 5933	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((!‘(𝑄 + 1)) / (!‘𝑄)) = (((!‘𝑄) · (𝑄 + 1)) / (!‘𝑄)))
155	102	nncnd 8996	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (!‘(𝑄 + 1)) ∈ ℂ)
156	61	nnap0d 9028	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (!‘𝑄) # 0)
157	155, 62, 156	divrecapd 8812	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((!‘(𝑄 + 1)) / (!‘𝑄)) = ((!‘(𝑄 + 1)) · (1 / (!‘𝑄))))
158	139, 62, 156	divcanap3d 8814	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((!‘𝑄) · (𝑄 + 1)) / (!‘𝑄)) = (𝑄 + 1))
159	154, 157, 158	3eqtr3rd 2235	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑄 + 1) = ((!‘(𝑄 + 1)) · (1 / (!‘𝑄))))
160	159	oveq1d 5933	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑄 + 1) · (𝑄 + 1)) = (((!‘(𝑄 + 1)) · (1 / (!‘𝑄))) · (𝑄 + 1)))
161	105	recnd 8048	. . . . . . . . . . . 12 ⊢ (𝜑 → (1 / (!‘𝑄)) ∈ ℂ)
162	155, 161, 139	mul32d 8172	. . . . . . . . . . 11 ⊢ (𝜑 → (((!‘(𝑄 + 1)) · (1 / (!‘𝑄))) · (𝑄 + 1)) = (((!‘(𝑄 + 1)) · (𝑄 + 1)) · (1 / (!‘𝑄))))
163	160, 162	eqtrd 2226	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑄 + 1) · (𝑄 + 1)) = (((!‘(𝑄 + 1)) · (𝑄 + 1)) · (1 / (!‘𝑄))))
164	151, 163	breqtrd 4055	. . . . . . . . 9 ⊢ (𝜑 → ((𝑄 + 1) + 1) < (((!‘(𝑄 + 1)) · (𝑄 + 1)) · (1 / (!‘𝑄))))
165	103	nnred 8995	. . . . . . . . . 10 ⊢ (𝜑 → ((!‘(𝑄 + 1)) · (𝑄 + 1)) ∈ ℝ)
166	103	nngt0d 9026	. . . . . . . . . 10 ⊢ (𝜑 → 0 < ((!‘(𝑄 + 1)) · (𝑄 + 1)))
167		ltdivmul 8895	. . . . . . . . . 10 ⊢ ((((𝑄 + 1) + 1) ∈ ℝ ∧ (1 / (!‘𝑄)) ∈ ℝ ∧ (((!‘(𝑄 + 1)) · (𝑄 + 1)) ∈ ℝ ∧ 0 < ((!‘(𝑄 + 1)) · (𝑄 + 1)))) → ((((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1))) < (1 / (!‘𝑄)) ↔ ((𝑄 + 1) + 1) < (((!‘(𝑄 + 1)) · (𝑄 + 1)) · (1 / (!‘𝑄)))))
168	101, 105, 165, 166, 167	syl112anc 1253	. . . . . . . . 9 ⊢ (𝜑 → ((((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1))) < (1 / (!‘𝑄)) ↔ ((𝑄 + 1) + 1) < (((!‘(𝑄 + 1)) · (𝑄 + 1)) · (1 / (!‘𝑄)))))
169	164, 168	mpbird 167	. . . . . . . 8 ⊢ (𝜑 → (((𝑄 + 1) + 1) / ((!‘(𝑄 + 1)) · (𝑄 + 1))) < (1 / (!‘𝑄)))
170	55, 104, 105, 128, 169	lelttrd 8144	. . . . . . 7 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘) < (1 / (!‘𝑄)))
171	55, 132, 68	ltmuldiv2d 9811	. . . . . . 7 ⊢ (𝜑 → (((!‘𝑄) · Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) < 1 ↔ Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘) < (1 / (!‘𝑄))))
172	170, 171	mpbird 167	. . . . . 6 ⊢ (𝜑 → ((!‘𝑄) · Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) < 1)
173		0p1e1 9096	. . . . . 6 ⊢ (0 + 1) = 1
174	172, 173	breqtrrdi 4071	. . . . 5 ⊢ (𝜑 → ((!‘𝑄) · Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) < (0 + 1))
175	43, 70, 98, 99, 174	btwnapz 9447	. . . 4 ⊢ (𝜑 → ((!‘𝑄) · Σ𝑘 ∈ (ℤ≥‘(𝑄 + 1))(𝐹‘𝑘)) # (((!‘𝑄) · (𝑃 / 𝑄)) − ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))))
176	67, 175	eqbrtrrd 4053	. . 3 ⊢ (𝜑 → (((!‘𝑄) · e) − ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))) # (((!‘𝑄) · (𝑃 / 𝑄)) − ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))))
177	62, 65	mulcld 8040	. . . 4 ⊢ (𝜑 → ((!‘𝑄) · e) ∈ ℂ)
178	81	zcnd 9440	. . . 4 ⊢ (𝜑 → ((!‘𝑄) · (𝑃 / 𝑄)) ∈ ℂ)
179	62, 48	mulcld 8040	. . . 4 ⊢ (𝜑 → ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘)) ∈ ℂ)
180		apsub1 8661	. . . 4 ⊢ ((((!‘𝑄) · e) ∈ ℂ ∧ ((!‘𝑄) · (𝑃 / 𝑄)) ∈ ℂ ∧ ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘)) ∈ ℂ) → (((!‘𝑄) · e) # ((!‘𝑄) · (𝑃 / 𝑄)) ↔ (((!‘𝑄) · e) − ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))) # (((!‘𝑄) · (𝑃 / 𝑄)) − ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘)))))
181	177, 178, 179, 180	syl3anc 1249	. . 3 ⊢ (𝜑 → (((!‘𝑄) · e) # ((!‘𝑄) · (𝑃 / 𝑄)) ↔ (((!‘𝑄) · e) − ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘))) # (((!‘𝑄) · (𝑃 / 𝑄)) − ((!‘𝑄) · Σ𝑘 ∈ (0...𝑄)(𝐹‘𝑘)))))
182	176, 181	mpbird 167	. 2 ⊢ (𝜑 → ((!‘𝑄) · e) # ((!‘𝑄) · (𝑃 / 𝑄)))
183		znq 9689	. . . . 5 ⊢ ((𝑃 ∈ ℤ ∧ 𝑄 ∈ ℕ) → (𝑃 / 𝑄) ∈ ℚ)
184	71, 13, 183	syl2anc 411	. . . 4 ⊢ (𝜑 → (𝑃 / 𝑄) ∈ ℚ)
185		qcn 9699	. . . 4 ⊢ ((𝑃 / 𝑄) ∈ ℚ → (𝑃 / 𝑄) ∈ ℂ)
186	184, 185	syl 14	. . 3 ⊢ (𝜑 → (𝑃 / 𝑄) ∈ ℂ)
187		apmul2 8808	. . 3 ⊢ ((e ∈ ℂ ∧ (𝑃 / 𝑄) ∈ ℂ ∧ ((!‘𝑄) ∈ ℂ ∧ (!‘𝑄) # 0)) → (e # (𝑃 / 𝑄) ↔ ((!‘𝑄) · e) # ((!‘𝑄) · (𝑃 / 𝑄))))
188	65, 186, 62, 156, 187	syl112anc 1253	. 2 ⊢ (𝜑 → (e # (𝑃 / 𝑄) ↔ ((!‘𝑄) · e) # ((!‘𝑄) · (𝑃 / 𝑄))))
189	182, 188	mpbird 167	1 ⊢ (𝜑 → e # (𝑃 / 𝑄))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1364   ∈ wcel 2164   class class class wbr 4029   ↦ cmpt 4090  dom cdm 4659  ‘cfv 5254  (class class class)co 5918  ℂcc 7870  ℝcr 7871  0cc0 7872  1c1 7873   + caddc 7875   · cmul 7877   < clt 8054   ≤ cle 8055   − cmin 8190   # cap 8600   / cdiv 8691  ℕcn 8982  2c2 9033  ℕ₀cn0 9240  ℤcz 9317  ℤ_≥cuz 9592  ℚcq 9684  ℝ⁺crp 9719  ...cfz 10074  seqcseq 10518  ↑cexp 10609  !cfa 10796  abscabs 11141   ⇝ cli 11421  Σcsu 11496  eceu 11786

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2166  ax-14 2167  ax-ext 2175  ax-coll 4144  ax-sep 4147  ax-nul 4155  ax-pow 4203  ax-pr 4238  ax-un 4464  ax-setind 4569  ax-iinf 4620  ax-cnex 7963  ax-resscn 7964  ax-1cn 7965  ax-1re 7966  ax-icn 7967  ax-addcl 7968  ax-addrcl 7969  ax-mulcl 7970  ax-mulrcl 7971  ax-addcom 7972  ax-mulcom 7973  ax-addass 7974  ax-mulass 7975  ax-distr 7976  ax-i2m1 7977  ax-0lt1 7978  ax-1rid 7979  ax-0id 7980  ax-rnegex 7981  ax-precex 7982  ax-cnre 7983  ax-pre-ltirr 7984  ax-pre-ltwlin 7985  ax-pre-lttrn 7986  ax-pre-apti 7987  ax-pre-ltadd 7988  ax-pre-mulgt0 7989  ax-pre-mulext 7990  ax-arch 7991  ax-caucvg 7992

This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2045  df-mo 2046  df-clab 2180  df-cleq 2186  df-clel 2189  df-nfc 2325  df-ne 2365  df-nel 2460  df-ral 2477  df-rex 2478  df-reu 2479  df-rmo 2480  df-rab 2481  df-v 2762  df-sbc 2986  df-csb 3081  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-nul 3447  df-if 3558  df-pw 3603  df-sn 3624  df-pr 3625  df-op 3627  df-uni 3836  df-int 3871  df-iun 3914  df-br 4030  df-opab 4091  df-mpt 4092  df-tr 4128  df-id 4324  df-po 4327  df-iso 4328  df-iord 4397  df-on 4399  df-ilim 4400  df-suc 4402  df-iom 4623  df-xp 4665  df-rel 4666  df-cnv 4667  df-co 4668  df-dm 4669  df-rn 4670  df-res 4671  df-ima 4672  df-iota 5215  df-fun 5256  df-fn 5257  df-f 5258  df-f1 5259  df-fo 5260  df-f1o 5261  df-fv 5262  df-isom 5263  df-riota 5873  df-ov 5921  df-oprab 5922  df-mpo 5923  df-1st 6193  df-2nd 6194  df-recs 6358  df-irdg 6423  df-frec 6444  df-1o 6469  df-oadd 6473  df-er 6587  df-en 6795  df-dom 6796  df-fin 6797  df-pnf 8056  df-mnf 8057  df-xr 8058  df-ltxr 8059  df-le 8060  df-sub 8192  df-neg 8193  df-reap 8594  df-ap 8601  df-div 8692  df-inn 8983  df-2 9041  df-3 9042  df-4 9043  df-n0 9241  df-z 9318  df-uz 9593  df-q 9685  df-rp 9720  df-ico 9960  df-fz 10075  df-fzo 10209  df-seqfrec 10519  df-exp 10610  df-fac 10797  df-bc 10819  df-ihash 10847  df-shft 10959  df-cj 10986  df-re 10987  df-im 10988  df-rsqrt 11142  df-abs 11143  df-clim 11422  df-sumdc 11497  df-ef 11791  df-e 11792

This theorem is referenced by:  eirrap  11921