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

Theorem metdstri 24747
Description: A generalization of the triangle inequality to the point-set distance function. Under the usual notation where the same symbol 𝑑 denotes the point-point and point-set distance functions, this theorem would be written 𝑑(𝑎, 𝑆) ≤ 𝑑(𝑎, 𝑏) + 𝑑(𝑏, 𝑆). (Contributed by Mario Carneiro, 4-Sep-2015.)
Hypothesis
Ref Expression
metdscn.f 𝐹 = (𝑥𝑋 ↦ inf(ran (𝑦𝑆 ↦ (𝑥𝐷𝑦)), ℝ*, < ))
Assertion
Ref Expression
metdstri (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐹𝐴) ≤ ((𝐴𝐷𝐵) +𝑒 (𝐹𝐵)))
Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐷,𝑦   𝑥,𝐵,𝑦   𝑥,𝑆,𝑦   𝑥,𝑋,𝑦
Allowed substitution hints:   𝐹(𝑥,𝑦)

Proof of Theorem metdstri
StepHypRef Expression
1 simprr 772 . . . . . . . . . . . 12 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐹𝐴) ∈ ℝ)
2 simprl 770 . . . . . . . . . . . 12 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐴𝐷𝐵) ∈ ℝ)
3 rexsub 13200 . . . . . . . . . . . 12 (((𝐹𝐴) ∈ ℝ ∧ (𝐴𝐷𝐵) ∈ ℝ) → ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) = ((𝐹𝐴) − (𝐴𝐷𝐵)))
41, 2, 3syl2anc 584 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) = ((𝐹𝐴) − (𝐴𝐷𝐵)))
54oveq2d 7406 . . . . . . . . . 10 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) = (𝐵(ball‘𝐷)((𝐹𝐴) − (𝐴𝐷𝐵))))
6 simpll 766 . . . . . . . . . . . 12 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → 𝐷 ∈ (∞Met‘𝑋))
76adantr 480 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → 𝐷 ∈ (∞Met‘𝑋))
8 simprr 772 . . . . . . . . . . . 12 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → 𝐵𝑋)
98adantr 480 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → 𝐵𝑋)
10 simprl 770 . . . . . . . . . . . 12 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → 𝐴𝑋)
1110adantr 480 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → 𝐴𝑋)
121, 2resubcld 11613 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → ((𝐹𝐴) − (𝐴𝐷𝐵)) ∈ ℝ)
132leidd 11751 . . . . . . . . . . . 12 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐴𝐷𝐵) ≤ (𝐴𝐷𝐵))
14 xmetsym 24242 . . . . . . . . . . . . . . 15 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝐴𝑋𝐵𝑋) → (𝐴𝐷𝐵) = (𝐵𝐷𝐴))
156, 10, 8, 14syl3anc 1373 . . . . . . . . . . . . . 14 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐴𝐷𝐵) = (𝐵𝐷𝐴))
1615adantr 480 . . . . . . . . . . . . 13 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐴𝐷𝐵) = (𝐵𝐷𝐴))
1716eqcomd 2736 . . . . . . . . . . . 12 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐵𝐷𝐴) = (𝐴𝐷𝐵))
181recnd 11209 . . . . . . . . . . . . 13 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐹𝐴) ∈ ℂ)
192recnd 11209 . . . . . . . . . . . . 13 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐴𝐷𝐵) ∈ ℂ)
2018, 19nncand 11545 . . . . . . . . . . . 12 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → ((𝐹𝐴) − ((𝐹𝐴) − (𝐴𝐷𝐵))) = (𝐴𝐷𝐵))
2113, 17, 203brtr4d 5142 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐵𝐷𝐴) ≤ ((𝐹𝐴) − ((𝐹𝐴) − (𝐴𝐷𝐵))))
22 blss2 24299 . . . . . . . . . . 11 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝐵𝑋𝐴𝑋) ∧ (((𝐹𝐴) − (𝐴𝐷𝐵)) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ ∧ (𝐵𝐷𝐴) ≤ ((𝐹𝐴) − ((𝐹𝐴) − (𝐴𝐷𝐵))))) → (𝐵(ball‘𝐷)((𝐹𝐴) − (𝐴𝐷𝐵))) ⊆ (𝐴(ball‘𝐷)(𝐹𝐴)))
237, 9, 11, 12, 1, 21, 22syl33anc 1387 . . . . . . . . . 10 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐵(ball‘𝐷)((𝐹𝐴) − (𝐴𝐷𝐵))) ⊆ (𝐴(ball‘𝐷)(𝐹𝐴)))
245, 23eqsstrd 3984 . . . . . . . . 9 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) ∈ ℝ)) → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ⊆ (𝐴(ball‘𝐷)(𝐹𝐴)))
2524expr 456 . . . . . . . 8 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) ∈ ℝ) → ((𝐹𝐴) ∈ ℝ → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ⊆ (𝐴(ball‘𝐷)(𝐹𝐴))))
266adantr 480 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → 𝐷 ∈ (∞Met‘𝑋))
278adantr 480 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → 𝐵𝑋)
28 metdscn.f . . . . . . . . . . . . . . . . . 18 𝐹 = (𝑥𝑋 ↦ inf(ran (𝑦𝑆 ↦ (𝑥𝐷𝑦)), ℝ*, < ))
2928metdsf 24744 . . . . . . . . . . . . . . . . 17 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) → 𝐹:𝑋⟶(0[,]+∞))
3029adantr 480 . . . . . . . . . . . . . . . 16 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → 𝐹:𝑋⟶(0[,]+∞))
3130, 10ffvelcdmd 7060 . . . . . . . . . . . . . . 15 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐹𝐴) ∈ (0[,]+∞))
32 eliccxr 13403 . . . . . . . . . . . . . . 15 ((𝐹𝐴) ∈ (0[,]+∞) → (𝐹𝐴) ∈ ℝ*)
3331, 32syl 17 . . . . . . . . . . . . . 14 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐹𝐴) ∈ ℝ*)
3433adantr 480 . . . . . . . . . . . . 13 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) ∈ ℝ) → (𝐹𝐴) ∈ ℝ*)
35 xmetcl 24226 . . . . . . . . . . . . . . . 16 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝐴𝑋𝐵𝑋) → (𝐴𝐷𝐵) ∈ ℝ*)
366, 10, 8, 35syl3anc 1373 . . . . . . . . . . . . . . 15 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐴𝐷𝐵) ∈ ℝ*)
3736adantr 480 . . . . . . . . . . . . . 14 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) ∈ ℝ) → (𝐴𝐷𝐵) ∈ ℝ*)
3837xnegcld 13267 . . . . . . . . . . . . 13 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) ∈ ℝ) → -𝑒(𝐴𝐷𝐵) ∈ ℝ*)
3934, 38xaddcld 13268 . . . . . . . . . . . 12 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) ∈ ℝ) → ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ∈ ℝ*)
4039adantrr 717 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ∈ ℝ*)
41 pnfxr 11235 . . . . . . . . . . . 12 +∞ ∈ ℝ*
4241a1i 11 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → +∞ ∈ ℝ*)
43 pnfge 13097 . . . . . . . . . . . 12 (((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ∈ ℝ* → ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ≤ +∞)
4440, 43syl 17 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ≤ +∞)
45 ssbl 24318 . . . . . . . . . . 11 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝐵𝑋) ∧ (((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ∈ ℝ* ∧ +∞ ∈ ℝ*) ∧ ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ≤ +∞) → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ⊆ (𝐵(ball‘𝐷)+∞))
4626, 27, 40, 42, 44, 45syl221anc 1383 . . . . . . . . . 10 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ⊆ (𝐵(ball‘𝐷)+∞))
47 simprr 772 . . . . . . . . . . . 12 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → (𝐹𝐴) = +∞)
4847oveq2d 7406 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → (𝐴(ball‘𝐷)(𝐹𝐴)) = (𝐴(ball‘𝐷)+∞))
4910adantr 480 . . . . . . . . . . . 12 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → 𝐴𝑋)
50 simprl 770 . . . . . . . . . . . . 13 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → (𝐴𝐷𝐵) ∈ ℝ)
51 xblpnf 24291 . . . . . . . . . . . . . 14 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝐴𝑋) → (𝐵 ∈ (𝐴(ball‘𝐷)+∞) ↔ (𝐵𝑋 ∧ (𝐴𝐷𝐵) ∈ ℝ)))
5226, 49, 51syl2anc 584 . . . . . . . . . . . . 13 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → (𝐵 ∈ (𝐴(ball‘𝐷)+∞) ↔ (𝐵𝑋 ∧ (𝐴𝐷𝐵) ∈ ℝ)))
5327, 50, 52mpbir2and 713 . . . . . . . . . . . 12 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → 𝐵 ∈ (𝐴(ball‘𝐷)+∞))
54 blpnfctr 24331 . . . . . . . . . . . 12 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝐴𝑋𝐵 ∈ (𝐴(ball‘𝐷)+∞)) → (𝐴(ball‘𝐷)+∞) = (𝐵(ball‘𝐷)+∞))
5526, 49, 53, 54syl3anc 1373 . . . . . . . . . . 11 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → (𝐴(ball‘𝐷)+∞) = (𝐵(ball‘𝐷)+∞))
5648, 55eqtr2d 2766 . . . . . . . . . 10 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → (𝐵(ball‘𝐷)+∞) = (𝐴(ball‘𝐷)(𝐹𝐴)))
5746, 56sseqtrd 3986 . . . . . . . . 9 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ ((𝐴𝐷𝐵) ∈ ℝ ∧ (𝐹𝐴) = +∞)) → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ⊆ (𝐴(ball‘𝐷)(𝐹𝐴)))
5857expr 456 . . . . . . . 8 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) ∈ ℝ) → ((𝐹𝐴) = +∞ → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ⊆ (𝐴(ball‘𝐷)(𝐹𝐴))))
59 elxrge0 13425 . . . . . . . . . . . . . 14 ((𝐹𝐴) ∈ (0[,]+∞) ↔ ((𝐹𝐴) ∈ ℝ* ∧ 0 ≤ (𝐹𝐴)))
6059simprbi 496 . . . . . . . . . . . . 13 ((𝐹𝐴) ∈ (0[,]+∞) → 0 ≤ (𝐹𝐴))
6131, 60syl 17 . . . . . . . . . . . 12 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → 0 ≤ (𝐹𝐴))
62 ge0nemnf 13140 . . . . . . . . . . . 12 (((𝐹𝐴) ∈ ℝ* ∧ 0 ≤ (𝐹𝐴)) → (𝐹𝐴) ≠ -∞)
6333, 61, 62syl2anc 584 . . . . . . . . . . 11 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐹𝐴) ≠ -∞)
6433, 63jca 511 . . . . . . . . . 10 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ((𝐹𝐴) ∈ ℝ* ∧ (𝐹𝐴) ≠ -∞))
6564adantr 480 . . . . . . . . 9 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) ∈ ℝ) → ((𝐹𝐴) ∈ ℝ* ∧ (𝐹𝐴) ≠ -∞))
66 xrnemnf 13084 . . . . . . . . 9 (((𝐹𝐴) ∈ ℝ* ∧ (𝐹𝐴) ≠ -∞) ↔ ((𝐹𝐴) ∈ ℝ ∨ (𝐹𝐴) = +∞))
6765, 66sylib 218 . . . . . . . 8 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) ∈ ℝ) → ((𝐹𝐴) ∈ ℝ ∨ (𝐹𝐴) = +∞))
6825, 58, 67mpjaod 860 . . . . . . 7 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) ∈ ℝ) → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ⊆ (𝐴(ball‘𝐷)(𝐹𝐴)))
69 pnfnlt 13095 . . . . . . . . . . 11 ((𝐹𝐴) ∈ ℝ* → ¬ +∞ < (𝐹𝐴))
7033, 69syl 17 . . . . . . . . . 10 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ¬ +∞ < (𝐹𝐴))
7170adantr 480 . . . . . . . . 9 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) = +∞) → ¬ +∞ < (𝐹𝐴))
7236xnegcld 13267 . . . . . . . . . . . . . 14 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → -𝑒(𝐴𝐷𝐵) ∈ ℝ*)
7333, 72xaddcld 13268 . . . . . . . . . . . . 13 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ∈ ℝ*)
74 xbln0 24309 . . . . . . . . . . . . 13 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝐵𝑋 ∧ ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ∈ ℝ*) → ((𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ≠ ∅ ↔ 0 < ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))))
756, 8, 73, 74syl3anc 1373 . . . . . . . . . . . 12 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ((𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ≠ ∅ ↔ 0 < ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))))
76 xposdif 13229 . . . . . . . . . . . . 13 (((𝐴𝐷𝐵) ∈ ℝ* ∧ (𝐹𝐴) ∈ ℝ*) → ((𝐴𝐷𝐵) < (𝐹𝐴) ↔ 0 < ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))))
7736, 33, 76syl2anc 584 . . . . . . . . . . . 12 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ((𝐴𝐷𝐵) < (𝐹𝐴) ↔ 0 < ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))))
7875, 77bitr4d 282 . . . . . . . . . . 11 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ((𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ≠ ∅ ↔ (𝐴𝐷𝐵) < (𝐹𝐴)))
79 breq1 5113 . . . . . . . . . . 11 ((𝐴𝐷𝐵) = +∞ → ((𝐴𝐷𝐵) < (𝐹𝐴) ↔ +∞ < (𝐹𝐴)))
8078, 79sylan9bb 509 . . . . . . . . . 10 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) = +∞) → ((𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ≠ ∅ ↔ +∞ < (𝐹𝐴)))
8180necon1bbid 2965 . . . . . . . . 9 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) = +∞) → (¬ +∞ < (𝐹𝐴) ↔ (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) = ∅))
8271, 81mpbid 232 . . . . . . . 8 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) = +∞) → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) = ∅)
83 0ss 4366 . . . . . . . 8 ∅ ⊆ (𝐴(ball‘𝐷)(𝐹𝐴))
8482, 83eqsstrdi 3994 . . . . . . 7 ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) ∧ (𝐴𝐷𝐵) = +∞) → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ⊆ (𝐴(ball‘𝐷)(𝐹𝐴)))
85 xmetge0 24239 . . . . . . . . . . 11 ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝐴𝑋𝐵𝑋) → 0 ≤ (𝐴𝐷𝐵))
866, 10, 8, 85syl3anc 1373 . . . . . . . . . 10 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → 0 ≤ (𝐴𝐷𝐵))
87 ge0nemnf 13140 . . . . . . . . . 10 (((𝐴𝐷𝐵) ∈ ℝ* ∧ 0 ≤ (𝐴𝐷𝐵)) → (𝐴𝐷𝐵) ≠ -∞)
8836, 86, 87syl2anc 584 . . . . . . . . 9 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐴𝐷𝐵) ≠ -∞)
8936, 88jca 511 . . . . . . . 8 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ((𝐴𝐷𝐵) ∈ ℝ* ∧ (𝐴𝐷𝐵) ≠ -∞))
90 xrnemnf 13084 . . . . . . . 8 (((𝐴𝐷𝐵) ∈ ℝ* ∧ (𝐴𝐷𝐵) ≠ -∞) ↔ ((𝐴𝐷𝐵) ∈ ℝ ∨ (𝐴𝐷𝐵) = +∞))
9189, 90sylib 218 . . . . . . 7 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ((𝐴𝐷𝐵) ∈ ℝ ∨ (𝐴𝐷𝐵) = +∞))
9268, 84, 91mpjaodan 960 . . . . . 6 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ⊆ (𝐴(ball‘𝐷)(𝐹𝐴)))
93 sslin 4209 . . . . . 6 ((𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵))) ⊆ (𝐴(ball‘𝐷)(𝐹𝐴)) → (𝑆 ∩ (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)))) ⊆ (𝑆 ∩ (𝐴(ball‘𝐷)(𝐹𝐴))))
9492, 93syl 17 . . . . 5 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝑆 ∩ (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)))) ⊆ (𝑆 ∩ (𝐴(ball‘𝐷)(𝐹𝐴))))
9533xrleidd 13119 . . . . . 6 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐹𝐴) ≤ (𝐹𝐴))
96 simplr 768 . . . . . . 7 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → 𝑆𝑋)
9728metdsge 24745 . . . . . . 7 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋𝐴𝑋) ∧ (𝐹𝐴) ∈ ℝ*) → ((𝐹𝐴) ≤ (𝐹𝐴) ↔ (𝑆 ∩ (𝐴(ball‘𝐷)(𝐹𝐴))) = ∅))
986, 96, 10, 33, 97syl31anc 1375 . . . . . 6 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ((𝐹𝐴) ≤ (𝐹𝐴) ↔ (𝑆 ∩ (𝐴(ball‘𝐷)(𝐹𝐴))) = ∅))
9995, 98mpbid 232 . . . . 5 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝑆 ∩ (𝐴(ball‘𝐷)(𝐹𝐴))) = ∅)
100 sseq0 4369 . . . . 5 (((𝑆 ∩ (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)))) ⊆ (𝑆 ∩ (𝐴(ball‘𝐷)(𝐹𝐴))) ∧ (𝑆 ∩ (𝐴(ball‘𝐷)(𝐹𝐴))) = ∅) → (𝑆 ∩ (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)))) = ∅)
10194, 99, 100syl2anc 584 . . . 4 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝑆 ∩ (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)))) = ∅)
10228metdsge 24745 . . . . 5 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋𝐵𝑋) ∧ ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ∈ ℝ*) → (((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ≤ (𝐹𝐵) ↔ (𝑆 ∩ (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)))) = ∅))
1036, 96, 8, 73, 102syl31anc 1375 . . . 4 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ≤ (𝐹𝐵) ↔ (𝑆 ∩ (𝐵(ball‘𝐷)((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)))) = ∅))
104101, 103mpbird 257 . . 3 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ≤ (𝐹𝐵))
10530, 8ffvelcdmd 7060 . . . . 5 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐹𝐵) ∈ (0[,]+∞))
106 eliccxr 13403 . . . . 5 ((𝐹𝐵) ∈ (0[,]+∞) → (𝐹𝐵) ∈ ℝ*)
107105, 106syl 17 . . . 4 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐹𝐵) ∈ ℝ*)
108 elxrge0 13425 . . . . . 6 ((𝐹𝐵) ∈ (0[,]+∞) ↔ ((𝐹𝐵) ∈ ℝ* ∧ 0 ≤ (𝐹𝐵)))
109108simprbi 496 . . . . 5 ((𝐹𝐵) ∈ (0[,]+∞) → 0 ≤ (𝐹𝐵))
110105, 109syl 17 . . . 4 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → 0 ≤ (𝐹𝐵))
111 xlesubadd 13230 . . . 4 ((((𝐹𝐴) ∈ ℝ* ∧ (𝐴𝐷𝐵) ∈ ℝ* ∧ (𝐹𝐵) ∈ ℝ*) ∧ (0 ≤ (𝐹𝐴) ∧ (𝐴𝐷𝐵) ≠ -∞ ∧ 0 ≤ (𝐹𝐵))) → (((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ≤ (𝐹𝐵) ↔ (𝐹𝐴) ≤ ((𝐹𝐵) +𝑒 (𝐴𝐷𝐵))))
11233, 36, 107, 61, 88, 110, 111syl33anc 1387 . . 3 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (((𝐹𝐴) +𝑒 -𝑒(𝐴𝐷𝐵)) ≤ (𝐹𝐵) ↔ (𝐹𝐴) ≤ ((𝐹𝐵) +𝑒 (𝐴𝐷𝐵))))
113104, 112mpbid 232 . 2 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐹𝐴) ≤ ((𝐹𝐵) +𝑒 (𝐴𝐷𝐵)))
114 xaddcom 13207 . . 3 (((𝐹𝐵) ∈ ℝ* ∧ (𝐴𝐷𝐵) ∈ ℝ*) → ((𝐹𝐵) +𝑒 (𝐴𝐷𝐵)) = ((𝐴𝐷𝐵) +𝑒 (𝐹𝐵)))
115107, 36, 114syl2anc 584 . 2 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → ((𝐹𝐵) +𝑒 (𝐴𝐷𝐵)) = ((𝐴𝐷𝐵) +𝑒 (𝐹𝐵)))
116113, 115breqtrd 5136 1 (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆𝑋) ∧ (𝐴𝑋𝐵𝑋)) → (𝐹𝐴) ≤ ((𝐴𝐷𝐵) +𝑒 (𝐹𝐵)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 847   = wceq 1540  wcel 2109  wne 2926  cin 3916  wss 3917  c0 4299   class class class wbr 5110  cmpt 5191  ran crn 5642  wf 6510  cfv 6514  (class class class)co 7390  infcinf 9399  cr 11074  0cc0 11075  +∞cpnf 11212  -∞cmnf 11213  *cxr 11214   < clt 11215  cle 11216  cmin 11412  -𝑒cxne 13076   +𝑒 cxad 13077  [,]cicc 13316  ∞Metcxmet 21256  ballcbl 21258
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152  ax-pre-sup 11153
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-iun 4960  df-br 5111  df-opab 5173  df-mpt 5192  df-id 5536  df-po 5549  df-so 5550  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-iota 6467  df-fun 6516  df-fn 6517  df-f 6518  df-f1 6519  df-fo 6520  df-f1o 6521  df-fv 6522  df-riota 7347  df-ov 7393  df-oprab 7394  df-mpo 7395  df-1st 7971  df-2nd 7972  df-er 8674  df-ec 8676  df-map 8804  df-en 8922  df-dom 8923  df-sdom 8924  df-sup 9400  df-inf 9401  df-pnf 11217  df-mnf 11218  df-xr 11219  df-ltxr 11220  df-le 11221  df-sub 11414  df-neg 11415  df-div 11843  df-2 12256  df-rp 12959  df-xneg 13079  df-xadd 13080  df-xmul 13081  df-icc 13320  df-psmet 21263  df-xmet 21264  df-bl 21266
This theorem is referenced by:  metdsle  24748  metdscnlem  24751  metnrmlem1  24755
  Copyright terms: Public domain W3C validator