cvgratnnlemrate - Intuitionistic Logic Explorer

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

Theorem cvgratnnlemrate 11712

Description: Lemma for cvgratnn 11713. (Contributed by Jim Kingdon, 21-Nov-2022.)

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

**Assertion**
Ref	Expression
cvgratnnlemrate	⊢ (𝜑 → (abs‘((seq1( + , 𝐹)‘𝑁) − (seq1( + , 𝐹)‘𝑀))) < (((((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) · (𝐴 / (1 − 𝐴))) / 𝑀))

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

Proof of Theorem cvgratnnlemrate Dummy variable 𝑖 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		nnuz 9654	. . . . . . 7 ⊢ ℕ = (ℤ_≥‘1)
2		1zzd 9370	. . . . . . 7 ⊢ (𝜑 → 1 ∈ ℤ)
3		cvgratnn.6	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑘) ∈ ℂ)
4	1, 2, 3	serf 10592	. . . . . 6 ⊢ (𝜑 → seq1( + , 𝐹):ℕ⟶ℂ)
5		cvgratnnlemrate.m	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ ℕ)
6		cvgratnnlemrate.n	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘𝑀))
7		eluznn 9691	. . . . . . 7 ⊢ ((𝑀 ∈ ℕ ∧ 𝑁 ∈ (ℤ_≥‘𝑀)) → 𝑁 ∈ ℕ)
8	5, 6, 7	syl2anc 411	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℕ)
9	4, 8	ffvelcdmd 5701	. . . . 5 ⊢ (𝜑 → (seq1( + , 𝐹)‘𝑁) ∈ ℂ)
10	4, 5	ffvelcdmd 5701	. . . . 5 ⊢ (𝜑 → (seq1( + , 𝐹)‘𝑀) ∈ ℂ)
11	9, 10	subcld 8354	. . . 4 ⊢ (𝜑 → ((seq1( + , 𝐹)‘𝑁) − (seq1( + , 𝐹)‘𝑀)) ∈ ℂ)
12	11	abscld 11363	. . 3 ⊢ (𝜑 → (abs‘((seq1( + , 𝐹)‘𝑁) − (seq1( + , 𝐹)‘𝑀))) ∈ ℝ)
13		fveq2 5561	. . . . . . 7 ⊢ (𝑘 = 𝑀 → (𝐹‘𝑘) = (𝐹‘𝑀))
14	13	eleq1d 2265	. . . . . 6 ⊢ (𝑘 = 𝑀 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘𝑀) ∈ ℂ))
15	3	ralrimiva 2570	. . . . . 6 ⊢ (𝜑 → ∀𝑘 ∈ ℕ (𝐹‘𝑘) ∈ ℂ)
16	14, 15, 5	rspcdva 2873	. . . . 5 ⊢ (𝜑 → (𝐹‘𝑀) ∈ ℂ)
17	16	abscld 11363	. . . 4 ⊢ (𝜑 → (abs‘(𝐹‘𝑀)) ∈ ℝ)
18	5	nnzd 9464	. . . . . . 7 ⊢ (𝜑 → 𝑀 ∈ ℤ)
19	18	peano2zd 9468	. . . . . 6 ⊢ (𝜑 → (𝑀 + 1) ∈ ℤ)
20		eluzelz 9627	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘𝑀) → 𝑁 ∈ ℤ)
21	6, 20	syl 14	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℤ)
22	19, 21	fzfigd 10540	. . . . 5 ⊢ (𝜑 → ((𝑀 + 1)...𝑁) ∈ Fin)
23		cvgratnn.3	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ ℝ)
24	23	adantr 276	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → 𝐴 ∈ ℝ)
25	5	nnred 9020	. . . . . . . . 9 ⊢ (𝜑 → 𝑀 ∈ ℝ)
26	25	adantr 276	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → 𝑀 ∈ ℝ)
27		peano2re 8179	. . . . . . . . 9 ⊢ (𝑀 ∈ ℝ → (𝑀 + 1) ∈ ℝ)
28	26, 27	syl 14	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → (𝑀 + 1) ∈ ℝ)
29		elfzelz 10117	. . . . . . . . . 10 ⊢ (𝑖 ∈ ((𝑀 + 1)...𝑁) → 𝑖 ∈ ℤ)
30	29	adantl 277	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → 𝑖 ∈ ℤ)
31	30	zred 9465	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → 𝑖 ∈ ℝ)
32	26	lep1d 8975	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → 𝑀 ≤ (𝑀 + 1))
33		elfzle1 10119	. . . . . . . . 9 ⊢ (𝑖 ∈ ((𝑀 + 1)...𝑁) → (𝑀 + 1) ≤ 𝑖)
34	33	adantl 277	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → (𝑀 + 1) ≤ 𝑖)
35	26, 28, 31, 32, 34	letrd 8167	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → 𝑀 ≤ 𝑖)
36		znn0sub 9408	. . . . . . . 8 ⊢ ((𝑀 ∈ ℤ ∧ 𝑖 ∈ ℤ) → (𝑀 ≤ 𝑖 ↔ (𝑖 − 𝑀) ∈ ℕ₀))
37	18, 29, 36	syl2an 289	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → (𝑀 ≤ 𝑖 ↔ (𝑖 − 𝑀) ∈ ℕ₀))
38	35, 37	mpbid 147	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → (𝑖 − 𝑀) ∈ ℕ₀)
39	24, 38	reexpcld 10799	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → (𝐴↑(𝑖 − 𝑀)) ∈ ℝ)
40	22, 39	fsumrecl 11583	. . . 4 ⊢ (𝜑 → Σ𝑖 ∈ ((𝑀 + 1)...𝑁)(𝐴↑(𝑖 − 𝑀)) ∈ ℝ)
41	17, 40	remulcld 8074	. . 3 ⊢ (𝜑 → ((abs‘(𝐹‘𝑀)) · Σ𝑖 ∈ ((𝑀 + 1)...𝑁)(𝐴↑(𝑖 − 𝑀))) ∈ ℝ)
42		cvgratnn.4	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 < 1)
43		cvgratnn.gt0	. . . . . . . . . . . . 13 ⊢ (𝜑 → 0 < 𝐴)
44	23, 43	elrpd 9785	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
45	44	reclt1d 9802	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 < 1 ↔ 1 < (1 / 𝐴)))
46	42, 45	mpbid 147	. . . . . . . . . 10 ⊢ (𝜑 → 1 < (1 / 𝐴))
47		1re 8042	. . . . . . . . . . 11 ⊢ 1 ∈ ℝ
48	44	rprecred 9800	. . . . . . . . . . 11 ⊢ (𝜑 → (1 / 𝐴) ∈ ℝ)
49		difrp 9784	. . . . . . . . . . 11 ⊢ ((1 ∈ ℝ ∧ (1 / 𝐴) ∈ ℝ) → (1 < (1 / 𝐴) ↔ ((1 / 𝐴) − 1) ∈ ℝ⁺))
50	47, 48, 49	sylancr 414	. . . . . . . . . 10 ⊢ (𝜑 → (1 < (1 / 𝐴) ↔ ((1 / 𝐴) − 1) ∈ ℝ⁺))
51	46, 50	mpbid 147	. . . . . . . . 9 ⊢ (𝜑 → ((1 / 𝐴) − 1) ∈ ℝ⁺)
52	51	rpreccld 9799	. . . . . . . 8 ⊢ (𝜑 → (1 / ((1 / 𝐴) − 1)) ∈ ℝ⁺)
53	52, 44	rpdivcld 9806	. . . . . . 7 ⊢ (𝜑 → ((1 / ((1 / 𝐴) − 1)) / 𝐴) ∈ ℝ⁺)
54		fveq2 5561	. . . . . . . . . . 11 ⊢ (𝑘 = 1 → (𝐹‘𝑘) = (𝐹‘1))
55	54	eleq1d 2265	. . . . . . . . . 10 ⊢ (𝑘 = 1 → ((𝐹‘𝑘) ∈ ℂ ↔ (𝐹‘1) ∈ ℂ))
56		1nn 9018	. . . . . . . . . . 11 ⊢ 1 ∈ ℕ
57	56	a1i 9	. . . . . . . . . 10 ⊢ (𝜑 → 1 ∈ ℕ)
58	55, 15, 57	rspcdva 2873	. . . . . . . . 9 ⊢ (𝜑 → (𝐹‘1) ∈ ℂ)
59	58	abscld 11363	. . . . . . . 8 ⊢ (𝜑 → (abs‘(𝐹‘1)) ∈ ℝ)
60	58	absge0d 11366	. . . . . . . 8 ⊢ (𝜑 → 0 ≤ (abs‘(𝐹‘1)))
61	59, 60	ge0p1rpd 9819	. . . . . . 7 ⊢ (𝜑 → ((abs‘(𝐹‘1)) + 1) ∈ ℝ⁺)
62	53, 61	rpmulcld 9805	. . . . . 6 ⊢ (𝜑 → (((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) ∈ ℝ⁺)
63	62	rpred 9788	. . . . 5 ⊢ (𝜑 → (((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) ∈ ℝ)
64	63, 5	nndivred 9057	. . . 4 ⊢ (𝜑 → ((((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) / 𝑀) ∈ ℝ)
65		1red 8058	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℝ)
66	65, 23	resubcld 8424	. . . . . . 7 ⊢ (𝜑 → (1 − 𝐴) ∈ ℝ)
67	23, 65	posdifd 8576	. . . . . . . 8 ⊢ (𝜑 → (𝐴 < 1 ↔ 0 < (1 − 𝐴)))
68	42, 67	mpbid 147	. . . . . . 7 ⊢ (𝜑 → 0 < (1 − 𝐴))
69	66, 68	elrpd 9785	. . . . . 6 ⊢ (𝜑 → (1 − 𝐴) ∈ ℝ⁺)
70	44, 69	rpdivcld 9806	. . . . 5 ⊢ (𝜑 → (𝐴 / (1 − 𝐴)) ∈ ℝ⁺)
71	70	rpred 9788	. . . 4 ⊢ (𝜑 → (𝐴 / (1 − 𝐴)) ∈ ℝ)
72	64, 71	remulcld 8074	. . 3 ⊢ (𝜑 → (((((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) / 𝑀) · (𝐴 / (1 − 𝐴))) ∈ ℝ)
73		cvgratnn.7	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (abs‘(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (abs‘(𝐹‘𝑘))))
74	23, 42, 43, 3, 73, 5, 6	cvgratnnlemseq 11708	. . . . 5 ⊢ (𝜑 → ((seq1( + , 𝐹)‘𝑁) − (seq1( + , 𝐹)‘𝑀)) = Σ𝑖 ∈ ((𝑀 + 1)...𝑁)(𝐹‘𝑖))
75	74	fveq2d 5565	. . . 4 ⊢ (𝜑 → (abs‘((seq1( + , 𝐹)‘𝑁) − (seq1( + , 𝐹)‘𝑀))) = (abs‘Σ𝑖 ∈ ((𝑀 + 1)...𝑁)(𝐹‘𝑖)))
76	23, 42, 43, 3, 73, 5, 6	cvgratnnlemabsle 11709	. . . 4 ⊢ (𝜑 → (abs‘Σ𝑖 ∈ ((𝑀 + 1)...𝑁)(𝐹‘𝑖)) ≤ ((abs‘(𝐹‘𝑀)) · Σ𝑖 ∈ ((𝑀 + 1)...𝑁)(𝐴↑(𝑖 − 𝑀))))
77	75, 76	eqbrtrd 4056	. . 3 ⊢ (𝜑 → (abs‘((seq1( + , 𝐹)‘𝑁) − (seq1( + , 𝐹)‘𝑀))) ≤ ((abs‘(𝐹‘𝑀)) · Σ𝑖 ∈ ((𝑀 + 1)...𝑁)(𝐴↑(𝑖 − 𝑀))))
78	16	absge0d 11366	. . . 4 ⊢ (𝜑 → 0 ≤ (abs‘(𝐹‘𝑀)))
79	23, 42, 43, 3, 73, 5	cvgratnnlemfm 11711	. . . 4 ⊢ (𝜑 → (abs‘(𝐹‘𝑀)) < ((((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) / 𝑀))
80	44	adantr 276	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → 𝐴 ∈ ℝ⁺)
81	38	nn0zd 9463	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → (𝑖 − 𝑀) ∈ ℤ)
82	80, 81	rpexpcld 10806	. . . . . 6 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → (𝐴↑(𝑖 − 𝑀)) ∈ ℝ⁺)
83	82	rpge0d 9792	. . . . 5 ⊢ ((𝜑 ∧ 𝑖 ∈ ((𝑀 + 1)...𝑁)) → 0 ≤ (𝐴↑(𝑖 − 𝑀)))
84	22, 39, 83	fsumge0 11641	. . . 4 ⊢ (𝜑 → 0 ≤ Σ𝑖 ∈ ((𝑀 + 1)...𝑁)(𝐴↑(𝑖 − 𝑀)))
85	23, 42, 43, 3, 73, 5, 6	cvgratnnlemsumlt 11710	. . . 4 ⊢ (𝜑 → Σ𝑖 ∈ ((𝑀 + 1)...𝑁)(𝐴↑(𝑖 − 𝑀)) < (𝐴 / (1 − 𝐴)))
86	17, 64, 40, 71, 78, 79, 84, 85	ltmul12ad 8985	. . 3 ⊢ (𝜑 → ((abs‘(𝐹‘𝑀)) · Σ𝑖 ∈ ((𝑀 + 1)...𝑁)(𝐴↑(𝑖 − 𝑀))) < (((((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) / 𝑀) · (𝐴 / (1 − 𝐴))))
87	12, 41, 72, 77, 86	lelttrd 8168	. 2 ⊢ (𝜑 → (abs‘((seq1( + , 𝐹)‘𝑁) − (seq1( + , 𝐹)‘𝑀))) < (((((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) / 𝑀) · (𝐴 / (1 − 𝐴))))
88	63	recnd 8072	. . 3 ⊢ (𝜑 → (((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) ∈ ℂ)
89	71	recnd 8072	. . 3 ⊢ (𝜑 → (𝐴 / (1 − 𝐴)) ∈ ℂ)
90	5	nncnd 9021	. . 3 ⊢ (𝜑 → 𝑀 ∈ ℂ)
91	5	nnap0d 9053	. . 3 ⊢ (𝜑 → 𝑀 # 0)
92	88, 89, 90, 91	div23apd 8872	. 2 ⊢ (𝜑 → (((((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) · (𝐴 / (1 − 𝐴))) / 𝑀) = (((((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) / 𝑀) · (𝐴 / (1 − 𝐴))))
93	87, 92	breqtrrd 4062	1 ⊢ (𝜑 → (abs‘((seq1( + , 𝐹)‘𝑁) − (seq1( + , 𝐹)‘𝑀))) < (((((1 / ((1 / 𝐴) − 1)) / 𝐴) · ((abs‘(𝐹‘1)) + 1)) · (𝐴 / (1 − 𝐴))) / 𝑀))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 104 ↔ wb 105 = wceq 1364 ∈ wcel 2167 class class class wbr 4034 ‘cfv 5259 (class class class)co 5925 ℂcc 7894 ℝcr 7895 0cc0 7896 1c1 7897 + caddc 7899 · cmul 7901 < clt 8078 ≤ cle 8079 − cmin 8214 / cdiv 8716 ℕcn 9007 ℕ₀cn0 9266 ℤcz 9343 ℤ_≥cuz 9618 ℝ⁺crp 9745 ...cfz 10100 seqcseq 10556 ↑cexp 10647 abscabs 11179 Σcsu 11535

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-ia1 106 ax-ia2 107 ax-ia3 108 ax-in1 615 ax-in2 616 ax-io 710 ax-5 1461 ax-7 1462 ax-gen 1463 ax-ie1 1507 ax-ie2 1508 ax-8 1518 ax-10 1519 ax-11 1520 ax-i12 1521 ax-bndl 1523 ax-4 1524 ax-17 1540 ax-i9 1544 ax-ial 1548 ax-i5r 1549 ax-13 2169 ax-14 2170 ax-ext 2178 ax-coll 4149 ax-sep 4152 ax-nul 4160 ax-pow 4208 ax-pr 4243 ax-un 4469 ax-setind 4574 ax-iinf 4625 ax-cnex 7987 ax-resscn 7988 ax-1cn 7989 ax-1re 7990 ax-icn 7991 ax-addcl 7992 ax-addrcl 7993 ax-mulcl 7994 ax-mulrcl 7995 ax-addcom 7996 ax-mulcom 7997 ax-addass 7998 ax-mulass 7999 ax-distr 8000 ax-i2m1 8001 ax-0lt1 8002 ax-1rid 8003 ax-0id 8004 ax-rnegex 8005 ax-precex 8006 ax-cnre 8007 ax-pre-ltirr 8008 ax-pre-ltwlin 8009 ax-pre-lttrn 8010 ax-pre-apti 8011 ax-pre-ltadd 8012 ax-pre-mulgt0 8013 ax-pre-mulext 8014 ax-arch 8015 ax-caucvg 8016

This theorem depends on definitions: df-bi 117 df-dc 836 df-3or 981 df-3an 982 df-tru 1367 df-fal 1370 df-nf 1475 df-sb 1777 df-eu 2048 df-mo 2049 df-clab 2183 df-cleq 2189 df-clel 2192 df-nfc 2328 df-ne 2368 df-nel 2463 df-ral 2480 df-rex 2481 df-reu 2482 df-rmo 2483 df-rab 2484 df-v 2765 df-sbc 2990 df-csb 3085 df-dif 3159 df-un 3161 df-in 3163 df-ss 3170 df-nul 3452 df-if 3563 df-pw 3608 df-sn 3629 df-pr 3630 df-op 3632 df-uni 3841 df-int 3876 df-iun 3919 df-br 4035 df-opab 4096 df-mpt 4097 df-tr 4133 df-id 4329 df-po 4332 df-iso 4333 df-iord 4402 df-on 4404 df-ilim 4405 df-suc 4407 df-iom 4628 df-xp 4670 df-rel 4671 df-cnv 4672 df-co 4673 df-dm 4674 df-rn 4675 df-res 4676 df-ima 4677 df-iota 5220 df-fun 5261 df-fn 5262 df-f 5263 df-f1 5264 df-fo 5265 df-f1o 5266 df-fv 5267 df-isom 5268 df-riota 5880 df-ov 5928 df-oprab 5929 df-mpo 5930 df-1st 6207 df-2nd 6208 df-recs 6372 df-irdg 6437 df-frec 6458 df-1o 6483 df-oadd 6487 df-er 6601 df-en 6809 df-dom 6810 df-fin 6811 df-pnf 8080 df-mnf 8081 df-xr 8082 df-ltxr 8083 df-le 8084 df-sub 8216 df-neg 8217 df-reap 8619 df-ap 8626 df-div 8717 df-inn 9008 df-2 9066 df-3 9067 df-4 9068 df-n0 9267 df-z 9344 df-uz 9619 df-q 9711 df-rp 9746 df-ico 9986 df-fz 10101 df-fzo 10235 df-seqfrec 10557 df-exp 10648 df-ihash 10885 df-cj 11024 df-re 11025 df-im 11026 df-rsqrt 11180 df-abs 11181 df-clim 11461 df-sumdc 11536

This theorem is referenced by: cvgratnn 11713

W3C validator