ruclem8 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > ruclem8		Structured version Visualization version GIF version

Theorem ruclem8 16288

Description: Lemma for ruc 16294. The intervals of the 𝐺 sequence are all nonempty. (Contributed by Mario Carneiro, 28-May-2014.)

**Hypotheses**
Ref	Expression
ruc.1	⊢ (𝜑 → 𝐹:ℕ⟶ℝ)
ruc.2	⊢ (𝜑 → 𝐷 = (𝑥 ∈ (ℝ × ℝ), 𝑦 ∈ ℝ ↦ ⦋(((1^st ‘𝑥) + (2^nd ‘𝑥)) / 2) / 𝑚⦌if(𝑚 < 𝑦, ⟨(1^st ‘𝑥), 𝑚⟩, ⟨((𝑚 + (2^nd ‘𝑥)) / 2), (2^nd ‘𝑥)⟩)))
ruc.4	⊢ 𝐶 = ({⟨0, ⟨0, 1⟩⟩} ∪ 𝐹)
ruc.5	⊢ 𝐺 = seq0(𝐷, 𝐶)

**Assertion**
Ref	Expression
ruclem8	⊢ ((𝜑 ∧ 𝑁 ∈ ℕ₀) → (1^st ‘(𝐺‘𝑁)) < (2^nd ‘(𝐺‘𝑁)))

Distinct variable groups: 𝑥,𝑚,𝑦,𝐹 𝑚,𝐺,𝑥,𝑦 𝑚,𝑁,𝑥,𝑦 Allowed substitution hints: 𝜑(𝑥,𝑦,𝑚) 𝐶(𝑥,𝑦,𝑚) 𝐷(𝑥,𝑦,𝑚)

