Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  smfmullem2 Structured version   Visualization version   GIF version

Theorem smfmullem2 43998
Description: The multiplication of two sigma-measurable functions is measurable: this is the step (i) of the proof of Proposition 121E (d) of [Fremlin1] p. 37 . (Contributed by Glauco Siliprandi, 26-Jun-2021.)
Hypotheses
Ref Expression
smfmullem2.a (𝜑𝐴 ∈ ℝ)
smfmullem2.k 𝐾 = {𝑞 ∈ (ℚ ↑m (0...3)) ∣ ∀𝑢 ∈ ((𝑞‘0)(,)(𝑞‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴}
smfmullem2.u (𝜑𝑈 ∈ ℝ)
smfmullem2.v (𝜑𝑉 ∈ ℝ)
smfmullem2.l (𝜑 → (𝑈 · 𝑉) < 𝐴)
smfmullem2.p (𝜑𝑃 ∈ ℚ)
smfmullem2.r (𝜑𝑅 ∈ ℚ)
smfmullem2.s (𝜑𝑆 ∈ ℚ)
smfmullem2.z (𝜑𝑍 ∈ ℚ)
smfmullem2.p2 (𝜑𝑃 ∈ ((𝑈𝑌)(,)𝑈))
smfmullem2.42 (𝜑𝑅 ∈ (𝑈(,)(𝑈 + 𝑌)))
smfmullem2.w2 (𝜑𝑆 ∈ ((𝑉𝑌)(,)𝑉))
smfmullem2.z2 (𝜑𝑍 ∈ (𝑉(,)(𝑉 + 𝑌)))
smfmullem2.x 𝑋 = ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉))))
smfmullem2.y 𝑌 = if(1 ≤ 𝑋, 1, 𝑋)
Assertion
Ref Expression
smfmullem2 (𝜑 → ∃𝑞𝐾 (𝑈 ∈ ((𝑞‘0)(,)(𝑞‘1)) ∧ 𝑉 ∈ ((𝑞‘2)(,)(𝑞‘3))))
Distinct variable groups:   𝐴,𝑞   𝑃,𝑞,𝑢,𝑣   𝑅,𝑞,𝑢,𝑣   𝑆,𝑞,𝑢,𝑣   𝑈,𝑞   𝑉,𝑞   𝑍,𝑞,𝑢,𝑣   𝜑,𝑢,𝑣
Allowed substitution hints:   𝜑(𝑞)   𝐴(𝑣,𝑢)   𝑈(𝑣,𝑢)   𝐾(𝑣,𝑢,𝑞)   𝑉(𝑣,𝑢)   𝑋(𝑣,𝑢,𝑞)   𝑌(𝑣,𝑢,𝑞)

