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

Theorem ruclem1 15579
Description: Lemma for ruc 15591 (the reals are uncountable). Substitutions for the function 𝐷. (Contributed by Mario Carneiro, 28-May-2014.) (Revised by Fan Zheng, 6-Jun-2016.)
Hypotheses
Ref Expression
ruc.1 (𝜑𝐹:ℕ⟶ℝ)
ruc.2 (𝜑𝐷 = (𝑥 ∈ (ℝ × ℝ), 𝑦 ∈ ℝ ↦ (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑦, ⟨(1st𝑥), 𝑚⟩, ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩)))
ruclem1.3 (𝜑𝐴 ∈ ℝ)
ruclem1.4 (𝜑𝐵 ∈ ℝ)
ruclem1.5 (𝜑𝑀 ∈ ℝ)
ruclem1.6 𝑋 = (1st ‘(⟨𝐴, 𝐵𝐷𝑀))
ruclem1.7 𝑌 = (2nd ‘(⟨𝐴, 𝐵𝐷𝑀))
Assertion
Ref Expression
ruclem1 (𝜑 → ((⟨𝐴, 𝐵𝐷𝑀) ∈ (ℝ × ℝ) ∧ 𝑋 = if(((𝐴 + 𝐵) / 2) < 𝑀, 𝐴, ((((𝐴 + 𝐵) / 2) + 𝐵) / 2)) ∧ 𝑌 = if(((𝐴 + 𝐵) / 2) < 𝑀, ((𝐴 + 𝐵) / 2), 𝐵)))
Distinct variable groups:   𝑥,𝑚,𝑦,𝐴   𝐵,𝑚,𝑥,𝑦   𝑚,𝐹,𝑥,𝑦   𝑚,𝑀,𝑥,𝑦
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑚)   𝐷(𝑥,𝑦,𝑚)   𝑋(𝑥,𝑦,𝑚)   𝑌(𝑥,𝑦,𝑚)

