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

Theorem hoiqssbllem3 42913
Description: A n-dimensional ball contains a nonempty half-open interval with vertices with rational components. (Contributed by Glauco Siliprandi, 24-Dec-2020.)
Hypotheses
Ref Expression
hoiqssbllem3.x (𝜑𝑋 ∈ Fin)
hoiqssbllem3.n (𝜑𝑋 ≠ ∅)
hoiqssbllem3.y (𝜑𝑌 ∈ (ℝ ↑m 𝑋))
hoiqssbllem3.e (𝜑𝐸 ∈ ℝ+)
Assertion
Ref Expression
hoiqssbllem3 (𝜑 → ∃𝑐 ∈ (ℚ ↑m 𝑋)∃𝑑 ∈ (ℚ ↑m 𝑋)(𝑌X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ∧ X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ⊆ (𝑌(ball‘(dist‘(ℝ^‘𝑋)))𝐸)))
Distinct variable groups:   𝐸,𝑐,𝑑,𝑖   𝑋,𝑐,𝑑,𝑖   𝑌,𝑐,𝑑,𝑖   𝜑,𝑐,𝑑,𝑖

Proof of Theorem hoiqssbllem3
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 hoiqssbllem3.x . . . . . . 7 (𝜑𝑋 ∈ Fin)
2 qex 12363 . . . . . . . . 9 ℚ ∈ V
32inex1 5223 . . . . . . . 8 (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∈ V
43a1i 11 . . . . . . 7 ((𝜑𝑖𝑋) → (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∈ V)
5 hoiqssbllem3.y . . . . . . . . . . . . 13 (𝜑𝑌 ∈ (ℝ ↑m 𝑋))
6 elmapi 8430 . . . . . . . . . . . . 13 (𝑌 ∈ (ℝ ↑m 𝑋) → 𝑌:𝑋⟶ℝ)
75, 6syl 17 . . . . . . . . . . . 12 (𝜑𝑌:𝑋⟶ℝ)
87ffvelrnda 6853 . . . . . . . . . . 11 ((𝜑𝑖𝑋) → (𝑌𝑖) ∈ ℝ)
9 hoiqssbllem3.e . . . . . . . . . . . . 13 (𝜑𝐸 ∈ ℝ+)
10 2rp 12397 . . . . . . . . . . . . . . 15 2 ∈ ℝ+
1110a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 2 ∈ ℝ+)
12 hoiqssbllem3.n . . . . . . . . . . . . . . . . 17 (𝜑𝑋 ≠ ∅)
13 hashnncl 13730 . . . . . . . . . . . . . . . . . 18 (𝑋 ∈ Fin → ((♯‘𝑋) ∈ ℕ ↔ 𝑋 ≠ ∅))
141, 13syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → ((♯‘𝑋) ∈ ℕ ↔ 𝑋 ≠ ∅))
1512, 14mpbird 259 . . . . . . . . . . . . . . . 16 (𝜑 → (♯‘𝑋) ∈ ℕ)
16 nnrp 12403 . . . . . . . . . . . . . . . 16 ((♯‘𝑋) ∈ ℕ → (♯‘𝑋) ∈ ℝ+)
1715, 16syl 17 . . . . . . . . . . . . . . 15 (𝜑 → (♯‘𝑋) ∈ ℝ+)
1817rpsqrtcld 14773 . . . . . . . . . . . . . 14 (𝜑 → (√‘(♯‘𝑋)) ∈ ℝ+)
1911, 18rpmulcld 12450 . . . . . . . . . . . . 13 (𝜑 → (2 · (√‘(♯‘𝑋))) ∈ ℝ+)
209, 19rpdivcld 12451 . . . . . . . . . . . 12 (𝜑 → (𝐸 / (2 · (√‘(♯‘𝑋)))) ∈ ℝ+)
2120adantr 483 . . . . . . . . . . 11 ((𝜑𝑖𝑋) → (𝐸 / (2 · (√‘(♯‘𝑋)))) ∈ ℝ+)
228, 21ltsubrpd 12466 . . . . . . . . . 10 ((𝜑𝑖𝑋) → ((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋))))) < (𝑌𝑖))
2321rpred 12434 . . . . . . . . . . . 12 ((𝜑𝑖𝑋) → (𝐸 / (2 · (√‘(♯‘𝑋)))) ∈ ℝ)
248, 23resubcld 11070 . . . . . . . . . . 11 ((𝜑𝑖𝑋) → ((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋))))) ∈ ℝ)
2524, 8ltnled 10789 . . . . . . . . . 10 ((𝜑𝑖𝑋) → (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋))))) < (𝑌𝑖) ↔ ¬ (𝑌𝑖) ≤ ((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))))
2622, 25mpbid 234 . . . . . . . . 9 ((𝜑𝑖𝑋) → ¬ (𝑌𝑖) ≤ ((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋))))))
2724rexrd 10693 . . . . . . . . . 10 ((𝜑𝑖𝑋) → ((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋))))) ∈ ℝ*)
288rexrd 10693 . . . . . . . . . 10 ((𝜑𝑖𝑋) → (𝑌𝑖) ∈ ℝ*)
2927, 28qinioo 41818 . . . . . . . . 9 ((𝜑𝑖𝑋) → ((ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) = ∅ ↔ (𝑌𝑖) ≤ ((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))))
3026, 29mtbird 327 . . . . . . . 8 ((𝜑𝑖𝑋) → ¬ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) = ∅)
3130neqned 3025 . . . . . . 7 ((𝜑𝑖𝑋) → (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ≠ ∅)
321, 4, 31choicefi 41470 . . . . . 6 (𝜑 → ∃𝑐(𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))))
33 simpl 485 . . . . . . . . . . . . 13 ((𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))) → 𝑐 Fn 𝑋)
34 nfra1 3221 . . . . . . . . . . . . . . 15 𝑖𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))
35 rspa 3208 . . . . . . . . . . . . . . . . 17 ((∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ 𝑖𝑋) → (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))
36 elinel1 4174 . . . . . . . . . . . . . . . . 17 ((𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) → (𝑐𝑖) ∈ ℚ)
3735, 36syl 17 . . . . . . . . . . . . . . . 16 ((∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ 𝑖𝑋) → (𝑐𝑖) ∈ ℚ)
3837ex 415 . . . . . . . . . . . . . . 15 (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) → (𝑖𝑋 → (𝑐𝑖) ∈ ℚ))
3934, 38ralrimi 3218 . . . . . . . . . . . . . 14 (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) → ∀𝑖𝑋 (𝑐𝑖) ∈ ℚ)
4039adantl 484 . . . . . . . . . . . . 13 ((𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))) → ∀𝑖𝑋 (𝑐𝑖) ∈ ℚ)
4133, 40jca 514 . . . . . . . . . . . 12 ((𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))) → (𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ ℚ))
4241adantl 484 . . . . . . . . . . 11 ((𝜑 ∧ (𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))) → (𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ ℚ))
43 ffnfv 6884 . . . . . . . . . . 11 (𝑐:𝑋⟶ℚ ↔ (𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ ℚ))
4442, 43sylibr 236 . . . . . . . . . 10 ((𝜑 ∧ (𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))) → 𝑐:𝑋⟶ℚ)
452a1i 11 . . . . . . . . . . . 12 (𝜑 → ℚ ∈ V)
46 elmapg 8421 . . . . . . . . . . . 12 ((ℚ ∈ V ∧ 𝑋 ∈ Fin) → (𝑐 ∈ (ℚ ↑m 𝑋) ↔ 𝑐:𝑋⟶ℚ))
4745, 1, 46syl2anc 586 . . . . . . . . . . 11 (𝜑 → (𝑐 ∈ (ℚ ↑m 𝑋) ↔ 𝑐:𝑋⟶ℚ))
4847adantr 483 . . . . . . . . . 10 ((𝜑 ∧ (𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))) → (𝑐 ∈ (ℚ ↑m 𝑋) ↔ 𝑐:𝑋⟶ℚ))
4944, 48mpbird 259 . . . . . . . . 9 ((𝜑 ∧ (𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))) → 𝑐 ∈ (ℚ ↑m 𝑋))
50 simprr 771 . . . . . . . . 9 ((𝜑 ∧ (𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))) → ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))
5149, 50jca 514 . . . . . . . 8 ((𝜑 ∧ (𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))) → (𝑐 ∈ (ℚ ↑m 𝑋) ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))))
5251ex 415 . . . . . . 7 (𝜑 → ((𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))) → (𝑐 ∈ (ℚ ↑m 𝑋) ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))))
5352eximdv 1918 . . . . . 6 (𝜑 → (∃𝑐(𝑐 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))) → ∃𝑐(𝑐 ∈ (ℚ ↑m 𝑋) ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))))
5432, 53mpd 15 . . . . 5 (𝜑 → ∃𝑐(𝑐 ∈ (ℚ ↑m 𝑋) ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))))
55 df-rex 3146 . . . . 5 (∃𝑐 ∈ (ℚ ↑m 𝑋)∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ↔ ∃𝑐(𝑐 ∈ (ℚ ↑m 𝑋) ∧ ∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))))
5654, 55sylibr 236 . . . 4 (𝜑 → ∃𝑐 ∈ (ℚ ↑m 𝑋)∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))))
572inex1 5223 . . . . . . . 8 (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) ∈ V
5857a1i 11 . . . . . . 7 ((𝜑𝑖𝑋) → (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) ∈ V)
598, 21ltaddrpd 12467 . . . . . . . . . 10 ((𝜑𝑖𝑋) → (𝑌𝑖) < ((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))
608, 23readdcld 10672 . . . . . . . . . . 11 ((𝜑𝑖𝑋) → ((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))) ∈ ℝ)
618, 60ltnled 10789 . . . . . . . . . 10 ((𝜑𝑖𝑋) → ((𝑌𝑖) < ((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))) ↔ ¬ ((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))) ≤ (𝑌𝑖)))
6259, 61mpbid 234 . . . . . . . . 9 ((𝜑𝑖𝑋) → ¬ ((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))) ≤ (𝑌𝑖))
6360rexrd 10693 . . . . . . . . . 10 ((𝜑𝑖𝑋) → ((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))) ∈ ℝ*)
6428, 63qinioo 41818 . . . . . . . . 9 ((𝜑𝑖𝑋) → ((ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) = ∅ ↔ ((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))) ≤ (𝑌𝑖)))
6562, 64mtbird 327 . . . . . . . 8 ((𝜑𝑖𝑋) → ¬ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) = ∅)
6665neqned 3025 . . . . . . 7 ((𝜑𝑖𝑋) → (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) ≠ ∅)
671, 58, 66choicefi 41470 . . . . . 6 (𝜑 → ∃𝑑(𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
68 simpl 485 . . . . . . . . . . . . 13 ((𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → 𝑑 Fn 𝑋)
69 nfra1 3221 . . . . . . . . . . . . . . 15 𝑖𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))
70 rspa 3208 . . . . . . . . . . . . . . . . 17 ((∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) ∧ 𝑖𝑋) → (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))
71 elinel1 4174 . . . . . . . . . . . . . . . . 17 ((𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) → (𝑑𝑖) ∈ ℚ)
7270, 71syl 17 . . . . . . . . . . . . . . . 16 ((∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) ∧ 𝑖𝑋) → (𝑑𝑖) ∈ ℚ)
7372ex 415 . . . . . . . . . . . . . . 15 (∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) → (𝑖𝑋 → (𝑑𝑖) ∈ ℚ))
7469, 73ralrimi 3218 . . . . . . . . . . . . . 14 (∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) → ∀𝑖𝑋 (𝑑𝑖) ∈ ℚ)
7574adantl 484 . . . . . . . . . . . . 13 ((𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → ∀𝑖𝑋 (𝑑𝑖) ∈ ℚ)
7668, 75jca 514 . . . . . . . . . . . 12 ((𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → (𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ ℚ))
7776adantl 484 . . . . . . . . . . 11 ((𝜑 ∧ (𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → (𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ ℚ))
78 ffnfv 6884 . . . . . . . . . . 11 (𝑑:𝑋⟶ℚ ↔ (𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ ℚ))
7977, 78sylibr 236 . . . . . . . . . 10 ((𝜑 ∧ (𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑑:𝑋⟶ℚ)
80 elmapg 8421 . . . . . . . . . . . 12 ((ℚ ∈ V ∧ 𝑋 ∈ Fin) → (𝑑 ∈ (ℚ ↑m 𝑋) ↔ 𝑑:𝑋⟶ℚ))
8145, 1, 80syl2anc 586 . . . . . . . . . . 11 (𝜑 → (𝑑 ∈ (ℚ ↑m 𝑋) ↔ 𝑑:𝑋⟶ℚ))
8281adantr 483 . . . . . . . . . 10 ((𝜑 ∧ (𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → (𝑑 ∈ (ℚ ↑m 𝑋) ↔ 𝑑:𝑋⟶ℚ))
8379, 82mpbird 259 . . . . . . . . 9 ((𝜑 ∧ (𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑑 ∈ (ℚ ↑m 𝑋))
84 simprr 771 . . . . . . . . 9 ((𝜑 ∧ (𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))
8583, 84jca 514 . . . . . . . 8 ((𝜑 ∧ (𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → (𝑑 ∈ (ℚ ↑m 𝑋) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
8685ex 415 . . . . . . 7 (𝜑 → ((𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → (𝑑 ∈ (ℚ ↑m 𝑋) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))))
8786eximdv 1918 . . . . . 6 (𝜑 → (∃𝑑(𝑑 Fn 𝑋 ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → ∃𝑑(𝑑 ∈ (ℚ ↑m 𝑋) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))))
8867, 87mpd 15 . . . . 5 (𝜑 → ∃𝑑(𝑑 ∈ (ℚ ↑m 𝑋) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
89 df-rex 3146 . . . . 5 (∃𝑑 ∈ (ℚ ↑m 𝑋)∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) ↔ ∃𝑑(𝑑 ∈ (ℚ ↑m 𝑋) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
9088, 89sylibr 236 . . . 4 (𝜑 → ∃𝑑 ∈ (ℚ ↑m 𝑋)∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))
9156, 90jca 514 . . 3 (𝜑 → (∃𝑐 ∈ (ℚ ↑m 𝑋)∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∃𝑑 ∈ (ℚ ↑m 𝑋)∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
92 reeanv 3369 . . 3 (∃𝑐 ∈ (ℚ ↑m 𝑋)∃𝑑 ∈ (ℚ ↑m 𝑋)(∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) ↔ (∃𝑐 ∈ (ℚ ↑m 𝑋)∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∃𝑑 ∈ (ℚ ↑m 𝑋)∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
9391, 92sylibr 236 . 2 (𝜑 → ∃𝑐 ∈ (ℚ ↑m 𝑋)∃𝑑 ∈ (ℚ ↑m 𝑋)(∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
94 nfv 1915 . . . . . . . 8 𝑖((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋))
9534, 69nfan 1900 . . . . . . . 8 𝑖(∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))
9694, 95nfan 1900 . . . . . . 7 𝑖(((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
971ad3antrrr 728 . . . . . . 7 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑋 ∈ Fin)
9812ad3antrrr 728 . . . . . . 7 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑋 ≠ ∅)
995ad3antrrr 728 . . . . . . 7 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑌 ∈ (ℝ ↑m 𝑋))
100 elmapi 8430 . . . . . . . . . 10 (𝑐 ∈ (ℚ ↑m 𝑋) → 𝑐:𝑋⟶ℚ)
101 qssre 12361 . . . . . . . . . . 11 ℚ ⊆ ℝ
102101a1i 11 . . . . . . . . . 10 (𝑐 ∈ (ℚ ↑m 𝑋) → ℚ ⊆ ℝ)
103100, 102fssd 6530 . . . . . . . . 9 (𝑐 ∈ (ℚ ↑m 𝑋) → 𝑐:𝑋⟶ℝ)
104103adantl 484 . . . . . . . 8 ((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) → 𝑐:𝑋⟶ℝ)
105104ad2antrr 724 . . . . . . 7 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑐:𝑋⟶ℝ)
106 elmapi 8430 . . . . . . . . 9 (𝑑 ∈ (ℚ ↑m 𝑋) → 𝑑:𝑋⟶ℚ)
107101a1i 11 . . . . . . . . 9 (𝑑 ∈ (ℚ ↑m 𝑋) → ℚ ⊆ ℝ)
108106, 107fssd 6530 . . . . . . . 8 (𝑑 ∈ (ℚ ↑m 𝑋) → 𝑑:𝑋⟶ℝ)
109108ad2antlr 725 . . . . . . 7 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑑:𝑋⟶ℝ)
1109ad3antrrr 728 . . . . . . 7 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝐸 ∈ ℝ+)
11135elin2d 4178 . . . . . . . . 9 ((∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ 𝑖𝑋) → (𝑐𝑖) ∈ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))
112111adantlr 713 . . . . . . . 8 (((∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) ∧ 𝑖𝑋) → (𝑐𝑖) ∈ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))
113112adantll 712 . . . . . . 7 (((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) ∧ 𝑖𝑋) → (𝑐𝑖) ∈ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))
11470elin2d 4178 . . . . . . . . 9 ((∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) ∧ 𝑖𝑋) → (𝑑𝑖) ∈ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))
115114adantll 712 . . . . . . . 8 (((∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) ∧ 𝑖𝑋) → (𝑑𝑖) ∈ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))
116115adantll 712 . . . . . . 7 (((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) ∧ 𝑖𝑋) → (𝑑𝑖) ∈ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))
11796, 97, 98, 99, 105, 109, 110, 113, 116hoiqssbllem1 42911 . . . . . 6 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑌X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)))
118 simpl 485 . . . . . . 7 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → ((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)))
119 fveq2 6672 . . . . . . . . . . . . 13 (𝑖 = 𝑘 → (𝑐𝑖) = (𝑐𝑘))
120 fveq2 6672 . . . . . . . . . . . . . . . 16 (𝑖 = 𝑘 → (𝑌𝑖) = (𝑌𝑘))
121120oveq1d 7173 . . . . . . . . . . . . . . 15 (𝑖 = 𝑘 → ((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋))))) = ((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋))))))
122121, 120oveq12d 7176 . . . . . . . . . . . . . 14 (𝑖 = 𝑘 → (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)) = (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘)))
123122ineq2d 4191 . . . . . . . . . . . . 13 (𝑖 = 𝑘 → (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) = (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))))
124119, 123eleq12d 2909 . . . . . . . . . . . 12 (𝑖 = 𝑘 → ((𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ↔ (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘)))))
125124cbvralvw 3451 . . . . . . . . . . 11 (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ↔ ∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))))
126125biimpi 218 . . . . . . . . . 10 (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) → ∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))))
127126adantr 483 . . . . . . . . 9 ((∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → ∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))))
128 fveq2 6672 . . . . . . . . . . . . 13 (𝑖 = 𝑘 → (𝑑𝑖) = (𝑑𝑘))
129120oveq1d 7173 . . . . . . . . . . . . . . 15 (𝑖 = 𝑘 → ((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))) = ((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))
130120, 129oveq12d 7176 . . . . . . . . . . . . . 14 (𝑖 = 𝑘 → ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))) = ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))
131130ineq2d 4191 . . . . . . . . . . . . 13 (𝑖 = 𝑘 → (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) = (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))
132128, 131eleq12d 2909 . . . . . . . . . . . 12 (𝑖 = 𝑘 → ((𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) ↔ (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
133132cbvralvw 3451 . . . . . . . . . . 11 (∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) ↔ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))
134133biimpi 218 . . . . . . . . . 10 (∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) → ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))
135134adantl 484 . . . . . . . . 9 ((∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))
136127, 135jca 514 . . . . . . . 8 ((∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
137136adantl 484 . . . . . . 7 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
138 nfv 1915 . . . . . . . 8 𝑖(((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))))
1391ad3antrrr 728 . . . . . . . 8 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑋 ∈ Fin)
14012ad3antrrr 728 . . . . . . . 8 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑋 ≠ ∅)
1415ad3antrrr 728 . . . . . . . 8 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑌 ∈ (ℝ ↑m 𝑋))
142104ad2antrr 724 . . . . . . . 8 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑐:𝑋⟶ℝ)
143108ad2antlr 725 . . . . . . . 8 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝑑:𝑋⟶ℝ)
1449ad3antrrr 728 . . . . . . . 8 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → 𝐸 ∈ ℝ+)
145125, 111sylanbr 584 . . . . . . . . . 10 ((∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ 𝑖𝑋) → (𝑐𝑖) ∈ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))
146145adantlr 713 . . . . . . . . 9 (((∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) ∧ 𝑖𝑋) → (𝑐𝑖) ∈ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))
147146adantll 712 . . . . . . . 8 (((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) ∧ 𝑖𝑋) → (𝑐𝑖) ∈ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖)))
148133, 114sylanbr 584 . . . . . . . . . 10 ((∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))) ∧ 𝑖𝑋) → (𝑑𝑖) ∈ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))
149148adantll 712 . . . . . . . . 9 (((∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) ∧ 𝑖𝑋) → (𝑑𝑖) ∈ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))
150149adantll 712 . . . . . . . 8 (((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) ∧ 𝑖𝑋) → (𝑑𝑖) ∈ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))
151138, 139, 140, 141, 142, 143, 144, 147, 150hoiqssbllem2 42912 . . . . . . 7 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑘𝑋 (𝑐𝑘) ∈ (ℚ ∩ (((𝑌𝑘) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑘))) ∧ ∀𝑘𝑋 (𝑑𝑘) ∈ (ℚ ∩ ((𝑌𝑘)(,)((𝑌𝑘) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ⊆ (𝑌(ball‘(dist‘(ℝ^‘𝑋)))𝐸))
152118, 137, 151syl2anc 586 . . . . . 6 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ⊆ (𝑌(ball‘(dist‘(ℝ^‘𝑋)))𝐸))
153117, 152jca 514 . . . . 5 ((((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) ∧ (∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋))))))))) → (𝑌X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ∧ X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ⊆ (𝑌(ball‘(dist‘(ℝ^‘𝑋)))𝐸)))
154153ex 415 . . . 4 (((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) ∧ 𝑑 ∈ (ℚ ↑m 𝑋)) → ((∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → (𝑌X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ∧ X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ⊆ (𝑌(ball‘(dist‘(ℝ^‘𝑋)))𝐸))))
155154reximdva 3276 . . 3 ((𝜑𝑐 ∈ (ℚ ↑m 𝑋)) → (∃𝑑 ∈ (ℚ ↑m 𝑋)(∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → ∃𝑑 ∈ (ℚ ↑m 𝑋)(𝑌X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ∧ X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ⊆ (𝑌(ball‘(dist‘(ℝ^‘𝑋)))𝐸))))
156155reximdva 3276 . 2 (𝜑 → (∃𝑐 ∈ (ℚ ↑m 𝑋)∃𝑑 ∈ (ℚ ↑m 𝑋)(∀𝑖𝑋 (𝑐𝑖) ∈ (ℚ ∩ (((𝑌𝑖) − (𝐸 / (2 · (√‘(♯‘𝑋)))))(,)(𝑌𝑖))) ∧ ∀𝑖𝑋 (𝑑𝑖) ∈ (ℚ ∩ ((𝑌𝑖)(,)((𝑌𝑖) + (𝐸 / (2 · (√‘(♯‘𝑋)))))))) → ∃𝑐 ∈ (ℚ ↑m 𝑋)∃𝑑 ∈ (ℚ ↑m 𝑋)(𝑌X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ∧ X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ⊆ (𝑌(ball‘(dist‘(ℝ^‘𝑋)))𝐸))))
15793, 156mpd 15 1 (𝜑 → ∃𝑐 ∈ (ℚ ↑m 𝑋)∃𝑑 ∈ (ℚ ↑m 𝑋)(𝑌X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ∧ X𝑖𝑋 ((𝑐𝑖)[,)(𝑑𝑖)) ⊆ (𝑌(ball‘(dist‘(ℝ^‘𝑋)))𝐸)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398   = wceq 1537  wex 1780  wcel 2114  wne 3018  wral 3140  wrex 3141  Vcvv 3496  cin 3937  wss 3938  c0 4293   class class class wbr 5068   Fn wfn 6352  wf 6353  cfv 6357  (class class class)co 7158  m cmap 8408  Xcixp 8463  Fincfn 8511  cr 10538   + caddc 10542   · cmul 10544   < clt 10677  cle 10678  cmin 10872   / cdiv 11299  cn 11640  2c2 11695  cq 12351  +crp 12392  (,)cioo 12741  [,)cico 12743  chash 13693  csqrt 14594  distcds 16576  ballcbl 20534  ℝ^crrx 23988
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-inf2 9106  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616  ax-pre-sup 10617  ax-addf 10618  ax-mulf 10619
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-int 4879  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-se 5517  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-isom 6366  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-of 7411  df-om 7583  df-1st 7691  df-2nd 7692  df-supp 7833  df-tpos 7894  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-oadd 8108  df-er 8291  df-map 8410  df-ixp 8464  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-fsupp 8836  df-sup 8908  df-inf 8909  df-oi 8976  df-card 9370  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-div 11300  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-5 11706  df-6 11707  df-7 11708  df-8 11709  df-9 11710  df-n0 11901  df-z 11985  df-dec 12102  df-uz 12247  df-q 12352  df-rp 12393  df-xadd 12511  df-ioo 12745  df-ico 12747  df-fz 12896  df-fzo 13037  df-seq 13373  df-exp 13433  df-hash 13694  df-cj 14460  df-re 14461  df-im 14462  df-sqrt 14596  df-abs 14597  df-clim 14847  df-sum 15045  df-struct 16487  df-ndx 16488  df-slot 16489  df-base 16491  df-sets 16492  df-ress 16493  df-plusg 16580  df-mulr 16581  df-starv 16582  df-sca 16583  df-vsca 16584  df-ip 16585  df-tset 16586  df-ple 16587  df-ds 16589  df-unif 16590  df-hom 16591  df-cco 16592  df-0g 16717  df-gsum 16718  df-prds 16723  df-pws 16725  df-mgm 17854  df-sgrp 17903  df-mnd 17914  df-mhm 17958  df-grp 18108  df-minusg 18109  df-sbg 18110  df-subg 18278  df-ghm 18358  df-cntz 18449  df-cmn 18910  df-abl 18911  df-mgp 19242  df-ur 19254  df-ring 19301  df-cring 19302  df-oppr 19375  df-dvdsr 19393  df-unit 19394  df-invr 19424  df-dvr 19435  df-rnghom 19469  df-drng 19506  df-field 19507  df-subrg 19535  df-staf 19618  df-srng 19619  df-lmod 19638  df-lss 19706  df-sra 19946  df-rgmod 19947  df-psmet 20539  df-xmet 20540  df-met 20541  df-bl 20542  df-cnfld 20548  df-refld 20751  df-dsmm 20878  df-frlm 20893  df-nm 23194  df-tng 23196  df-tcph 23775  df-rrx 23990
This theorem is referenced by:  hoiqssbl  42914
  Copyright terms: Public domain W3C validator