Proof of Theorem smfmullem2
StepHypRef Expression
1 smfmullem2.p . . . . . . . 8 (𝜑𝑃 ∈ ℚ)
2 smfmullem2.r . . . . . . . 8 (𝜑𝑅 ∈ ℚ)
3 smfmullem2.s . . . . . . . 8 (𝜑𝑆 ∈ ℚ)
4 smfmullem2.z . . . . . . . 8 (𝜑𝑍 ∈ ℚ)
51, 2, 3, 4s4cld 14438 . . . . . . 7 (𝜑 → ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ Word ℚ)
6 s4len 14464 . . . . . . . 8 (♯‘⟨“𝑃𝑅𝑆𝑍”⟩) = 4
76a1i 11 . . . . . . 7 (𝜑 → (♯‘⟨“𝑃𝑅𝑆𝑍”⟩) = 4)
85, 7jca 515 . . . . . 6 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩ ∈ Word ℚ ∧ (♯‘⟨“𝑃𝑅𝑆𝑍”⟩) = 4))
9 qex 12557 . . . . . . . 8 ℚ ∈ V
109a1i 11 . . . . . . 7 (𝜑 → ℚ ∈ V)
11 4nn0 12109 . . . . . . . 8 4 ∈ ℕ0
1211a1i 11 . . . . . . 7 (𝜑 → 4 ∈ ℕ0)
13 wrdmap 14101 . . . . . . 7 ((ℚ ∈ V ∧ 4 ∈ ℕ0) → ((⟨“𝑃𝑅𝑆𝑍”⟩ ∈ Word ℚ ∧ (♯‘⟨“𝑃𝑅𝑆𝑍”⟩) = 4) ↔ ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0..^4))))
1410, 12, 13syl2anc 587 . . . . . 6 (𝜑 → ((⟨“𝑃𝑅𝑆𝑍”⟩ ∈ Word ℚ ∧ (♯‘⟨“𝑃𝑅𝑆𝑍”⟩) = 4) ↔ ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0..^4))))
158, 14mpbid 235 . . . . 5 (𝜑 → ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0..^4)))
16 3z 12210 . . . . . . . . . 10 3 ∈ ℤ
17 fzval3 13311 . . . . . . . . . 10 (3 ∈ ℤ → (0...3) = (0..^(3 + 1)))
1816, 17ax-mp 5 . . . . . . . . 9 (0...3) = (0..^(3 + 1))
19 3p1e4 11975 . . . . . . . . . 10 (3 + 1) = 4
2019oveq2i 7224 . . . . . . . . 9 (0..^(3 + 1)) = (0..^4)
2118, 20eqtri 2765 . . . . . . . 8 (0...3) = (0..^4)
2221eqcomi 2746 . . . . . . 7 (0..^4) = (0...3)
2322a1i 11 . . . . . 6 (𝜑 → (0..^4) = (0...3))
2423oveq2d 7229 . . . . 5 (𝜑 → (ℚ ↑m (0..^4)) = (ℚ ↑m (0...3)))
2515, 24eleqtrd 2840 . . . 4 (𝜑 → ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0...3)))
26 simpr 488 . . . . . . 7 ((𝜑𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))) → 𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)))
27 s4fv0 14460 . . . . . . . . . 10 (𝑃 ∈ ℚ → (⟨“𝑃𝑅𝑆𝑍”⟩‘0) = 𝑃)
281, 27syl 17 . . . . . . . . 9 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩‘0) = 𝑃)
29 s4fv1 14461 . . . . . . . . . 10 (𝑅 ∈ ℚ → (⟨“𝑃𝑅𝑆𝑍”⟩‘1) = 𝑅)
302, 29syl 17 . . . . . . . . 9 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩‘1) = 𝑅)
3128, 30oveq12d 7231 . . . . . . . 8 (𝜑 → ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) = (𝑃(,)𝑅))
3231adantr 484 . . . . . . 7 ((𝜑𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))) → ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) = (𝑃(,)𝑅))
3326, 32eleqtrd 2840 . . . . . 6 ((𝜑𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))) → 𝑢 ∈ (𝑃(,)𝑅))
34 simpr 488 . . . . . . . . . . 11 ((𝜑𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → 𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))
35 s4fv2 14462 . . . . . . . . . . . . . 14 (𝑆 ∈ ℚ → (⟨“𝑃𝑅𝑆𝑍”⟩‘2) = 𝑆)
363, 35syl 17 . . . . . . . . . . . . 13 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩‘2) = 𝑆)
37 s4fv3 14463 . . . . . . . . . . . . . 14 (𝑍 ∈ ℚ → (⟨“𝑃𝑅𝑆𝑍”⟩‘3) = 𝑍)
384, 37syl 17 . . . . . . . . . . . . 13 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩‘3) = 𝑍)
3936, 38oveq12d 7231 . . . . . . . . . . . 12 (𝜑 → ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)) = (𝑆(,)𝑍))
4039adantr 484 . . . . . . . . . . 11 ((𝜑𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)) = (𝑆(,)𝑍))
4134, 40eleqtrd 2840 . . . . . . . . . 10 ((𝜑𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → 𝑣 ∈ (𝑆(,)𝑍))
42 simpr 488 . . . . . . . . . 10 ((𝜑𝑣 ∈ (𝑆(,)𝑍)) → 𝑣 ∈ (𝑆(,)𝑍))
4341, 42syldan 594 . . . . . . . . 9 ((𝜑𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → 𝑣 ∈ (𝑆(,)𝑍))
4443adantlr 715 . . . . . . . 8 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → 𝑣 ∈ (𝑆(,)𝑍))
45 smfmullem2.a . . . . . . . . . 10 (𝜑𝐴 ∈ ℝ)
4645ad2antrr 726 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝐴 ∈ ℝ)
47 smfmullem2.u . . . . . . . . . 10 (𝜑𝑈 ∈ ℝ)
4847ad2antrr 726 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑈 ∈ ℝ)
49 smfmullem2.v . . . . . . . . . 10 (𝜑𝑉 ∈ ℝ)
5049ad2antrr 726 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑉 ∈ ℝ)
51 smfmullem2.l . . . . . . . . . 10 (𝜑 → (𝑈 · 𝑉) < 𝐴)
5251ad2antrr 726 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → (𝑈 · 𝑉) < 𝐴)
53 smfmullem2.x . . . . . . . . 9 𝑋 = ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉))))
54 smfmullem2.y . . . . . . . . 9 𝑌 = if(1 ≤ 𝑋, 1, 𝑋)
55 smfmullem2.p2 . . . . . . . . . 10 (𝜑𝑃 ∈ ((𝑈𝑌)(,)𝑈))
5655ad2antrr 726 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑃 ∈ ((𝑈𝑌)(,)𝑈))
57 smfmullem2.42 . . . . . . . . . 10 (𝜑𝑅 ∈ (𝑈(,)(𝑈 + 𝑌)))
5857ad2antrr 726 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑅 ∈ (𝑈(,)(𝑈 + 𝑌)))
59 smfmullem2.w2 . . . . . . . . . 10 (𝜑𝑆 ∈ ((𝑉𝑌)(,)𝑉))
6059ad2antrr 726 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑆 ∈ ((𝑉𝑌)(,)𝑉))
61 smfmullem2.z2 . . . . . . . . . 10 (𝜑𝑍 ∈ (𝑉(,)(𝑉 + 𝑌)))
6261ad2antrr 726 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑍 ∈ (𝑉(,)(𝑉 + 𝑌)))
63 simplr 769 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑢 ∈ (𝑃(,)𝑅))
64 simpr 488 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑣 ∈ (𝑆(,)𝑍))
6546, 48, 50, 52, 53, 54, 56, 58, 60, 62, 63, 64smfmullem1 43997 . . . . . . . 8 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → (𝑢 · 𝑣) < 𝐴)
6644, 65syldan 594 . . . . . . 7 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → (𝑢 · 𝑣) < 𝐴)
6766ralrimiva 3105 . . . . . 6 ((𝜑𝑢 ∈ (𝑃(,)𝑅)) → ∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴)
6833, 67syldan 594 . . . . 5 ((𝜑𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))) → ∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴)
6968ralrimiva 3105 . . . 4 (𝜑 → ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴)
7025, 69jca 515 . . 3 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0...3)) ∧ ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴))
71 fveq1 6716 . . . . . . 7 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑞‘0) = (⟨“𝑃𝑅𝑆𝑍”⟩‘0))
72 fveq1 6716 . . . . . . 7 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑞‘1) = (⟨“𝑃𝑅𝑆𝑍”⟩‘1))
7371, 72oveq12d 7231 . . . . . 6 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → ((𝑞‘0)(,)(𝑞‘1)) = ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)))
7473raleqdv 3325 . . . . 5 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (∀𝑢 ∈ ((𝑞‘0)(,)(𝑞‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴 ↔ ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴))
75 fveq1 6716 . . . . . . . 8 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑞‘2) = (⟨“𝑃𝑅𝑆𝑍”⟩‘2))
76 fveq1 6716 . . . . . . . 8 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑞‘3) = (⟨“𝑃𝑅𝑆𝑍”⟩‘3))
7775, 76oveq12d 7231 . . . . . . 7 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → ((𝑞‘2)(,)(𝑞‘3)) = ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))
7877raleqdv 3325 . . . . . 6 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴 ↔ ∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴))
7978ralbidv 3118 . . . . 5 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴 ↔ ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴))
8074, 79bitrd 282 . . . 4 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (∀𝑢 ∈ ((𝑞‘0)(,)(𝑞‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴 ↔ ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴))
81 smfmullem2.k . . . 4 𝐾 = {𝑞 ∈ (ℚ ↑m (0...3)) ∣ ∀𝑢 ∈ ((𝑞‘0)(,)(𝑞‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴}
8280, 81elrab2 3605 . . 3 (⟨“𝑃𝑅𝑆𝑍”⟩ ∈ 𝐾 ↔ (⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0...3)) ∧ ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴))
8370, 82sylibr 237 . 2 (𝜑 → ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ 𝐾)
84 qssre 12555 . . . . . . 7 ℚ ⊆ ℝ
8584, 1sseldi 3899 . . . . . 6 (𝜑𝑃 ∈ ℝ)
8685rexrd 10883 . . . . 5 (𝜑𝑃 ∈ ℝ*)
8784, 2sseldi 3899 . . . . . 6 (𝜑𝑅 ∈ ℝ)
8887rexrd 10883 . . . . 5 (𝜑𝑅 ∈ ℝ*)
8954a1i 11 . . . . . . . . . 10 (𝜑𝑌 = if(1 ≤ 𝑋, 1, 𝑋))
90 1rp 12590 . . . . . . . . . . . 12 1 ∈ ℝ+
9190a1i 11 . . . . . . . . . . 11 (𝜑 → 1 ∈ ℝ+)
9253a1i 11 . . . . . . . . . . . 12 (𝜑𝑋 = ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉)))))
9347, 49remulcld 10863 . . . . . . . . . . . . . . 15 (𝜑 → (𝑈 · 𝑉) ∈ ℝ)
94 difrp 12624 . . . . . . . . . . . . . . 15 (((𝑈 · 𝑉) ∈ ℝ ∧ 𝐴 ∈ ℝ) → ((𝑈 · 𝑉) < 𝐴 ↔ (𝐴 − (𝑈 · 𝑉)) ∈ ℝ+))
9593, 45, 94syl2anc 587 . . . . . . . . . . . . . 14 (𝜑 → ((𝑈 · 𝑉) < 𝐴 ↔ (𝐴 − (𝑈 · 𝑉)) ∈ ℝ+))
9651, 95mpbid 235 . . . . . . . . . . . . 13 (𝜑 → (𝐴 − (𝑈 · 𝑉)) ∈ ℝ+)
97 1red 10834 . . . . . . . . . . . . . . 15 (𝜑 → 1 ∈ ℝ)
9847recnd 10861 . . . . . . . . . . . . . . . . 17 (𝜑𝑈 ∈ ℂ)
9998abscld 15000 . . . . . . . . . . . . . . . 16 (𝜑 → (abs‘𝑈) ∈ ℝ)
10049recnd 10861 . . . . . . . . . . . . . . . . 17 (𝜑𝑉 ∈ ℂ)
101100abscld 15000 . . . . . . . . . . . . . . . 16 (𝜑 → (abs‘𝑉) ∈ ℝ)
10299, 101readdcld 10862 . . . . . . . . . . . . . . 15 (𝜑 → ((abs‘𝑈) + (abs‘𝑉)) ∈ ℝ)
10397, 102readdcld 10862 . . . . . . . . . . . . . 14 (𝜑 → (1 + ((abs‘𝑈) + (abs‘𝑉))) ∈ ℝ)
104 0re 10835 . . . . . . . . . . . . . . . 16 0 ∈ ℝ
105104a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → 0 ∈ ℝ)
10691rpgt0d 12631 . . . . . . . . . . . . . . 15 (𝜑 → 0 < 1)
10798absge0d 15008 . . . . . . . . . . . . . . . . 17 (𝜑 → 0 ≤ (abs‘𝑈))
108100absge0d 15008 . . . . . . . . . . . . . . . . . 18 (𝜑 → 0 ≤ (abs‘𝑉))
10999, 101addge01d 11420 . . . . . . . . . . . . . . . . . 18 (𝜑 → (0 ≤ (abs‘𝑉) ↔ (abs‘𝑈) ≤ ((abs‘𝑈) + (abs‘𝑉))))
110108, 109mpbid 235 . . . . . . . . . . . . . . . . 17 (𝜑 → (abs‘𝑈) ≤ ((abs‘𝑈) + (abs‘𝑉)))
111105, 99, 102, 107, 110letrd 10989 . . . . . . . . . . . . . . . 16 (𝜑 → 0 ≤ ((abs‘𝑈) + (abs‘𝑉)))
11297, 102addge01d 11420 . . . . . . . . . . . . . . . 16 (𝜑 → (0 ≤ ((abs‘𝑈) + (abs‘𝑉)) ↔ 1 ≤ (1 + ((abs‘𝑈) + (abs‘𝑉)))))
113111, 112mpbid 235 . . . . . . . . . . . . . . 15 (𝜑 → 1 ≤ (1 + ((abs‘𝑈) + (abs‘𝑉))))
114105, 97, 103, 106, 113ltletrd 10992 . . . . . . . . . . . . . 14 (𝜑 → 0 < (1 + ((abs‘𝑈) + (abs‘𝑉))))
115103, 114elrpd 12625 . . . . . . . . . . . . 13 (𝜑 → (1 + ((abs‘𝑈) + (abs‘𝑉))) ∈ ℝ+)
11696, 115rpdivcld 12645 . . . . . . . . . . . 12 (𝜑 → ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉)))) ∈ ℝ+)
11792, 116eqeltrd 2838 . . . . . . . . . . 11 (𝜑𝑋 ∈ ℝ+)
11891, 117ifcld 4485 . . . . . . . . . 10 (𝜑 → if(1 ≤ 𝑋, 1, 𝑋) ∈ ℝ+)
11989, 118eqeltrd 2838 . . . . . . . . 9 (𝜑𝑌 ∈ ℝ+)
120119rpred 12628 . . . . . . . 8 (𝜑𝑌 ∈ ℝ)
12147, 120resubcld 11260 . . . . . . 7 (𝜑 → (𝑈𝑌) ∈ ℝ)
122121rexrd 10883 . . . . . 6 (𝜑 → (𝑈𝑌) ∈ ℝ*)
12347rexrd 10883 . . . . . 6 (𝜑𝑈 ∈ ℝ*)
124 iooltub 42723 . . . . . 6 (((𝑈𝑌) ∈ ℝ*𝑈 ∈ ℝ*𝑃 ∈ ((𝑈𝑌)(,)𝑈)) → 𝑃 < 𝑈)
125122, 123, 55, 124syl3anc 1373 . . . . 5 (𝜑𝑃 < 𝑈)
12647, 120readdcld 10862 . . . . . . 7 (𝜑 → (𝑈 + 𝑌) ∈ ℝ)
127126rexrd 10883 . . . . . 6 (𝜑 → (𝑈 + 𝑌) ∈ ℝ*)
128 ioogtlb 42708 . . . . . 6 ((𝑈 ∈ ℝ* ∧ (𝑈 + 𝑌) ∈ ℝ*𝑅 ∈ (𝑈(,)(𝑈 + 𝑌))) → 𝑈 < 𝑅)
129123, 127, 57, 128syl3anc 1373 . . . . 5 (𝜑𝑈 < 𝑅)
13086, 88, 47, 125, 129eliood 42711 . . . 4 (𝜑𝑈 ∈ (𝑃(,)𝑅))
13131eqcomd 2743 . . . 4 (𝜑 → (𝑃(,)𝑅) = ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)))
132130, 131eleqtrd 2840 . . 3 (𝜑𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)))
13384, 3sseldi 3899 . . . . . 6 (𝜑𝑆 ∈ ℝ)
134133rexrd 10883 . . . . 5 (𝜑𝑆 ∈ ℝ*)
13584, 4sseldi 3899 . . . . . 6 (𝜑𝑍 ∈ ℝ)
136135rexrd 10883 . . . . 5 (𝜑𝑍 ∈ ℝ*)
13749, 120resubcld 11260 . . . . . . 7 (𝜑 → (𝑉𝑌) ∈ ℝ)
138137rexrd 10883 . . . . . 6 (𝜑 → (𝑉𝑌) ∈ ℝ*)
13949rexrd 10883 . . . . . 6 (𝜑𝑉 ∈ ℝ*)
140 iooltub 42723 . . . . . 6 (((𝑉𝑌) ∈ ℝ*𝑉 ∈ ℝ*𝑆 ∈ ((𝑉𝑌)(,)𝑉)) → 𝑆 < 𝑉)
141138, 139, 59, 140syl3anc 1373 . . . . 5 (𝜑𝑆 < 𝑉)
14249, 120readdcld 10862 . . . . . . 7 (𝜑 → (𝑉 + 𝑌) ∈ ℝ)
143142rexrd 10883 . . . . . 6 (𝜑 → (𝑉 + 𝑌) ∈ ℝ*)
144 ioogtlb 42708 . . . . . 6 ((𝑉 ∈ ℝ* ∧ (𝑉 + 𝑌) ∈ ℝ*𝑍 ∈ (𝑉(,)(𝑉 + 𝑌))) → 𝑉 < 𝑍)
145139, 143, 61, 144syl3anc 1373 . . . . 5 (𝜑𝑉 < 𝑍)
146134, 136, 49, 141, 145eliood 42711 . . . 4 (𝜑𝑉 ∈ (𝑆(,)𝑍))
14739eqcomd 2743 . . . 4 (𝜑 → (𝑆(,)𝑍) = ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))
148146, 147eleqtrd 2840 . . 3 (𝜑𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))
149132, 148jca 515 . 2 (𝜑 → (𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) ∧ 𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))))
150 nfv 1922 . . 3 𝑞(𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) ∧ 𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))
151 nfcv 2904 . . 3 𝑞⟨“𝑃𝑅𝑆𝑍”⟩
152 nfrab1 3296 . . . 4 𝑞{𝑞 ∈ (ℚ ↑m (0...3)) ∣ ∀𝑢 ∈ ((𝑞‘0)(,)(𝑞‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴}
15381, 152nfcxfr 2902 . . 3 𝑞𝐾
15473eleq2d 2823 . . . 4 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑈 ∈ ((𝑞‘0)(,)(𝑞‘1)) ↔ 𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))))
15577eleq2d 2823 . . . 4 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑉 ∈ ((𝑞‘2)(,)(𝑞‘3)) ↔ 𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))))
156154, 155anbi12d 634 . . 3 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → ((𝑈 ∈ ((𝑞‘0)(,)(𝑞‘1)) ∧ 𝑉 ∈ ((𝑞‘2)(,)(𝑞‘3))) ↔ (𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) ∧ 𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))))
157150, 151, 153, 156rspcef 42293 . 2 ((⟨“𝑃𝑅𝑆𝑍”⟩ ∈ 𝐾 ∧ (𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) ∧ 𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))) → ∃𝑞𝐾 (𝑈 ∈ ((𝑞‘0)(,)(𝑞‘1)) ∧ 𝑉 ∈ ((𝑞‘2)(,)(𝑞‘3))))
15883, 149, 157syl2anc 587 1 (𝜑 → ∃𝑞𝐾 (𝑈 ∈ ((𝑞‘0)(,)(𝑞‘1)) ∧ 𝑉 ∈ ((𝑞‘2)(,)(𝑞‘3))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399   = wceq 1543  wcel 2110  wral 3061  wrex 3062  {crab 3065  Vcvv 3408  ifcif 4439   class class class wbr 5053  cfv 6380  (class class class)co 7213  m cmap 8508  cr 10728  0cc0 10729  1c1 10730   + caddc 10732   · cmul 10734  *cxr 10866   < clt 10867  cle 10868  cmin 11062   / cdiv 11489  2c2 11885  3c3 11886  4c4 11887  0cn0 12090  cz 12176  cq 12544  +crp 12586  (,)cioo 12935  ...cfz 13095  ..^cfzo 13238  chash 13896  Word cword 14069  ⟨“cs4 14408  abscabs 14797
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-rep 5179  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523  ax-cnex 10785  ax-resscn 10786  ax-1cn 10787  ax-icn 10788  ax-addcl 10789  ax-addrcl 10790  ax-mulcl 10791  ax-mulrcl 10792  ax-mulcom 10793  ax-addass 10794  ax-mulass 10795  ax-distr 10796  ax-i2m1 10797  ax-1ne0 10798  ax-1rid 10799  ax-rnegex 10800  ax-rrecex 10801  ax-cnre 10802  ax-pre-lttri 10803  ax-pre-lttrn 10804  ax-pre-ltadd 10805  ax-pre-mulgt0 10806  ax-pre-sup 10807
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-pss 3885  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-tp 4546  df-op 4548  df-uni 4820  df-int 4860  df-iun 4906  df-br 5054  df-opab 5116  df-mpt 5136  df-tr 5162  df-id 5455  df-eprel 5460  df-po 5468  df-so 5469  df-fr 5509  df-we 5511  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-pred 6160  df-ord 6216  df-on 6217  df-lim 6218  df-suc 6219  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-riota 7170  df-ov 7216  df-oprab 7217  df-mpo 7218  df-om 7645  df-1st 7761  df-2nd 7762  df-wrecs 8047  df-recs 8108  df-rdg 8146  df-1o 8202  df-er 8391  df-map 8510  df-en 8627  df-dom 8628  df-sdom 8629  df-fin 8630  df-sup 9058  df-card 9555  df-pnf 10869  df-mnf 10870  df-xr 10871  df-ltxr 10872  df-le 10873  df-sub 11064  df-neg 11065  df-div 11490  df-nn 11831  df-2 11893  df-3 11894  df-4 11895  df-n0 12091  df-z 12177  df-uz 12439  df-q 12545  df-rp 12587  df-ioo 12939  df-icc 12942  df-fz 13096  df-fzo 13239  df-seq 13575  df-exp 13636  df-hash 13897  df-word 14070  df-concat 14126  df-s1 14153  df-s2 14413  df-s3 14414  df-s4 14415  df-cj 14662  df-re 14663  df-im 14664  df-sqrt 14798  df-abs 14799
This theorem is referenced by:  smfmullem3  43999
  Copyright terms: Public domain W3C validator