cvgratz - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > cvgratz		GIF version

Theorem cvgratz 12246

Description: Ratio test for convergence of a complex infinite series. If the ratio 𝐴 of the absolute values of successive terms in an infinite sequence 𝐹 is less than 1 for all terms, then the infinite sum of the terms of 𝐹 converges to a complex number. (Contributed by NM, 26-Apr-2005.) (Revised by Jim Kingdon, 11-Nov-2022.)

**Hypotheses**
Ref	Expression
cvgratz.1	⊢ 𝑍 = (ℤ_≥‘𝑀)
cvgratz.m	⊢ (𝜑 → 𝑀 ∈ ℤ)
cvgratz.3	⊢ (𝜑 → 𝐴 ∈ ℝ)
cvgratz.4	⊢ (𝜑 → 𝐴 < 1)
cvgratz.gt0	⊢ (𝜑 → 0 < 𝐴)
cvgratz.6	⊢ ((𝜑 ∧ 𝑘 ∈ 𝑍) → (𝐹‘𝑘) ∈ ℂ)
cvgratz.7	⊢ ((𝜑 ∧ 𝑘 ∈ 𝑍) → (abs‘(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (abs‘(𝐹‘𝑘))))

**Assertion**
Ref	Expression
cvgratz	⊢ (𝜑 → seq𝑀( + , 𝐹) ∈ dom ⇝ )

Distinct variable groups: 𝐴,𝑘 𝑘,𝐹 𝑘,𝑀 𝑘,𝑍 𝜑,𝑘

Proof of Theorem cvgratz Dummy variables 𝑖 𝑥 𝑦 𝑎 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		cvgratz.m	. . . . 5 ⊢ (𝜑 → 𝑀 ∈ ℤ)
2	1	adantr 276	. . . 4 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 𝑀 ∈ ℤ)
3		fveq2 5675	. . . . . 6 ⊢ (𝑘 = 𝑥 → (𝐹‘𝑘) = (𝐹‘𝑥))
4	3	eleq1d 2303	. . . . 5 ⊢ (𝑘 = 𝑥 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘𝑥) ∈ ℂ))
5		cvgratz.6	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑍) → (𝐹‘𝑘) ∈ ℂ)
6	5	ralrimiva 2617	. . . . . 6 ⊢ (𝜑 → ∀𝑘 ∈ 𝑍 (𝐹‘𝑘) ∈ ℂ)
7	6	ad2antrr 488	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑥 ∈ (ℤ_≥‘𝑀)) → ∀𝑘 ∈ 𝑍 (𝐹‘𝑘) ∈ ℂ)
8		cvgratz.1	. . . . . . . 8 ⊢ 𝑍 = (ℤ_≥‘𝑀)
9	8	eleq2i 2301	. . . . . . 7 ⊢ (𝑥 ∈ 𝑍 ↔ 𝑥 ∈ (ℤ_≥‘𝑀))
10	9	biimpri 133	. . . . . 6 ⊢ (𝑥 ∈ (ℤ_≥‘𝑀) → 𝑥 ∈ 𝑍)
11	10	adantl 277	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑥 ∈ (ℤ_≥‘𝑀)) → 𝑥 ∈ 𝑍)
12	4, 7, 11	rspcdva 2928	. . . 4 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑥 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑥) ∈ ℂ)
13		eluzelz 9884	. . . . . . . 8 ⊢ (𝑘 ∈ (ℤ_≥‘𝑀) → 𝑘 ∈ ℤ)
14	13	adantl 277	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑘 ∈ ℤ)
15		1red 8305	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 1 ∈ ℝ)
16	1	zred 9721	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℝ)
17	16	ad2antrr 488	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑀 ∈ ℝ)
18	14	zred 9721	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑘 ∈ ℝ)
19		simplr 529	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 1 ≤ 𝑀)
20		eluzle 9887	. . . . . . . . 9 ⊢ (𝑘 ∈ (ℤ_≥‘𝑀) → 𝑀 ≤ 𝑘)
21	20	adantl 277	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑀 ≤ 𝑘)
22	15, 17, 18, 19, 21	letrd 8414	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 1 ≤ 𝑘)
23		elnnz1 9620	. . . . . . 7 ⊢ (𝑘 ∈ ℕ ↔ (𝑘 ∈ ℤ ∧ 1 ≤ 𝑘))
24	14, 22, 23	sylanbrc 417	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑘 ∈ ℕ)
25		elnnuz 9912	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ ↔ 𝑘 ∈ (ℤ_≥‘1))
26		fveq2 5675	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑀 → (𝐹‘𝑘) = (𝐹‘𝑀))
27	26	eleq1d 2303	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑀 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘𝑀) ∈ ℂ))
28		uzid 9889	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ (ℤ_≥‘𝑀))
29	1, 28	syl 14	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘𝑀))
30	29, 8	eleqtrrdi 2328	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ 𝑍)
31	27, 6, 30	rspcdva 2928	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹‘𝑀) ∈ ℂ)
32	31	ad3antrrr 492	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐹‘𝑀) ∈ ℂ)
33		cvgratz.3	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ∈ ℝ)
34		cvgratz.gt0	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 < 𝐴)
35	33, 34	elrpd 10047	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
36	35	ad3antrrr 492	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → 𝐴 ∈ ℝ⁺)
37	2	adantr 276	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑀 ∈ ℤ)
38	37	adantr 276	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → 𝑀 ∈ ℤ)
39	25	biimpri 133	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (ℤ_≥‘1) → 𝑘 ∈ ℕ)
40	39	adantl 277	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑘 ∈ ℕ)
41	40	nnzd 9720	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑘 ∈ ℤ)
42	41	adantr 276	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → 𝑘 ∈ ℤ)
43	38, 42	zsubcld 9726	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝑀 − 𝑘) ∈ ℤ)
44	36, 43	rpexpcld 11087	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐴↑(𝑀 − 𝑘)) ∈ ℝ⁺)
45	44	rpcnd 10052	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐴↑(𝑀 − 𝑘)) ∈ ℂ)
46	44	rpap0d 10056	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐴↑(𝑀 − 𝑘)) # 0)
47	32, 45, 46	divclapd 9084	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))) ∈ ℂ)
48		simplll 535	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝜑)
49	37	adantr 276	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑀 ∈ ℤ)
50	41	adantr 276	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑘 ∈ ℤ)
51	16	ad3antrrr 492	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑀 ∈ ℝ)
52	50	zred 9721	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑘 ∈ ℝ)
53		simpr 110	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → ¬ 𝑘 < 𝑀)
54	51, 52, 53	nltled 8411	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑀 ≤ 𝑘)
55		eluz2 9880	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ 𝑘 ∈ ℤ ∧ 𝑀 ≤ 𝑘))
56	49, 50, 54, 55	syl3anbrc 1208	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑘 ∈ (ℤ_≥‘𝑀))
57	56, 8	eleqtrrdi 2328	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑘 ∈ 𝑍)
58	48, 57, 5	syl2anc 411	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → (𝐹‘𝑘) ∈ ℂ)
59		zdclt 9675	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℤ ∧ 𝑀 ∈ ℤ) → DECID 𝑘 < 𝑀)
60	41, 37, 59	syl2anc 411	. . . . . . . . 9 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → DECID 𝑘 < 𝑀)
61	47, 58, 60	ifcldadc 3656	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ)
62	25, 61	sylan2b 287	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ)
63	24, 62	syldan 282	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ)
64		breq1 4117	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → (𝑖 < 𝑀 ↔ 𝑘 < 𝑀))
65		oveq2 6066	. . . . . . . . . 10 ⊢ (𝑖 = 𝑘 → (𝑀 − 𝑖) = (𝑀 − 𝑘))
66	65	oveq2d 6074	. . . . . . . . 9 ⊢ (𝑖 = 𝑘 → (𝐴↑(𝑀 − 𝑖)) = (𝐴↑(𝑀 − 𝑘)))
67	66	oveq2d 6074	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))))
68		fveq2 5675	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → (𝐹‘𝑖) = (𝐹‘𝑘))
69	64, 67, 68	ifbieq12d 3653	. . . . . . 7 ⊢ (𝑖 = 𝑘 → if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
70		eqid 2234	. . . . . . 7 ⊢ (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖))) = (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))
71	69, 70	fvmptg 5758	. . . . . 6 ⊢ ((𝑘 ∈ ℕ ∧ if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
72	24, 63, 71	syl2anc 411	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
73	17, 18, 21	lensymd 8412	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → ¬ 𝑘 < 𝑀)
74	73	iffalsed 3636	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = (𝐹‘𝑘))
75	72, 74	eqtr2d 2268	. . . 4 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑘) = ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘))
76		addcl 8268	. . . . 5 ⊢ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 + 𝑦) ∈ ℂ)
77	76	adantl 277	. . . 4 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 + 𝑦) ∈ ℂ)
78	2, 12, 75, 77	seq3feq 10869	. . 3 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → seq𝑀( + , 𝐹) = seq𝑀( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))))
79	33	adantr 276	. . . . 5 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 𝐴 ∈ ℝ)
80		cvgratz.4	. . . . . 6 ⊢ (𝜑 → 𝐴 < 1)
81	80	adantr 276	. . . . 5 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 𝐴 < 1)
82	34	adantr 276	. . . . 5 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 0 < 𝐴)
83	71	eleq1d 2303	. . . . . . . 8 ⊢ ((𝑘 ∈ ℕ ∧ if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ) → (((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) ∈ ℂ ↔ if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ))
84	40, 61, 83	syl2anc 411	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → (((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) ∈ ℂ ↔ if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ))
85	61, 84	mpbird 167	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) ∈ ℂ)
86	25, 85	sylan2b 287	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) ∈ ℂ)
87	31	ad3antrrr 492	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐹‘𝑀) ∈ ℂ)
88	35	ad3antrrr 492	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝐴 ∈ ℝ⁺)
89	2	ad2antrr 488	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑀 ∈ ℤ)
90	25, 41	sylan2b 287	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℤ)
91	90	adantr 276	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑘 ∈ ℤ)
92	91	peano2zd 9724	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℤ)
93	89, 92	zsubcld 9726	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑀 − (𝑘 + 1)) ∈ ℤ)
94	88, 93	rpexpcld 11087	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴↑(𝑀 − (𝑘 + 1))) ∈ ℝ⁺)
95	94	rpcnd 10052	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴↑(𝑀 − (𝑘 + 1))) ∈ ℂ)
96	94	rpap0d 10056	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴↑(𝑀 − (𝑘 + 1))) # 0)
97	87, 95, 96	divclapd 9084	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))) ∈ ℂ)
98		fveq2 5675	. . . . . . . . . . . 12 ⊢ (𝑎 = (𝑘 + 1) → (𝐹‘𝑎) = (𝐹‘(𝑘 + 1)))
99	98	eleq1d 2303	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑘 + 1) → ((𝐹‘𝑎) ∈ ℂ ↔ (𝐹‘(𝑘 + 1)) ∈ ℂ))
100		fveq2 5675	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑎 → (𝐹‘𝑘) = (𝐹‘𝑎))
101	100	eleq1d 2303	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑎 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘𝑎) ∈ ℂ))
102	101	cbvralv 2780	. . . . . . . . . . . . 13 ⊢ (∀𝑘 ∈ 𝑍 (𝐹‘𝑘) ∈ ℂ ↔ ∀𝑎 ∈ 𝑍 (𝐹‘𝑎) ∈ ℂ)
103	6, 102	sylib 122	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑎 ∈ 𝑍 (𝐹‘𝑎) ∈ ℂ)
104	103	ad3antrrr 492	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → ∀𝑎 ∈ 𝑍 (𝐹‘𝑎) ∈ ℂ)
105	2	ad2antrr 488	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → 𝑀 ∈ ℤ)
106		peano2nn 9269	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
107	106	adantl 277	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℕ)
108	107	nnzd 9720	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℤ)
109	108	adantr 276	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℤ)
110	16	ad3antrrr 492	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → 𝑀 ∈ ℝ)
111	107	nnred 9270	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℝ)
112	111	adantr 276	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℝ)
113		simpr 110	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → ¬ (𝑘 + 1) < 𝑀)
114	110, 112, 113	nltled 8411	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → 𝑀 ≤ (𝑘 + 1))
115		eluz2 9880	. . . . . . . . . . . . 13 ⊢ ((𝑘 + 1) ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ (𝑘 + 1) ∈ ℤ ∧ 𝑀 ≤ (𝑘 + 1)))
116	105, 109, 114, 115	syl3anbrc 1208	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ (ℤ_≥‘𝑀))
117	116, 8	eleqtrrdi 2328	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ 𝑍)
118	99, 104, 117	rspcdva 2928	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝐹‘(𝑘 + 1)) ∈ ℂ)
119	2	adantr 276	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℤ)
120		zdclt 9675	. . . . . . . . . . 11 ⊢ (((𝑘 + 1) ∈ ℤ ∧ 𝑀 ∈ ℤ) → DECID (𝑘 + 1) < 𝑀)
121	108, 119, 120	syl2anc 411	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → DECID (𝑘 + 1) < 𝑀)
122	97, 118, 121	ifcldadc 3656	. . . . . . . . 9 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) ∈ ℂ)
123	122	abscld 11894	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ∈ ℝ)
124	16	recnd 8318	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑀 ∈ ℂ)
125	124	ad2antrr 488	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℂ)
126		simpr 110	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
127	126	nncnd 9271	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℂ)
128		1cnd 8306	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 1 ∈ ℂ)
129	125, 127, 128	subsub4d 8632	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑀 − 𝑘) − 1) = (𝑀 − (𝑘 + 1)))
130	129	oveq2d 6074	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑((𝑀 − 𝑘) − 1)) = (𝐴↑(𝑀 − (𝑘 + 1))))
131	33	recnd 8318	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 ∈ ℂ)
132	131	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝐴 ∈ ℂ)
133	33, 34	gt0ap0d 8921	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 # 0)
134	133	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝐴 # 0)
135	119, 90	zsubcld 9726	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑀 − 𝑘) ∈ ℤ)
136	132, 134, 135	expm1apd 11073	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑((𝑀 − 𝑘) − 1)) = ((𝐴↑(𝑀 − 𝑘)) / 𝐴))
137	130, 136	eqtr3d 2269	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑(𝑀 − (𝑘 + 1))) = ((𝐴↑(𝑀 − 𝑘)) / 𝐴))
138	137	oveq2d 6074	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))) = ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)))
139	138	adantr 276	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))) = ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)))
140		simpr 110	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑘 + 1) < 𝑀)
141	140	iftrued 3633	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))))
142	126	nnred 9270	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℝ)
143	142	adantr 276	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑘 ∈ ℝ)
144		peano2re 8426	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℝ → (𝑘 + 1) ∈ ℝ)
145	143, 144	syl 14	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℝ)
146	16	ad3antrrr 492	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑀 ∈ ℝ)
147	143	ltp1d 9224	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑘 < (𝑘 + 1))
148	143, 145, 146, 147, 140	lttrd 8416	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑘 < 𝑀)
149	148	iftrued 3633	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))))
150	149	oveq2d 6074	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
151	31	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑀) ∈ ℂ)
152	132, 134, 135	expclzapd 11068	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑(𝑀 − 𝑘)) ∈ ℂ)
153	132, 134, 135	expap0d 11069	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑(𝑀 − 𝑘)) # 0)
154	151, 152, 132, 153, 134	divdivap2d 9117	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)) = (((𝐹‘𝑀) · 𝐴) / (𝐴↑(𝑀 − 𝑘))))
155	151, 132	mulcomd 8311	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) · 𝐴) = (𝐴 · (𝐹‘𝑀)))
156	155	oveq1d 6073	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (((𝐹‘𝑀) · 𝐴) / (𝐴↑(𝑀 − 𝑘))) = ((𝐴 · (𝐹‘𝑀)) / (𝐴↑(𝑀 − 𝑘))))
157	132, 151, 152, 153	divassapd 9120	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐴 · (𝐹‘𝑀)) / (𝐴↑(𝑀 − 𝑘))) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
158	154, 156, 157	3eqtrd 2271	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
159	158	adantr 276	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
160	150, 159	eqtr4d 2270	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)))
161	139, 141, 160	3eqtr4d 2277	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))))
162	161	fveq2d 5679	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
163	132, 62	absmuld 11907	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
164	163	adantr 276	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
165	35	rpge0d 10054	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ 𝐴)
166	33, 165	absidd 11880	. . . . . . . . . . 11 ⊢ (𝜑 → (abs‘𝐴) = 𝐴)
167	166	oveq1d 6073	. . . . . . . . . 10 ⊢ (𝜑 → ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
168	167	ad3antrrr 492	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
169	162, 164, 168	3eqtrd 2271	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
170		eqle 8381	. . . . . . . 8 ⊢ (((abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ∈ ℝ ∧ (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))))) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
171	123, 169, 170	syl2an2r 599	. . . . . . 7 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
172	16	ad2antrr 488	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℝ)
173	111, 172	lttri3d 8404	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) = 𝑀 ↔ (¬ (𝑘 + 1) < 𝑀 ∧ ¬ 𝑀 < (𝑘 + 1))))
174	173	simprbda 383	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ¬ (𝑘 + 1) < 𝑀)
175	174	iffalsed 3636	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐹‘(𝑘 + 1)))
176		simpr 110	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝑘 + 1) = 𝑀)
177	176	fveq2d 5679	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐹‘(𝑘 + 1)) = (𝐹‘𝑀))
178	175, 177	eqtrd 2267	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐹‘𝑀))
179	178	fveq2d 5679	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (abs‘(𝐹‘𝑀)))
180	142	adantr 276	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 ∈ ℝ)
181	180	ltp1d 9224	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 < (𝑘 + 1))
182		breq2 4118	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 + 1) = 𝑀 → (𝑘 < (𝑘 + 1) ↔ 𝑘 < 𝑀))
183	182	adantl 277	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝑘 < (𝑘 + 1) ↔ 𝑘 < 𝑀))
184	181, 183	mpbid 147	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 < 𝑀)
185	184	iftrued 3633	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))))
186	176	oveq1d 6073	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ((𝑘 + 1) − 𝑘) = (𝑀 − 𝑘))
187	127	adantr 276	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 ∈ ℂ)
188		1cnd 8306	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 1 ∈ ℂ)
189	187, 188	pncan2d 8603	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ((𝑘 + 1) − 𝑘) = 1)
190	186, 189	eqtr3d 2269	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝑀 − 𝑘) = 1)
191	190	oveq2d 6074	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴↑(𝑀 − 𝑘)) = (𝐴↑1))
192	132	adantr 276	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝐴 ∈ ℂ)
193	192	exp1d 11058	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴↑1) = 𝐴)
194	191, 193	eqtrd 2267	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴↑(𝑀 − 𝑘)) = 𝐴)
195	194	oveq2d 6074	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))) = ((𝐹‘𝑀) / 𝐴))
196	185, 195	eqtrd 2267	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = ((𝐹‘𝑀) / 𝐴))
197	196	oveq2d 6074	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (𝐴 · ((𝐹‘𝑀) / 𝐴)))
198	31, 131, 133	divcanap2d 9086	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 · ((𝐹‘𝑀) / 𝐴)) = (𝐹‘𝑀))
199	198	ad3antrrr 492	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴 · ((𝐹‘𝑀) / 𝐴)) = (𝐹‘𝑀))
200	197, 199	eqtrd 2267	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (𝐹‘𝑀))
201	200	fveq2d 5679	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (abs‘(𝐹‘𝑀)))
202	167	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
203	163, 202	eqtrd 2267	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
204	203	adantr 276	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
205	179, 201, 204	3eqtr2d 2273	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
206	123, 205, 170	syl2an2r 599	. . . . . . 7 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
207		simplll 535	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝜑)
208	119	adantr 276	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑀 ∈ ℤ)
209	90	adantr 276	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑘 ∈ ℤ)
210		simpr 110	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑀 < (𝑘 + 1))
211		zleltp1 9653	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℤ ∧ 𝑘 ∈ ℤ) → (𝑀 ≤ 𝑘 ↔ 𝑀 < (𝑘 + 1)))
212	119, 209, 211	syl2an2r 599	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (𝑀 ≤ 𝑘 ↔ 𝑀 < (𝑘 + 1)))
213	210, 212	mpbird 167	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑀 ≤ 𝑘)
214	208, 209, 213, 55	syl3anbrc 1208	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑘 ∈ (ℤ_≥‘𝑀))
215	214, 8	eleqtrrdi 2328	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑘 ∈ 𝑍)
216		cvgratz.7	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑍) → (abs‘(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (abs‘(𝐹‘𝑘))))
217	207, 215, 216	syl2anc 411	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (abs‘(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (abs‘(𝐹‘𝑘))))
218	172	adantr 276	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑀 ∈ ℝ)
219	111	adantr 276	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (𝑘 + 1) ∈ ℝ)
220	218, 219, 210	ltnsymd 8410	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → ¬ (𝑘 + 1) < 𝑀)
221	220	iffalsed 3636	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐹‘(𝑘 + 1)))
222	221	fveq2d 5679	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (abs‘(𝐹‘(𝑘 + 1))))
223	142	adantr 276	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑘 ∈ ℝ)
224	218, 223, 213	lensymd 8412	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → ¬ 𝑘 < 𝑀)
225	224	iffalsed 3636	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = (𝐹‘𝑘))
226	225	fveq2d 5679	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (abs‘(𝐹‘𝑘)))
227	226	oveq2d 6074	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘(𝐹‘𝑘))))
228	217, 222, 227	3brtr4d 4146	. . . . . . 7 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
229		ztri3or 9640	. . . . . . . 8 ⊢ (((𝑘 + 1) ∈ ℤ ∧ 𝑀 ∈ ℤ) → ((𝑘 + 1) < 𝑀 ∨ (𝑘 + 1) = 𝑀 ∨ 𝑀 < (𝑘 + 1)))
230	108, 119, 229	syl2anc 411	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) < 𝑀 ∨ (𝑘 + 1) = 𝑀 ∨ 𝑀 < (𝑘 + 1)))
231	171, 206, 228, 230	mpjao3dan 1344	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
232		breq1 4117	. . . . . . . . . 10 ⊢ (𝑖 = (𝑘 + 1) → (𝑖 < 𝑀 ↔ (𝑘 + 1) < 𝑀))
233		oveq2 6066	. . . . . . . . . . . 12 ⊢ (𝑖 = (𝑘 + 1) → (𝑀 − 𝑖) = (𝑀 − (𝑘 + 1)))
234	233	oveq2d 6074	. . . . . . . . . . 11 ⊢ (𝑖 = (𝑘 + 1) → (𝐴↑(𝑀 − 𝑖)) = (𝐴↑(𝑀 − (𝑘 + 1))))
235	234	oveq2d 6074	. . . . . . . . . 10 ⊢ (𝑖 = (𝑘 + 1) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))))
236		fveq2 5675	. . . . . . . . . 10 ⊢ (𝑖 = (𝑘 + 1) → (𝐹‘𝑖) = (𝐹‘(𝑘 + 1)))
237	232, 235, 236	ifbieq12d 3653	. . . . . . . . 9 ⊢ (𝑖 = (𝑘 + 1) → if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)) = if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))))
238	237, 70	fvmptg 5758	. . . . . . . 8 ⊢ (((𝑘 + 1) ∈ ℕ ∧ if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) ∈ ℂ) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘(𝑘 + 1)) = if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))))
239	107, 122, 238	syl2anc 411	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘(𝑘 + 1)) = if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))))
240	239	fveq2d 5679	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘(𝑘 + 1))) = (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))))
241	126, 62, 71	syl2anc 411	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
242	241	fveq2d 5679	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘)) = (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))))
243	242	oveq2d 6074	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴 · (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
244	231, 240, 243	3brtr4d 4146	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘(𝑘 + 1))) ≤ (𝐴 · (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘))))
245	79, 81, 82, 86, 244	cvgratnn 12245	. . . 4 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → seq1( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ )
246		eqid 2234	. . . . 5 ⊢ (ℤ_≥‘1) = (ℤ_≥‘1)
247		1zzd 9624	. . . . . 6 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 1 ∈ ℤ)
248		simpr 110	. . . . . 6 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 1 ≤ 𝑀)
249		eluz2 9880	. . . . . 6 ⊢ (𝑀 ∈ (ℤ_≥‘1) ↔ (1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 1 ≤ 𝑀))
250	247, 2, 248, 249	syl3anbrc 1208	. . . . 5 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 𝑀 ∈ (ℤ_≥‘1))
251	246, 250, 85	iserex 12052	. . . 4 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → (seq1( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ ↔ seq𝑀( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ ))
252	245, 251	mpbid 147	. . 3 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → seq𝑀( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ )
253	78, 252	eqeltrd 2311	. 2 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → seq𝑀( + , 𝐹) ∈ dom ⇝ )
254	33	adantr 276	. . . 4 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 𝐴 ∈ ℝ)
255	80	adantr 276	. . . 4 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 𝐴 < 1)
256	34	adantr 276	. . . 4 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 0 < 𝐴)
257	1	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 𝑀 ∈ ℤ)
258	257	adantr 276	. . . . . 6 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℤ)
259		nnz 9616	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
260	259	adantl 277	. . . . . 6 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℤ)
261	258	zred 9721	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℝ)
262		1red 8305	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 1 ∈ ℝ)
263	260	zred 9721	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℝ)
264		simplr 529	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑀 ≤ 1)
265		nnge1 9280	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → 1 ≤ 𝑘)
266	265	adantl 277	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 1 ≤ 𝑘)
267	261, 262, 263, 264, 266	letrd 8414	. . . . . 6 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑀 ≤ 𝑘)
268	258, 260, 267, 55	syl3anbrc 1208	. . . . 5 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ (ℤ_≥‘𝑀))
269	8	eleq2i 2301	. . . . . . 7 ⊢ (𝑘 ∈ 𝑍 ↔ 𝑘 ∈ (ℤ_≥‘𝑀))
270	269, 5	sylan2br 288	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑘) ∈ ℂ)
271	270	adantlr 477	. . . . 5 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑘) ∈ ℂ)
272	268, 271	syldan 282	. . . 4 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑘) ∈ ℂ)
273	269, 216	sylan2br 288	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (abs‘(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (abs‘(𝐹‘𝑘))))
274	273	adantlr 477	. . . . 5 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (abs‘(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (abs‘(𝐹‘𝑘))))
275	268, 274	syldan 282	. . . 4 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → (abs‘(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (abs‘(𝐹‘𝑘))))
276	254, 255, 256, 272, 275	cvgratnn 12245	. . 3 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → seq1( + , 𝐹) ∈ dom ⇝ )
277		eqid 2234	. . . 4 ⊢ (ℤ_≥‘𝑀) = (ℤ_≥‘𝑀)
278		1zzd 9624	. . . . 5 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 1 ∈ ℤ)
279		simpr 110	. . . . 5 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 𝑀 ≤ 1)
280		eluz2 9880	. . . . 5 ⊢ (1 ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ 1 ∈ ℤ ∧ 𝑀 ≤ 1))
281	257, 278, 279, 280	syl3anbrc 1208	. . . 4 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 1 ∈ (ℤ_≥‘𝑀))
282	277, 281, 271	iserex 12052	. . 3 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → (seq𝑀( + , 𝐹) ∈ dom ⇝ ↔ seq1( + , 𝐹) ∈ dom ⇝ ))
283	276, 282	mpbird 167	. 2 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → seq𝑀( + , 𝐹) ∈ dom ⇝ )
284		1z 9623	. . 3 ⊢ 1 ∈ ℤ
285		zletric 9641	. . 3 ⊢ ((1 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (1 ≤ 𝑀 ∨ 𝑀 ≤ 1))
286	284, 1, 285	sylancr 414	. 2 ⊢ (𝜑 → (1 ≤ 𝑀 ∨ 𝑀 ≤ 1))
287	253, 283, 286	mpjaodan 806	1 ⊢ (𝜑 → seq𝑀( + , 𝐹) ∈ dom ⇝ )

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 716 DECID wdc 842 ∨ w3o 1004 = wceq 1398 ∈ wcel 2205 ∀wral 2522 ifcif 3624 class class class wbr 4114 ↦ cmpt 4176 dom cdm 4754 ‘cfv 5357 (class class class)co 6058 ℂcc 8141 ℝcr 8142 0cc0 8143 1c1 8144 + caddc 8146 · cmul 8148 < clt 8324 ≤ cle 8325 − cmin 8461 # cap 8873 / cdiv 8966 ℕcn 9257 ℤcz 9597 ℤ_≥cuz 9874 ℝ⁺crp 10007 seqcseq 10836 ↑cexp 10927 abscabs 11710 ⇝ cli 11991

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 717 ax-5 1496 ax-7 1497 ax-gen 1498 ax-ie1 1542 ax-ie2 1543 ax-8 1553 ax-10 1554 ax-11 1555 ax-i12 1556 ax-bndl 1558 ax-4 1559 ax-17 1575 ax-i9 1579 ax-ial 1583 ax-i5r 1584 ax-13 2207 ax-14 2208 ax-ext 2216 ax-coll 4230 ax-sep 4233 ax-nul 4241 ax-pow 4292 ax-pr 4327 ax-un 4559 ax-setind 4664 ax-iinf 4715 ax-cnex 8234 ax-resscn 8235 ax-1cn 8236 ax-1re 8237 ax-icn 8238 ax-addcl 8239 ax-addrcl 8240 ax-mulcl 8241 ax-mulrcl 8242 ax-addcom 8243 ax-mulcom 8244 ax-addass 8245 ax-mulass 8246 ax-distr 8247 ax-i2m1 8248 ax-0lt1 8249 ax-1rid 8250 ax-0id 8251 ax-rnegex 8252 ax-precex 8253 ax-cnre 8254 ax-pre-ltirr 8255 ax-pre-ltwlin 8256 ax-pre-lttrn 8257 ax-pre-apti 8258 ax-pre-ltadd 8259 ax-pre-mulgt0 8260 ax-pre-mulext 8261 ax-arch 8262 ax-caucvg 8263

This theorem depends on definitions: df-bi 117 df-dc 843 df-3or 1006 df-3an 1007 df-tru 1401 df-fal 1404 df-nf 1510 df-sb 1812 df-eu 2085 df-mo 2086 df-clab 2221 df-cleq 2227 df-clel 2230 df-nfc 2375 df-ne 2415 df-nel 2510 df-ral 2527 df-rex 2528 df-reu 2529 df-rmo 2530 df-rab 2531 df-v 2817 df-sbc 3046 df-csb 3142 df-dif 3216 df-un 3218 df-in 3220 df-ss 3227 df-nul 3513 df-if 3625 df-pw 3676 df-sn 3700 df-pr 3701 df-op 3703 df-uni 3920 df-int 3955 df-iun 3998 df-br 4115 df-opab 4177 df-mpt 4178 df-tr 4214 df-id 4419 df-po 4422 df-iso 4423 df-iord 4492 df-on 4494 df-ilim 4495 df-suc 4497 df-iom 4718 df-xp 4760 df-rel 4761 df-cnv 4762 df-co 4763 df-dm 4764 df-rn 4765 df-res 4766 df-ima 4767 df-iota 5317 df-fun 5359 df-fn 5360 df-f 5361 df-f1 5362 df-fo 5363 df-f1o 5364 df-fv 5365 df-isom 5366 df-riota 6011 df-ov 6061 df-oprab 6062 df-mpo 6063 df-1st 6347 df-2nd 6348 df-recs 6549 df-irdg 6614 df-frec 6635 df-1o 6660 df-oadd 6664 df-er 6780 df-en 6989 df-dom 6990 df-fin 6991 df-pnf 8326 df-mnf 8327 df-xr 8328 df-ltxr 8329 df-le 8330 df-sub 8463 df-neg 8464 df-reap 8867 df-ap 8874 df-div 8967 df-inn 9258 df-2 9316 df-3 9317 df-4 9318 df-n0 9517 df-z 9598 df-uz 9875 df-q 9973 df-rp 10008 df-ico 10249 df-fz 10365 df-fzo 10502 df-seqfrec 10837 df-exp 10928 df-ihash 11167 df-cj 11555 df-re 11556 df-im 11557 df-rsqrt 11711 df-abs 11712 df-clim 11992 df-sumdc 12067

This theorem is referenced by: cvgratgt0 12247

W3C validator