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

Theorem metnrmlem3 22874
Description: Lemma for metnrm 22875. (Contributed by Mario Carneiro, 14-Jan-2014.) (Revised by Mario Carneiro, 5-Sep-2015.)
Hypotheses
Ref Expression
metdscn.f 𝐹 = (𝑥𝑋 ↦ inf(ran (𝑦𝑆 ↦ (𝑥𝐷𝑦)), ℝ*, < ))
metdscn.j 𝐽 = (MetOpen‘𝐷)
metnrmlem.1 (𝜑𝐷 ∈ (∞Met‘𝑋))
metnrmlem.2 (𝜑𝑆 ∈ (Clsd‘𝐽))
metnrmlem.3 (𝜑𝑇 ∈ (Clsd‘𝐽))
metnrmlem.4 (𝜑 → (𝑆𝑇) = ∅)
metnrmlem.u 𝑈 = 𝑡𝑇 (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))
metnrmlem.g 𝐺 = (𝑥𝑋 ↦ inf(ran (𝑦𝑇 ↦ (𝑥𝐷𝑦)), ℝ*, < ))
metnrmlem.v 𝑉 = 𝑠𝑆 (𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2))
Assertion
Ref Expression
metnrmlem3 (𝜑 → ∃𝑧𝐽𝑤𝐽 (𝑆𝑧𝑇𝑤 ∧ (𝑧𝑤) = ∅))
Distinct variable groups:   𝑥,𝑤,𝑦,𝑧   𝑡,𝑠,𝑤,𝑥,𝑦,𝑧,𝐷   𝐽,𝑠,𝑡,𝑤,𝑦,𝑧   𝜑,𝑠,𝑡   𝐺,𝑠,𝑡   𝑇,𝑠,𝑡,𝑤,𝑥,𝑦,𝑧   𝑆,𝑠,𝑡,𝑤,𝑥,𝑦,𝑧   𝑈,𝑠,𝑤   𝑋,𝑠,𝑡,𝑤,𝑥,𝑦,𝑧   𝐹,𝑠,𝑡,𝑤,𝑧   𝑤,𝑉,𝑧
Allowed substitution hints:   𝜑(𝑥,𝑦,𝑧,𝑤)   𝑈(𝑥,𝑦,𝑧,𝑡)   𝐹(𝑥,𝑦)   𝐺(𝑥,𝑦,𝑧,𝑤)   𝐽(𝑥)   𝑉(𝑥,𝑦,𝑡,𝑠)

