cvgratz - Intuitionistic Logic Explorer

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

Theorem cvgratz 12086

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 5635	. . . . . 6 ⊢ (𝑘 = 𝑥 → (𝐹‘𝑘) = (𝐹‘𝑥))
4	3	eleq1d 2298	. . . . 5 ⊢ (𝑘 = 𝑥 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘𝑥) ∈ ℂ))
5		cvgratz.6	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝑍) → (𝐹‘𝑘) ∈ ℂ)
6	5	ralrimiva 2603	. . . . . 6 ⊢ (𝜑 → ∀𝑘 ∈ 𝑍 (𝐹‘𝑘) ∈ ℂ)
7	6	ad2antrr 488	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑥 ∈ (ℤ_≥‘𝑀)) → ∀𝑘 ∈ 𝑍 (𝐹‘𝑘) ∈ ℂ)
8		cvgratz.1	. . . . . . . 8 ⊢ 𝑍 = (ℤ_≥‘𝑀)
9	8	eleq2i 2296	. . . . . . 7 ⊢ (𝑥 ∈ 𝑍 ↔ 𝑥 ∈ (ℤ_≥‘𝑀))
10	9	biimpri 133	. . . . . 6 ⊢ (𝑥 ∈ (ℤ_≥‘𝑀) → 𝑥 ∈ 𝑍)
11	10	adantl 277	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑥 ∈ (ℤ_≥‘𝑀)) → 𝑥 ∈ 𝑍)
12	4, 7, 11	rspcdva 2913	. . . 4 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑥 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑥) ∈ ℂ)
13		eluzelz 9758	. . . . . . . 8 ⊢ (𝑘 ∈ (ℤ_≥‘𝑀) → 𝑘 ∈ ℤ)
14	13	adantl 277	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑘 ∈ ℤ)
15		1red 8187	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 1 ∈ ℝ)
16	1	zred 9595	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℝ)
17	16	ad2antrr 488	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑀 ∈ ℝ)
18	14	zred 9595	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑘 ∈ ℝ)
19		simplr 528	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 1 ≤ 𝑀)
20		eluzle 9761	. . . . . . . . 9 ⊢ (𝑘 ∈ (ℤ_≥‘𝑀) → 𝑀 ≤ 𝑘)
21	20	adantl 277	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑀 ≤ 𝑘)
22	15, 17, 18, 19, 21	letrd 8296	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 1 ≤ 𝑘)
23		elnnz1 9495	. . . . . . 7 ⊢ (𝑘 ∈ ℕ ↔ (𝑘 ∈ ℤ ∧ 1 ≤ 𝑘))
24	14, 22, 23	sylanbrc 417	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → 𝑘 ∈ ℕ)
25		elnnuz 9786	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ ↔ 𝑘 ∈ (ℤ_≥‘1))
26		fveq2 5635	. . . . . . . . . . . . 13 ⊢ (𝑘 = 𝑀 → (𝐹‘𝑘) = (𝐹‘𝑀))
27	26	eleq1d 2298	. . . . . . . . . . . 12 ⊢ (𝑘 = 𝑀 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘𝑀) ∈ ℂ))
28		uzid 9763	. . . . . . . . . . . . . 14 ⊢ (𝑀 ∈ ℤ → 𝑀 ∈ (ℤ_≥‘𝑀))
29	1, 28	syl 14	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑀 ∈ (ℤ_≥‘𝑀))
30	29, 8	eleqtrrdi 2323	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑀 ∈ 𝑍)
31	27, 6, 30	rspcdva 2913	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹‘𝑀) ∈ ℂ)
32	31	ad3antrrr 492	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐹‘𝑀) ∈ ℂ)
33		cvgratz.3	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 ∈ ℝ)
34		cvgratz.gt0	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 < 𝐴)
35	33, 34	elrpd 9921	. . . . . . . . . . . . 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 9594	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → 𝑘 ∈ ℤ)
42	41	adantr 276	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → 𝑘 ∈ ℤ)
43	38, 42	zsubcld 9600	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝑀 − 𝑘) ∈ ℤ)
44	36, 43	rpexpcld 10952	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐴↑(𝑀 − 𝑘)) ∈ ℝ⁺)
45	44	rpcnd 9926	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐴↑(𝑀 − 𝑘)) ∈ ℂ)
46	44	rpap0d 9930	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ 𝑘 < 𝑀) → (𝐴↑(𝑀 − 𝑘)) # 0)
47	32, 45, 46	divclapd 8963	. . . . . . . . 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 9595	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑘 ∈ ℝ)
53		simpr 110	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → ¬ 𝑘 < 𝑀)
54	51, 52, 53	nltled 8293	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑀 ≤ 𝑘)
55		eluz2 9754	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ 𝑘 ∈ ℤ ∧ 𝑀 ≤ 𝑘))
56	49, 50, 54, 55	syl3anbrc 1205	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑘 ∈ (ℤ_≥‘𝑀))
57	56, 8	eleqtrrdi 2323	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → 𝑘 ∈ 𝑍)
58	48, 57, 5	syl2anc 411	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) ∧ ¬ 𝑘 < 𝑀) → (𝐹‘𝑘) ∈ ℂ)
59		zdclt 9550	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℤ ∧ 𝑀 ∈ ℤ) → DECID 𝑘 < 𝑀)
60	41, 37, 59	syl2anc 411	. . . . . . . . 9 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → DECID 𝑘 < 𝑀)
61	47, 58, 60	ifcldadc 3633	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘1)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ)
62	25, 61	sylan2b 287	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ)
63	24, 62	syldan 282	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ)
64		breq1 4089	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → (𝑖 < 𝑀 ↔ 𝑘 < 𝑀))
65		oveq2 6021	. . . . . . . . . 10 ⊢ (𝑖 = 𝑘 → (𝑀 − 𝑖) = (𝑀 − 𝑘))
66	65	oveq2d 6029	. . . . . . . . 9 ⊢ (𝑖 = 𝑘 → (𝐴↑(𝑀 − 𝑖)) = (𝐴↑(𝑀 − 𝑘)))
67	66	oveq2d 6029	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))))
68		fveq2 5635	. . . . . . . 8 ⊢ (𝑖 = 𝑘 → (𝐹‘𝑖) = (𝐹‘𝑘))
69	64, 67, 68	ifbieq12d 3630	. . . . . . 7 ⊢ (𝑖 = 𝑘 → if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
70		eqid 2229	. . . . . . 7 ⊢ (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖))) = (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))
71	69, 70	fvmptg 5718	. . . . . 6 ⊢ ((𝑘 ∈ ℕ ∧ if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) ∈ ℂ) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
72	24, 63, 71	syl2anc 411	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
73	17, 18, 21	lensymd 8294	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → ¬ 𝑘 < 𝑀)
74	73	iffalsed 3613	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = (𝐹‘𝑘))
75	72, 74	eqtr2d 2263	. . . 4 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ (ℤ_≥‘𝑀)) → (𝐹‘𝑘) = ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘))
76		addcl 8150	. . . . 5 ⊢ ((𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ) → (𝑥 + 𝑦) ∈ ℂ)
77	76	adantl 277	. . . 4 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ (𝑥 ∈ ℂ ∧ 𝑦 ∈ ℂ)) → (𝑥 + 𝑦) ∈ ℂ)
78	2, 12, 75, 77	seq3feq 10735	. . 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 2298	. . . . . . . 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 9598	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℤ)
93	89, 92	zsubcld 9600	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑀 − (𝑘 + 1)) ∈ ℤ)
94	88, 93	rpexpcld 10952	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴↑(𝑀 − (𝑘 + 1))) ∈ ℝ⁺)
95	94	rpcnd 9926	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴↑(𝑀 − (𝑘 + 1))) ∈ ℂ)
96	94	rpap0d 9930	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴↑(𝑀 − (𝑘 + 1))) # 0)
97	87, 95, 96	divclapd 8963	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))) ∈ ℂ)
98		fveq2 5635	. . . . . . . . . . . 12 ⊢ (𝑎 = (𝑘 + 1) → (𝐹‘𝑎) = (𝐹‘(𝑘 + 1)))
99	98	eleq1d 2298	. . . . . . . . . . 11 ⊢ (𝑎 = (𝑘 + 1) → ((𝐹‘𝑎) ∈ ℂ ↔ (𝐹‘(𝑘 + 1)) ∈ ℂ))
100		fveq2 5635	. . . . . . . . . . . . . . 15 ⊢ (𝑘 = 𝑎 → (𝐹‘𝑘) = (𝐹‘𝑎))
101	100	eleq1d 2298	. . . . . . . . . . . . . 14 ⊢ (𝑘 = 𝑎 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘𝑎) ∈ ℂ))
102	101	cbvralv 2765	. . . . . . . . . . . . 13 ⊢ (∀𝑘 ∈ 𝑍 (𝐹‘𝑘) ∈ ℂ ↔ ∀𝑎 ∈ 𝑍 (𝐹‘𝑎) ∈ ℂ)
103	6, 102	sylib 122	. . . . . . . . . . . 12 ⊢ (𝜑 → ∀𝑎 ∈ 𝑍 (𝐹‘𝑎) ∈ ℂ)
104	103	ad3antrrr 492	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → ∀𝑎 ∈ 𝑍 (𝐹‘𝑎) ∈ ℂ)
105	2	ad2antrr 488	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → 𝑀 ∈ ℤ)
106		peano2nn 9148	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
107	106	adantl 277	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℕ)
108	107	nnzd 9594	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℤ)
109	108	adantr 276	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℤ)
110	16	ad3antrrr 492	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → 𝑀 ∈ ℝ)
111	107	nnred 9149	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑘 + 1) ∈ ℝ)
112	111	adantr 276	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℝ)
113		simpr 110	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → ¬ (𝑘 + 1) < 𝑀)
114	110, 112, 113	nltled 8293	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → 𝑀 ≤ (𝑘 + 1))
115		eluz2 9754	. . . . . . . . . . . . 13 ⊢ ((𝑘 + 1) ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ (𝑘 + 1) ∈ ℤ ∧ 𝑀 ≤ (𝑘 + 1)))
116	105, 109, 114, 115	syl3anbrc 1205	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ (ℤ_≥‘𝑀))
117	116, 8	eleqtrrdi 2323	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ 𝑍)
118	99, 104, 117	rspcdva 2913	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ ¬ (𝑘 + 1) < 𝑀) → (𝐹‘(𝑘 + 1)) ∈ ℂ)
119	2	adantr 276	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℤ)
120		zdclt 9550	. . . . . . . . . . 11 ⊢ (((𝑘 + 1) ∈ ℤ ∧ 𝑀 ∈ ℤ) → DECID (𝑘 + 1) < 𝑀)
121	108, 119, 120	syl2anc 411	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → DECID (𝑘 + 1) < 𝑀)
122	97, 118, 121	ifcldadc 3633	. . . . . . . . 9 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) ∈ ℂ)
123	122	abscld 11735	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ∈ ℝ)
124	16	recnd 8201	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑀 ∈ ℂ)
125	124	ad2antrr 488	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℂ)
126		simpr 110	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
127	126	nncnd 9150	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℂ)
128		1cnd 8188	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 1 ∈ ℂ)
129	125, 127, 128	subsub4d 8514	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑀 − 𝑘) − 1) = (𝑀 − (𝑘 + 1)))
130	129	oveq2d 6029	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑((𝑀 − 𝑘) − 1)) = (𝐴↑(𝑀 − (𝑘 + 1))))
131	33	recnd 8201	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 ∈ ℂ)
132	131	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝐴 ∈ ℂ)
133	33, 34	gt0ap0d 8802	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 # 0)
134	133	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝐴 # 0)
135	119, 90	zsubcld 9600	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝑀 − 𝑘) ∈ ℤ)
136	132, 134, 135	expm1apd 10938	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑((𝑀 − 𝑘) − 1)) = ((𝐴↑(𝑀 − 𝑘)) / 𝐴))
137	130, 136	eqtr3d 2264	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑(𝑀 − (𝑘 + 1))) = ((𝐴↑(𝑀 − 𝑘)) / 𝐴))
138	137	oveq2d 6029	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))) = ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)))
139	138	adantr 276	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))) = ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)))
140		simpr 110	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑘 + 1) < 𝑀)
141	140	iftrued 3610	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))))
142	126	nnred 9149	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℝ)
143	142	adantr 276	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑘 ∈ ℝ)
144		peano2re 8308	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℝ → (𝑘 + 1) ∈ ℝ)
145	143, 144	syl 14	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝑘 + 1) ∈ ℝ)
146	16	ad3antrrr 492	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑀 ∈ ℝ)
147	143	ltp1d 9103	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑘 < (𝑘 + 1))
148	143, 145, 146, 147, 140	lttrd 8298	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → 𝑘 < 𝑀)
149	148	iftrued 3610	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))))
150	149	oveq2d 6029	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
151	31	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑀) ∈ ℂ)
152	132, 134, 135	expclzapd 10933	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑(𝑀 − 𝑘)) ∈ ℂ)
153	132, 134, 135	expap0d 10934	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴↑(𝑀 − 𝑘)) # 0)
154	151, 152, 132, 153, 134	divdivap2d 8996	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)) = (((𝐹‘𝑀) · 𝐴) / (𝐴↑(𝑀 − 𝑘))))
155	151, 132	mulcomd 8194	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) · 𝐴) = (𝐴 · (𝐹‘𝑀)))
156	155	oveq1d 6028	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (((𝐹‘𝑀) · 𝐴) / (𝐴↑(𝑀 − 𝑘))) = ((𝐴 · (𝐹‘𝑀)) / (𝐴↑(𝑀 − 𝑘))))
157	132, 151, 152, 153	divassapd 8999	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐴 · (𝐹‘𝑀)) / (𝐴↑(𝑀 − 𝑘))) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
158	154, 156, 157	3eqtrd 2266	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
159	158	adantr 276	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)) = (𝐴 · ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘)))))
160	150, 159	eqtr4d 2265	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = ((𝐹‘𝑀) / ((𝐴↑(𝑀 − 𝑘)) / 𝐴)))
161	139, 141, 160	3eqtr4d 2272	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))))
162	161	fveq2d 5639	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
163	132, 62	absmuld 11748	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
164	163	adantr 276	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
165	35	rpge0d 9928	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ≤ 𝐴)
166	33, 165	absidd 11721	. . . . . . . . . . 11 ⊢ (𝜑 → (abs‘𝐴) = 𝐴)
167	166	oveq1d 6028	. . . . . . . . . 10 ⊢ (𝜑 → ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
168	167	ad3antrrr 492	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
169	162, 164, 168	3eqtrd 2266	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
170		eqle 8264	. . . . . . . 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 597	. . . . . . 7 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) < 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
172	16	ad2antrr 488	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℝ)
173	111, 172	lttri3d 8287	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) = 𝑀 ↔ (¬ (𝑘 + 1) < 𝑀 ∧ ¬ 𝑀 < (𝑘 + 1))))
174	173	simprbda 383	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ¬ (𝑘 + 1) < 𝑀)
175	174	iffalsed 3613	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐹‘(𝑘 + 1)))
176		simpr 110	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝑘 + 1) = 𝑀)
177	176	fveq2d 5639	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐹‘(𝑘 + 1)) = (𝐹‘𝑀))
178	175, 177	eqtrd 2262	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐹‘𝑀))
179	178	fveq2d 5639	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (abs‘(𝐹‘𝑀)))
180	142	adantr 276	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 ∈ ℝ)
181	180	ltp1d 9103	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 < (𝑘 + 1))
182		breq2 4090	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 + 1) = 𝑀 → (𝑘 < (𝑘 + 1) ↔ 𝑘 < 𝑀))
183	182	adantl 277	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝑘 < (𝑘 + 1) ↔ 𝑘 < 𝑀))
184	181, 183	mpbid 147	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 < 𝑀)
185	184	iftrued 3610	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))))
186	176	oveq1d 6028	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ((𝑘 + 1) − 𝑘) = (𝑀 − 𝑘))
187	127	adantr 276	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝑘 ∈ ℂ)
188		1cnd 8188	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 1 ∈ ℂ)
189	187, 188	pncan2d 8485	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ((𝑘 + 1) − 𝑘) = 1)
190	186, 189	eqtr3d 2264	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝑀 − 𝑘) = 1)
191	190	oveq2d 6029	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴↑(𝑀 − 𝑘)) = (𝐴↑1))
192	132	adantr 276	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → 𝐴 ∈ ℂ)
193	192	exp1d 10923	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴↑1) = 𝐴)
194	191, 193	eqtrd 2262	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴↑(𝑀 − 𝑘)) = 𝐴)
195	194	oveq2d 6029	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))) = ((𝐹‘𝑀) / 𝐴))
196	185, 195	eqtrd 2262	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = ((𝐹‘𝑀) / 𝐴))
197	196	oveq2d 6029	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (𝐴 · ((𝐹‘𝑀) / 𝐴)))
198	31, 131, 133	divcanap2d 8965	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 · ((𝐹‘𝑀) / 𝐴)) = (𝐹‘𝑀))
199	198	ad3antrrr 492	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴 · ((𝐹‘𝑀) / 𝐴)) = (𝐹‘𝑀))
200	197, 199	eqtrd 2262	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (𝐹‘𝑀))
201	200	fveq2d 5639	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (abs‘(𝐹‘𝑀)))
202	167	ad2antrr 488	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((abs‘𝐴) · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
203	163, 202	eqtrd 2262	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
204	203	adantr 276	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘(𝐴 · if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
205	179, 201, 204	3eqtr2d 2268	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ (𝑘 + 1) = 𝑀) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
206	123, 205, 170	syl2an2r 597	. . . . . . 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 9528	. . . . . . . . . . . . 13 ⊢ ((𝑀 ∈ ℤ ∧ 𝑘 ∈ ℤ) → (𝑀 ≤ 𝑘 ↔ 𝑀 < (𝑘 + 1)))
212	119, 209, 211	syl2an2r 597	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (𝑀 ≤ 𝑘 ↔ 𝑀 < (𝑘 + 1)))
213	210, 212	mpbird 167	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑀 ≤ 𝑘)
214	208, 209, 213, 55	syl3anbrc 1205	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑘 ∈ (ℤ_≥‘𝑀))
215	214, 8	eleqtrrdi 2323	. . . . . . . . 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 8292	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → ¬ (𝑘 + 1) < 𝑀)
221	220	iffalsed 3613	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))) = (𝐹‘(𝑘 + 1)))
222	221	fveq2d 5639	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) = (abs‘(𝐹‘(𝑘 + 1))))
223	142	adantr 276	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → 𝑘 ∈ ℝ)
224	218, 223, 213	lensymd 8294	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → ¬ 𝑘 < 𝑀)
225	224	iffalsed 3613	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)) = (𝐹‘𝑘))
226	225	fveq2d 5639	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))) = (abs‘(𝐹‘𝑘)))
227	226	oveq2d 6029	. . . . . . . 8 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))) = (𝐴 · (abs‘(𝐹‘𝑘))))
228	217, 222, 227	3brtr4d 4118	. . . . . . 7 ⊢ ((((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) ∧ 𝑀 < (𝑘 + 1)) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
229		ztri3or 9515	. . . . . . . 8 ⊢ (((𝑘 + 1) ∈ ℤ ∧ 𝑀 ∈ ℤ) → ((𝑘 + 1) < 𝑀 ∨ (𝑘 + 1) = 𝑀 ∨ 𝑀 < (𝑘 + 1)))
230	108, 119, 229	syl2anc 411	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑘 + 1) < 𝑀 ∨ (𝑘 + 1) = 𝑀 ∨ 𝑀 < (𝑘 + 1)))
231	171, 206, 228, 230	mpjao3dan 1341	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))) ≤ (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
232		breq1 4089	. . . . . . . . . 10 ⊢ (𝑖 = (𝑘 + 1) → (𝑖 < 𝑀 ↔ (𝑘 + 1) < 𝑀))
233		oveq2 6021	. . . . . . . . . . . 12 ⊢ (𝑖 = (𝑘 + 1) → (𝑀 − 𝑖) = (𝑀 − (𝑘 + 1)))
234	233	oveq2d 6029	. . . . . . . . . . 11 ⊢ (𝑖 = (𝑘 + 1) → (𝐴↑(𝑀 − 𝑖)) = (𝐴↑(𝑀 − (𝑘 + 1))))
235	234	oveq2d 6029	. . . . . . . . . 10 ⊢ (𝑖 = (𝑘 + 1) → ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))) = ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))))
236		fveq2 5635	. . . . . . . . . 10 ⊢ (𝑖 = (𝑘 + 1) → (𝐹‘𝑖) = (𝐹‘(𝑘 + 1)))
237	232, 235, 236	ifbieq12d 3630	. . . . . . . . 9 ⊢ (𝑖 = (𝑘 + 1) → if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)) = if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1))))
238	237, 70	fvmptg 5718	. . . . . . . 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 5639	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘(𝑘 + 1))) = (abs‘if((𝑘 + 1) < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − (𝑘 + 1)))), (𝐹‘(𝑘 + 1)))))
241	126, 62, 71	syl2anc 411	. . . . . . . 8 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → ((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘) = if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))
242	241	fveq2d 5639	. . . . . . 7 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘)) = (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘))))
243	242	oveq2d 6029	. . . . . 6 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (𝐴 · (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘))) = (𝐴 · (abs‘if(𝑘 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑘))), (𝐹‘𝑘)))))
244	231, 240, 243	3brtr4d 4118	. . . . 5 ⊢ (((𝜑 ∧ 1 ≤ 𝑀) ∧ 𝑘 ∈ ℕ) → (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘(𝑘 + 1))) ≤ (𝐴 · (abs‘((𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))‘𝑘))))
245	79, 81, 82, 86, 244	cvgratnn 12085	. . . 4 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → seq1( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ )
246		eqid 2229	. . . . 5 ⊢ (ℤ_≥‘1) = (ℤ_≥‘1)
247		1zzd 9499	. . . . . 6 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 1 ∈ ℤ)
248		simpr 110	. . . . . 6 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 1 ≤ 𝑀)
249		eluz2 9754	. . . . . 6 ⊢ (𝑀 ∈ (ℤ_≥‘1) ↔ (1 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 1 ≤ 𝑀))
250	247, 2, 248, 249	syl3anbrc 1205	. . . . 5 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → 𝑀 ∈ (ℤ_≥‘1))
251	246, 250, 85	iserex 11893	. . . 4 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → (seq1( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ ↔ seq𝑀( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ ))
252	245, 251	mpbid 147	. . 3 ⊢ ((𝜑 ∧ 1 ≤ 𝑀) → seq𝑀( + , (𝑖 ∈ ℕ ↦ if(𝑖 < 𝑀, ((𝐹‘𝑀) / (𝐴↑(𝑀 − 𝑖))), (𝐹‘𝑖)))) ∈ dom ⇝ )
253	78, 252	eqeltrd 2306	. 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 9491	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
260	259	adantl 277	. . . . . 6 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℤ)
261	258	zred 9595	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑀 ∈ ℝ)
262		1red 8187	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 1 ∈ ℝ)
263	260	zred 9595	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℝ)
264		simplr 528	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑀 ≤ 1)
265		nnge1 9159	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → 1 ≤ 𝑘)
266	265	adantl 277	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 1 ≤ 𝑘)
267	261, 262, 263, 264, 266	letrd 8296	. . . . . 6 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑀 ≤ 𝑘)
268	258, 260, 267, 55	syl3anbrc 1205	. . . . 5 ⊢ (((𝜑 ∧ 𝑀 ≤ 1) ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ (ℤ_≥‘𝑀))
269	8	eleq2i 2296	. . . . . . 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 12085	. . 3 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → seq1( + , 𝐹) ∈ dom ⇝ )
277		eqid 2229	. . . 4 ⊢ (ℤ_≥‘𝑀) = (ℤ_≥‘𝑀)
278		1zzd 9499	. . . . 5 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 1 ∈ ℤ)
279		simpr 110	. . . . 5 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 𝑀 ≤ 1)
280		eluz2 9754	. . . . 5 ⊢ (1 ∈ (ℤ_≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ 1 ∈ ℤ ∧ 𝑀 ≤ 1))
281	257, 278, 279, 280	syl3anbrc 1205	. . . 4 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → 1 ∈ (ℤ_≥‘𝑀))
282	277, 281, 271	iserex 11893	. . 3 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → (seq𝑀( + , 𝐹) ∈ dom ⇝ ↔ seq1( + , 𝐹) ∈ dom ⇝ ))
283	276, 282	mpbird 167	. 2 ⊢ ((𝜑 ∧ 𝑀 ≤ 1) → seq𝑀( + , 𝐹) ∈ dom ⇝ )
284		1z 9498	. . 3 ⊢ 1 ∈ ℤ
285		zletric 9516	. . 3 ⊢ ((1 ∈ ℤ ∧ 𝑀 ∈ ℤ) → (1 ≤ 𝑀 ∨ 𝑀 ≤ 1))
286	284, 1, 285	sylancr 414	. 2 ⊢ (𝜑 → (1 ≤ 𝑀 ∨ 𝑀 ≤ 1))
287	253, 283, 286	mpjaodan 803	1 ⊢ (𝜑 → seq𝑀( + , 𝐹) ∈ dom ⇝ )

