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 45023
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 14762 . . . . . . 7 (𝜑 → ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ Word ℚ)
6 s4len 14788 . . . . . . . 8 (♯‘⟨“𝑃𝑅𝑆𝑍”⟩) = 4
76a1i 11 . . . . . . 7 (𝜑 → (♯‘⟨“𝑃𝑅𝑆𝑍”⟩) = 4)
85, 7jca 512 . . . . . 6 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩ ∈ Word ℚ ∧ (♯‘⟨“𝑃𝑅𝑆𝑍”⟩) = 4))
9 qex 12886 . . . . . . . 8 ℚ ∈ V
109a1i 11 . . . . . . 7 (𝜑 → ℚ ∈ V)
11 4nn0 12432 . . . . . . . 8 4 ∈ ℕ0
1211a1i 11 . . . . . . 7 (𝜑 → 4 ∈ ℕ0)
13 wrdmap 14434 . . . . . . 7 ((ℚ ∈ V ∧ 4 ∈ ℕ0) → ((⟨“𝑃𝑅𝑆𝑍”⟩ ∈ Word ℚ ∧ (♯‘⟨“𝑃𝑅𝑆𝑍”⟩) = 4) ↔ ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0..^4))))
1410, 12, 13syl2anc 584 . . . . . 6 (𝜑 → ((⟨“𝑃𝑅𝑆𝑍”⟩ ∈ Word ℚ ∧ (♯‘⟨“𝑃𝑅𝑆𝑍”⟩) = 4) ↔ ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0..^4))))
158, 14mpbid 231 . . . . 5 (𝜑 → ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0..^4)))
16 3z 12536 . . . . . . . . . 10 3 ∈ ℤ
17 fzval3 13641 . . . . . . . . . 10 (3 ∈ ℤ → (0...3) = (0..^(3 + 1)))
1816, 17ax-mp 5 . . . . . . . . 9 (0...3) = (0..^(3 + 1))
19 3p1e4 12298 . . . . . . . . . 10 (3 + 1) = 4
2019oveq2i 7368 . . . . . . . . 9 (0..^(3 + 1)) = (0..^4)
2118, 20eqtri 2764 . . . . . . . 8 (0...3) = (0..^4)
2221eqcomi 2745 . . . . . . 7 (0..^4) = (0...3)
2322a1i 11 . . . . . 6 (𝜑 → (0..^4) = (0...3))
2423oveq2d 7373 . . . . 5 (𝜑 → (ℚ ↑m (0..^4)) = (ℚ ↑m (0...3)))
2515, 24eleqtrd 2840 . . . 4 (𝜑 → ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0...3)))
26 simpr 485 . . . . . . 7 ((𝜑𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))) → 𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)))
27 s4fv0 14784 . . . . . . . . . 10 (𝑃 ∈ ℚ → (⟨“𝑃𝑅𝑆𝑍”⟩‘0) = 𝑃)
281, 27syl 17 . . . . . . . . 9 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩‘0) = 𝑃)
29 s4fv1 14785 . . . . . . . . . 10 (𝑅 ∈ ℚ → (⟨“𝑃𝑅𝑆𝑍”⟩‘1) = 𝑅)
302, 29syl 17 . . . . . . . . 9 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩‘1) = 𝑅)
3128, 30oveq12d 7375 . . . . . . . 8 (𝜑 → ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) = (𝑃(,)𝑅))
3231adantr 481 . . . . . . 7 ((𝜑𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))) → ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) = (𝑃(,)𝑅))
3326, 32eleqtrd 2840 . . . . . 6 ((𝜑𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))) → 𝑢 ∈ (𝑃(,)𝑅))
34 simpr 485 . . . . . . . . . . 11 ((𝜑𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → 𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))
35 s4fv2 14786 . . . . . . . . . . . . . 14 (𝑆 ∈ ℚ → (⟨“𝑃𝑅𝑆𝑍”⟩‘2) = 𝑆)
363, 35syl 17 . . . . . . . . . . . . 13 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩‘2) = 𝑆)
37 s4fv3 14787 . . . . . . . . . . . . . 14 (𝑍 ∈ ℚ → (⟨“𝑃𝑅𝑆𝑍”⟩‘3) = 𝑍)
384, 37syl 17 . . . . . . . . . . . . 13 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩‘3) = 𝑍)
3936, 38oveq12d 7375 . . . . . . . . . . . 12 (𝜑 → ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)) = (𝑆(,)𝑍))
4039adantr 481 . . . . . . . . . . 11 ((𝜑𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)) = (𝑆(,)𝑍))
4134, 40eleqtrd 2840 . . . . . . . . . 10 ((𝜑𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → 𝑣 ∈ (𝑆(,)𝑍))
42 simpr 485 . . . . . . . . . 10 ((𝜑𝑣 ∈ (𝑆(,)𝑍)) → 𝑣 ∈ (𝑆(,)𝑍))
4341, 42syldan 591 . . . . . . . . 9 ((𝜑𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → 𝑣 ∈ (𝑆(,)𝑍))
4443adantlr 713 . . . . . . . 8 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → 𝑣 ∈ (𝑆(,)𝑍))
45 smfmullem2.a . . . . . . . . . 10 (𝜑𝐴 ∈ ℝ)
4645ad2antrr 724 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝐴 ∈ ℝ)
47 smfmullem2.u . . . . . . . . . 10 (𝜑𝑈 ∈ ℝ)
4847ad2antrr 724 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑈 ∈ ℝ)
49 smfmullem2.v . . . . . . . . . 10 (𝜑𝑉 ∈ ℝ)
5049ad2antrr 724 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑉 ∈ ℝ)
51 smfmullem2.l . . . . . . . . . 10 (𝜑 → (𝑈 · 𝑉) < 𝐴)
5251ad2antrr 724 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → (𝑈 · 𝑉) < 𝐴)
53 smfmullem2.x . . . . . . . . 9 𝑋 = ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉))))
54 smfmullem2.y . . . . . . . . 9 𝑌 = if(1 ≤ 𝑋, 1, 𝑋)
55 smfmullem2.p2 . . . . . . . . . 10 (𝜑𝑃 ∈ ((𝑈𝑌)(,)𝑈))
5655ad2antrr 724 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑃 ∈ ((𝑈𝑌)(,)𝑈))
57 smfmullem2.42 . . . . . . . . . 10 (𝜑𝑅 ∈ (𝑈(,)(𝑈 + 𝑌)))
5857ad2antrr 724 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑅 ∈ (𝑈(,)(𝑈 + 𝑌)))
59 smfmullem2.w2 . . . . . . . . . 10 (𝜑𝑆 ∈ ((𝑉𝑌)(,)𝑉))
6059ad2antrr 724 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑆 ∈ ((𝑉𝑌)(,)𝑉))
61 smfmullem2.z2 . . . . . . . . . 10 (𝜑𝑍 ∈ (𝑉(,)(𝑉 + 𝑌)))
6261ad2antrr 724 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑍 ∈ (𝑉(,)(𝑉 + 𝑌)))
63 simplr 767 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑢 ∈ (𝑃(,)𝑅))
64 simpr 485 . . . . . . . . 9 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → 𝑣 ∈ (𝑆(,)𝑍))
6546, 48, 50, 52, 53, 54, 56, 58, 60, 62, 63, 64smfmullem1 45022 . . . . . . . 8 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ (𝑆(,)𝑍)) → (𝑢 · 𝑣) < 𝐴)
6644, 65syldan 591 . . . . . . 7 (((𝜑𝑢 ∈ (𝑃(,)𝑅)) ∧ 𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))) → (𝑢 · 𝑣) < 𝐴)
6766ralrimiva 3143 . . . . . 6 ((𝜑𝑢 ∈ (𝑃(,)𝑅)) → ∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴)
6833, 67syldan 591 . . . . 5 ((𝜑𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))) → ∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴)
6968ralrimiva 3143 . . . 4 (𝜑 → ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴)
7025, 69jca 512 . . 3 (𝜑 → (⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0...3)) ∧ ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴))
71 fveq1 6841 . . . . . . 7 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑞‘0) = (⟨“𝑃𝑅𝑆𝑍”⟩‘0))
72 fveq1 6841 . . . . . . 7 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑞‘1) = (⟨“𝑃𝑅𝑆𝑍”⟩‘1))
7371, 72oveq12d 7375 . . . . . 6 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → ((𝑞‘0)(,)(𝑞‘1)) = ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)))
7473raleqdv 3313 . . . . 5 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (∀𝑢 ∈ ((𝑞‘0)(,)(𝑞‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴 ↔ ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴))
75 fveq1 6841 . . . . . . . 8 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑞‘2) = (⟨“𝑃𝑅𝑆𝑍”⟩‘2))
76 fveq1 6841 . . . . . . . 8 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑞‘3) = (⟨“𝑃𝑅𝑆𝑍”⟩‘3))
7775, 76oveq12d 7375 . . . . . . 7 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → ((𝑞‘2)(,)(𝑞‘3)) = ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))
7877raleqdv 3313 . . . . . 6 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴 ↔ ∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴))
7978ralbidv 3174 . . . . 5 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴 ↔ ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴))
8074, 79bitrd 278 . . . 4 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (∀𝑢 ∈ ((𝑞‘0)(,)(𝑞‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴 ↔ ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴))
81 smfmullem2.k . . . 4 𝐾 = {𝑞 ∈ (ℚ ↑m (0...3)) ∣ ∀𝑢 ∈ ((𝑞‘0)(,)(𝑞‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴}
8280, 81elrab2 3648 . . 3 (⟨“𝑃𝑅𝑆𝑍”⟩ ∈ 𝐾 ↔ (⟨“𝑃𝑅𝑆𝑍”⟩ ∈ (ℚ ↑m (0...3)) ∧ ∀𝑢 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))∀𝑣 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))(𝑢 · 𝑣) < 𝐴))
8370, 82sylibr 233 . 2 (𝜑 → ⟨“𝑃𝑅𝑆𝑍”⟩ ∈ 𝐾)
84 qssre 12884 . . . . . . 7 ℚ ⊆ ℝ
8584, 1sselid 3942 . . . . . 6 (𝜑𝑃 ∈ ℝ)
8685rexrd 11205 . . . . 5 (𝜑𝑃 ∈ ℝ*)
8784, 2sselid 3942 . . . . . 6 (𝜑𝑅 ∈ ℝ)
8887rexrd 11205 . . . . 5 (𝜑𝑅 ∈ ℝ*)
8954a1i 11 . . . . . . . . . 10 (𝜑𝑌 = if(1 ≤ 𝑋, 1, 𝑋))
90 1rp 12919 . . . . . . . . . . . 12 1 ∈ ℝ+
9190a1i 11 . . . . . . . . . . 11 (𝜑 → 1 ∈ ℝ+)
9253a1i 11 . . . . . . . . . . . 12 (𝜑𝑋 = ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉)))))
9347, 49remulcld 11185 . . . . . . . . . . . . . . 15 (𝜑 → (𝑈 · 𝑉) ∈ ℝ)
94 difrp 12953 . . . . . . . . . . . . . . 15 (((𝑈 · 𝑉) ∈ ℝ ∧ 𝐴 ∈ ℝ) → ((𝑈 · 𝑉) < 𝐴 ↔ (𝐴 − (𝑈 · 𝑉)) ∈ ℝ+))
9593, 45, 94syl2anc 584 . . . . . . . . . . . . . 14 (𝜑 → ((𝑈 · 𝑉) < 𝐴 ↔ (𝐴 − (𝑈 · 𝑉)) ∈ ℝ+))
9651, 95mpbid 231 . . . . . . . . . . . . 13 (𝜑 → (𝐴 − (𝑈 · 𝑉)) ∈ ℝ+)
97 1red 11156 . . . . . . . . . . . . . . 15 (𝜑 → 1 ∈ ℝ)
9847recnd 11183 . . . . . . . . . . . . . . . . 17 (𝜑𝑈 ∈ ℂ)
9998abscld 15321 . . . . . . . . . . . . . . . 16 (𝜑 → (abs‘𝑈) ∈ ℝ)
10049recnd 11183 . . . . . . . . . . . . . . . . 17 (𝜑𝑉 ∈ ℂ)
101100abscld 15321 . . . . . . . . . . . . . . . 16 (𝜑 → (abs‘𝑉) ∈ ℝ)
10299, 101readdcld 11184 . . . . . . . . . . . . . . 15 (𝜑 → ((abs‘𝑈) + (abs‘𝑉)) ∈ ℝ)
10397, 102readdcld 11184 . . . . . . . . . . . . . 14 (𝜑 → (1 + ((abs‘𝑈) + (abs‘𝑉))) ∈ ℝ)
104 0re 11157 . . . . . . . . . . . . . . . 16 0 ∈ ℝ
105104a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → 0 ∈ ℝ)
10691rpgt0d 12960 . . . . . . . . . . . . . . 15 (𝜑 → 0 < 1)
10798absge0d 15329 . . . . . . . . . . . . . . . . 17 (𝜑 → 0 ≤ (abs‘𝑈))
108100absge0d 15329 . . . . . . . . . . . . . . . . . 18 (𝜑 → 0 ≤ (abs‘𝑉))
10999, 101addge01d 11743 . . . . . . . . . . . . . . . . . 18 (𝜑 → (0 ≤ (abs‘𝑉) ↔ (abs‘𝑈) ≤ ((abs‘𝑈) + (abs‘𝑉))))
110108, 109mpbid 231 . . . . . . . . . . . . . . . . 17 (𝜑 → (abs‘𝑈) ≤ ((abs‘𝑈) + (abs‘𝑉)))
111105, 99, 102, 107, 110letrd 11312 . . . . . . . . . . . . . . . 16 (𝜑 → 0 ≤ ((abs‘𝑈) + (abs‘𝑉)))
11297, 102addge01d 11743 . . . . . . . . . . . . . . . 16 (𝜑 → (0 ≤ ((abs‘𝑈) + (abs‘𝑉)) ↔ 1 ≤ (1 + ((abs‘𝑈) + (abs‘𝑉)))))
113111, 112mpbid 231 . . . . . . . . . . . . . . 15 (𝜑 → 1 ≤ (1 + ((abs‘𝑈) + (abs‘𝑉))))
114105, 97, 103, 106, 113ltletrd 11315 . . . . . . . . . . . . . 14 (𝜑 → 0 < (1 + ((abs‘𝑈) + (abs‘𝑉))))
115103, 114elrpd 12954 . . . . . . . . . . . . 13 (𝜑 → (1 + ((abs‘𝑈) + (abs‘𝑉))) ∈ ℝ+)
11696, 115rpdivcld 12974 . . . . . . . . . . . 12 (𝜑 → ((𝐴 − (𝑈 · 𝑉)) / (1 + ((abs‘𝑈) + (abs‘𝑉)))) ∈ ℝ+)
11792, 116eqeltrd 2838 . . . . . . . . . . 11 (𝜑𝑋 ∈ ℝ+)
11891, 117ifcld 4532 . . . . . . . . . 10 (𝜑 → if(1 ≤ 𝑋, 1, 𝑋) ∈ ℝ+)
11989, 118eqeltrd 2838 . . . . . . . . 9 (𝜑𝑌 ∈ ℝ+)
120119rpred 12957 . . . . . . . 8 (𝜑𝑌 ∈ ℝ)
12147, 120resubcld 11583 . . . . . . 7 (𝜑 → (𝑈𝑌) ∈ ℝ)
122121rexrd 11205 . . . . . 6 (𝜑 → (𝑈𝑌) ∈ ℝ*)
12347rexrd 11205 . . . . . 6 (𝜑𝑈 ∈ ℝ*)
124 iooltub 43738 . . . . . 6 (((𝑈𝑌) ∈ ℝ*𝑈 ∈ ℝ*𝑃 ∈ ((𝑈𝑌)(,)𝑈)) → 𝑃 < 𝑈)
125122, 123, 55, 124syl3anc 1371 . . . . 5 (𝜑𝑃 < 𝑈)
12647, 120readdcld 11184 . . . . . . 7 (𝜑 → (𝑈 + 𝑌) ∈ ℝ)
127126rexrd 11205 . . . . . 6 (𝜑 → (𝑈 + 𝑌) ∈ ℝ*)
128 ioogtlb 43723 . . . . . 6 ((𝑈 ∈ ℝ* ∧ (𝑈 + 𝑌) ∈ ℝ*𝑅 ∈ (𝑈(,)(𝑈 + 𝑌))) → 𝑈 < 𝑅)
129123, 127, 57, 128syl3anc 1371 . . . . 5 (𝜑𝑈 < 𝑅)
13086, 88, 47, 125, 129eliood 43726 . . . 4 (𝜑𝑈 ∈ (𝑃(,)𝑅))
13131eqcomd 2742 . . . 4 (𝜑 → (𝑃(,)𝑅) = ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)))
132130, 131eleqtrd 2840 . . 3 (𝜑𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)))
13384, 3sselid 3942 . . . . . 6 (𝜑𝑆 ∈ ℝ)
134133rexrd 11205 . . . . 5 (𝜑𝑆 ∈ ℝ*)
13584, 4sselid 3942 . . . . . 6 (𝜑𝑍 ∈ ℝ)
136135rexrd 11205 . . . . 5 (𝜑𝑍 ∈ ℝ*)
13749, 120resubcld 11583 . . . . . . 7 (𝜑 → (𝑉𝑌) ∈ ℝ)
138137rexrd 11205 . . . . . 6 (𝜑 → (𝑉𝑌) ∈ ℝ*)
13949rexrd 11205 . . . . . 6 (𝜑𝑉 ∈ ℝ*)
140 iooltub 43738 . . . . . 6 (((𝑉𝑌) ∈ ℝ*𝑉 ∈ ℝ*𝑆 ∈ ((𝑉𝑌)(,)𝑉)) → 𝑆 < 𝑉)
141138, 139, 59, 140syl3anc 1371 . . . . 5 (𝜑𝑆 < 𝑉)
14249, 120readdcld 11184 . . . . . . 7 (𝜑 → (𝑉 + 𝑌) ∈ ℝ)
143142rexrd 11205 . . . . . 6 (𝜑 → (𝑉 + 𝑌) ∈ ℝ*)
144 ioogtlb 43723 . . . . . 6 ((𝑉 ∈ ℝ* ∧ (𝑉 + 𝑌) ∈ ℝ*𝑍 ∈ (𝑉(,)(𝑉 + 𝑌))) → 𝑉 < 𝑍)
145139, 143, 61, 144syl3anc 1371 . . . . 5 (𝜑𝑉 < 𝑍)
146134, 136, 49, 141, 145eliood 43726 . . . 4 (𝜑𝑉 ∈ (𝑆(,)𝑍))
14739eqcomd 2742 . . . 4 (𝜑 → (𝑆(,)𝑍) = ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))
148146, 147eleqtrd 2840 . . 3 (𝜑𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))
149132, 148jca 512 . 2 (𝜑 → (𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) ∧ 𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))))
150 nfv 1917 . . 3 𝑞(𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) ∧ 𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))
151 nfcv 2907 . . 3 𝑞⟨“𝑃𝑅𝑆𝑍”⟩
152 nfrab1 3426 . . . 4 𝑞{𝑞 ∈ (ℚ ↑m (0...3)) ∣ ∀𝑢 ∈ ((𝑞‘0)(,)(𝑞‘1))∀𝑣 ∈ ((𝑞‘2)(,)(𝑞‘3))(𝑢 · 𝑣) < 𝐴}
15381, 152nfcxfr 2905 . . 3 𝑞𝐾
15473eleq2d 2823 . . . 4 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑈 ∈ ((𝑞‘0)(,)(𝑞‘1)) ↔ 𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1))))
15577eleq2d 2823 . . . 4 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → (𝑉 ∈ ((𝑞‘2)(,)(𝑞‘3)) ↔ 𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3))))
156154, 155anbi12d 631 . . 3 (𝑞 = ⟨“𝑃𝑅𝑆𝑍”⟩ → ((𝑈 ∈ ((𝑞‘0)(,)(𝑞‘1)) ∧ 𝑉 ∈ ((𝑞‘2)(,)(𝑞‘3))) ↔ (𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) ∧ 𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))))
157150, 151, 153, 156rspcef 43270 . 2 ((⟨“𝑃𝑅𝑆𝑍”⟩ ∈ 𝐾 ∧ (𝑈 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘0)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘1)) ∧ 𝑉 ∈ ((⟨“𝑃𝑅𝑆𝑍”⟩‘2)(,)(⟨“𝑃𝑅𝑆𝑍”⟩‘3)))) → ∃𝑞𝐾 (𝑈 ∈ ((𝑞‘0)(,)(𝑞‘1)) ∧ 𝑉 ∈ ((𝑞‘2)(,)(𝑞‘3))))
15883, 149, 157syl2anc 584 1 (𝜑 → ∃𝑞𝐾 (𝑈 ∈ ((𝑞‘0)(,)(𝑞‘1)) ∧ 𝑉 ∈ ((𝑞‘2)(,)(𝑞‘3))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396   = wceq 1541  wcel 2106  wral 3064  wrex 3073  {crab 3407  Vcvv 3445  ifcif 4486   class class class wbr 5105  cfv 6496  (class class class)co 7357  m cmap 8765  cr 11050  0cc0 11051  1c1 11052   + caddc 11054   · cmul 11056  *cxr 11188   < clt 11189  cle 11190  cmin 11385   / cdiv 11812  2c2 12208  3c3 12209  4c4 12210  0cn0 12413  cz 12499  cq 12873  +crp 12915  (,)cioo 13264  ...cfz 13424  ..^cfzo 13567  chash 14230  Word cword 14402  ⟨“cs4 14732  abscabs 15119
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128  ax-pre-sup 11129
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-om 7803  df-1st 7921  df-2nd 7922  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-er 8648  df-map 8767  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-sup 9378  df-card 9875  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-nn 12154  df-2 12216  df-3 12217  df-4 12218  df-n0 12414  df-z 12500  df-uz 12764  df-q 12874  df-rp 12916  df-ioo 13268  df-icc 13271  df-fz 13425  df-fzo 13568  df-seq 13907  df-exp 13968  df-hash 14231  df-word 14403  df-concat 14459  df-s1 14484  df-s2 14737  df-s3 14738  df-s4 14739  df-cj 14984  df-re 14985  df-im 14986  df-sqrt 15120  df-abs 15121
This theorem is referenced by:  smfmullem3  45024
  Copyright terms: Public domain W3C validator