cvgratz - Intuitionistic Logic Explorer

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

Theorem cvgratz 11887

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 5583	. . . . . 6 ⊢ (𝑘 = 𝑥 → (𝐹‘𝑘) = (𝐹‘𝑥))
4	3	eleq1d 2275	. . . . 5 ⊢ (𝑘 = 𝑥 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘𝑥) ∈ ℂ))
5		cvgratz.6	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑍) → (𝐹‘𝑘) ∈ ℂ)
6	5	ralrimiva 2580	. . . . . 6 ⊢ (𝜑 → ∀𝑘 ∈ 𝑍 (𝐹‘𝑘) ∈ ℂ)
7	6	ad2antrr 488	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑥 ∈ (ℤ_≥‘𝑀)) → ∀𝑘 ∈ 𝑍 (𝐹‘𝑘) ∈ ℂ)
8		cvgratz.1	. . . . . . . 8 ⊢ 𝑍 = (ℤ_≥‘𝑀)
9	8	eleq2i 2273	. . . . . . 7 ⊢ (𝑥 ∈ 𝑍 ↔ 𝑥 ∈ (ℤ_≥‘𝑀))
10	9	biimpri 133	. . . . . 6 ⊢ (𝑥 ∈ (ℤ_≥‘𝑀) → 𝑥 ∈ 𝑍)
11	10	adantl 277	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑥 ∈ (ℤ_≥‘𝑀)) → 𝑥 ∈ 𝑍)
12	4, 7, 11	rspcdva 2883	. . . 4 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑥 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑥) ∈ ℂ)
13		eluzelz 9664	. . . . . . . 8 ⊢ (𝑘 ∈ (ℤ_≥‘𝑀) → 𝑘 ∈ ℤ)
14	13	adantl 277	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑘 ∈ ℤ)
15		1red 8094	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 1 ∈ ℝ)
16	1	zred 9502	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℝ)
17	16	ad2antrr 488	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑀 ∈ ℝ)
18	14	zred 9502	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑘 ∈ ℝ)
19		simplr 528	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 1 ≤ 𝑀)
20		eluzle 9667	. . . . . . . . 9 ⊢ (𝑘 ∈ (ℤ_≥‘𝑀) → 𝑀 ≤ 𝑘)
21	20	adantl 277	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑀 ≤ 𝑘)
22	15, 17, 18, 19, 21	letrd 8203	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 1 ≤ 𝑘)
23		elnnz1 9402	. . . . . . 7 ⊢ (𝑘 ∈ ℕ ↔ (𝑘 ∈ ℤ ∧ 1 ≤ 𝑘))
24	14, 22, 23	sylanbrc 417	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑘 ∈ ℕ)
25		elnnuz 9692	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ ↔ 𝑘 ∈ (ℤ_≥‘1))
26		fveq2 5583	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑀 → (𝐹‘𝑘) = (𝐹‘𝑀))
27	26	eleq1d 2275	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑀 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘𝑀) ∈ ℂ))
28		uzid 9669	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ (ℤ_≥‘𝑀))
29	1, 28	syl 14	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘𝑀))
30	29, 8	eleqtrrdi 2300	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ 𝑍)
31	27, 6, 30	rspcdva 2883	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹‘𝑀) ∈ ℂ)
32	31	ad3antrrr 492	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐹‘𝑀) ∈ ℂ)
33		cvgratz.3	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ∈ ℝ)
34		cvgratz.gt0	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 < 𝐴)
35	33, 34	elrpd 9822	. . . . . . . . . . . . 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 9501	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑘 ∈ ℤ)
42	41	adantr 276	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → 𝑘 ∈ ℤ)
43	38, 42	zsubcld 9507	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝑀 − 𝑘) ∈ ℤ)
44	36, 43	rpexpcld 10849	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐴↑(𝑀 − 𝑘)) ∈ ℝ⁺)
45	44	rpcnd 9827	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐴↑(𝑀 − 𝑘)) ∈ ℂ)
46	44	rpap0d 9831	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐴↑(𝑀 − 𝑘)) # 0)
47	32, 45, 46	divclapd 8870	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))) ∈ ℂ)
48		simplll 533	. . . . . . . . . 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 9502	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑘 ∈ ℝ)
53		simpr 110	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → ¬ 𝑘 < 𝑀)
54	51, 52, 53	nltled 8200	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑀 ≤ 𝑘)
55		eluz2 9661	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ 𝑘 ∈ ℤ ∧ 𝑀 ≤ 𝑘))
56	49, 50, 54, 55	syl3anbrc 1184	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑘 ∈ (ℤ_≥‘𝑀))
57	56, 8	eleqtrrdi 2300	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑘 ∈ 𝑍)
58	48, 57, 5	syl2anc 411	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → (𝐹‘𝑘) ∈ ℂ)
59		zdclt 9457	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℤ ∧ 𝑀 ∈ ℤ) → DECID 𝑘 < 𝑀)
60	41, 37, 59	syl2anc 411	. . . . . . . . 9 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → DECID 𝑘 < 𝑀)
61	47, 58, 60	ifcldadc 3601	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ)
62	25, 61	sylan2b 287	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ)
63	24, 62	syldan 282	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ)
64		breq1 4050	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → (𝑖 < 𝑀 ↔ 𝑘 < 𝑀))
65		oveq2 5959	. . . . . . . . . 10 ⊢ (𝑖 = 𝑘 → (𝑀 − 𝑖) = (𝑀 − 𝑘))
66	65	oveq2d 5967	. . . . . . . . 9 ⊢ (𝑖 = 𝑘 → (𝐴↑(𝑀 − 𝑖)) = (𝐴↑(𝑀 − 𝑘)))
67	66	oveq2d 5967	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))))
68		fveq2 5583	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → (𝐹‘𝑖) = (𝐹‘𝑘))
69	64, 67, 68	ifbieq12d 3598	. . . . . . 7 ⊢ (𝑖 = 𝑘 → if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
70		eqid 2206	. . . . . . 7 ⊢ (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖))) = (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))
71	69, 70	fvmptg 5662	. . . . . 6 ⊢ ((𝑘 ∈ ℕ ∧ if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
72	24, 63, 71	syl2anc 411	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
73	17, 18, 21	lensymd 8201	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → ¬ 𝑘 < 𝑀)
74	73	iffalsed 3582	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = (𝐹‘𝑘))
75	72, 74	eqtr2d 2240	. . . 4 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑘) = ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘))
76		addcl 8057	. . . . 5 ⊢ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 + 𝑦) ∈ ℂ)
77	76	adantl 277	. . . 4 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 + 𝑦) ∈ ℂ)
78	2, 12, 75, 77	seq3feq 10632	. . 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 2275	. . . . . . . 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 9505	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℤ)
93	89, 92	zsubcld 9507	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑀 − (𝑘 + 1)) ∈ ℤ)
94	88, 93	rpexpcld 10849	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴↑(𝑀 − (𝑘 + 1))) ∈ ℝ⁺)
95	94	rpcnd 9827	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴↑(𝑀 − (𝑘 + 1))) ∈ ℂ)
96	94	rpap0d 9831	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴↑(𝑀 − (𝑘 + 1))) # 0)
97	87, 95, 96	divclapd 8870	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))) ∈ ℂ)
98		fveq2 5583	. . . . . . . . . . . 12 ⊢ (𝑎 = (𝑘 + 1) → (𝐹‘𝑎) = (𝐹‘(𝑘 + 1)))
99	98	eleq1d 2275	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑘 + 1) → ((𝐹‘𝑎) ∈ ℂ ↔ (𝐹‘(𝑘 + 1)) ∈ ℂ))
100		fveq2 5583	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑎 → (𝐹‘𝑘) = (𝐹‘𝑎))
101	100	eleq1d 2275	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑎 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘𝑎) ∈ ℂ))
102	101	cbvralv 2739	. . . . . . . . . . . . 13 ⊢ (∀𝑘 ∈ 𝑍 (𝐹‘𝑘) ∈ ℂ ↔ ∀𝑎 ∈ 𝑍 (𝐹‘𝑎) ∈ ℂ)
103	6, 102	sylib 122	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑎 ∈ 𝑍 (𝐹‘𝑎) ∈ ℂ)
104	103	ad3antrrr 492	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → ∀𝑎 ∈ 𝑍 (𝐹‘𝑎) ∈ ℂ)
105	2	ad2antrr 488	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → 𝑀 ∈ ℤ)
106		peano2nn 9055	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
107	106	adantl 277	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℕ)
108	107	nnzd 9501	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℤ)
109	108	adantr 276	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℤ)
110	16	ad3antrrr 492	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → 𝑀 ∈ ℝ)
111	107	nnred 9056	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℝ)
112	111	adantr 276	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℝ)
113		simpr 110	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → ¬ (𝑘 + 1) < 𝑀)
114	110, 112, 113	nltled 8200	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → 𝑀 ≤ (𝑘 + 1))
115		eluz2 9661	. . . . . . . . . . . . 13 ⊢ ((𝑘 + 1) ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ (𝑘 + 1) ∈ ℤ ∧ 𝑀 ≤ (𝑘 + 1)))
116	105, 109, 114, 115	syl3anbrc 1184	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ (ℤ_≥‘𝑀))
117	116, 8	eleqtrrdi 2300	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ 𝑍)
118	99, 104, 117	rspcdva 2883	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝐹‘(𝑘 + 1)) ∈ ℂ)
119	2	adantr 276	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℤ)
120		zdclt 9457	. . . . . . . . . . 11 ⊢ (((𝑘 + 1) ∈ ℤ ∧ 𝑀 ∈ ℤ) → DECID (𝑘 + 1) < 𝑀)
121	108, 119, 120	syl2anc 411	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → DECID (𝑘 + 1) < 𝑀)
122	97, 118, 121	ifcldadc 3601	. . . . . . . . 9 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) ∈ ℂ)
123	122	abscld 11536	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ∈ ℝ)
124	16	recnd 8108	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑀 ∈ ℂ)
125	124	ad2antrr 488	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℂ)
126		simpr 110	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
127	126	nncnd 9057	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℂ)
128		1cnd 8095	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 1 ∈ ℂ)
129	125, 127, 128	subsub4d 8421	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑀 − 𝑘) − 1) = (𝑀 − (𝑘 + 1)))
130	129	oveq2d 5967	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑((𝑀 − 𝑘) − 1)) = (𝐴↑(𝑀 − (𝑘 + 1))))
131	33	recnd 8108	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 ∈ ℂ)
132	131	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝐴 ∈ ℂ)
133	33, 34	gt0ap0d 8709	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 # 0)
134	133	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝐴 # 0)
135	119, 90	zsubcld 9507	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑀 − 𝑘) ∈ ℤ)
136	132, 134, 135	expm1apd 10835	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑((𝑀 − 𝑘) − 1)) = ((𝐴↑(𝑀 − 𝑘)) / 𝐴))
137	130, 136	eqtr3d 2241	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑(𝑀 − (𝑘 + 1))) = ((𝐴↑(𝑀 − 𝑘)) / 𝐴))
138	137	oveq2d 5967	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))) = ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)))
139	138	adantr 276	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))) = ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)))
140		simpr 110	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑘 + 1) < 𝑀)
141	140	iftrued 3579	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))))
142	126	nnred 9056	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℝ)
143	142	adantr 276	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑘 ∈ ℝ)
144		peano2re 8215	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℝ → (𝑘 + 1) ∈ ℝ)
145	143, 144	syl 14	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℝ)
146	16	ad3antrrr 492	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑀 ∈ ℝ)
147	143	ltp1d 9010	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑘 < (𝑘 + 1))
148	143, 145, 146, 147, 140	lttrd 8205	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑘 < 𝑀)
149	148	iftrued 3579	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))))
150	149	oveq2d 5967	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
151	31	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑀) ∈ ℂ)
152	132, 134, 135	expclzapd 10830	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑(𝑀 − 𝑘)) ∈ ℂ)
153	132, 134, 135	expap0d 10831	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑(𝑀 − 𝑘)) # 0)
154	151, 152, 132, 153, 134	divdivap2d 8903	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)) = (((𝐹‘𝑀) · 𝐴) / (𝐴↑(𝑀 − 𝑘))))
155	151, 132	mulcomd 8101	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) · 𝐴) = (𝐴 · (𝐹‘𝑀)))
156	155	oveq1d 5966	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (((𝐹‘𝑀) · 𝐴) / (𝐴↑(𝑀 − 𝑘))) = ((𝐴 · (𝐹‘𝑀)) / (𝐴↑(𝑀 − 𝑘))))
157	132, 151, 152, 153	divassapd 8906	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐴 · (𝐹‘𝑀)) / (𝐴↑(𝑀 − 𝑘))) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
158	154, 156, 157	3eqtrd 2243	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
159	158	adantr 276	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
160	150, 159	eqtr4d 2242	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)))
161	139, 141, 160	3eqtr4d 2249	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))))
162	161	fveq2d 5587	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
163	132, 62	absmuld 11549	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
164	163	adantr 276	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
165	35	rpge0d 9829	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ 𝐴)
166	33, 165	absidd 11522	. . . . . . . . . . 11 ⊢ (𝜑 → (abs‘𝐴) = 𝐴)
167	166	oveq1d 5966	. . . . . . . . . 10 ⊢ (𝜑 → ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
168	167	ad3antrrr 492	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
169	162, 164, 168	3eqtrd 2243	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
170		eqle 8171	. . . . . . . 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 595	. . . . . . 7 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
172	16	ad2antrr 488	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℝ)
173	111, 172	lttri3d 8194	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) = 𝑀 ↔ (¬ (𝑘 + 1) < 𝑀 ∧ ¬ 𝑀 < (𝑘 + 1))))
174	173	simprbda 383	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ¬ (𝑘 + 1) < 𝑀)
175	174	iffalsed 3582	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐹‘(𝑘 + 1)))
176		simpr 110	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝑘 + 1) = 𝑀)
177	176	fveq2d 5587	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐹‘(𝑘 + 1)) = (𝐹‘𝑀))
178	175, 177	eqtrd 2239	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐹‘𝑀))
179	178	fveq2d 5587	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (abs‘(𝐹‘𝑀)))
180	142	adantr 276	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 ∈ ℝ)
181	180	ltp1d 9010	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 < (𝑘 + 1))
182		breq2 4051	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 + 1) = 𝑀 → (𝑘 < (𝑘 + 1) ↔ 𝑘 < 𝑀))
183	182	adantl 277	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝑘 < (𝑘 + 1) ↔ 𝑘 < 𝑀))
184	181, 183	mpbid 147	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 < 𝑀)
185	184	iftrued 3579	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))))
186	176	oveq1d 5966	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ((𝑘 + 1) − 𝑘) = (𝑀 − 𝑘))
187	127	adantr 276	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 ∈ ℂ)
188		1cnd 8095	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 1 ∈ ℂ)
189	187, 188	pncan2d 8392	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ((𝑘 + 1) − 𝑘) = 1)
190	186, 189	eqtr3d 2241	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝑀 − 𝑘) = 1)
191	190	oveq2d 5967	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴↑(𝑀 − 𝑘)) = (𝐴↑1))
192	132	adantr 276	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝐴 ∈ ℂ)
193	192	exp1d 10820	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴↑1) = 𝐴)
194	191, 193	eqtrd 2239	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴↑(𝑀 − 𝑘)) = 𝐴)
195	194	oveq2d 5967	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))) = ((𝐹‘𝑀) / 𝐴))
196	185, 195	eqtrd 2239	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = ((𝐹‘𝑀) / 𝐴))
197	196	oveq2d 5967	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (𝐴 · ((𝐹‘𝑀) / 𝐴)))
198	31, 131, 133	divcanap2d 8872	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 · ((𝐹‘𝑀) / 𝐴)) = (𝐹‘𝑀))
199	198	ad3antrrr 492	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴 · ((𝐹‘𝑀) / 𝐴)) = (𝐹‘𝑀))
200	197, 199	eqtrd 2239	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (𝐹‘𝑀))
201	200	fveq2d 5587	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (abs‘(𝐹‘𝑀)))
202	167	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
203	163, 202	eqtrd 2239	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
204	203	adantr 276	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
205	179, 201, 204	3eqtr2d 2245	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
206	123, 205, 170	syl2an2r 595	. . . . . . 7 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
207		simplll 533	. . . . . . . . 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 9435	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℤ ∧ 𝑘 ∈ ℤ) → (𝑀 ≤ 𝑘 ↔ 𝑀 < (𝑘 + 1)))
212	119, 209, 211	syl2an2r 595	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (𝑀 ≤ 𝑘 ↔ 𝑀 < (𝑘 + 1)))
213	210, 212	mpbird 167	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑀 ≤ 𝑘)
214	208, 209, 213, 55	syl3anbrc 1184	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑘 ∈ (ℤ_≥‘𝑀))
215	214, 8	eleqtrrdi 2300	. . . . . . . . 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 8199	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → ¬ (𝑘 + 1) < 𝑀)
221	220	iffalsed 3582	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐹‘(𝑘 + 1)))
222	221	fveq2d 5587	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (abs‘(𝐹‘(𝑘 + 1))))
223	142	adantr 276	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑘 ∈ ℝ)
224	218, 223, 213	lensymd 8201	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → ¬ 𝑘 < 𝑀)
225	224	iffalsed 3582	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = (𝐹‘𝑘))
226	225	fveq2d 5587	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (abs‘(𝐹‘𝑘)))
227	226	oveq2d 5967	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘(𝐹‘𝑘))))
228	217, 222, 227	3brtr4d 4079	. . . . . . 7 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
229		ztri3or 9422	. . . . . . . 8 ⊢ (((𝑘 + 1) ∈ ℤ ∧ 𝑀 ∈ ℤ) → ((𝑘 + 1) < 𝑀 ∨ (𝑘 + 1) = 𝑀 ∨ 𝑀 < (𝑘 + 1)))
230	108, 119, 229	syl2anc 411	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) < 𝑀 ∨ (𝑘 + 1) = 𝑀 ∨ 𝑀 < (𝑘 + 1)))
231	171, 206, 228, 230	mpjao3dan 1320	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
232		breq1 4050	. . . . . . . . . 10 ⊢ (𝑖 = (𝑘 + 1) → (𝑖 < 𝑀 ↔ (𝑘 + 1) < 𝑀))
233		oveq2 5959	. . . . . . . . . . . 12 ⊢ (𝑖 = (𝑘 + 1) → (𝑀 − 𝑖) = (𝑀 − (𝑘 + 1)))
234	233	oveq2d 5967	. . . . . . . . . . 11 ⊢ (𝑖 = (𝑘 + 1) → (𝐴↑(𝑀 − 𝑖)) = (𝐴↑(𝑀 − (𝑘 + 1))))
235	234	oveq2d 5967	. . . . . . . . . 10 ⊢ (𝑖 = (𝑘 + 1) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))))
236		fveq2 5583	. . . . . . . . . 10 ⊢ (𝑖 = (𝑘 + 1) → (𝐹‘𝑖) = (𝐹‘(𝑘 + 1)))
237	232, 235, 236	ifbieq12d 3598	. . . . . . . . 9 ⊢ (𝑖 = (𝑘 + 1) → if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)) = if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))))
238	237, 70	fvmptg 5662	. . . . . . . 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 5587	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘(𝑘 + 1))) = (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))))
241	126, 62, 71	syl2anc 411	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
242	241	fveq2d 5587	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘)) = (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))))
243	242	oveq2d 5967	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴 · (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
244	231, 240, 243	3brtr4d 4079	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘(𝑘 + 1))) ≤ (𝐴 · (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘))))
245	79, 81, 82, 86, 244	cvgratnn 11886	. . . 4 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → seq1( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ )
246		eqid 2206	. . . . 5 ⊢ (ℤ_≥‘1) = (ℤ_≥‘1)
247		1zzd 9406	. . . . . 6 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 1 ∈ ℤ)
248		simpr 110	. . . . . 6 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 1 ≤ 𝑀)
249		eluz2 9661	. . . . . 6 ⊢ (𝑀 ∈ (ℤ_≥‘1) ↔ (1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 1 ≤ 𝑀))
250	247, 2, 248, 249	syl3anbrc 1184	. . . . 5 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 𝑀 ∈ (ℤ_≥‘1))
251	246, 250, 85	iserex 11694	. . . 4 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → (seq1( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ ↔ seq𝑀( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ ))
252	245, 251	mpbid 147	. . 3 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → seq𝑀( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ )
253	78, 252	eqeltrd 2283	. 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 9398	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
260	259	adantl 277	. . . . . 6 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℤ)
261	258	zred 9502	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℝ)
262		1red 8094	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 1 ∈ ℝ)
263	260	zred 9502	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℝ)
264		simplr 528	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑀 ≤ 1)
265		nnge1 9066	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → 1 ≤ 𝑘)
266	265	adantl 277	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 1 ≤ 𝑘)
267	261, 262, 263, 264, 266	letrd 8203	. . . . . 6 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑀 ≤ 𝑘)
268	258, 260, 267, 55	syl3anbrc 1184	. . . . 5 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ (ℤ_≥‘𝑀))
269	8	eleq2i 2273	. . . . . . 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 11886	. . 3 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → seq1( + , 𝐹) ∈ dom ⇝ )
277		eqid 2206	. . . 4 ⊢ (ℤ_≥‘𝑀) = (ℤ_≥‘𝑀)
278		1zzd 9406	. . . . 5 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 1 ∈ ℤ)
279		simpr 110	. . . . 5 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 𝑀 ≤ 1)
280		eluz2 9661	. . . . 5 ⊢ (1 ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ 1 ∈ ℤ ∧ 𝑀 ≤ 1))
281	257, 278, 279, 280	syl3anbrc 1184	. . . 4 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 1 ∈ (ℤ_≥‘𝑀))
282	277, 281, 271	iserex 11694	. . 3 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → (seq𝑀( + , 𝐹) ∈ dom ⇝ ↔ seq1( + , 𝐹) ∈ dom ⇝ ))
283	276, 282	mpbird 167	. 2 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → seq𝑀( + , 𝐹) ∈ dom ⇝ )
284		1z 9405	. . 3 ⊢ 1 ∈ ℤ
285		zletric 9423	. . 3 ⊢ ((1 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (1 ≤ 𝑀 ∨ 𝑀 ≤ 1))
286	284, 1, 285	sylancr 414	. 2 ⊢ (𝜑 → (1 ≤ 𝑀 ∨ 𝑀 ≤ 1))
287	253, 283, 286	mpjaodan 800	1 ⊢ (𝜑 → seq𝑀( + , 𝐹) ∈ dom ⇝ )

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 710 DECID wdc 836 ∨ w3o 980 = wceq 1373 ∈ wcel 2177 ∀wral 2485 ifcif 3572 class class class wbr 4047 ↦ cmpt 4109 dom cdm 4679 ‘cfv 5276 (class class class)co 5951 ℂcc 7930 ℝcr 7931 0cc0 7932 1c1 7933 + caddc 7935 · cmul 7937 < clt 8114 ≤ cle 8115 − cmin 8250 # cap 8661 / cdiv 8752 ℕcn 9043 ℤcz 9379 ℤ_≥cuz 9655 ℝ⁺crp 9782 seqcseq 10599 ↑cexp 10690 abscabs 11352 ⇝ cli 11633

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 711 ax-5 1471 ax-7 1472 ax-gen 1473 ax-ie1 1517 ax-ie2 1518 ax-8 1528 ax-10 1529 ax-11 1530 ax-i12 1531 ax-bndl 1533 ax-4 1534 ax-17 1550 ax-i9 1554 ax-ial 1558 ax-i5r 1559 ax-13 2179 ax-14 2180 ax-ext 2188 ax-coll 4163 ax-sep 4166 ax-nul 4174 ax-pow 4222 ax-pr 4257 ax-un 4484 ax-setind 4589 ax-iinf 4640 ax-cnex 8023 ax-resscn 8024 ax-1cn 8025 ax-1re 8026 ax-icn 8027 ax-addcl 8028 ax-addrcl 8029 ax-mulcl 8030 ax-mulrcl 8031 ax-addcom 8032 ax-mulcom 8033 ax-addass 8034 ax-mulass 8035 ax-distr 8036 ax-i2m1 8037 ax-0lt1 8038 ax-1rid 8039 ax-0id 8040 ax-rnegex 8041 ax-precex 8042 ax-cnre 8043 ax-pre-ltirr 8044 ax-pre-ltwlin 8045 ax-pre-lttrn 8046 ax-pre-apti 8047 ax-pre-ltadd 8048 ax-pre-mulgt0 8049 ax-pre-mulext 8050 ax-arch 8051 ax-caucvg 8052

This theorem depends on definitions: df-bi 117 df-dc 837 df-3or 982 df-3an 983 df-tru 1376 df-fal 1379 df-nf 1485 df-sb 1787 df-eu 2058 df-mo 2059 df-clab 2193 df-cleq 2199 df-clel 2202 df-nfc 2338 df-ne 2378 df-nel 2473 df-ral 2490 df-rex 2491 df-reu 2492 df-rmo 2493 df-rab 2494 df-v 2775 df-sbc 3000 df-csb 3095 df-dif 3169 df-un 3171 df-in 3173 df-ss 3180 df-nul 3462 df-if 3573 df-pw 3619 df-sn 3640 df-pr 3641 df-op 3643 df-uni 3853 df-int 3888 df-iun 3931 df-br 4048 df-opab 4110 df-mpt 4111 df-tr 4147 df-id 4344 df-po 4347 df-iso 4348 df-iord 4417 df-on 4419 df-ilim 4420 df-suc 4422 df-iom 4643 df-xp 4685 df-rel 4686 df-cnv 4687 df-co 4688 df-dm 4689 df-rn 4690 df-res 4691 df-ima 4692 df-iota 5237 df-fun 5278 df-fn 5279 df-f 5280 df-f1 5281 df-fo 5282 df-f1o 5283 df-fv 5284 df-isom 5285 df-riota 5906 df-ov 5954 df-oprab 5955 df-mpo 5956 df-1st 6233 df-2nd 6234 df-recs 6398 df-irdg 6463 df-frec 6484 df-1o 6509 df-oadd 6513 df-er 6627 df-en 6835 df-dom 6836 df-fin 6837 df-pnf 8116 df-mnf 8117 df-xr 8118 df-ltxr 8119 df-le 8120 df-sub 8252 df-neg 8253 df-reap 8655 df-ap 8662 df-div 8753 df-inn 9044 df-2 9102 df-3 9103 df-4 9104 df-n0 9303 df-z 9380 df-uz 9656 df-q 9748 df-rp 9783 df-ico 10023 df-fz 10138 df-fzo 10272 df-seqfrec 10600 df-exp 10691 df-ihash 10928 df-cj 11197 df-re 11198 df-im 11199 df-rsqrt 11353 df-abs 11354 df-clim 11634 df-sumdc 11709

This theorem is referenced by: cvgratgt0 11888

W3C validator