Theorem eftlub 12256

Description: An upper bound on the absolute value of the infinite tail of the series expansion of the exponential function on the closed unit disk. (Contributed by Paul Chapman, 19-Jan-2008.) (Proof shortened by Mario Carneiro, 29-Apr-2014.)

Hypotheses

Ref	Expression
eftl.1	⊢ 𝐹 = (𝑛 ∈ ℕ0 ↦ ((𝐴↑𝑛) / (!‘𝑛)))
eftl.2	⊢ 𝐺 = (𝑛 ∈ ℕ0 ↦ (((abs‘𝐴)↑𝑛) / (!‘𝑛)))
eftl.3	⊢ 𝐻 = (𝑛 ∈ ℕ0 ↦ ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑛)))
eftl.4	⊢ (𝜑 → 𝑀 ∈ ℕ)
eftl.5	⊢ (𝜑 → 𝐴 ∈ ℂ)
eftl.6	⊢ (𝜑 → (abs‘𝐴) ≤ 1)

Assertion

Ref	Expression
eftlub	⊢ (𝜑 → (abs‘Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐹‘𝑘)) ≤ (((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / ((!‘𝑀) · 𝑀))))

Distinct variable groups:   𝑘,𝑛,𝐴   𝑘,𝐹   𝑘,𝐺   𝑘,𝑀,𝑛   𝜑,𝑘

Allowed substitution hints:   𝜑(𝑛)   𝐹(𝑛)   𝐺(𝑛)   𝐻(𝑘,𝑛)

Proof of Theorem eftlub