Proof of Theorem ruclem1
StepHypRef Expression
1 ruc.2 . . . . . 6 (𝜑𝐷 = (𝑥 ∈ (ℝ × ℝ), 𝑦 ∈ ℝ ↦ (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑦, ⟨(1st𝑥), 𝑚⟩, ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩)))
21oveqd 7167 . . . . 5 (𝜑 → (⟨𝐴, 𝐵𝐷𝑀) = (⟨𝐴, 𝐵⟩(𝑥 ∈ (ℝ × ℝ), 𝑦 ∈ ℝ ↦ (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑦, ⟨(1st𝑥), 𝑚⟩, ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩))𝑀))
3 ruclem1.3 . . . . . . 7 (𝜑𝐴 ∈ ℝ)
4 ruclem1.4 . . . . . . 7 (𝜑𝐵 ∈ ℝ)
53, 4opelxpd 5592 . . . . . 6 (𝜑 → ⟨𝐴, 𝐵⟩ ∈ (ℝ × ℝ))
6 ruclem1.5 . . . . . 6 (𝜑𝑀 ∈ ℝ)
7 simpr 485 . . . . . . . . . . 11 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → 𝑦 = 𝑀)
87breq2d 5075 . . . . . . . . . 10 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → (𝑚 < 𝑦𝑚 < 𝑀))
9 simpl 483 . . . . . . . . . . . 12 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → 𝑥 = ⟨𝐴, 𝐵⟩)
109fveq2d 6673 . . . . . . . . . . 11 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → (1st𝑥) = (1st ‘⟨𝐴, 𝐵⟩))
1110opeq1d 4808 . . . . . . . . . 10 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → ⟨(1st𝑥), 𝑚⟩ = ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩)
129fveq2d 6673 . . . . . . . . . . . . 13 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → (2nd𝑥) = (2nd ‘⟨𝐴, 𝐵⟩))
1312oveq2d 7166 . . . . . . . . . . . 12 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → (𝑚 + (2nd𝑥)) = (𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)))
1413oveq1d 7165 . . . . . . . . . . 11 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → ((𝑚 + (2nd𝑥)) / 2) = ((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2))
1514, 12opeq12d 4810 . . . . . . . . . 10 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩ = ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩)
168, 11, 15ifbieq12d 4497 . . . . . . . . 9 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → if(𝑚 < 𝑦, ⟨(1st𝑥), 𝑚⟩, ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩) = if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩))
1716csbeq2dv 3894 . . . . . . . 8 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑦, ⟨(1st𝑥), 𝑚⟩, ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩) = (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩))
1810, 12oveq12d 7168 . . . . . . . . . 10 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → ((1st𝑥) + (2nd𝑥)) = ((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)))
1918oveq1d 7165 . . . . . . . . 9 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → (((1st𝑥) + (2nd𝑥)) / 2) = (((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2))
2019csbeq1d 3891 . . . . . . . 8 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩) = (((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩))
2117, 20eqtrd 2861 . . . . . . 7 ((𝑥 = ⟨𝐴, 𝐵⟩ ∧ 𝑦 = 𝑀) → (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑦, ⟨(1st𝑥), 𝑚⟩, ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩) = (((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩))
22 eqid 2826 . . . . . . 7 (𝑥 ∈ (ℝ × ℝ), 𝑦 ∈ ℝ ↦ (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑦, ⟨(1st𝑥), 𝑚⟩, ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩)) = (𝑥 ∈ (ℝ × ℝ), 𝑦 ∈ ℝ ↦ (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑦, ⟨(1st𝑥), 𝑚⟩, ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩))
23 opex 5353 . . . . . . . . 9 ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩ ∈ V
24 opex 5353 . . . . . . . . 9 ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩ ∈ V
2523, 24ifex 4518 . . . . . . . 8 if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩) ∈ V
2625csbex 5212 . . . . . . 7 (((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩) ∈ V
2721, 22, 26ovmpoa 7299 . . . . . 6 ((⟨𝐴, 𝐵⟩ ∈ (ℝ × ℝ) ∧ 𝑀 ∈ ℝ) → (⟨𝐴, 𝐵⟩(𝑥 ∈ (ℝ × ℝ), 𝑦 ∈ ℝ ↦ (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑦, ⟨(1st𝑥), 𝑚⟩, ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩))𝑀) = (((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩))
285, 6, 27syl2anc 584 . . . . 5 (𝜑 → (⟨𝐴, 𝐵⟩(𝑥 ∈ (ℝ × ℝ), 𝑦 ∈ ℝ ↦ (((1st𝑥) + (2nd𝑥)) / 2) / 𝑚if(𝑚 < 𝑦, ⟨(1st𝑥), 𝑚⟩, ⟨((𝑚 + (2nd𝑥)) / 2), (2nd𝑥)⟩))𝑀) = (((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩))
292, 28eqtrd 2861 . . . 4 (𝜑 → (⟨𝐴, 𝐵𝐷𝑀) = (((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩))
30 op1stg 7697 . . . . . . . . 9 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (1st ‘⟨𝐴, 𝐵⟩) = 𝐴)
313, 4, 30syl2anc 584 . . . . . . . 8 (𝜑 → (1st ‘⟨𝐴, 𝐵⟩) = 𝐴)
32 op2ndg 7698 . . . . . . . . 9 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → (2nd ‘⟨𝐴, 𝐵⟩) = 𝐵)
333, 4, 32syl2anc 584 . . . . . . . 8 (𝜑 → (2nd ‘⟨𝐴, 𝐵⟩) = 𝐵)
3431, 33oveq12d 7168 . . . . . . 7 (𝜑 → ((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) = (𝐴 + 𝐵))
3534oveq1d 7165 . . . . . 6 (𝜑 → (((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) = ((𝐴 + 𝐵) / 2))
3635csbeq1d 3891 . . . . 5 (𝜑(((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩) = ((𝐴 + 𝐵) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩))
37 ovex 7183 . . . . . . 7 ((𝐴 + 𝐵) / 2) ∈ V
38 breq1 5066 . . . . . . . 8 (𝑚 = ((𝐴 + 𝐵) / 2) → (𝑚 < 𝑀 ↔ ((𝐴 + 𝐵) / 2) < 𝑀))
39 opeq2 4803 . . . . . . . 8 (𝑚 = ((𝐴 + 𝐵) / 2) → ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩ = ⟨(1st ‘⟨𝐴, 𝐵⟩), ((𝐴 + 𝐵) / 2)⟩)
40 oveq1 7157 . . . . . . . . . 10 (𝑚 = ((𝐴 + 𝐵) / 2) → (𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) = (((𝐴 + 𝐵) / 2) + (2nd ‘⟨𝐴, 𝐵⟩)))
4140oveq1d 7165 . . . . . . . . 9 (𝑚 = ((𝐴 + 𝐵) / 2) → ((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) = ((((𝐴 + 𝐵) / 2) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2))
4241opeq1d 4808 . . . . . . . 8 (𝑚 = ((𝐴 + 𝐵) / 2) → ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩ = ⟨((((𝐴 + 𝐵) / 2) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩)
4338, 39, 42ifbieq12d 4497 . . . . . . 7 (𝑚 = ((𝐴 + 𝐵) / 2) → if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩) = if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩))
4437, 43csbie 3922 . . . . . 6 ((𝐴 + 𝐵) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩) = if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩)
4531opeq1d 4808 . . . . . . 7 (𝜑 → ⟨(1st ‘⟨𝐴, 𝐵⟩), ((𝐴 + 𝐵) / 2)⟩ = ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩)
4633oveq2d 7166 . . . . . . . . 9 (𝜑 → (((𝐴 + 𝐵) / 2) + (2nd ‘⟨𝐴, 𝐵⟩)) = (((𝐴 + 𝐵) / 2) + 𝐵))
4746oveq1d 7165 . . . . . . . 8 (𝜑 → ((((𝐴 + 𝐵) / 2) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) = ((((𝐴 + 𝐵) / 2) + 𝐵) / 2))
4847, 33opeq12d 4810 . . . . . . 7 (𝜑 → ⟨((((𝐴 + 𝐵) / 2) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩ = ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩)
4945, 48ifeq12d 4490 . . . . . 6 (𝜑 → if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩) = if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩))
5044, 49syl5eq 2873 . . . . 5 (𝜑((𝐴 + 𝐵) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩) = if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩))
5136, 50eqtrd 2861 . . . 4 (𝜑(((1st ‘⟨𝐴, 𝐵⟩) + (2nd ‘⟨𝐴, 𝐵⟩)) / 2) / 𝑚if(𝑚 < 𝑀, ⟨(1st ‘⟨𝐴, 𝐵⟩), 𝑚⟩, ⟨((𝑚 + (2nd ‘⟨𝐴, 𝐵⟩)) / 2), (2nd ‘⟨𝐴, 𝐵⟩)⟩) = if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩))
5229, 51eqtrd 2861 . . 3 (𝜑 → (⟨𝐴, 𝐵𝐷𝑀) = if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩))
533, 4readdcld 10664 . . . . . 6 (𝜑 → (𝐴 + 𝐵) ∈ ℝ)
5453rehalfcld 11878 . . . . 5 (𝜑 → ((𝐴 + 𝐵) / 2) ∈ ℝ)
553, 54opelxpd 5592 . . . 4 (𝜑 → ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩ ∈ (ℝ × ℝ))
5654, 4readdcld 10664 . . . . . 6 (𝜑 → (((𝐴 + 𝐵) / 2) + 𝐵) ∈ ℝ)
5756rehalfcld 11878 . . . . 5 (𝜑 → ((((𝐴 + 𝐵) / 2) + 𝐵) / 2) ∈ ℝ)
5857, 4opelxpd 5592 . . . 4 (𝜑 → ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩ ∈ (ℝ × ℝ))
5955, 58ifcld 4515 . . 3 (𝜑 → if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩) ∈ (ℝ × ℝ))
6052, 59eqeltrd 2918 . 2 (𝜑 → (⟨𝐴, 𝐵𝐷𝑀) ∈ (ℝ × ℝ))
61 ruclem1.6 . . 3 𝑋 = (1st ‘(⟨𝐴, 𝐵𝐷𝑀))
6252fveq2d 6673 . . . 4 (𝜑 → (1st ‘(⟨𝐴, 𝐵𝐷𝑀)) = (1st ‘if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩)))
63 fvif 6685 . . . . 5 (1st ‘if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩)) = if(((𝐴 + 𝐵) / 2) < 𝑀, (1st ‘⟨𝐴, ((𝐴 + 𝐵) / 2)⟩), (1st ‘⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩))
64 op1stg 7697 . . . . . . 7 ((𝐴 ∈ ℝ ∧ ((𝐴 + 𝐵) / 2) ∈ V) → (1st ‘⟨𝐴, ((𝐴 + 𝐵) / 2)⟩) = 𝐴)
653, 37, 64sylancl 586 . . . . . 6 (𝜑 → (1st ‘⟨𝐴, ((𝐴 + 𝐵) / 2)⟩) = 𝐴)
66 ovex 7183 . . . . . . 7 ((((𝐴 + 𝐵) / 2) + 𝐵) / 2) ∈ V
67 op1stg 7697 . . . . . . 7 ((((((𝐴 + 𝐵) / 2) + 𝐵) / 2) ∈ V ∧ 𝐵 ∈ ℝ) → (1st ‘⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩) = ((((𝐴 + 𝐵) / 2) + 𝐵) / 2))
6866, 4, 67sylancr 587 . . . . . 6 (𝜑 → (1st ‘⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩) = ((((𝐴 + 𝐵) / 2) + 𝐵) / 2))
6965, 68ifeq12d 4490 . . . . 5 (𝜑 → if(((𝐴 + 𝐵) / 2) < 𝑀, (1st ‘⟨𝐴, ((𝐴 + 𝐵) / 2)⟩), (1st ‘⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩)) = if(((𝐴 + 𝐵) / 2) < 𝑀, 𝐴, ((((𝐴 + 𝐵) / 2) + 𝐵) / 2)))
7063, 69syl5eq 2873 . . . 4 (𝜑 → (1st ‘if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩)) = if(((𝐴 + 𝐵) / 2) < 𝑀, 𝐴, ((((𝐴 + 𝐵) / 2) + 𝐵) / 2)))
7162, 70eqtrd 2861 . . 3 (𝜑 → (1st ‘(⟨𝐴, 𝐵𝐷𝑀)) = if(((𝐴 + 𝐵) / 2) < 𝑀, 𝐴, ((((𝐴 + 𝐵) / 2) + 𝐵) / 2)))
7261, 71syl5eq 2873 . 2 (𝜑𝑋 = if(((𝐴 + 𝐵) / 2) < 𝑀, 𝐴, ((((𝐴 + 𝐵) / 2) + 𝐵) / 2)))
73 ruclem1.7 . . 3 𝑌 = (2nd ‘(⟨𝐴, 𝐵𝐷𝑀))
7452fveq2d 6673 . . . 4 (𝜑 → (2nd ‘(⟨𝐴, 𝐵𝐷𝑀)) = (2nd ‘if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩)))
75 fvif 6685 . . . . 5 (2nd ‘if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩)) = if(((𝐴 + 𝐵) / 2) < 𝑀, (2nd ‘⟨𝐴, ((𝐴 + 𝐵) / 2)⟩), (2nd ‘⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩))
76 op2ndg 7698 . . . . . . 7 ((𝐴 ∈ ℝ ∧ ((𝐴 + 𝐵) / 2) ∈ V) → (2nd ‘⟨𝐴, ((𝐴 + 𝐵) / 2)⟩) = ((𝐴 + 𝐵) / 2))
773, 37, 76sylancl 586 . . . . . 6 (𝜑 → (2nd ‘⟨𝐴, ((𝐴 + 𝐵) / 2)⟩) = ((𝐴 + 𝐵) / 2))
78 op2ndg 7698 . . . . . . 7 ((((((𝐴 + 𝐵) / 2) + 𝐵) / 2) ∈ V ∧ 𝐵 ∈ ℝ) → (2nd ‘⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩) = 𝐵)
7966, 4, 78sylancr 587 . . . . . 6 (𝜑 → (2nd ‘⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩) = 𝐵)
8077, 79ifeq12d 4490 . . . . 5 (𝜑 → if(((𝐴 + 𝐵) / 2) < 𝑀, (2nd ‘⟨𝐴, ((𝐴 + 𝐵) / 2)⟩), (2nd ‘⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩)) = if(((𝐴 + 𝐵) / 2) < 𝑀, ((𝐴 + 𝐵) / 2), 𝐵))
8175, 80syl5eq 2873 . . . 4 (𝜑 → (2nd ‘if(((𝐴 + 𝐵) / 2) < 𝑀, ⟨𝐴, ((𝐴 + 𝐵) / 2)⟩, ⟨((((𝐴 + 𝐵) / 2) + 𝐵) / 2), 𝐵⟩)) = if(((𝐴 + 𝐵) / 2) < 𝑀, ((𝐴 + 𝐵) / 2), 𝐵))
8274, 81eqtrd 2861 . . 3 (𝜑 → (2nd ‘(⟨𝐴, 𝐵𝐷𝑀)) = if(((𝐴 + 𝐵) / 2) < 𝑀, ((𝐴 + 𝐵) / 2), 𝐵))
8373, 82syl5eq 2873 . 2 (𝜑𝑌 = if(((𝐴 + 𝐵) / 2) < 𝑀, ((𝐴 + 𝐵) / 2), 𝐵))
8460, 72, 833jca 1122 1 (𝜑 → ((⟨𝐴, 𝐵𝐷𝑀) ∈ (ℝ × ℝ) ∧ 𝑋 = if(((𝐴 + 𝐵) / 2) < 𝑀, 𝐴, ((((𝐴 + 𝐵) / 2) + 𝐵) / 2)) ∧ 𝑌 = if(((𝐴 + 𝐵) / 2) < 𝑀, ((𝐴 + 𝐵) / 2), 𝐵)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3a 1081   = wceq 1530  wcel 2107  Vcvv 3500  csb 3887  ifcif 4470  cop 4570   class class class wbr 5063   × cxp 5552  wf 6350  cfv 6354  (class class class)co 7150  cmpo 7152  1st c1st 7683  2nd c2nd 7684  cr 10530   + caddc 10534   < clt 10669   / cdiv 11291  cn 11632  2c2 11686
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1904  ax-6 1963  ax-7 2008  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2153  ax-12 2169  ax-ext 2798  ax-sep 5200  ax-nul 5207  ax-pow 5263  ax-pr 5326  ax-un 7455  ax-resscn 10588  ax-1cn 10589  ax-icn 10590  ax-addcl 10591  ax-addrcl 10592  ax-mulcl 10593  ax-mulrcl 10594  ax-mulcom 10595  ax-addass 10596  ax-mulass 10597  ax-distr 10598  ax-i2m1 10599  ax-1ne0 10600  ax-1rid 10601  ax-rnegex 10602  ax-rrecex 10603  ax-cnre 10604  ax-pre-lttri 10605  ax-pre-lttrn 10606  ax-pre-ltadd 10607  ax-pre-mulgt0 10608
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 844  df-3or 1082  df-3an 1083  df-tru 1533  df-fal 1543  df-ex 1774  df-nf 1778  df-sb 2063  df-mo 2620  df-eu 2652  df-clab 2805  df-cleq 2819  df-clel 2898  df-nfc 2968  df-ne 3022  df-nel 3129  df-ral 3148  df-rex 3149  df-reu 3150  df-rmo 3151  df-rab 3152  df-v 3502  df-sbc 3777  df-csb 3888  df-dif 3943  df-un 3945  df-in 3947  df-ss 3956  df-nul 4296  df-if 4471  df-pw 4544  df-sn 4565  df-pr 4567  df-op 4571  df-uni 4838  df-br 5064  df-opab 5126  df-mpt 5144  df-id 5459  df-po 5473  df-so 5474  df-xp 5560  df-rel 5561  df-cnv 5562  df-co 5563  df-dm 5564  df-rn 5565  df-res 5566  df-ima 5567  df-iota 6313  df-fun 6356  df-fn 6357  df-f 6358  df-f1 6359  df-fo 6360  df-f1o 6361  df-fv 6362  df-riota 7108  df-ov 7153  df-oprab 7154  df-mpo 7155  df-1st 7685  df-2nd 7686  df-er 8284  df-en 8504  df-dom 8505  df-sdom 8506  df-pnf 10671  df-mnf 10672  df-xr 10673  df-ltxr 10674  df-le 10675  df-sub 10866  df-neg 10867  df-div 11292  df-2 11694
This theorem is referenced by:  ruclem2  15580  ruclem3  15581  ruclem6  15583
  Copyright terms: Public domain W3C validator