Colors of variables: wff set class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 104 ↔ wb 105 ∨ wo 713 DECID wdc 839 ∨ w3o 1001 = wceq 1395 ∈ wcel 2200 ∀wral 2508 ifcif 3603 class class class wbr 4086 ↦ cmpt 4148 dom cdm 4723 ‘cfv 5324 (class class class)co 6013 ℂcc 8023 ℝcr 8024 0cc0 8025 1c1 8026 + caddc 8028 · cmul 8030 < clt 8207 ≤ cle 8208 − cmin 8343 # cap 8754 / cdiv 8845 ℕcn 9136 ℤcz 9472 ℤ_≥cuz 9748 ℝ⁺crp 9881 seqcseq 10702 ↑cexp 10793 abscabs 11551 ⇝ cli 11832

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 617 ax-in2 618 ax-io 714 ax-5 1493 ax-7 1494 ax-gen 1495 ax-ie1 1539 ax-ie2 1540 ax-8 1550 ax-10 1551 ax-11 1552 ax-i12 1553 ax-bndl 1555 ax-4 1556 ax-17 1572 ax-i9 1576 ax-ial 1580 ax-i5r 1581 ax-13 2202 ax-14 2203 ax-ext 2211 ax-coll 4202 ax-sep 4205 ax-nul 4213 ax-pow 4262 ax-pr 4297 ax-un 4528 ax-setind 4633 ax-iinf 4684 ax-cnex 8116 ax-resscn 8117 ax-1cn 8118 ax-1re 8119 ax-icn 8120 ax-addcl 8121 ax-addrcl 8122 ax-mulcl 8123 ax-mulrcl 8124 ax-addcom 8125 ax-mulcom 8126 ax-addass 8127 ax-mulass 8128 ax-distr 8129 ax-i2m1 8130 ax-0lt1 8131 ax-1rid 8132 ax-0id 8133 ax-rnegex 8134 ax-precex 8135 ax-cnre 8136 ax-pre-ltirr 8137 ax-pre-ltwlin 8138 ax-pre-lttrn 8139 ax-pre-apti 8140 ax-pre-ltadd 8141 ax-pre-mulgt0 8142 ax-pre-mulext 8143 ax-arch 8144 ax-caucvg 8145