Proof of Theorem metnrmlem3
StepHypRef Expression
1 metnrmlem.g . . . 4 𝐺 = (𝑥𝑋 ↦ inf(ran (𝑦𝑇 ↦ (𝑥𝐷𝑦)), ℝ*, < ))
2 metdscn.j . . . 4 𝐽 = (MetOpen‘𝐷)
3 metnrmlem.1 . . . 4 (𝜑𝐷 ∈ (∞Met‘𝑋))
4 metnrmlem.3 . . . 4 (𝜑𝑇 ∈ (Clsd‘𝐽))
5 metnrmlem.2 . . . 4 (𝜑𝑆 ∈ (Clsd‘𝐽))
6 incom 4004 . . . . 5 (𝑇𝑆) = (𝑆𝑇)
7 metnrmlem.4 . . . . 5 (𝜑 → (𝑆𝑇) = ∅)
86, 7syl5eq 2852 . . . 4 (𝜑 → (𝑇𝑆) = ∅)
9 metnrmlem.v . . . 4 𝑉 = 𝑠𝑆 (𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2))
101, 2, 3, 4, 5, 8, 9metnrmlem2 22873 . . 3 (𝜑 → (𝑉𝐽𝑆𝑉))
1110simpld 484 . 2 (𝜑𝑉𝐽)
12 metdscn.f . . . 4 𝐹 = (𝑥𝑋 ↦ inf(ran (𝑦𝑆 ↦ (𝑥𝐷𝑦)), ℝ*, < ))
13 metnrmlem.u . . . 4 𝑈 = 𝑡𝑇 (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))
1412, 2, 3, 5, 4, 7, 13metnrmlem2 22873 . . 3 (𝜑 → (𝑈𝐽𝑇𝑈))
1514simpld 484 . 2 (𝜑𝑈𝐽)
1610simprd 485 . 2 (𝜑𝑆𝑉)
1714simprd 485 . 2 (𝜑𝑇𝑈)
189ineq1i 4009 . . . 4 (𝑉𝑈) = ( 𝑠𝑆 (𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈)
19 iunin1 4777 . . . 4 𝑠𝑆 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) = ( 𝑠𝑆 (𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈)
2018, 19eqtr4i 2831 . . 3 (𝑉𝑈) = 𝑠𝑆 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈)
2113ineq2i 4010 . . . . . . . 8 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) = ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑡𝑇 (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)))
22 iunin2 4776 . . . . . . . 8 𝑡𝑇 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) = ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑡𝑇 (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)))
2321, 22eqtr4i 2831 . . . . . . 7 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) = 𝑡𝑇 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)))
243adantr 468 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → 𝐷 ∈ (∞Met‘𝑋))
25 eqid 2806 . . . . . . . . . . . . . . . . 17 𝐽 = 𝐽
2625cldss 21044 . . . . . . . . . . . . . . . 16 (𝑆 ∈ (Clsd‘𝐽) → 𝑆 𝐽)
275, 26syl 17 . . . . . . . . . . . . . . 15 (𝜑𝑆 𝐽)
282mopnuni 22456 . . . . . . . . . . . . . . . 16 (𝐷 ∈ (∞Met‘𝑋) → 𝑋 = 𝐽)
293, 28syl 17 . . . . . . . . . . . . . . 15 (𝜑𝑋 = 𝐽)
3027, 29sseqtr4d 3839 . . . . . . . . . . . . . 14 (𝜑𝑆𝑋)
3130sselda 3798 . . . . . . . . . . . . 13 ((𝜑𝑠𝑆) → 𝑠𝑋)
3231adantrr 699 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → 𝑠𝑋)
3325cldss 21044 . . . . . . . . . . . . . . . 16 (𝑇 ∈ (Clsd‘𝐽) → 𝑇 𝐽)
344, 33syl 17 . . . . . . . . . . . . . . 15 (𝜑𝑇 𝐽)
3534, 29sseqtr4d 3839 . . . . . . . . . . . . . 14 (𝜑𝑇𝑋)
3635sselda 3798 . . . . . . . . . . . . 13 ((𝜑𝑡𝑇) → 𝑡𝑋)
3736adantrl 698 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → 𝑡𝑋)
381, 2, 3, 4, 5, 8metnrmlem1a 22871 . . . . . . . . . . . . . . . 16 ((𝜑𝑠𝑆) → (0 < (𝐺𝑠) ∧ if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ∈ ℝ+))
3938simprd 485 . . . . . . . . . . . . . . 15 ((𝜑𝑠𝑆) → if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ∈ ℝ+)
4039adantrr 699 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ∈ ℝ+)
4140rphalfcld 12094 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) ∈ ℝ+)
4241rpxrd 12083 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) ∈ ℝ*)
4312, 2, 3, 5, 4, 7metnrmlem1a 22871 . . . . . . . . . . . . . . . 16 ((𝜑𝑡𝑇) → (0 < (𝐹𝑡) ∧ if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ∈ ℝ+))
4443adantrl 698 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (0 < (𝐹𝑡) ∧ if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ∈ ℝ+))
4544simprd 485 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ∈ ℝ+)
4645rphalfcld 12094 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2) ∈ ℝ+)
4746rpxrd 12083 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2) ∈ ℝ*)
4840rpred 12082 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ∈ ℝ)
4948rehalfcld 11542 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) ∈ ℝ)
5045rpred 12082 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ∈ ℝ)
5150rehalfcld 11542 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2) ∈ ℝ)
52 rexadd 12277 . . . . . . . . . . . . . . 15 (((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) ∈ ℝ ∧ (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2) ∈ ℝ) → ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) +𝑒 (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)) = ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) + (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)))
5349, 51, 52syl2anc 575 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) +𝑒 (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)) = ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) + (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)))
5448recnd 10349 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ∈ ℂ)
5550recnd 10349 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ∈ ℂ)
56 2cnd 11373 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → 2 ∈ ℂ)
57 2ne0 11392 . . . . . . . . . . . . . . . 16 2 ≠ 0
5857a1i 11 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → 2 ≠ 0)
5954, 55, 56, 58divdird 11120 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2) = ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) + (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)))
6053, 59eqtr4d 2843 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) +𝑒 (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)) = ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2))
611, 2, 3, 4, 5, 8metnrmlem1 22872 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝑡𝑇𝑠𝑆)) → if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ≤ (𝑡𝐷𝑠))
6261ancom2s 632 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ≤ (𝑡𝐷𝑠))
63 xmetsym 22362 . . . . . . . . . . . . . . . . . 18 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑡𝑋𝑠𝑋) → (𝑡𝐷𝑠) = (𝑠𝐷𝑡))
6424, 37, 32, 63syl3anc 1483 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (𝑡𝐷𝑠) = (𝑠𝐷𝑡))
6562, 64breqtrd 4870 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ≤ (𝑠𝐷𝑡))
6612, 2, 3, 5, 4, 7metnrmlem1 22872 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ≤ (𝑠𝐷𝑡))
6740rpxrd 12083 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ∈ ℝ*)
6845rpxrd 12083 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ∈ ℝ*)
69 xmetcl 22346 . . . . . . . . . . . . . . . . . 18 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑠𝑋𝑡𝑋) → (𝑠𝐷𝑡) ∈ ℝ*)
7024, 32, 37, 69syl3anc 1483 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (𝑠𝐷𝑡) ∈ ℝ*)
71 xle2add 12303 . . . . . . . . . . . . . . . . 17 (((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ∈ ℝ* ∧ if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ∈ ℝ*) ∧ ((𝑠𝐷𝑡) ∈ ℝ* ∧ (𝑠𝐷𝑡) ∈ ℝ*)) → ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ≤ (𝑠𝐷𝑡) ∧ if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ≤ (𝑠𝐷𝑡)) → (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) +𝑒 if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) ≤ ((𝑠𝐷𝑡) +𝑒 (𝑠𝐷𝑡))))
7267, 68, 70, 70, 71syl22anc 858 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ≤ (𝑠𝐷𝑡) ∧ if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ≤ (𝑠𝐷𝑡)) → (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) +𝑒 if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) ≤ ((𝑠𝐷𝑡) +𝑒 (𝑠𝐷𝑡))))
7365, 66, 72mp2and 682 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) +𝑒 if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) ≤ ((𝑠𝐷𝑡) +𝑒 (𝑠𝐷𝑡)))
7448, 50readdcld 10350 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) ∈ ℝ)
7574recnd 10349 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) ∈ ℂ)
7675, 56, 58divcan2d 11084 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (2 · ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2)) = (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))))
77 2re 11370 . . . . . . . . . . . . . . . . 17 2 ∈ ℝ
7874rehalfcld 11542 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2) ∈ ℝ)
79 rexmul 12315 . . . . . . . . . . . . . . . . 17 ((2 ∈ ℝ ∧ ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2) ∈ ℝ) → (2 ·e ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2)) = (2 · ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2)))
8077, 78, 79sylancr 577 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (2 ·e ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2)) = (2 · ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2)))
81 rexadd 12277 . . . . . . . . . . . . . . . . 17 ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) ∈ ℝ ∧ if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) ∈ ℝ) → (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) +𝑒 if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) = (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))))
8248, 50, 81syl2anc 575 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) +𝑒 if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) = (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))))
8376, 80, 823eqtr4d 2850 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (2 ·e ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2)) = (if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) +𝑒 if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))))
84 x2times 12343 . . . . . . . . . . . . . . . 16 ((𝑠𝐷𝑡) ∈ ℝ* → (2 ·e (𝑠𝐷𝑡)) = ((𝑠𝐷𝑡) +𝑒 (𝑠𝐷𝑡)))
8570, 84syl 17 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (2 ·e (𝑠𝐷𝑡)) = ((𝑠𝐷𝑡) +𝑒 (𝑠𝐷𝑡)))
8673, 83, 853brtr4d 4876 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (2 ·e ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2)) ≤ (2 ·e (𝑠𝐷𝑡)))
8778rexrd 10370 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2) ∈ ℝ*)
88 2rp 12047 . . . . . . . . . . . . . . . 16 2 ∈ ℝ+
8988a1i 11 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → 2 ∈ ℝ+)
90 xlemul2 12335 . . . . . . . . . . . . . . 15 ((((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2) ∈ ℝ* ∧ (𝑠𝐷𝑡) ∈ ℝ* ∧ 2 ∈ ℝ+) → (((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2) ≤ (𝑠𝐷𝑡) ↔ (2 ·e ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2)) ≤ (2 ·e (𝑠𝐷𝑡))))
9187, 70, 89, 90syl3anc 1483 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → (((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2) ≤ (𝑠𝐷𝑡) ↔ (2 ·e ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2)) ≤ (2 ·e (𝑠𝐷𝑡))))
9286, 91mpbird 248 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) + if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡))) / 2) ≤ (𝑠𝐷𝑡))
9360, 92eqbrtrd 4866 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) +𝑒 (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)) ≤ (𝑠𝐷𝑡))
94 bldisj 22413 . . . . . . . . . . . 12 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑠𝑋𝑡𝑋) ∧ ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) ∈ ℝ* ∧ (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2) ∈ ℝ* ∧ ((if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2) +𝑒 (if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2)) ≤ (𝑠𝐷𝑡))) → ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) = ∅)
9524, 32, 37, 42, 47, 93, 94syl33anc 1497 . . . . . . . . . . 11 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) = ∅)
96 eqimss 3854 . . . . . . . . . . 11 (((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) = ∅ → ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) ⊆ ∅)
9795, 96syl 17 . . . . . . . . . 10 ((𝜑 ∧ (𝑠𝑆𝑡𝑇)) → ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) ⊆ ∅)
9897anassrs 455 . . . . . . . . 9 (((𝜑𝑠𝑆) ∧ 𝑡𝑇) → ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) ⊆ ∅)
9998ralrimiva 3154 . . . . . . . 8 ((𝜑𝑠𝑆) → ∀𝑡𝑇 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) ⊆ ∅)
100 iunss 4753 . . . . . . . 8 ( 𝑡𝑇 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) ⊆ ∅ ↔ ∀𝑡𝑇 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) ⊆ ∅)
10199, 100sylibr 225 . . . . . . 7 ((𝜑𝑠𝑆) → 𝑡𝑇 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ (𝑡(ball‘𝐷)(if(1 ≤ (𝐹𝑡), 1, (𝐹𝑡)) / 2))) ⊆ ∅)
10223, 101syl5eqss 3846 . . . . . 6 ((𝜑𝑠𝑆) → ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) ⊆ ∅)
103102ralrimiva 3154 . . . . 5 (𝜑 → ∀𝑠𝑆 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) ⊆ ∅)
104 iunss 4753 . . . . 5 ( 𝑠𝑆 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) ⊆ ∅ ↔ ∀𝑠𝑆 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) ⊆ ∅)
105103, 104sylibr 225 . . . 4 (𝜑 𝑠𝑆 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) ⊆ ∅)
106 ss0 4172 . . . 4 ( 𝑠𝑆 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) ⊆ ∅ → 𝑠𝑆 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) = ∅)
107105, 106syl 17 . . 3 (𝜑 𝑠𝑆 ((𝑠(ball‘𝐷)(if(1 ≤ (𝐺𝑠), 1, (𝐺𝑠)) / 2)) ∩ 𝑈) = ∅)
10820, 107syl5eq 2852 . 2 (𝜑 → (𝑉𝑈) = ∅)
109 sseq2 3824 . . . 4 (𝑧 = 𝑉 → (𝑆𝑧𝑆𝑉))
110 ineq1 4006 . . . . 5 (𝑧 = 𝑉 → (𝑧𝑤) = (𝑉𝑤))
111110eqeq1d 2808 . . . 4 (𝑧 = 𝑉 → ((𝑧𝑤) = ∅ ↔ (𝑉𝑤) = ∅))
112109, 1113anbi13d 1555 . . 3 (𝑧 = 𝑉 → ((𝑆𝑧𝑇𝑤 ∧ (𝑧𝑤) = ∅) ↔ (𝑆𝑉𝑇𝑤 ∧ (𝑉𝑤) = ∅)))
113 sseq2 3824 . . . 4 (𝑤 = 𝑈 → (𝑇𝑤𝑇𝑈))
114 ineq2 4007 . . . . 5 (𝑤 = 𝑈 → (𝑉𝑤) = (𝑉𝑈))
115114eqeq1d 2808 . . . 4 (𝑤 = 𝑈 → ((𝑉𝑤) = ∅ ↔ (𝑉𝑈) = ∅))
116113, 1153anbi23d 1556 . . 3 (𝑤 = 𝑈 → ((𝑆𝑉𝑇𝑤 ∧ (𝑉𝑤) = ∅) ↔ (𝑆𝑉𝑇𝑈 ∧ (𝑉𝑈) = ∅)))
117112, 116rspc2ev 3517 . 2 ((𝑉𝐽𝑈𝐽 ∧ (𝑆𝑉𝑇𝑈 ∧ (𝑉𝑈) = ∅)) → ∃𝑧𝐽𝑤𝐽 (𝑆𝑧𝑇𝑤 ∧ (𝑧𝑤) = ∅))
11811, 15, 16, 17, 108, 117syl113anc 1494 1 (𝜑 → ∃𝑧𝐽𝑤𝐽 (𝑆𝑧𝑇𝑤 ∧ (𝑧𝑤) = ∅))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 197  wa 384  w3a 1100   = wceq 1637  wcel 2156  wne 2978  wral 3096  wrex 3097  cin 3768  wss 3769  c0 4116  ifcif 4279   cuni 4630   ciun 4712   class class class wbr 4844  cmpt 4923  ran crn 5312  cfv 6097  (class class class)co 6870  infcinf 8582  cr 10216  0cc0 10217  1c1 10218   + caddc 10220   · cmul 10222  *cxr 10354   < clt 10355  cle 10356   / cdiv 10965  2c2 11352  +crp 12042   +𝑒 cxad 12156   ·e cxmu 12157  ∞Metcxmt 19935  ballcbl 19937  MetOpencmopn 19940  Clsdccld 21031
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1877  ax-4 1894  ax-5 2001  ax-6 2068  ax-7 2104  ax-8 2158  ax-9 2165  ax-10 2185  ax-11 2201  ax-12 2214  ax-13 2420  ax-ext 2784  ax-rep 4964  ax-sep 4975  ax-nul 4983  ax-pow 5035  ax-pr 5096  ax-un 7175  ax-cnex 10273  ax-resscn 10274  ax-1cn 10275  ax-icn 10276  ax-addcl 10277  ax-addrcl 10278  ax-mulcl 10279  ax-mulrcl 10280  ax-mulcom 10281  ax-addass 10282  ax-mulass 10283  ax-distr 10284  ax-i2m1 10285  ax-1ne0 10286  ax-1rid 10287  ax-rnegex 10288  ax-rrecex 10289  ax-cnre 10290  ax-pre-lttri 10291  ax-pre-lttrn 10292  ax-pre-ltadd 10293  ax-pre-mulgt0 10294  ax-pre-sup 10295
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 866  df-3or 1101  df-3an 1102  df-tru 1641  df-ex 1860  df-nf 1864  df-sb 2061  df-eu 2634  df-mo 2635  df-clab 2793  df-cleq 2799  df-clel 2802  df-nfc 2937  df-ne 2979  df-nel 3082  df-ral 3101  df-rex 3102  df-reu 3103  df-rmo 3104  df-rab 3105  df-v 3393  df-sbc 3634  df-csb 3729  df-dif 3772  df-un 3774  df-in 3776  df-ss 3783  df-pss 3785  df-nul 4117  df-if 4280  df-pw 4353  df-sn 4371  df-pr 4373  df-tp 4375  df-op 4377  df-uni 4631  df-int 4670  df-iun 4714  df-iin 4715  df-br 4845  df-opab 4907  df-mpt 4924  df-tr 4947  df-id 5219  df-eprel 5224  df-po 5232  df-so 5233  df-fr 5270  df-we 5272  df-xp 5317  df-rel 5318  df-cnv 5319  df-co 5320  df-dm 5321  df-rn 5322  df-res 5323  df-ima 5324  df-pred 5893  df-ord 5939  df-on 5940  df-lim 5941  df-suc 5942  df-iota 6060  df-fun 6099  df-fn 6100  df-f 6101  df-f1 6102  df-fo 6103  df-f1o 6104  df-fv 6105  df-riota 6831  df-ov 6873  df-oprab 6874  df-mpt2 6875  df-om 7292  df-1st 7394  df-2nd 7395  df-wrecs 7638  df-recs 7700  df-rdg 7738  df-er 7975  df-ec 7977  df-map 8090  df-en 8189  df-dom 8190  df-sdom 8191  df-sup 8583  df-inf 8584  df-pnf 10357  df-mnf 10358  df-xr 10359  df-ltxr 10360  df-le 10361  df-sub 10549  df-neg 10550  df-div 10966  df-nn 11302  df-2 11360  df-n0 11556  df-z 11640  df-uz 11901  df-q 12004  df-rp 12043  df-xneg 12158  df-xadd 12159  df-xmul 12160  df-icc 12396  df-topgen 16305  df-psmet 19942  df-xmet 19943  df-bl 19945  df-mopn 19946  df-top 20909  df-topon 20926  df-bases 20961  df-cld 21034  df-ntr 21035  df-cls 21036
This theorem is referenced by:  metnrm  22875
  Copyright terms: Public domain W3C validator