Theorem geomcau 37749

Description: If the distance between consecutive points in a sequence is bounded by a geometric sequence, then the sequence is Cauchy. (Contributed by Jeff Madsen, 2-Sep-2009.) (Proof shortened by Mario Carneiro, 5-Jun-2014.)

Hypotheses

Ref	Expression
lmclim2.2	⊢ (𝜑 → 𝐷 ∈ (Met‘𝑋))
lmclim2.3	⊢ (𝜑 → 𝐹:ℕ⟶𝑋)
geomcau.4	⊢ (𝜑 → 𝐴 ∈ ℝ)
geomcau.5	⊢ (𝜑 → 𝐵 ∈ ℝ+)
geomcau.6	⊢ (𝜑 → 𝐵 < 1)
geomcau.7	⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (𝐵↑𝑘)))

Assertion

Ref	Expression
geomcau	⊢ (𝜑 → 𝐹 ∈ (Cau‘𝐷))

Distinct variable groups:   𝐷,𝑘   𝑘,𝐹   𝑘,𝑋   𝐴,𝑘   𝐵,𝑘   𝜑,𝑘

Proof of Theorem geomcau

Dummy variables 𝑗 𝑛 𝑥 𝑚 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		nnuz 12778	. . . . . 6 ⊢ ℕ = (ℤ≥‘1)
2		1zzd 12506	. . . . . 6 ⊢ (𝜑 → 1 ∈ ℤ)
3		geomcau.5	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ ℝ+)
4	3	rpcnd 12939	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℂ)
5	3	rpred 12937	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ ℝ)
6	3	rpge0d 12941	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ 𝐵)
7	5, 6	absidd 15330	. . . . . . . 8 ⊢ (𝜑 → (abs‘𝐵) = 𝐵)
8		geomcau.6	. . . . . . . 8 ⊢ (𝜑 → 𝐵 < 1)
9	7, 8	eqbrtrd 5114	. . . . . . 7 ⊢ (𝜑 → (abs‘𝐵) < 1)
10	4, 9	expcnv 15771	. . . . . 6 ⊢ (𝜑 → (𝑚 ∈ ℕ0 ↦ (𝐵↑𝑚)) ⇝ 0)
11		geomcau.4	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ ℝ)
12		1re 11115	. . . . . . . . . 10 ⊢ 1 ∈ ℝ
13		resubcl 11428	. . . . . . . . . 10 ⊢ ((1 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (1 − 𝐵) ∈ ℝ)
14	12, 5, 13	sylancr 587	. . . . . . . . 9 ⊢ (𝜑 → (1 − 𝐵) ∈ ℝ)
15		posdif 11613	. . . . . . . . . . 11 ⊢ ((𝐵 ∈ ℝ ∧ 1 ∈ ℝ) → (𝐵 < 1 ↔ 0 < (1 − 𝐵)))
16	5, 12, 15	sylancl 586	. . . . . . . . . 10 ⊢ (𝜑 → (𝐵 < 1 ↔ 0 < (1 − 𝐵)))
17	8, 16	mpbid 232	. . . . . . . . 9 ⊢ (𝜑 → 0 < (1 − 𝐵))
18	14, 17	elrpd 12934	. . . . . . . 8 ⊢ (𝜑 → (1 − 𝐵) ∈ ℝ+)
19	11, 18	rerpdivcld 12968	. . . . . . 7 ⊢ (𝜑 → (𝐴 / (1 − 𝐵)) ∈ ℝ)
20	19	recnd 11143	. . . . . 6 ⊢ (𝜑 → (𝐴 / (1 − 𝐵)) ∈ ℂ)
21		nnex 12134	. . . . . . . 8 ⊢ ℕ ∈ V
22	21	mptex 7159	. . . . . . 7 ⊢ (𝑚 ∈ ℕ ↦ ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵)))) ∈ V
23	22	a1i 11	. . . . . 6 ⊢ (𝜑 → (𝑚 ∈ ℕ ↦ ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵)))) ∈ V)
24		nnnn0 12391	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ0)
25	24	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℕ0)
26		oveq2 7357	. . . . . . . . 9 ⊢ (𝑚 = 𝑛 → (𝐵↑𝑚) = (𝐵↑𝑛))
27		eqid 2729	. . . . . . . . 9 ⊢ (𝑚 ∈ ℕ0 ↦ (𝐵↑𝑚)) = (𝑚 ∈ ℕ0 ↦ (𝐵↑𝑚))
28		ovex 7382	. . . . . . . . 9 ⊢ (𝐵↑𝑛) ∈ V
29	26, 27, 28	fvmpt 6930	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ0 → ((𝑚 ∈ ℕ0 ↦ (𝐵↑𝑚))‘𝑛) = (𝐵↑𝑛))
30	25, 29	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝑚 ∈ ℕ0 ↦ (𝐵↑𝑚))‘𝑛) = (𝐵↑𝑛))
31		nnz 12492	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℤ)
32		rpexpcl 13987	. . . . . . . . 9 ⊢ ((𝐵 ∈ ℝ+ ∧ 𝑛 ∈ ℤ) → (𝐵↑𝑛) ∈ ℝ+)
33	3, 31, 32	syl2an 596	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐵↑𝑛) ∈ ℝ+)
34	33	rpcnd 12939	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐵↑𝑛) ∈ ℂ)
35	30, 34	eqeltrd 2828	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝑚 ∈ ℕ0 ↦ (𝐵↑𝑚))‘𝑛) ∈ ℂ)
36	20	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐴 / (1 − 𝐵)) ∈ ℂ)
37	34, 36	mulcomd 11136	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐵↑𝑛) · (𝐴 / (1 − 𝐵))) = ((𝐴 / (1 − 𝐵)) · (𝐵↑𝑛)))
38	26	oveq1d 7364	. . . . . . . . 9 ⊢ (𝑚 = 𝑛 → ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵))) = ((𝐵↑𝑛) · (𝐴 / (1 − 𝐵))))
39		eqid 2729	. . . . . . . . 9 ⊢ (𝑚 ∈ ℕ ↦ ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵)))) = (𝑚 ∈ ℕ ↦ ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵))))
40		ovex 7382	. . . . . . . . 9 ⊢ ((𝐵↑𝑛) · (𝐴 / (1 − 𝐵))) ∈ V
41	38, 39, 40	fvmpt 6930	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((𝑚 ∈ ℕ ↦ ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵))))‘𝑛) = ((𝐵↑𝑛) · (𝐴 / (1 − 𝐵))))
42	41	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝑚 ∈ ℕ ↦ ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵))))‘𝑛) = ((𝐵↑𝑛) · (𝐴 / (1 − 𝐵))))
43	30	oveq2d 7365	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐴 / (1 − 𝐵)) · ((𝑚 ∈ ℕ0 ↦ (𝐵↑𝑚))‘𝑛)) = ((𝐴 / (1 − 𝐵)) · (𝐵↑𝑛)))
44	37, 42, 43	3eqtr4d 2774	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝑚 ∈ ℕ ↦ ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵))))‘𝑛) = ((𝐴 / (1 − 𝐵)) · ((𝑚 ∈ ℕ0 ↦ (𝐵↑𝑚))‘𝑛)))
45	1, 2, 10, 20, 23, 35, 44	climmulc2 15544	. . . . 5 ⊢ (𝜑 → (𝑚 ∈ ℕ ↦ ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵)))) ⇝ ((𝐴 / (1 − 𝐵)) · 0))
46	20	mul01d 11315	. . . . 5 ⊢ (𝜑 → ((𝐴 / (1 − 𝐵)) · 0) = 0)
47	45, 46	breqtrd 5118	. . . 4 ⊢ (𝜑 → (𝑚 ∈ ℕ ↦ ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵)))) ⇝ 0)
48	33	rpred 12937	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐵↑𝑛) ∈ ℝ)
49	19	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐴 / (1 − 𝐵)) ∈ ℝ)
50	48, 49	remulcld 11145	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐵↑𝑛) · (𝐴 / (1 − 𝐵))) ∈ ℝ)
51	50	recnd 11143	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐵↑𝑛) · (𝐴 / (1 − 𝐵))) ∈ ℂ)
52	1, 2, 23, 42, 51	clim0c 15414	. . . 4 ⊢ (𝜑 → ((𝑚 ∈ ℕ ↦ ((𝐵↑𝑚) · (𝐴 / (1 − 𝐵)))) ⇝ 0 ↔ ∀𝑥 ∈ ℝ+ ∃𝑗 ∈ ℕ ∀𝑛 ∈ (ℤ≥‘𝑗)(abs‘((𝐵↑𝑛) · (𝐴 / (1 − 𝐵)))) < 𝑥))
53	47, 52	mpbid 232	. . 3 ⊢ (𝜑 → ∀𝑥 ∈ ℝ+ ∃𝑗 ∈ ℕ ∀𝑛 ∈ (ℤ≥‘𝑗)(abs‘((𝐵↑𝑛) · (𝐴 / (1 − 𝐵)))) < 𝑥)
54		nnz 12492	. . . . . . . 8 ⊢ (𝑗 ∈ ℕ → 𝑗 ∈ ℤ)
55	54	adantl 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑗 ∈ ℕ) → 𝑗 ∈ ℤ)
56		uzid 12750	. . . . . . 7 ⊢ (𝑗 ∈ ℤ → 𝑗 ∈ (ℤ≥‘𝑗))
57		oveq2 7357	. . . . . . . . . 10 ⊢ (𝑛 = 𝑗 → (𝐵↑𝑛) = (𝐵↑𝑗))
58	57	fvoveq1d 7371	. . . . . . . . 9 ⊢ (𝑛 = 𝑗 → (abs‘((𝐵↑𝑛) · (𝐴 / (1 − 𝐵)))) = (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))))
59	58	breq1d 5102	. . . . . . . 8 ⊢ (𝑛 = 𝑗 → ((abs‘((𝐵↑𝑛) · (𝐴 / (1 − 𝐵)))) < 𝑥 ↔ (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) < 𝑥))
60	59	rspcv 3573	. . . . . . 7 ⊢ (𝑗 ∈ (ℤ≥‘𝑗) → (∀𝑛 ∈ (ℤ≥‘𝑗)(abs‘((𝐵↑𝑛) · (𝐴 / (1 − 𝐵)))) < 𝑥 → (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) < 𝑥))
61	55, 56, 60	3syl 18	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑗 ∈ ℕ) → (∀𝑛 ∈ (ℤ≥‘𝑗)(abs‘((𝐵↑𝑛) · (𝐴 / (1 − 𝐵)))) < 𝑥 → (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) < 𝑥))
62		lmclim2.2	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ∈ (Met‘𝑋))
63	62	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → 𝐷 ∈ (Met‘𝑋))
64		lmclim2.3	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹:ℕ⟶𝑋)
65		simpl 482	. . . . . . . . . . . . 13 ⊢ ((𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗)) → 𝑗 ∈ ℕ)
66		ffvelcdm 7015	. . . . . . . . . . . . 13 ⊢ ((𝐹:ℕ⟶𝑋 ∧ 𝑗 ∈ ℕ) → (𝐹‘𝑗) ∈ 𝑋)
67	64, 65, 66	syl2an 596	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (𝐹‘𝑗) ∈ 𝑋)
68		eluznn 12819	. . . . . . . . . . . . 13 ⊢ ((𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗)) → 𝑛 ∈ ℕ)
69		ffvelcdm 7015	. . . . . . . . . . . . 13 ⊢ ((𝐹:ℕ⟶𝑋 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) ∈ 𝑋)
70	64, 68, 69	syl2an 596	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (𝐹‘𝑛) ∈ 𝑋)
71		metcl 24218	. . . . . . . . . . . 12 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ (𝐹‘𝑗) ∈ 𝑋 ∧ (𝐹‘𝑛) ∈ 𝑋) → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ∈ ℝ)
72	63, 67, 70, 71	syl3anc 1373	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ∈ ℝ)
73		eqid 2729	. . . . . . . . . . . . 13 ⊢ (ℤ≥‘𝑗) = (ℤ≥‘𝑗)
74		nnnn0 12391	. . . . . . . . . . . . . . 15 ⊢ (𝑗 ∈ ℕ → 𝑗 ∈ ℕ0)
75	74	ad2antrl 728	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → 𝑗 ∈ ℕ0)
76	75	nn0zd 12497	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → 𝑗 ∈ ℤ)
77		oveq2 7357	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 = 𝑘 → (𝐵↑𝑚) = (𝐵↑𝑘))
78	77	oveq2d 7365	. . . . . . . . . . . . . . 15 ⊢ (𝑚 = 𝑘 → (𝐴 · (𝐵↑𝑚)) = (𝐴 · (𝐵↑𝑘)))
79		eqid 2729	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚))) = (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚)))
80		ovex 7382	. . . . . . . . . . . . . . 15 ⊢ (𝐴 · (𝐵↑𝑘)) ∈ V
81	78, 79, 80	fvmpt 6930	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (ℤ≥‘𝑗) → ((𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚)))‘𝑘) = (𝐴 · (𝐵↑𝑘)))
82	81	adantl 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → ((𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚)))‘𝑘) = (𝐴 · (𝐵↑𝑘)))
83	11	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → 𝐴 ∈ ℝ)
84	5	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → 𝐵 ∈ ℝ)
85		eluznn0 12818	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑗 ∈ ℕ0 ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → 𝑘 ∈ ℕ0)
86	75, 85	sylan 580	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → 𝑘 ∈ ℕ0)
87	84, 86	reexpcld 14070	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → (𝐵↑𝑘) ∈ ℝ)
88	83, 87	remulcld 11145	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → (𝐴 · (𝐵↑𝑘)) ∈ ℝ)
89	88	recnd 11143	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → (𝐴 · (𝐵↑𝑘)) ∈ ℂ)
90	11	recnd 11143	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐴 ∈ ℂ)
91	90	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → 𝐴 ∈ ℂ)
92	4	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → 𝐵 ∈ ℂ)
93	9	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (abs‘𝐵) < 1)
94		eqid 2729	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐵↑𝑚)) = (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐵↑𝑚))
95		ovex 7382	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐵↑𝑘) ∈ V
96	77, 94, 95	fvmpt 6930	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ (ℤ≥‘𝑗) → ((𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐵↑𝑚))‘𝑘) = (𝐵↑𝑘))
97	96	adantl 481	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → ((𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐵↑𝑚))‘𝑘) = (𝐵↑𝑘))
98	92, 93, 75, 97	geolim2 15778	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → seq𝑗( + , (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐵↑𝑚))) ⇝ ((𝐵↑𝑗) / (1 − 𝐵)))
99	87	recnd 11143	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → (𝐵↑𝑘) ∈ ℂ)
100	97, 99	eqeltrd 2828	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → ((𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐵↑𝑚))‘𝑘) ∈ ℂ)
101	97	oveq2d 7365	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → (𝐴 · ((𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐵↑𝑚))‘𝑘)) = (𝐴 · (𝐵↑𝑘)))
102	82, 101	eqtr4d 2767	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → ((𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚)))‘𝑘) = (𝐴 · ((𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐵↑𝑚))‘𝑘)))
103	73, 76, 91, 98, 100, 102	isermulc2 15565	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → seq𝑗( + , (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚)))) ⇝ (𝐴 · ((𝐵↑𝑗) / (1 − 𝐵))))
104	3	adantr 480	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → 𝐵 ∈ ℝ+)
105	104, 76	rpexpcld 14154	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (𝐵↑𝑗) ∈ ℝ+)
106	105	rpcnd 12939	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (𝐵↑𝑗) ∈ ℂ)
107	14	recnd 11143	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 − 𝐵) ∈ ℂ)
108	107	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (1 − 𝐵) ∈ ℂ)
109	18	rpne0d 12942	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 − 𝐵) ≠ 0)
110	109	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (1 − 𝐵) ≠ 0)
111	91, 106, 108, 110	div12d 11936	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (𝐴 · ((𝐵↑𝑗) / (1 − 𝐵))) = ((𝐵↑𝑗) · (𝐴 / (1 − 𝐵))))
112	103, 111	breqtrd 5118	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → seq𝑗( + , (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚)))) ⇝ ((𝐵↑𝑗) · (𝐴 / (1 − 𝐵))))
113	73, 76, 82, 89, 112	isumclim 15664	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → Σ𝑘 ∈ (ℤ≥‘𝑗)(𝐴 · (𝐵↑𝑘)) = ((𝐵↑𝑗) · (𝐴 / (1 − 𝐵))))
114		seqex 13910	. . . . . . . . . . . . . . 15 ⊢ seq𝑗( + , (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚)))) ∈ V
115		ovex 7382	. . . . . . . . . . . . . . 15 ⊢ (𝐴 · ((𝐵↑𝑗) / (1 − 𝐵))) ∈ V
116	114, 115	breldm 5851	. . . . . . . . . . . . . 14 ⊢ (seq𝑗( + , (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚)))) ⇝ (𝐴 · ((𝐵↑𝑗) / (1 − 𝐵))) → seq𝑗( + , (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚)))) ∈ dom ⇝ )
117	103, 116	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → seq𝑗( + , (𝑚 ∈ (ℤ≥‘𝑗) ↦ (𝐴 · (𝐵↑𝑚)))) ∈ dom ⇝ )
118	73, 76, 82, 88, 117	isumrecl 15672	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → Σ𝑘 ∈ (ℤ≥‘𝑗)(𝐴 · (𝐵↑𝑘)) ∈ ℝ)
119	113, 118	eqeltrrd 2829	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((𝐵↑𝑗) · (𝐴 / (1 − 𝐵))) ∈ ℝ)
120	119	recnd 11143	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((𝐵↑𝑗) · (𝐴 / (1 − 𝐵))) ∈ ℂ)
121	120	abscld 15346	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) ∈ ℝ)
122		fzfid 13880	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (𝑗...(𝑛 − 1)) ∈ Fin)
123		simpll 766	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (𝑗...(𝑛 − 1))) → 𝜑)
124		elfzuz 13423	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (𝑗...(𝑛 − 1)) → 𝑘 ∈ (ℤ≥‘𝑗))
125		simprl 770	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → 𝑗 ∈ ℕ)
126		eluznn 12819	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑗 ∈ ℕ ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → 𝑘 ∈ ℕ)
127	125, 126	sylan 580	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → 𝑘 ∈ ℕ)
128	124, 127	sylan2 593	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (𝑗...(𝑛 − 1))) → 𝑘 ∈ ℕ)
129	62	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝐷 ∈ (Met‘𝑋))
130	64	ffvelcdmda 7018	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑘) ∈ 𝑋)
131		peano2nn 12140	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → (𝑘 + 1) ∈ ℕ)
132		ffvelcdm 7015	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐹:ℕ⟶𝑋 ∧ (𝑘 + 1) ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ 𝑋)
133	64, 131, 132	syl2an 596	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘(𝑘 + 1)) ∈ 𝑋)
134		metcl 24218	. . . . . . . . . . . . . . . 16 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ (𝐹‘𝑘) ∈ 𝑋 ∧ (𝐹‘(𝑘 + 1)) ∈ 𝑋) → ((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) ∈ ℝ)
135	129, 130, 133, 134	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) ∈ ℝ)
136	123, 128, 135	syl2anc 584	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (𝑗...(𝑛 − 1))) → ((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) ∈ ℝ)
137	122, 136	fsumrecl 15641	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → Σ𝑘 ∈ (𝑗...(𝑛 − 1))((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) ∈ ℝ)
138		simprr 772	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → 𝑛 ∈ (ℤ≥‘𝑗))
139		elfzuz 13423	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ (𝑗...𝑛) → 𝑘 ∈ (ℤ≥‘𝑗))
140		simpll 766	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → 𝜑)
141	140, 127, 130	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → (𝐹‘𝑘) ∈ 𝑋)
142	139, 141	sylan2 593	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (𝑗...𝑛)) → (𝐹‘𝑘) ∈ 𝑋)
143	63, 138, 142	mettrifi 37747	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ≤ Σ𝑘 ∈ (𝑗...(𝑛 − 1))((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))))
144	124, 88	sylan2 593	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (𝑗...(𝑛 − 1))) → (𝐴 · (𝐵↑𝑘)) ∈ ℝ)
145	122, 144	fsumrecl 15641	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → Σ𝑘 ∈ (𝑗...(𝑛 − 1))(𝐴 · (𝐵↑𝑘)) ∈ ℝ)
146		geomcau.7	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (𝐵↑𝑘)))
147	123, 128, 146	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (𝑗...(𝑛 − 1))) → ((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (𝐵↑𝑘)))
148	122, 136, 144, 147	fsumle 15706	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → Σ𝑘 ∈ (𝑗...(𝑛 − 1))((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) ≤ Σ𝑘 ∈ (𝑗...(𝑛 − 1))(𝐴 · (𝐵↑𝑘)))
149		fzssuz 13468	. . . . . . . . . . . . . . . 16 ⊢ (𝑗...(𝑛 − 1)) ⊆ (ℤ≥‘𝑗)
150	149	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (𝑗...(𝑛 − 1)) ⊆ (ℤ≥‘𝑗))
151		0red 11118	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 0 ∈ ℝ)
152		nnz 12492	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
153		rpexpcl 13987	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐵 ∈ ℝ+ ∧ 𝑘 ∈ ℤ) → (𝐵↑𝑘) ∈ ℝ+)
154	3, 152, 153	syl2an 596	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐵↑𝑘) ∈ ℝ+)
155	135, 154	rerpdivcld 12968	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) / (𝐵↑𝑘)) ∈ ℝ)
156	11	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝐴 ∈ ℝ)
157		metge0 24231	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐷 ∈ (Met‘𝑋) ∧ (𝐹‘𝑘) ∈ 𝑋 ∧ (𝐹‘(𝑘 + 1)) ∈ 𝑋) → 0 ≤ ((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))))
158	129, 130, 133, 157	syl3anc 1373	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 0 ≤ ((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))))
159	135, 154, 158	divge0d 12977	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 0 ≤ (((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) / (𝐵↑𝑘)))
160	135, 156, 154	ledivmul2d 12991	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) / (𝐵↑𝑘)) ≤ 𝐴 ↔ ((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) ≤ (𝐴 · (𝐵↑𝑘))))
161	146, 160	mpbird 257	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) / (𝐵↑𝑘)) ≤ 𝐴)
162	151, 155, 156, 159, 161	letrd 11273	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 0 ≤ 𝐴)
163	140, 127, 162	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → 0 ≤ 𝐴)
164	140, 127, 154	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → (𝐵↑𝑘) ∈ ℝ+)
165	164	rpge0d 12941	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → 0 ≤ (𝐵↑𝑘))
166	83, 87, 163, 165	mulge0d 11697	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) ∧ 𝑘 ∈ (ℤ≥‘𝑗)) → 0 ≤ (𝐴 · (𝐵↑𝑘)))
167	73, 76, 122, 150, 82, 88, 166, 117	isumless 15752	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → Σ𝑘 ∈ (𝑗...(𝑛 − 1))(𝐴 · (𝐵↑𝑘)) ≤ Σ𝑘 ∈ (ℤ≥‘𝑗)(𝐴 · (𝐵↑𝑘)))
168	137, 145, 118, 148, 167	letrd 11273	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → Σ𝑘 ∈ (𝑗...(𝑛 − 1))((𝐹‘𝑘)𝐷(𝐹‘(𝑘 + 1))) ≤ Σ𝑘 ∈ (ℤ≥‘𝑗)(𝐴 · (𝐵↑𝑘)))
169	72, 137, 118, 143, 168	letrd 11273	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ≤ Σ𝑘 ∈ (ℤ≥‘𝑗)(𝐴 · (𝐵↑𝑘)))
170	169, 113	breqtrd 5118	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ≤ ((𝐵↑𝑗) · (𝐴 / (1 − 𝐵))))
171	119	leabsd 15322	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((𝐵↑𝑗) · (𝐴 / (1 − 𝐵))) ≤ (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))))
172	72, 119, 121, 170, 171	letrd 11273	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ≤ (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))))
173	172	adantlr 715	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ≤ (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))))
174	72	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ∈ ℝ)
175	121	adantlr 715	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) ∈ ℝ)
176		rpre 12902	. . . . . . . . . . 11 ⊢ (𝑥 ∈ ℝ+ → 𝑥 ∈ ℝ)
177	176	ad2antlr 727	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → 𝑥 ∈ ℝ)
178		lelttr 11206	. . . . . . . . . 10 ⊢ ((((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ∈ ℝ ∧ (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) ∈ ℝ ∧ 𝑥 ∈ ℝ) → ((((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ≤ (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) ∧ (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) < 𝑥) → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) < 𝑥))
179	174, 175, 177, 178	syl3anc 1373	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((((𝐹‘𝑗)𝐷(𝐹‘𝑛)) ≤ (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) ∧ (abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) < 𝑥) → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) < 𝑥))
180	173, 179	mpand 695	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑗 ∈ ℕ ∧ 𝑛 ∈ (ℤ≥‘𝑗))) → ((abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) < 𝑥 → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) < 𝑥))
181	180	anassrs 467	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑗 ∈ ℕ) ∧ 𝑛 ∈ (ℤ≥‘𝑗)) → ((abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) < 𝑥 → ((𝐹‘𝑗)𝐷(𝐹‘𝑛)) < 𝑥))
182	181	ralrimdva 3129	. . . . . 6 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑗 ∈ ℕ) → ((abs‘((𝐵↑𝑗) · (𝐴 / (1 − 𝐵)))) < 𝑥 → ∀𝑛 ∈ (ℤ≥‘𝑗)((𝐹‘𝑗)𝐷(𝐹‘𝑛)) < 𝑥))
183	61, 182	syld 47	. . . . 5 ⊢ (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑗 ∈ ℕ) → (∀𝑛 ∈ (ℤ≥‘𝑗)(abs‘((𝐵↑𝑛) · (𝐴 / (1 − 𝐵)))) < 𝑥 → ∀𝑛 ∈ (ℤ≥‘𝑗)((𝐹‘𝑗)𝐷(𝐹‘𝑛)) < 𝑥))
184	183	reximdva 3142	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ ℝ+) → (∃𝑗 ∈ ℕ ∀𝑛 ∈ (ℤ≥‘𝑗)(abs‘((𝐵↑𝑛) · (𝐴 / (1 − 𝐵)))) < 𝑥 → ∃𝑗 ∈ ℕ ∀𝑛 ∈ (ℤ≥‘𝑗)((𝐹‘𝑗)𝐷(𝐹‘𝑛)) < 𝑥))
185	184	ralimdva 3141	. . 3 ⊢ (𝜑 → (∀𝑥 ∈ ℝ+ ∃𝑗 ∈ ℕ ∀𝑛 ∈ (ℤ≥‘𝑗)(abs‘((𝐵↑𝑛) · (𝐴 / (1 − 𝐵)))) < 𝑥 → ∀𝑥 ∈ ℝ+ ∃𝑗 ∈ ℕ ∀𝑛 ∈ (ℤ≥‘𝑗)((𝐹‘𝑗)𝐷(𝐹‘𝑛)) < 𝑥))
186	53, 185	mpd 15	. 2 ⊢ (𝜑 → ∀𝑥 ∈ ℝ+ ∃𝑗 ∈ ℕ ∀𝑛 ∈ (ℤ≥‘𝑗)((𝐹‘𝑗)𝐷(𝐹‘𝑛)) < 𝑥)
187		metxmet 24220	. . . 4 ⊢ (𝐷 ∈ (Met‘𝑋) → 𝐷 ∈ (∞Met‘𝑋))
188	62, 187	syl 17	. . 3 ⊢ (𝜑 → 𝐷 ∈ (∞Met‘𝑋))
189		eqidd 2730	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐹‘𝑛) = (𝐹‘𝑛))
190		eqidd 2730	. . 3 ⊢ ((𝜑 ∧ 𝑗 ∈ ℕ) → (𝐹‘𝑗) = (𝐹‘𝑗))
191	1, 188, 2, 189, 190, 64	iscauf 25178	. 2 ⊢ (𝜑 → (𝐹 ∈ (Cau‘𝐷) ↔ ∀𝑥 ∈ ℝ+ ∃𝑗 ∈ ℕ ∀𝑛 ∈ (ℤ≥‘𝑗)((𝐹‘𝑗)𝐷(𝐹‘𝑛)) < 𝑥))
192	186, 191	mpbird 257	1 ⊢ (𝜑 → 𝐹 ∈ (Cau‘𝐷))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109   ≠ wne 2925  ∀wral 3044  ∃wrex 3053  Vcvv 3436   ⊆ wss 3903   class class class wbr 5092   ↦ cmpt 5173  dom cdm 5619  ⟶wf 6478  ‘cfv 6482  (class class class)co 7349  ℂcc 11007  ℝcr 11008  0cc0 11009  1c1 11010   + caddc 11012   · cmul 11014   < clt 11149   ≤ cle 11150   − cmin 11347   / cdiv 11777  ℕcn 12128  ℕ₀cn0 12384  ℤcz 12471  ℤ_≥cuz 12735  ℝ⁺crp 12893  ...cfz 13410  seqcseq 13908  ↑cexp 13968  abscabs 15141   ⇝ cli 15391  Σcsu 15593  ∞Metcxmet 21246  Metcmet 21247  Cauccau 25151

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5218  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671  ax-inf2 9537  ax-cnex 11065  ax-resscn 11066  ax-1cn 11067  ax-icn 11068  ax-addcl 11069  ax-addrcl 11070  ax-mulcl 11071  ax-mulrcl 11072  ax-mulcom 11073  ax-addass 11074  ax-mulass 11075  ax-distr 11076  ax-i2m1 11077  ax-1ne0 11078  ax-1rid 11079  ax-rnegex 11080  ax-rrecex 11081  ax-cnre 11082  ax-pre-lttri 11083  ax-pre-lttrn 11084  ax-pre-ltadd 11085  ax-pre-mulgt0 11086  ax-pre-sup 11087

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-nel 3030  df-ral 3045  df-rex 3054  df-rmo 3343  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-int 4897  df-iun 4943  df-br 5093  df-opab 5155  df-mpt 5174  df-tr 5200  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-se 5573  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6249  df-ord 6310  df-on 6311  df-lim 6312  df-suc 6313  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-isom 6491  df-riota 7306  df-ov 7352  df-oprab 7353  df-mpo 7354  df-om 7800  df-1st 7924  df-2nd 7925  df-frecs 8214  df-wrecs 8245  df-recs 8294  df-rdg 8332  df-1o 8388  df-er 8625  df-map 8755  df-pm 8756  df-en 8873  df-dom 8874  df-sdom 8875  df-fin 8876  df-sup 9332  df-inf 9333  df-oi 9402  df-card 9835  df-pnf 11151  df-mnf 11152  df-xr 11153  df-ltxr 11154  df-le 11155  df-sub 11349  df-neg 11350  df-div 11778  df-nn 12129  df-2 12191  df-3 12192  df-n0 12385  df-z 12472  df-uz 12736  df-rp 12894  df-xneg 13014  df-xadd 13015  df-xmul 13016  df-ico 13254  df-fz 13411  df-fzo 13558  df-fl 13696  df-seq 13909  df-exp 13969  df-hash 14238  df-cj 15006  df-re 15007  df-im 15008  df-sqrt 15142  df-abs 15143  df-clim 15395  df-rlim 15396  df-sum 15594  df-psmet 21253  df-xmet 21254  df-met 21255  df-bl 21256  df-cau 25154

This theorem is referenced by:  bfplem1  37812