Dummy variables 𝑗 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eftl.5	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℂ)
2		eftl.4	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℕ)
3	2	nnnn0d 9455	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℕ0)
4		eftl.1	. . . . 5 ⊢ 𝐹 = (𝑛 ∈ ℕ0 ↦ ((𝐴↑𝑛) / (!‘𝑛)))
5	4	eftlcl 12254	. . . 4 ⊢ ((𝐴 ∈ ℂ ∧ 𝑀 ∈ ℕ0) → Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐹‘𝑘) ∈ ℂ)
6	1, 3, 5	syl2anc 411	. . 3 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐹‘𝑘) ∈ ℂ)
7	6	abscld 11746	. 2 ⊢ (𝜑 → (abs‘Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐹‘𝑘)) ∈ ℝ)
8	1	abscld 11746	. . 3 ⊢ (𝜑 → (abs‘𝐴) ∈ ℝ)
9		eftl.2	. . . 4 ⊢ 𝐺 = (𝑛 ∈ ℕ0 ↦ (((abs‘𝐴)↑𝑛) / (!‘𝑛)))
10	9	reeftlcl 12255	. . 3 ⊢ (((abs‘𝐴) ∈ ℝ ∧ 𝑀 ∈ ℕ0) → Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘) ∈ ℝ)
11	8, 3, 10	syl2anc 411	. 2 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘) ∈ ℝ)
12	8, 3	reexpcld 10953	. . 3 ⊢ (𝜑 → ((abs‘𝐴)↑𝑀) ∈ ℝ)
13		peano2nn0 9442	. . . . . 6 ⊢ (𝑀 ∈ ℕ0 → (𝑀 + 1) ∈ ℕ0)
14	3, 13	syl 14	. . . . 5 ⊢ (𝜑 → (𝑀 + 1) ∈ ℕ0)
15	14	nn0red 9456	. . . 4 ⊢ (𝜑 → (𝑀 + 1) ∈ ℝ)
16	3	faccld 10999	. . . . 5 ⊢ (𝜑 → (!‘𝑀) ∈ ℕ)
17	16, 2	nnmulcld 9192	. . . 4 ⊢ (𝜑 → ((!‘𝑀) · 𝑀) ∈ ℕ)
18	15, 17	nndivred 9193	. . 3 ⊢ (𝜑 → ((𝑀 + 1) / ((!‘𝑀) · 𝑀)) ∈ ℝ)
19	12, 18	remulcld 8210	. 2 ⊢ (𝜑 → (((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / ((!‘𝑀) · 𝑀))) ∈ ℝ)
20		eqid 2231	. . 3 ⊢ (ℤ≥‘𝑀) = (ℤ≥‘𝑀)
21	2	nnzd 9601	. . . 4 ⊢ (𝜑 → 𝑀 ∈ ℤ)
22		eqidd 2232	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → (𝐹‘𝑘) = (𝐹‘𝑘))
23		eluznn0 9833	. . . . . 6 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → 𝑘 ∈ ℕ0)
24	3, 23	sylan 283	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → 𝑘 ∈ ℕ0)
25	4	eftvalcn 12223	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → (𝐹‘𝑘) = ((𝐴↑𝑘) / (!‘𝑘)))
26	1, 25	sylan 283	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐹‘𝑘) = ((𝐴↑𝑘) / (!‘𝑘)))
27		eftcl 12220	. . . . . . 7 ⊢ ((𝐴 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → ((𝐴↑𝑘) / (!‘𝑘)) ∈ ℂ)
28	1, 27	sylan 283	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → ((𝐴↑𝑘) / (!‘𝑘)) ∈ ℂ)
29	26, 28	eqeltrd 2308	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐹‘𝑘) ∈ ℂ)
30	24, 29	syldan 282	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → (𝐹‘𝑘) ∈ ℂ)
31	4	eftlcvg 12253	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ 𝑀 ∈ ℕ0) → seq𝑀( + , 𝐹) ∈ dom ⇝ )
32	1, 3, 31	syl2anc 411	. . . 4 ⊢ (𝜑 → seq𝑀( + , 𝐹) ∈ dom ⇝ )
33	20, 21, 22, 30, 32	isumclim2 11988	. . 3 ⊢ (𝜑 → seq𝑀( + , 𝐹) ⇝ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐹‘𝑘))
34		eqidd 2232	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → (𝐺‘𝑘) = (𝐺‘𝑘))
35	8	recnd 8208	. . . . . . . 8 ⊢ (𝜑 → (abs‘𝐴) ∈ ℂ)
36	9	eftvalcn 12223	. . . . . . . 8 ⊢ (((abs‘𝐴) ∈ ℂ ∧ 𝑘 ∈ ℕ0) → (𝐺‘𝑘) = (((abs‘𝐴)↑𝑘) / (!‘𝑘)))
37	35, 36	sylan 283	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐺‘𝑘) = (((abs‘𝐴)↑𝑘) / (!‘𝑘)))
38		reeftcl 12221	. . . . . . . 8 ⊢ (((abs‘𝐴) ∈ ℝ ∧ 𝑘 ∈ ℕ0) → (((abs‘𝐴)↑𝑘) / (!‘𝑘)) ∈ ℝ)
39	8, 38	sylan 283	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (((abs‘𝐴)↑𝑘) / (!‘𝑘)) ∈ ℝ)
40	37, 39	eqeltrd 2308	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐺‘𝑘) ∈ ℝ)
41	24, 40	syldan 282	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → (𝐺‘𝑘) ∈ ℝ)
42	41	recnd 8208	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → (𝐺‘𝑘) ∈ ℂ)
43	9	eftlcvg 12253	. . . . 5 ⊢ (((abs‘𝐴) ∈ ℂ ∧ 𝑀 ∈ ℕ0) → seq𝑀( + , 𝐺) ∈ dom ⇝ )
44	35, 3, 43	syl2anc 411	. . . 4 ⊢ (𝜑 → seq𝑀( + , 𝐺) ∈ dom ⇝ )
45	20, 21, 34, 42, 44	isumclim2 11988	. . 3 ⊢ (𝜑 → seq𝑀( + , 𝐺) ⇝ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘))
46		eftabs 12222	. . . . . 6 ⊢ ((𝐴 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → (abs‘((𝐴↑𝑘) / (!‘𝑘))) = (((abs‘𝐴)↑𝑘) / (!‘𝑘)))
47	1, 46	sylan 283	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (abs‘((𝐴↑𝑘) / (!‘𝑘))) = (((abs‘𝐴)↑𝑘) / (!‘𝑘)))
48	26	fveq2d 5643	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (abs‘(𝐹‘𝑘)) = (abs‘((𝐴↑𝑘) / (!‘𝑘))))
49	47, 48, 37	3eqtr4rd 2275	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐺‘𝑘) = (abs‘(𝐹‘𝑘)))
50	24, 49	syldan 282	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘𝑀)) → (𝐺‘𝑘) = (abs‘(𝐹‘𝑘)))
51	20, 33, 45, 21, 30, 50	iserabs 12041	. 2 ⊢ (𝜑 → (abs‘Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐹‘𝑘)) ≤ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘))
52		nn0uz 9791	. . . 4 ⊢ ℕ0 = (ℤ≥‘0)
53		0zd 9491	. . . 4 ⊢ (𝜑 → 0 ∈ ℤ)
54	2	nncnd 9157	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℂ)
55		nn0cn 9412	. . . . 5 ⊢ (𝑗 ∈ ℕ0 → 𝑗 ∈ ℂ)
56		nn0ex 9408	. . . . . . . 8 ⊢ ℕ0 ∈ V
57	56	mptex 5880	. . . . . . 7 ⊢ (𝑛 ∈ ℕ0 ↦ (((abs‘𝐴)↑𝑛) / (!‘𝑛))) ∈ V
58	9, 57	eqeltri 2304	. . . . . 6 ⊢ 𝐺 ∈ V
59	58	shftval4 11393	. . . . 5 ⊢ ((𝑀 ∈ ℂ ∧ 𝑗 ∈ ℂ) → ((𝐺 shift -𝑀)‘𝑗) = (𝐺‘(𝑀 + 𝑗)))
60	54, 55, 59	syl2an 289	. . . 4 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((𝐺 shift -𝑀)‘𝑗) = (𝐺‘(𝑀 + 𝑗)))
61	35	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (abs‘𝐴) ∈ ℂ)
62		nn0addcl 9437	. . . . . . 7 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑗 ∈ ℕ0) → (𝑀 + 𝑗) ∈ ℕ0)
63	3, 62	sylan 283	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝑀 + 𝑗) ∈ ℕ0)
64	9	eftvalcn 12223	. . . . . 6 ⊢ (((abs‘𝐴) ∈ ℂ ∧ (𝑀 + 𝑗) ∈ ℕ0) → (𝐺‘(𝑀 + 𝑗)) = (((abs‘𝐴)↑(𝑀 + 𝑗)) / (!‘(𝑀 + 𝑗))))
65	61, 63, 64	syl2anc 411	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝐺‘(𝑀 + 𝑗)) = (((abs‘𝐴)↑(𝑀 + 𝑗)) / (!‘(𝑀 + 𝑗))))
66	8	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (abs‘𝐴) ∈ ℝ)
67		reeftcl 12221	. . . . . 6 ⊢ (((abs‘𝐴) ∈ ℝ ∧ (𝑀 + 𝑗) ∈ ℕ0) → (((abs‘𝐴)↑(𝑀 + 𝑗)) / (!‘(𝑀 + 𝑗))) ∈ ℝ)
68	66, 63, 67	syl2anc 411	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (((abs‘𝐴)↑(𝑀 + 𝑗)) / (!‘(𝑀 + 𝑗))) ∈ ℝ)
69	65, 68	eqeltrd 2308	. . . 4 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝐺‘(𝑀 + 𝑗)) ∈ ℝ)
70		simpr 110	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → 𝑗 ∈ ℕ0)
71	12, 16	nndivred 9193	. . . . . . 7 ⊢ (𝜑 → (((abs‘𝐴)↑𝑀) / (!‘𝑀)) ∈ ℝ)
72	71	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (((abs‘𝐴)↑𝑀) / (!‘𝑀)) ∈ ℝ)
73	2	peano2nnd 9158	. . . . . . . 8 ⊢ (𝜑 → (𝑀 + 1) ∈ ℕ)
74	73	nnrecred 9190	. . . . . . 7 ⊢ (𝜑 → (1 / (𝑀 + 1)) ∈ ℝ)
75		reexpcl 10819	. . . . . . 7 ⊢ (((1 / (𝑀 + 1)) ∈ ℝ ∧ 𝑗 ∈ ℕ0) → ((1 / (𝑀 + 1))↑𝑗) ∈ ℝ)
76	74, 75	sylan 283	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((1 / (𝑀 + 1))↑𝑗) ∈ ℝ)
77	72, 76	remulcld 8210	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)) ∈ ℝ)
78		oveq2 6026	. . . . . . 7 ⊢ (𝑛 = 𝑗 → ((1 / (𝑀 + 1))↑𝑛) = ((1 / (𝑀 + 1))↑𝑗))
79	78	oveq2d 6034	. . . . . 6 ⊢ (𝑛 = 𝑗 → ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑛)) = ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)))
80		eftl.3	. . . . . 6 ⊢ 𝐻 = (𝑛 ∈ ℕ0 ↦ ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑛)))
81	79, 80	fvmptg 5722	. . . . 5 ⊢ ((𝑗 ∈ ℕ0 ∧ ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)) ∈ ℝ) → (𝐻‘𝑗) = ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)))
82	70, 77, 81	syl2anc 411	. . . 4 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝐻‘𝑗) = ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)))
83	66, 63	reexpcld 10953	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((abs‘𝐴)↑(𝑀 + 𝑗)) ∈ ℝ)
84	12	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((abs‘𝐴)↑𝑀) ∈ ℝ)
85	63	faccld 10999	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (!‘(𝑀 + 𝑗)) ∈ ℕ)
86	85	nnred 9156	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (!‘(𝑀 + 𝑗)) ∈ ℝ)
87	86, 77	remulcld 8210	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((!‘(𝑀 + 𝑗)) · ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗))) ∈ ℝ)
88	3	adantr 276	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → 𝑀 ∈ ℕ0)
89		uzid 9770	. . . . . . . . . 10 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ (ℤ≥‘𝑀))
90	21, 89	syl 14	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ (ℤ≥‘𝑀))
91		uzaddcl 9820	. . . . . . . . 9 ⊢ ((𝑀 ∈ (ℤ≥‘𝑀) ∧ 𝑗 ∈ ℕ0) → (𝑀 + 𝑗) ∈ (ℤ≥‘𝑀))
92	90, 91	sylan 283	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝑀 + 𝑗) ∈ (ℤ≥‘𝑀))
93	1	absge0d 11749	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (abs‘𝐴))
94	93	adantr 276	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → 0 ≤ (abs‘𝐴))
95		eftl.6	. . . . . . . . 9 ⊢ (𝜑 → (abs‘𝐴) ≤ 1)
96	95	adantr 276	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (abs‘𝐴) ≤ 1)
97	66, 88, 92, 94, 96	leexp2rd 10966	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((abs‘𝐴)↑(𝑀 + 𝑗)) ≤ ((abs‘𝐴)↑𝑀))
98	16	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (!‘𝑀) ∈ ℕ)
99		nnexpcl 10815	. . . . . . . . . . . . 13 ⊢ (((𝑀 + 1) ∈ ℕ ∧ 𝑗 ∈ ℕ0) → ((𝑀 + 1)↑𝑗) ∈ ℕ)
100	73, 99	sylan 283	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((𝑀 + 1)↑𝑗) ∈ ℕ)
101	98, 100	nnmulcld 9192	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((!‘𝑀) · ((𝑀 + 1)↑𝑗)) ∈ ℕ)
102	101	nnred 9156	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((!‘𝑀) · ((𝑀 + 1)↑𝑗)) ∈ ℝ)
103	8, 3, 93	expge0d 10954	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ ((abs‘𝐴)↑𝑀))
104	12, 103	jca 306	. . . . . . . . . . 11 ⊢ (𝜑 → (((abs‘𝐴)↑𝑀) ∈ ℝ ∧ 0 ≤ ((abs‘𝐴)↑𝑀)))
105	104	adantr 276	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (((abs‘𝐴)↑𝑀) ∈ ℝ ∧ 0 ≤ ((abs‘𝐴)↑𝑀)))
106		faclbnd6 11007	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℕ0 ∧ 𝑗 ∈ ℕ0) → ((!‘𝑀) · ((𝑀 + 1)↑𝑗)) ≤ (!‘(𝑀 + 𝑗)))
107	3, 106	sylan 283	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((!‘𝑀) · ((𝑀 + 1)↑𝑗)) ≤ (!‘(𝑀 + 𝑗)))
108		lemul1a 9038	. . . . . . . . . 10 ⊢ (((((!‘𝑀) · ((𝑀 + 1)↑𝑗)) ∈ ℝ ∧ (!‘(𝑀 + 𝑗)) ∈ ℝ ∧ (((abs‘𝐴)↑𝑀) ∈ ℝ ∧ 0 ≤ ((abs‘𝐴)↑𝑀))) ∧ ((!‘𝑀) · ((𝑀 + 1)↑𝑗)) ≤ (!‘(𝑀 + 𝑗))) → (((!‘𝑀) · ((𝑀 + 1)↑𝑗)) · ((abs‘𝐴)↑𝑀)) ≤ ((!‘(𝑀 + 𝑗)) · ((abs‘𝐴)↑𝑀)))
109	102, 86, 105, 107, 108	syl31anc 1276	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (((!‘𝑀) · ((𝑀 + 1)↑𝑗)) · ((abs‘𝐴)↑𝑀)) ≤ ((!‘(𝑀 + 𝑗)) · ((abs‘𝐴)↑𝑀)))
110	86, 84	remulcld 8210	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((!‘(𝑀 + 𝑗)) · ((abs‘𝐴)↑𝑀)) ∈ ℝ)
111	101	nnrpd 9929	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((!‘𝑀) · ((𝑀 + 1)↑𝑗)) ∈ ℝ+)
112	84, 110, 111	lemuldiv2d 9982	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((((!‘𝑀) · ((𝑀 + 1)↑𝑗)) · ((abs‘𝐴)↑𝑀)) ≤ ((!‘(𝑀 + 𝑗)) · ((abs‘𝐴)↑𝑀)) ↔ ((abs‘𝐴)↑𝑀) ≤ (((!‘(𝑀 + 𝑗)) · ((abs‘𝐴)↑𝑀)) / ((!‘𝑀) · ((𝑀 + 1)↑𝑗)))))
113	109, 112	mpbid 147	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((abs‘𝐴)↑𝑀) ≤ (((!‘(𝑀 + 𝑗)) · ((abs‘𝐴)↑𝑀)) / ((!‘𝑀) · ((𝑀 + 1)↑𝑗))))
114	85	nncnd 9157	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (!‘(𝑀 + 𝑗)) ∈ ℂ)
115	12	recnd 8208	. . . . . . . . . . 11 ⊢ (𝜑 → ((abs‘𝐴)↑𝑀) ∈ ℂ)
116	115	adantr 276	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((abs‘𝐴)↑𝑀) ∈ ℂ)
117	101	nncnd 9157	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((!‘𝑀) · ((𝑀 + 1)↑𝑗)) ∈ ℂ)
118	101	nnap0d 9189	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((!‘𝑀) · ((𝑀 + 1)↑𝑗)) # 0)
119	114, 116, 117, 118	divassapd 9006	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (((!‘(𝑀 + 𝑗)) · ((abs‘𝐴)↑𝑀)) / ((!‘𝑀) · ((𝑀 + 1)↑𝑗))) = ((!‘(𝑀 + 𝑗)) · (((abs‘𝐴)↑𝑀) / ((!‘𝑀) · ((𝑀 + 1)↑𝑗)))))
120	73	nncnd 9157	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑀 + 1) ∈ ℂ)
121	120	adantr 276	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝑀 + 1) ∈ ℂ)
122	73	adantr 276	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝑀 + 1) ∈ ℕ)
123	122	nnap0d 9189	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝑀 + 1) # 0)
124		nn0z 9499	. . . . . . . . . . . . . 14 ⊢ (𝑗 ∈ ℕ0 → 𝑗 ∈ ℤ)
125	124	adantl 277	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → 𝑗 ∈ ℤ)
126	121, 123, 125	exprecapd 10944	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((1 / (𝑀 + 1))↑𝑗) = (1 / ((𝑀 + 1)↑𝑗)))
127	126	oveq2d 6034	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)) = ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · (1 / ((𝑀 + 1)↑𝑗))))
128	71	recnd 8208	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((abs‘𝐴)↑𝑀) / (!‘𝑀)) ∈ ℂ)
129	128	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (((abs‘𝐴)↑𝑀) / (!‘𝑀)) ∈ ℂ)
130	100	nncnd 9157	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((𝑀 + 1)↑𝑗) ∈ ℂ)
131	100	nnap0d 9189	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((𝑀 + 1)↑𝑗) # 0)
132	129, 130, 131	divrecapd 8973	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) / ((𝑀 + 1)↑𝑗)) = ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · (1 / ((𝑀 + 1)↑𝑗))))
133	16	nncnd 9157	. . . . . . . . . . . . 13 ⊢ (𝜑 → (!‘𝑀) ∈ ℂ)
134	133	adantr 276	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (!‘𝑀) ∈ ℂ)
135	98	nnap0d 9189	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (!‘𝑀) # 0)
136	116, 134, 130, 135, 131	divdivap1d 9002	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) / ((𝑀 + 1)↑𝑗)) = (((abs‘𝐴)↑𝑀) / ((!‘𝑀) · ((𝑀 + 1)↑𝑗))))
137	127, 132, 136	3eqtr2rd 2271	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (((abs‘𝐴)↑𝑀) / ((!‘𝑀) · ((𝑀 + 1)↑𝑗))) = ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)))
138	137	oveq2d 6034	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((!‘(𝑀 + 𝑗)) · (((abs‘𝐴)↑𝑀) / ((!‘𝑀) · ((𝑀 + 1)↑𝑗)))) = ((!‘(𝑀 + 𝑗)) · ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗))))
139	119, 138	eqtrd 2264	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (((!‘(𝑀 + 𝑗)) · ((abs‘𝐴)↑𝑀)) / ((!‘𝑀) · ((𝑀 + 1)↑𝑗))) = ((!‘(𝑀 + 𝑗)) · ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗))))
140	113, 139	breqtrd 4114	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((abs‘𝐴)↑𝑀) ≤ ((!‘(𝑀 + 𝑗)) · ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗))))
141	83, 84, 87, 97, 140	letrd 8303	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((abs‘𝐴)↑(𝑀 + 𝑗)) ≤ ((!‘(𝑀 + 𝑗)) · ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗))))
142	85	nngt0d 9187	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → 0 < (!‘(𝑀 + 𝑗)))
143		ledivmul 9057	. . . . . . 7 ⊢ ((((abs‘𝐴)↑(𝑀 + 𝑗)) ∈ ℝ ∧ ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)) ∈ ℝ ∧ ((!‘(𝑀 + 𝑗)) ∈ ℝ ∧ 0 < (!‘(𝑀 + 𝑗)))) → ((((abs‘𝐴)↑(𝑀 + 𝑗)) / (!‘(𝑀 + 𝑗))) ≤ ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)) ↔ ((abs‘𝐴)↑(𝑀 + 𝑗)) ≤ ((!‘(𝑀 + 𝑗)) · ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)))))
144	83, 77, 86, 142, 143	syl112anc 1277	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((((abs‘𝐴)↑(𝑀 + 𝑗)) / (!‘(𝑀 + 𝑗))) ≤ ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)) ↔ ((abs‘𝐴)↑(𝑀 + 𝑗)) ≤ ((!‘(𝑀 + 𝑗)) · ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)))))
145	141, 144	mpbird 167	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (((abs‘𝐴)↑(𝑀 + 𝑗)) / (!‘(𝑀 + 𝑗))) ≤ ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)))
146	65, 145	eqbrtrd 4110	. . . 4 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝐺‘(𝑀 + 𝑗)) ≤ ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)))
147	58	a1i 9	. . . . . 6 ⊢ (𝜑 → 𝐺 ∈ V)
148	21	znegcld 9604	. . . . . 6 ⊢ (𝜑 → -𝑀 ∈ ℤ)
149		0cn 8171	. . . . . . . . . . . . 13 ⊢ 0 ∈ ℂ
150		subneg 8428	. . . . . . . . . . . . 13 ⊢ ((0 ∈ ℂ ∧ 𝑀 ∈ ℂ) → (0 − -𝑀) = (0 + 𝑀))
151	149, 150	mpan 424	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ ℂ → (0 − -𝑀) = (0 + 𝑀))
152		addlid 8318	. . . . . . . . . . . 12 ⊢ (𝑀 ∈ ℂ → (0 + 𝑀) = 𝑀)
153	151, 152	eqtrd 2264	. . . . . . . . . . 11 ⊢ (𝑀 ∈ ℂ → (0 − -𝑀) = 𝑀)
154	54, 153	syl 14	. . . . . . . . . 10 ⊢ (𝜑 → (0 − -𝑀) = 𝑀)
155	154	fveq2d 5643	. . . . . . . . 9 ⊢ (𝜑 → (ℤ≥‘(0 − -𝑀)) = (ℤ≥‘𝑀))
156	155	eleq2d 2301	. . . . . . . 8 ⊢ (𝜑 → (𝑘 ∈ (ℤ≥‘(0 − -𝑀)) ↔ 𝑘 ∈ (ℤ≥‘𝑀)))
157	156	pm5.32i 454	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘(0 − -𝑀))) ↔ (𝜑 ∧ 𝑘 ∈ (ℤ≥‘𝑀)))
158	157, 41	sylbi 121	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘(0 − -𝑀))) → (𝐺‘𝑘) ∈ ℝ)
159		readdcl 8158	. . . . . . 7 ⊢ ((𝑘 ∈ ℝ ∧ 𝑦 ∈ ℝ) → (𝑘 + 𝑦) ∈ ℝ)
160	159	adantl 277	. . . . . 6 ⊢ ((𝜑 ∧ (𝑘 ∈ ℝ ∧ 𝑦 ∈ ℝ)) → (𝑘 + 𝑦) ∈ ℝ)
161	147, 53, 148, 158, 160	seq3shft 11403	. . . . 5 ⊢ (𝜑 → seq0( + , (𝐺 shift -𝑀)) = (seq(0 − -𝑀)( + , 𝐺) shift -𝑀))
162		seqex 10712	. . . . . . 7 ⊢ seq(0 − -𝑀)( + , 𝐺) ∈ V
163	54	negcld 8477	. . . . . . 7 ⊢ (𝜑 → -𝑀 ∈ ℂ)
164		ovshftex 11384	. . . . . . 7 ⊢ ((seq(0 − -𝑀)( + , 𝐺) ∈ V ∧ -𝑀 ∈ ℂ) → (seq(0 − -𝑀)( + , 𝐺) shift -𝑀) ∈ V)
165	162, 163, 164	sylancr 414	. . . . . 6 ⊢ (𝜑 → (seq(0 − -𝑀)( + , 𝐺) shift -𝑀) ∈ V)
166	20, 21, 34, 41, 44	isumrecl 11995	. . . . . 6 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘) ∈ ℝ)
167	154	seqeq1d 10716	. . . . . . . 8 ⊢ (𝜑 → seq(0 − -𝑀)( + , 𝐺) = seq𝑀( + , 𝐺))
168	167, 45	eqbrtrd 4110	. . . . . . 7 ⊢ (𝜑 → seq(0 − -𝑀)( + , 𝐺) ⇝ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘))
169		climshft 11869	. . . . . . . 8 ⊢ ((-𝑀 ∈ ℤ ∧ seq(0 − -𝑀)( + , 𝐺) ∈ V) → ((seq(0 − -𝑀)( + , 𝐺) shift -𝑀) ⇝ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘) ↔ seq(0 − -𝑀)( + , 𝐺) ⇝ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘)))
170	148, 162, 169	sylancl 413	. . . . . . 7 ⊢ (𝜑 → ((seq(0 − -𝑀)( + , 𝐺) shift -𝑀) ⇝ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘) ↔ seq(0 − -𝑀)( + , 𝐺) ⇝ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘)))
171	168, 170	mpbird 167	. . . . . 6 ⊢ (𝜑 → (seq(0 − -𝑀)( + , 𝐺) shift -𝑀) ⇝ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘))
172		breldmg 4937	. . . . . 6 ⊢ (((seq(0 − -𝑀)( + , 𝐺) shift -𝑀) ∈ V ∧ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘) ∈ ℝ ∧ (seq(0 − -𝑀)( + , 𝐺) shift -𝑀) ⇝ Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘)) → (seq(0 − -𝑀)( + , 𝐺) shift -𝑀) ∈ dom ⇝ )
173	165, 166, 171, 172	syl3anc 1273	. . . . 5 ⊢ (𝜑 → (seq(0 − -𝑀)( + , 𝐺) shift -𝑀) ∈ dom ⇝ )
174	161, 173	eqeltrd 2308	. . . 4 ⊢ (𝜑 → seq0( + , (𝐺 shift -𝑀)) ∈ dom ⇝ )
175		seqex 10712	. . . . . 6 ⊢ seq0( + , 𝐻) ∈ V
176	175	a1i 9	. . . . 5 ⊢ (𝜑 → seq0( + , 𝐻) ∈ V)
177	2	nnge1d 9186	. . . . . . . . . 10 ⊢ (𝜑 → 1 ≤ 𝑀)
178		1nn 9154	. . . . . . . . . . 11 ⊢ 1 ∈ ℕ
179		nnleltp1 9539	. . . . . . . . . . 11 ⊢ ((1 ∈ ℕ ∧ 𝑀 ∈ ℕ) → (1 ≤ 𝑀 ↔ 1 < (𝑀 + 1)))
180	178, 2, 179	sylancr 414	. . . . . . . . . 10 ⊢ (𝜑 → (1 ≤ 𝑀 ↔ 1 < (𝑀 + 1)))
181	177, 180	mpbid 147	. . . . . . . . 9 ⊢ (𝜑 → 1 < (𝑀 + 1))
182	14	nn0ge0d 9458	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ (𝑀 + 1))
183	15, 182	absidd 11732	. . . . . . . . 9 ⊢ (𝜑 → (abs‘(𝑀 + 1)) = (𝑀 + 1))
184	181, 183	breqtrrd 4116	. . . . . . . 8 ⊢ (𝜑 → 1 < (abs‘(𝑀 + 1)))
185	74	adantr 276	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (1 / (𝑀 + 1)) ∈ ℝ)
186	185, 70	reexpcld 10953	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((1 / (𝑀 + 1))↑𝑗) ∈ ℝ)
187		eqid 2231	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ0 ↦ ((1 / (𝑀 + 1))↑𝑛)) = (𝑛 ∈ ℕ0 ↦ ((1 / (𝑀 + 1))↑𝑛))
188	78, 187	fvmptg 5722	. . . . . . . . 9 ⊢ ((𝑗 ∈ ℕ0 ∧ ((1 / (𝑀 + 1))↑𝑗) ∈ ℝ) → ((𝑛 ∈ ℕ0 ↦ ((1 / (𝑀 + 1))↑𝑛))‘𝑗) = ((1 / (𝑀 + 1))↑𝑗))
189	70, 186, 188	syl2anc 411	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ ((1 / (𝑀 + 1))↑𝑛))‘𝑗) = ((1 / (𝑀 + 1))↑𝑗))
190	120, 184, 189	georeclim 12079	. . . . . . 7 ⊢ (𝜑 → seq0( + , (𝑛 ∈ ℕ0 ↦ ((1 / (𝑀 + 1))↑𝑛))) ⇝ ((𝑀 + 1) / ((𝑀 + 1) − 1)))
191	76	recnd 8208	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((1 / (𝑀 + 1))↑𝑗) ∈ ℂ)
192	189, 191	eqeltrd 2308	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((𝑛 ∈ ℕ0 ↦ ((1 / (𝑀 + 1))↑𝑛))‘𝑗) ∈ ℂ)
193	189	oveq2d 6034	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((𝑛 ∈ ℕ0 ↦ ((1 / (𝑀 + 1))↑𝑛))‘𝑗)) = ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)))
194	82, 193	eqtr4d 2267	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → (𝐻‘𝑗) = ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((𝑛 ∈ ℕ0 ↦ ((1 / (𝑀 + 1))↑𝑛))‘𝑗)))
195	52, 53, 128, 190, 192, 194	isermulc2 11905	. . . . . 6 ⊢ (𝜑 → seq0( + , 𝐻) ⇝ ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((𝑀 + 1) / ((𝑀 + 1) − 1))))
196		ax-1cn 8125	. . . . . . . . . . 11 ⊢ 1 ∈ ℂ
197		pncan 8385	. . . . . . . . . . 11 ⊢ ((𝑀 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑀 + 1) − 1) = 𝑀)
198	54, 196, 197	sylancl 413	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀 + 1) − 1) = 𝑀)
199	198	oveq2d 6034	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀 + 1) / ((𝑀 + 1) − 1)) = ((𝑀 + 1) / 𝑀))
200	199	oveq2d 6034	. . . . . . . 8 ⊢ (𝜑 → ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((𝑀 + 1) / ((𝑀 + 1) − 1))) = ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((𝑀 + 1) / 𝑀)))
201	15, 2	nndivred 9193	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑀 + 1) / 𝑀) ∈ ℝ)
202	201	recnd 8208	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀 + 1) / 𝑀) ∈ ℂ)
203	16	nnap0d 9189	. . . . . . . . 9 ⊢ (𝜑 → (!‘𝑀) # 0)
204	115, 202, 133, 203	div23apd 9008	. . . . . . . 8 ⊢ (𝜑 → ((((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / 𝑀)) / (!‘𝑀)) = ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((𝑀 + 1) / 𝑀)))
205	200, 204	eqtr4d 2267	. . . . . . 7 ⊢ (𝜑 → ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((𝑀 + 1) / ((𝑀 + 1) − 1))) = ((((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / 𝑀)) / (!‘𝑀)))
206	115, 202, 133, 203	divassapd 9006	. . . . . . 7 ⊢ (𝜑 → ((((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / 𝑀)) / (!‘𝑀)) = (((abs‘𝐴)↑𝑀) · (((𝑀 + 1) / 𝑀) / (!‘𝑀))))
207	2	nnap0d 9189	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 # 0)
208	120, 54, 133, 207, 203	divdivap1d 9002	. . . . . . . . 9 ⊢ (𝜑 → (((𝑀 + 1) / 𝑀) / (!‘𝑀)) = ((𝑀 + 1) / (𝑀 · (!‘𝑀))))
209	54, 133	mulcomd 8201	. . . . . . . . . 10 ⊢ (𝜑 → (𝑀 · (!‘𝑀)) = ((!‘𝑀) · 𝑀))
210	209	oveq2d 6034	. . . . . . . . 9 ⊢ (𝜑 → ((𝑀 + 1) / (𝑀 · (!‘𝑀))) = ((𝑀 + 1) / ((!‘𝑀) · 𝑀)))
211	208, 210	eqtrd 2264	. . . . . . . 8 ⊢ (𝜑 → (((𝑀 + 1) / 𝑀) / (!‘𝑀)) = ((𝑀 + 1) / ((!‘𝑀) · 𝑀)))
212	211	oveq2d 6034	. . . . . . 7 ⊢ (𝜑 → (((abs‘𝐴)↑𝑀) · (((𝑀 + 1) / 𝑀) / (!‘𝑀))) = (((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / ((!‘𝑀) · 𝑀))))
213	205, 206, 212	3eqtrd 2268	. . . . . 6 ⊢ (𝜑 → ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((𝑀 + 1) / ((𝑀 + 1) − 1))) = (((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / ((!‘𝑀) · 𝑀))))
214	195, 213	breqtrd 4114	. . . . 5 ⊢ (𝜑 → seq0( + , 𝐻) ⇝ (((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / ((!‘𝑀) · 𝑀))))
215		breldmg 4937	. . . . 5 ⊢ ((seq0( + , 𝐻) ∈ V ∧ (((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / ((!‘𝑀) · 𝑀))) ∈ ℝ ∧ seq0( + , 𝐻) ⇝ (((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / ((!‘𝑀) · 𝑀)))) → seq0( + , 𝐻) ∈ dom ⇝ )
216	176, 19, 214, 215	syl3anc 1273	. . . 4 ⊢ (𝜑 → seq0( + , 𝐻) ∈ dom ⇝ )
217	52, 53, 60, 69, 82, 77, 146, 174, 216	isumle 12061	. . 3 ⊢ (𝜑 → Σ𝑗 ∈ ℕ0 (𝐺‘(𝑀 + 𝑗)) ≤ Σ𝑗 ∈ ℕ0 ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)))
218		eqid 2231	. . . . 5 ⊢ (ℤ≥‘(0 + 𝑀)) = (ℤ≥‘(0 + 𝑀))
219		fveq2 5639	. . . . 5 ⊢ (𝑘 = (𝑀 + 𝑗) → (𝐺‘𝑘) = (𝐺‘(𝑀 + 𝑗)))
220	54	addlidd 8329	. . . . . . . . 9 ⊢ (𝜑 → (0 + 𝑀) = 𝑀)
221	220	fveq2d 5643	. . . . . . . 8 ⊢ (𝜑 → (ℤ≥‘(0 + 𝑀)) = (ℤ≥‘𝑀))
222	221	eleq2d 2301	. . . . . . 7 ⊢ (𝜑 → (𝑘 ∈ (ℤ≥‘(0 + 𝑀)) ↔ 𝑘 ∈ (ℤ≥‘𝑀)))
223	222	biimpa 296	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘(0 + 𝑀))) → 𝑘 ∈ (ℤ≥‘𝑀))
224	223, 42	syldan 282	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ≥‘(0 + 𝑀))) → (𝐺‘𝑘) ∈ ℂ)
225	52, 218, 219, 21, 53, 224	isumshft 12056	. . . 4 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘(0 + 𝑀))(𝐺‘𝑘) = Σ𝑗 ∈ ℕ0 (𝐺‘(𝑀 + 𝑗)))
226	221	sumeq1d 11931	. . . 4 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘(0 + 𝑀))(𝐺‘𝑘) = Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘))
227	225, 226	eqtr3d 2266	. . 3 ⊢ (𝜑 → Σ𝑗 ∈ ℕ0 (𝐺‘(𝑀 + 𝑗)) = Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘))
228	77	recnd 8208	. . . 4 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ0) → ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)) ∈ ℂ)
229	52, 53, 82, 228, 214	isumclim 11987	. . 3 ⊢ (𝜑 → Σ𝑗 ∈ ℕ0 ((((abs‘𝐴)↑𝑀) / (!‘𝑀)) · ((1 / (𝑀 + 1))↑𝑗)) = (((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / ((!‘𝑀) · 𝑀))))
230	217, 227, 229	3brtr3d 4119	. 2 ⊢ (𝜑 → Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐺‘𝑘) ≤ (((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / ((!‘𝑀) · 𝑀))))
231	7, 11, 19, 51, 230	letrd 8303	1 ⊢ (𝜑 → (abs‘Σ𝑘 ∈ (ℤ≥‘𝑀)(𝐹‘𝑘)) ≤ (((abs‘𝐴)↑𝑀) · ((𝑀 + 1) / ((!‘𝑀) · 𝑀))))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   = wceq 1397   ∈ wcel 2202  Vcvv 2802   class class class wbr 4088   ↦ cmpt 4150  dom cdm 4725  ‘cfv 5326  (class class class)co 6018  ℂcc 8030  ℝcr 8031  0cc0 8032  1c1 8033   + caddc 8035   · cmul 8037   < clt 8214   ≤ cle 8215   − cmin 8350  -cneg 8351   / cdiv 8852  ℕcn 9143  ℕ₀cn0 9402  ℤcz 9479  ℤ_≥cuz 9755  seqcseq 10710  ↑cexp 10801  !cfa 10988   shift cshi 11379  abscabs 11562   ⇝ cli 11843  Σcsu 11918

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 619  ax-in2 620  ax-io 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4204  ax-sep 4207  ax-nul 4215  ax-pow 4264  ax-pr 4299  ax-un 4530  ax-setind 4635  ax-iinf 4686  ax-cnex 8123  ax-resscn 8124  ax-1cn 8125  ax-1re 8126  ax-icn 8127  ax-addcl 8128  ax-addrcl 8129  ax-mulcl 8130  ax-mulrcl 8131  ax-addcom 8132  ax-mulcom 8133  ax-addass 8134  ax-mulass 8135  ax-distr 8136  ax-i2m1 8137  ax-0lt1 8138  ax-1rid 8139  ax-0id 8140  ax-rnegex 8141  ax-precex 8142  ax-cnre 8143  ax-pre-ltirr 8144  ax-pre-ltwlin 8145  ax-pre-lttrn 8146  ax-pre-apti 8147  ax-pre-ltadd 8148  ax-pre-mulgt0 8149  ax-pre-mulext 8150  ax-arch 8151  ax-caucvg 8152

This theorem depends on definitions:  df-bi 117  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2363  df-ne 2403  df-nel 2498  df-ral 2515  df-rex 2516  df-reu 2517  df-rmo 2518  df-rab 2519  df-v 2804  df-sbc 3032  df-csb 3128  df-dif 3202  df-un 3204  df-in 3206  df-ss 3213  df-nul 3495  df-if 3606  df-pw 3654  df-sn 3675  df-pr 3676  df-op 3678  df-uni 3894  df-int 3929  df-iun 3972  df-br 4089  df-opab 4151  df-mpt 4152  df-tr 4188  df-id 4390  df-po 4393  df-iso 4394  df-iord 4463  df-on 4465  df-ilim 4466  df-suc 4468  df-iom 4689  df-xp 4731  df-rel 4732  df-cnv 4733  df-co 4734  df-dm 4735  df-rn 4736  df-res 4737  df-ima 4738  df-iota 5286  df-fun 5328  df-fn 5329  df-f 5330  df-f1 5331  df-fo 5332  df-f1o 5333  df-fv 5334  df-isom 5335  df-riota 5971  df-ov 6021  df-oprab 6022  df-mpo 6023  df-1st 6303  df-2nd 6304  df-recs 6471  df-irdg 6536  df-frec 6557  df-1o 6582  df-oadd 6586  df-er 6702  df-en 6910  df-dom 6911  df-fin 6912  df-pnf 8216  df-mnf 8217  df-xr 8218  df-ltxr 8219  df-le 8220  df-sub 8352  df-neg 8353  df-reap 8755  df-ap 8762  df-div 8853  df-inn 9144  df-2 9202  df-3 9203  df-4 9204  df-n0 9403  df-z 9480  df-uz 9756  df-q 9854  df-rp 9889  df-ico 10129  df-fz 10244  df-fzo 10378  df-seqfrec 10711  df-exp 10802  df-fac 10989  df-ihash 11039  df-shft 11380  df-cj 11407  df-re 11408  df-im 11409  df-rsqrt 11563  df-abs 11564  df-clim 11844  df-sumdc 11919

This theorem is referenced by:  ef01bndlem  12322  eirraplem  12343  dveflem  15456