Theorem metdscn 24822

Description: The function 𝐹 which gives the distance from a point to a set is a continuous function into the metric topology of the extended reals. (Contributed by Mario Carneiro, 14-Feb-2015.) (Revised by Mario Carneiro, 4-Sep-2015.)

Hypotheses

Ref	Expression
metdscn.f	⊢ 𝐹 = (𝑥 ∈ 𝑋 ↦ inf(ran (𝑦 ∈ 𝑆 ↦ (𝑥𝐷𝑦)), ℝ*, < ))
metdscn.j	⊢ 𝐽 = (MetOpen‘𝐷)
metdscn.c	⊢ 𝐶 = (dist‘ℝ*𝑠)
metdscn.k	⊢ 𝐾 = (MetOpen‘𝐶)

Assertion

Ref	Expression
metdscn	⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) → 𝐹 ∈ (𝐽 Cn 𝐾))

Distinct variable groups:   𝑥,𝑦,𝐷   𝑦,𝐽   𝑥,𝑆,𝑦   𝑥,𝑋,𝑦

Allowed substitution hints:   𝐶(𝑥,𝑦)   𝐹(𝑥,𝑦)   𝐽(𝑥)   𝐾(𝑥,𝑦)

Proof of Theorem metdscn

Dummy variables 𝑤 𝑟 𝑧 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		metdscn.f	. . . 4 ⊢ 𝐹 = (𝑥 ∈ 𝑋 ↦ inf(ran (𝑦 ∈ 𝑆 ↦ (𝑥𝐷𝑦)), ℝ*, < ))
2	1	metdsf 24814	. . 3 ⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) → 𝐹:𝑋⟶(0[,]+∞))
3		iccssxr 13383	. . 3 ⊢ (0[,]+∞) ⊆ ℝ*
4		fss 6685	. . 3 ⊢ ((𝐹:𝑋⟶(0[,]+∞) ∧ (0[,]+∞) ⊆ ℝ*) → 𝐹:𝑋⟶ℝ*)
5	2, 3, 4	sylancl 587	. 2 ⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) → 𝐹:𝑋⟶ℝ*)
6		simprr 773	. . . 4 ⊢ (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → 𝑟 ∈ ℝ+)
7	5	ad2antrr 727	. . . . . . . . 9 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → 𝐹:𝑋⟶ℝ*)
8		simplrl 777	. . . . . . . . 9 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → 𝑧 ∈ 𝑋)
9	7, 8	ffvelcdmd 7038	. . . . . . . 8 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → (𝐹‘𝑧) ∈ ℝ*)
10		simprl 771	. . . . . . . . 9 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → 𝑤 ∈ 𝑋)
11	7, 10	ffvelcdmd 7038	. . . . . . . 8 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → (𝐹‘𝑤) ∈ ℝ*)
12		metdscn.c	. . . . . . . . 9 ⊢ 𝐶 = (dist‘ℝ*𝑠)
13	12	xrsdsval 21391	. . . . . . . 8 ⊢ (((𝐹‘𝑧) ∈ ℝ* ∧ (𝐹‘𝑤) ∈ ℝ*) → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) = if((𝐹‘𝑧) ≤ (𝐹‘𝑤), ((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)), ((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤))))
14	9, 11, 13	syl2anc 585	. . . . . . 7 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) = if((𝐹‘𝑧) ≤ (𝐹‘𝑤), ((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)), ((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤))))
15		metdscn.j	. . . . . . . . 9 ⊢ 𝐽 = (MetOpen‘𝐷)
16		metdscn.k	. . . . . . . . 9 ⊢ 𝐾 = (MetOpen‘𝐶)
17		simplll 775	. . . . . . . . 9 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → 𝐷 ∈ (∞Met‘𝑋))
18		simpllr 776	. . . . . . . . 9 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → 𝑆 ⊆ 𝑋)
19		simplrr 778	. . . . . . . . 9 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → 𝑟 ∈ ℝ+)
20		xmetsym 24312	. . . . . . . . . . 11 ⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑤 ∈ 𝑋 ∧ 𝑧 ∈ 𝑋) → (𝑤𝐷𝑧) = (𝑧𝐷𝑤))
21	17, 10, 8, 20	syl3anc 1374	. . . . . . . . . 10 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → (𝑤𝐷𝑧) = (𝑧𝐷𝑤))
22		simprr 773	. . . . . . . . . 10 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → (𝑧𝐷𝑤) < 𝑟)
23	21, 22	eqbrtrd 5108	. . . . . . . . 9 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → (𝑤𝐷𝑧) < 𝑟)
24	1, 15, 12, 16, 17, 18, 10, 8, 19, 23	metdscnlem 24821	. . . . . . . 8 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → ((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)) < 𝑟)
25	1, 15, 12, 16, 17, 18, 8, 10, 19, 22	metdscnlem 24821	. . . . . . . 8 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → ((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤)) < 𝑟)
26		breq1 5089	. . . . . . . . 9 ⊢ (((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)) = if((𝐹‘𝑧) ≤ (𝐹‘𝑤), ((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)), ((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤))) → (((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)) < 𝑟 ↔ if((𝐹‘𝑧) ≤ (𝐹‘𝑤), ((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)), ((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤))) < 𝑟))
27		breq1 5089	. . . . . . . . 9 ⊢ (((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤)) = if((𝐹‘𝑧) ≤ (𝐹‘𝑤), ((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)), ((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤))) → (((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤)) < 𝑟 ↔ if((𝐹‘𝑧) ≤ (𝐹‘𝑤), ((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)), ((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤))) < 𝑟))
28	26, 27	ifboth 4507	. . . . . . . 8 ⊢ ((((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)) < 𝑟 ∧ ((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤)) < 𝑟) → if((𝐹‘𝑧) ≤ (𝐹‘𝑤), ((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)), ((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤))) < 𝑟)
29	24, 25, 28	syl2anc 585	. . . . . . 7 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → if((𝐹‘𝑧) ≤ (𝐹‘𝑤), ((𝐹‘𝑤) +𝑒 -𝑒(𝐹‘𝑧)), ((𝐹‘𝑧) +𝑒 -𝑒(𝐹‘𝑤))) < 𝑟)
30	14, 29	eqbrtrd 5108	. . . . . 6 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ (𝑤 ∈ 𝑋 ∧ (𝑧𝐷𝑤) < 𝑟)) → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) < 𝑟)
31	30	expr 456	. . . . 5 ⊢ ((((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) ∧ 𝑤 ∈ 𝑋) → ((𝑧𝐷𝑤) < 𝑟 → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) < 𝑟))
32	31	ralrimiva 3130	. . . 4 ⊢ (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → ∀𝑤 ∈ 𝑋 ((𝑧𝐷𝑤) < 𝑟 → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) < 𝑟))
33		breq2 5090	. . . . 5 ⊢ (𝑠 = 𝑟 → ((𝑧𝐷𝑤) < 𝑠 ↔ (𝑧𝐷𝑤) < 𝑟))
34	33	rspceaimv 3571	. . . 4 ⊢ ((𝑟 ∈ ℝ+ ∧ ∀𝑤 ∈ 𝑋 ((𝑧𝐷𝑤) < 𝑟 → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) < 𝑟)) → ∃𝑠 ∈ ℝ+ ∀𝑤 ∈ 𝑋 ((𝑧𝐷𝑤) < 𝑠 → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) < 𝑟))
35	6, 32, 34	syl2anc 585	. . 3 ⊢ (((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) ∧ (𝑧 ∈ 𝑋 ∧ 𝑟 ∈ ℝ+)) → ∃𝑠 ∈ ℝ+ ∀𝑤 ∈ 𝑋 ((𝑧𝐷𝑤) < 𝑠 → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) < 𝑟))
36	35	ralrimivva 3181	. 2 ⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) → ∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑤 ∈ 𝑋 ((𝑧𝐷𝑤) < 𝑠 → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) < 𝑟))
37		simpl 482	. . 3 ⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) → 𝐷 ∈ (∞Met‘𝑋))
38	12	xrsxmet 24775	. . 3 ⊢ 𝐶 ∈ (∞Met‘ℝ*)
39	15, 16	metcn 24508	. . 3 ⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝐶 ∈ (∞Met‘ℝ*)) → (𝐹 ∈ (𝐽 Cn 𝐾) ↔ (𝐹:𝑋⟶ℝ* ∧ ∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑤 ∈ 𝑋 ((𝑧𝐷𝑤) < 𝑠 → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) < 𝑟))))
40	37, 38, 39	sylancl 587	. 2 ⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) → (𝐹 ∈ (𝐽 Cn 𝐾) ↔ (𝐹:𝑋⟶ℝ* ∧ ∀𝑧 ∈ 𝑋 ∀𝑟 ∈ ℝ+ ∃𝑠 ∈ ℝ+ ∀𝑤 ∈ 𝑋 ((𝑧𝐷𝑤) < 𝑠 → ((𝐹‘𝑧)𝐶(𝐹‘𝑤)) < 𝑟))))
41	5, 36, 40	mpbir2and 714	1 ⊢ ((𝐷 ∈ (∞Met‘𝑋) ∧ 𝑆 ⊆ 𝑋) → 𝐹 ∈ (𝐽 Cn 𝐾))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114  ∀wral 3052  ∃wrex 3062   ⊆ wss 3890  ifcif 4467   class class class wbr 5086   ↦ cmpt 5167  ran crn 5632  ⟶wf 6495  ‘cfv 6499  (class class class)co 7367  infcinf 9354  0cc0 11038  +∞cpnf 11176  ℝ^*cxr 11178   < clt 11179   ≤ cle 11180  ℝ⁺crp 12942  -_𝑒cxne 13060   +_𝑒 cxad 13061  [,]cicc 13301  distcds 17229  ℝ^*_𝑠cxrs 17464  ∞Metcxmet 21337  MetOpencmopn 21342   Cn ccn 23189

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5232  ax-nul 5242  ax-pow 5308  ax-pr 5376  ax-un 7689  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115  ax-pre-sup 11116

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6266  df-ord 6327  df-on 6328  df-lim 6329  df-suc 6330  df-iota 6455  df-fun 6501  df-fn 6502  df-f 6503  df-f1 6504  df-fo 6505  df-f1o 6506  df-fv 6507  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-om 7818  df-1st 7942  df-2nd 7943  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-1o 8405  df-er 8643  df-ec 8645  df-map 8775  df-en 8894  df-dom 8895  df-sdom 8896  df-fin 8897  df-sup 9355  df-inf 9356  df-pnf 11181  df-mnf 11182  df-xr 11183  df-ltxr 11184  df-le 11185  df-sub 11379  df-neg 11380  df-div 11808  df-nn 12175  df-2 12244  df-3 12245  df-4 12246  df-5 12247  df-6 12248  df-7 12249  df-8 12250  df-9 12251  df-n0 12438  df-z 12525  df-dec 12645  df-uz 12789  df-q 12899  df-rp 12943  df-xneg 13063  df-xadd 13064  df-xmul 13065  df-icc 13305  df-fz 13462  df-seq 13964  df-exp 14024  df-cj 15061  df-re 15062  df-im 15063  df-sqrt 15197  df-abs 15198  df-struct 17117  df-slot 17152  df-ndx 17164  df-base 17180  df-plusg 17233  df-mulr 17234  df-tset 17239  df-ple 17240  df-ds 17242  df-topgen 17406  df-xrs 17466  df-psmet 21344  df-xmet 21345  df-bl 21347  df-mopn 21348  df-top 22859  df-topon 22876  df-bases 22911  df-cn 23192  df-cnp 23193

This theorem is referenced by:  metdscn2  24823