This theorem depends on definitions: df-bi 117 df-dc 840 df-3or 1003 df-3an 1004 df-tru 1398 df-fal 1401 df-nf 1507 df-sb 1809 df-eu 2080 df-mo 2081 df-clab 2216 df-cleq 2222 df-clel 2225 df-nfc 2361 df-ne 2401 df-nel 2496 df-ral 2513 df-rex 2514 df-reu 2515 df-rmo 2516 df-rab 2517 df-v 2802 df-sbc 3030 df-csb 3126 df-dif 3200 df-un 3202 df-in 3204 df-ss 3211 df-nul 3493 df-if 3604 df-pw 3652 df-sn 3673 df-pr 3674 df-op 3676 df-uni 3892 df-int 3927 df-iun 3970 df-br 4087 df-opab 4149 df-mpt 4150 df-tr 4186 df-id 4388 df-po 4391 df-iso 4392 df-iord 4461 df-on 4463 df-ilim 4464 df-suc 4466 df-iom 4687 df-xp 4729 df-rel 4730 df-cnv 4731 df-co 4732 df-dm 4733 df-rn 4734 df-res 4735 df-ima 4736 df-iota 5284 df-fun 5326 df-fn 5327 df-f 5328 df-f1 5329 df-fo 5330 df-f1o 5331 df-fv 5332 df-isom 5333 df-riota 5966 df-ov 6016 df-oprab 6017 df-mpo 6018 df-1st 6298 df-2nd 6299 df-recs 6466 df-irdg 6531 df-frec 6552 df-1o 6577 df-oadd 6581 df-er 6697 df-en 6905 df-dom 6906 df-fin 6907 df-pnf 8209 df-mnf 8210 df-xr 8211 df-ltxr 8212 df-le 8213 df-sub 8345 df-neg 8346 df-reap 8748 df-ap 8755 df-div 8846 df-inn 9137 df-2 9195 df-3 9196 df-4 9197 df-n0 9396 df-z 9473 df-uz 9749 df-q 9847 df-rp 9882 df-ico 10122 df-fz 10237 df-fzo 10371 df-seqfrec 10703 df-exp 10794 df-ihash 11031 df-cj 11396 df-re 11397 df-im 11398 df-rsqrt 11552 df-abs 11553 df-clim 11833 df-sumdc 11908

This theorem is referenced by: cvgratgt0 12087

W3C validator