Proof of Theorem ruclem8 Dummy variables 𝑛 𝑘 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		2fveq3 6886	. . . . 5 ⊢ (𝑘 = 0 → (1^st ‘(𝐺‘𝑘)) = (1^st ‘(𝐺‘0)))
2		2fveq3 6886	. . . . 5 ⊢ (𝑘 = 0 → (2^nd ‘(𝐺‘𝑘)) = (2^nd ‘(𝐺‘0)))
3	1, 2	breq12d 5122	. . . 4 ⊢ (𝑘 = 0 → ((1^st ‘(𝐺‘𝑘)) < (2^nd ‘(𝐺‘𝑘)) ↔ (1^st ‘(𝐺‘0)) < (2^nd ‘(𝐺‘0))))
4	3	imbi2d 343	. . 3 ⊢ (𝑘 = 0 → ((𝜑 → (1^st ‘(𝐺‘𝑘)) < (2^nd ‘(𝐺‘𝑘))) ↔ (𝜑 → (1^st ‘(𝐺‘0)) < (2^nd ‘(𝐺‘0)))))
5		2fveq3 6886	. . . . 5 ⊢ (𝑘 = 𝑛 → (1^st ‘(𝐺‘𝑘)) = (1^st ‘(𝐺‘𝑛)))
6		2fveq3 6886	. . . . 5 ⊢ (𝑘 = 𝑛 → (2^nd ‘(𝐺‘𝑘)) = (2^nd ‘(𝐺‘𝑛)))
7	5, 6	breq12d 5122	. . . 4 ⊢ (𝑘 = 𝑛 → ((1^st ‘(𝐺‘𝑘)) < (2^nd ‘(𝐺‘𝑘)) ↔ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛))))
8	7	imbi2d 343	. . 3 ⊢ (𝑘 = 𝑛 → ((𝜑 → (1^st ‘(𝐺‘𝑘)) < (2^nd ‘(𝐺‘𝑘))) ↔ (𝜑 → (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))))
9		2fveq3 6886	. . . . 5 ⊢ (𝑘 = (𝑛 + 1) → (1^st ‘(𝐺‘𝑘)) = (1^st ‘(𝐺‘(𝑛 + 1))))
10		2fveq3 6886	. . . . 5 ⊢ (𝑘 = (𝑛 + 1) → (2^nd ‘(𝐺‘𝑘)) = (2^nd ‘(𝐺‘(𝑛 + 1))))
11	9, 10	breq12d 5122	. . . 4 ⊢ (𝑘 = (𝑛 + 1) → ((1^st ‘(𝐺‘𝑘)) < (2^nd ‘(𝐺‘𝑘)) ↔ (1^st ‘(𝐺‘(𝑛 + 1))) < (2^nd ‘(𝐺‘(𝑛 + 1)))))
12	11	imbi2d 343	. . 3 ⊢ (𝑘 = (𝑛 + 1) → ((𝜑 → (1^st ‘(𝐺‘𝑘)) < (2^nd ‘(𝐺‘𝑘))) ↔ (𝜑 → (1^st ‘(𝐺‘(𝑛 + 1))) < (2^nd ‘(𝐺‘(𝑛 + 1))))))
13		2fveq3 6886	. . . . 5 ⊢ (𝑘 = 𝑁 → (1^st ‘(𝐺‘𝑘)) = (1^st ‘(𝐺‘𝑁)))
14		2fveq3 6886	. . . . 5 ⊢ (𝑘 = 𝑁 → (2^nd ‘(𝐺‘𝑘)) = (2^nd ‘(𝐺‘𝑁)))
15	13, 14	breq12d 5122	. . . 4 ⊢ (𝑘 = 𝑁 → ((1^st ‘(𝐺‘𝑘)) < (2^nd ‘(𝐺‘𝑘)) ↔ (1^st ‘(𝐺‘𝑁)) < (2^nd ‘(𝐺‘𝑁))))
16	15	imbi2d 343	. . 3 ⊢ (𝑘 = 𝑁 → ((𝜑 → (1^st ‘(𝐺‘𝑘)) < (2^nd ‘(𝐺‘𝑘))) ↔ (𝜑 → (1^st ‘(𝐺‘𝑁)) < (2^nd ‘(𝐺‘𝑁)))))
17		0lt1 11731	. . . . 5 ⊢ 0 < 1
18	17	a1i 11	. . . 4 ⊢ (𝜑 → 0 < 1)
19		ruc.1	. . . . . . 7 ⊢ (𝜑 → 𝐹:ℕ⟶ℝ)
20		ruc.2	. . . . . . 7 ⊢ (𝜑 → 𝐷 = (𝑥 ∈ (ℝ × ℝ), 𝑦 ∈ ℝ ↦ ⦋(((1^st ‘𝑥) + (2^nd ‘𝑥)) / 2) / 𝑚⦌if(𝑚 < 𝑦, ⟨(1^st ‘𝑥), 𝑚⟩, ⟨((𝑚 + (2^nd ‘𝑥)) / 2), (2^nd ‘𝑥)⟩)))
21		ruc.4	. . . . . . 7 ⊢ 𝐶 = ({⟨0, ⟨0, 1⟩⟩} ∪ 𝐹)
22		ruc.5	. . . . . . 7 ⊢ 𝐺 = seq0(𝐷, 𝐶)
23	19, 20, 21, 22	ruclem4 16285	. . . . . 6 ⊢ (𝜑 → (𝐺‘0) = ⟨0, 1⟩)
24	23	fveq2d 6885	. . . . 5 ⊢ (𝜑 → (1^st ‘(𝐺‘0)) = (1^st ‘⟨0, 1⟩))
25		c0ex 11195	. . . . . 6 ⊢ 0 ∈ V
26		1ex 11198	. . . . . 6 ⊢ 1 ∈ V
27	25, 26	op1st 7990	. . . . 5 ⊢ (1^st ‘⟨0, 1⟩) = 0
28	24, 27	eqtrdi 2814	. . . 4 ⊢ (𝜑 → (1^st ‘(𝐺‘0)) = 0)
29	23	fveq2d 6885	. . . . 5 ⊢ (𝜑 → (2^nd ‘(𝐺‘0)) = (2^nd ‘⟨0, 1⟩))
30	25, 26	op2nd 7991	. . . . 5 ⊢ (2^nd ‘⟨0, 1⟩) = 1
31	29, 30	eqtrdi 2814	. . . 4 ⊢ (𝜑 → (2^nd ‘(𝐺‘0)) = 1)
32	18, 28, 31	3brtr4d 5143	. . 3 ⊢ (𝜑 → (1^st ‘(𝐺‘0)) < (2^nd ‘(𝐺‘0)))
33	19	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → 𝐹:ℕ⟶ℝ)
34	20	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → 𝐷 = (𝑥 ∈ (ℝ × ℝ), 𝑦 ∈ ℝ ↦ ⦋(((1^st ‘𝑥) + (2^nd ‘𝑥)) / 2) / 𝑚⦌if(𝑚 < 𝑦, ⟨(1^st ‘𝑥), 𝑚⟩, ⟨((𝑚 + (2^nd ‘𝑥)) / 2), (2^nd ‘𝑥)⟩)))
35	19, 20, 21, 22	ruclem6 16286	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐺:ℕ₀⟶(ℝ × ℝ))
36	35	ffvelcdmda 7079	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ₀) → (𝐺‘𝑛) ∈ (ℝ × ℝ))
37	36	adantrr 729	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (𝐺‘𝑛) ∈ (ℝ × ℝ))
38		xp1st 8014	. . . . . . . . . 10 ⊢ ((𝐺‘𝑛) ∈ (ℝ × ℝ) → (1^st ‘(𝐺‘𝑛)) ∈ ℝ)
39	37, 38	syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (1^st ‘(𝐺‘𝑛)) ∈ ℝ)
40		xp2nd 8015	. . . . . . . . . 10 ⊢ ((𝐺‘𝑛) ∈ (ℝ × ℝ) → (2^nd ‘(𝐺‘𝑛)) ∈ ℝ)
41	37, 40	syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (2^nd ‘(𝐺‘𝑛)) ∈ ℝ)
42		nn0p1nn 12538	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ₀ → (𝑛 + 1) ∈ ℕ)
43		ffvelcdm 7076	. . . . . . . . . . 11 ⊢ ((𝐹:ℕ⟶ℝ ∧ (𝑛 + 1) ∈ ℕ) → (𝐹‘(𝑛 + 1)) ∈ ℝ)
44	19, 42, 43	syl2an 607	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ₀) → (𝐹‘(𝑛 + 1)) ∈ ℝ)
45	44	adantrr 729	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (𝐹‘(𝑛 + 1)) ∈ ℝ)
46		eqid 2763	. . . . . . . . 9 ⊢ (1^st ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1)))) = (1^st ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1))))
47		eqid 2763	. . . . . . . . 9 ⊢ (2^nd ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1)))) = (2^nd ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1))))
48		simprr 784	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))
49	33, 34, 39, 41, 45, 46, 47, 48	ruclem2 16283	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → ((1^st ‘(𝐺‘𝑛)) ≤ (1^st ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1)))) ∧ (1^st ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1)))) < (2^nd ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1)))) ∧ (2^nd ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1)))) ≤ (2^nd ‘(𝐺‘𝑛))))
50	49	simp2d 1161	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (1^st ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1)))) < (2^nd ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1)))))
51	19, 20, 21, 22	ruclem7 16287	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ₀) → (𝐺‘(𝑛 + 1)) = ((𝐺‘𝑛)𝐷(𝐹‘(𝑛 + 1))))
52	51	adantrr 729	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (𝐺‘(𝑛 + 1)) = ((𝐺‘𝑛)𝐷(𝐹‘(𝑛 + 1))))
53		1st2nd2 8021	. . . . . . . . . . 11 ⊢ ((𝐺‘𝑛) ∈ (ℝ × ℝ) → (𝐺‘𝑛) = ⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩)
54	37, 53	syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (𝐺‘𝑛) = ⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩)
55	54	oveq1d 7425	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → ((𝐺‘𝑛)𝐷(𝐹‘(𝑛 + 1))) = (⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1))))
56	52, 55	eqtrd 2798	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (𝐺‘(𝑛 + 1)) = (⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1))))
57	56	fveq2d 6885	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (1^st ‘(𝐺‘(𝑛 + 1))) = (1^st ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1)))))
58	56	fveq2d 6885	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (2^nd ‘(𝐺‘(𝑛 + 1))) = (2^nd ‘(⟨(1^st ‘(𝐺‘𝑛)), (2^nd ‘(𝐺‘𝑛))⟩𝐷(𝐹‘(𝑛 + 1)))))
59	50, 57, 58	3brtr4d 5143	. . . . . 6 ⊢ ((𝜑 ∧ (𝑛 ∈ ℕ₀ ∧ (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)))) → (1^st ‘(𝐺‘(𝑛 + 1))) < (2^nd ‘(𝐺‘(𝑛 + 1))))
60	59	expr 461	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ₀) → ((1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)) → (1^st ‘(𝐺‘(𝑛 + 1))) < (2^nd ‘(𝐺‘(𝑛 + 1)))))
61	60	expcom 418	. . . 4 ⊢ (𝑛 ∈ ℕ₀ → (𝜑 → ((1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛)) → (1^st ‘(𝐺‘(𝑛 + 1))) < (2^nd ‘(𝐺‘(𝑛 + 1))))))
62	61	a2d 30	. . 3 ⊢ (𝑛 ∈ ℕ₀ → ((𝜑 → (1^st ‘(𝐺‘𝑛)) < (2^nd ‘(𝐺‘𝑛))) → (𝜑 → (1^st ‘(𝐺‘(𝑛 + 1))) < (2^nd ‘(𝐺‘(𝑛 + 1))))))
63	4, 8, 12, 16, 32, 62	nn0ind 12686	. 2 ⊢ (𝑁 ∈ ℕ₀ → (𝜑 → (1^st ‘(𝐺‘𝑁)) < (2^nd ‘(𝐺‘𝑁))))
64	63	impcom 412	1 ⊢ ((𝜑 ∧ 𝑁 ∈ ℕ₀) → (1^st ‘(𝐺‘𝑁)) < (2^nd ‘(𝐺‘𝑁)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 400 = wceq 1570 ∈ wcel 2143 ⦋csb 3853 ∪ cun 3903 ifcif 4487 {csn 4589 ⟨cop 4595 class class class wbr 5109 × cxp 5659 ⟶wf 6532 ‘cfv 6536 (class class class)co 7410 ∈ cmpo 7412 1^st c1st 7980 2^nd c2nd 7981 ℝcr 11094 0cc0 11095 1c1 11096 + caddc 11098 < clt 11238 ≤ cle 11239 / cdiv 11866 ℕcn 12228 2c2 12290 ℕ₀cn0 12499 seqcseq 14033

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1825 ax-4 1839 ax-5 1940 ax-6 1997 ax-7 2038 ax-8 2145 ax-9 2153 ax-10 2176 ax-11 2192 ax-12 2213 ax-ext 2735 ax-sep 5257 ax-nul 5269 ax-pow 5336 ax-pr 5404 ax-un 7732 ax-cnex 11151 ax-resscn 11152 ax-1cn 11153 ax-icn 11154 ax-addcl 11155 ax-addrcl 11156 ax-mulcl 11157 ax-mulrcl 11158 ax-mulcom 11159 ax-addass 11160 ax-mulass 11161 ax-distr 11162 ax-i2m1 11163 ax-1ne0 11164 ax-1rid 11165 ax-rnegex 11166 ax-rrecex 11167 ax-cnre 11168 ax-pre-lttri 11169 ax-pre-lttrn 11170 ax-pre-ltadd 11171 ax-pre-mulgt0 11172

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1810 df-nf 1814 df-sb 2097 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2838 df-nfc 2912 df-ne 2959 df-nel 3065 df-ral 3080 df-rex 3090 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3457 df-sbc 3745 df-csb 3854 df-dif 3908 df-un 3910 df-in 3912 df-ss 3922 df-pss 3925 df-nul 4287 df-if 4488 df-pw 4564 df-sn 4590 df-pr 4592 df-op 4596 df-uni 4873 df-iun 4958 df-br 5110 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5556 df-eprel 5561 df-po 5569 df-so 5570 df-fr 5614 df-we 5616 df-xp 5667 df-rel 5668 df-cnv 5669 df-co 5670 df-dm 5671 df-rn 5672 df-res 5673 df-ima 5674 df-pred 6302 df-ord 6363 df-on 6364 df-lim 6365 df-suc 6366 df-iota 6492 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-om 7859 df-1st 7982 df-2nd 7983 df-frecs 8274 df-wrecs 8305 df-recs 8354 df-rdg 8393 df-er 8690 df-en 8940 df-dom 8941 df-sdom 8942 df-pnf 11240 df-mnf 11241 df-xr 11242 df-ltxr 11243 df-le 11244 df-sub 11438 df-neg 11439 df-div 11867 df-nn 12229 df-2 12298 df-n0 12500 df-z 12587 df-uz 12858 df-fz 13531 df-seq 14034

This theorem is referenced by: ruclem9 16289 ruclem10 16290 ruclem12 16292

W3C validator