Metamath Proof Explorer


Theorem setsmstopn

Description: The topology of a constructed metric space. (Contributed by Mario Carneiro, 28-Aug-2015)

Ref Expression
Hypotheses setsms.x φ X = Base M
setsms.d φ D = dist M X × X
setsms.k φ K = M sSet TopSet ndx MetOpen D
setsms.m φ M V
Assertion setsmstopn φ MetOpen D = TopOpen K

Proof

Step Hyp Ref Expression
1 setsms.x φ X = Base M
2 setsms.d φ D = dist M X × X
3 setsms.k φ K = M sSet TopSet ndx MetOpen D
4 setsms.m φ M V
5 1 2 3 4 setsmstset φ MetOpen D = TopSet K
6 df-mopn MetOpen = x ran ∞Met topGen ran ball x
7 6 dmmptss dom MetOpen ran ∞Met
8 7 sseli D dom MetOpen D ran ∞Met
9 xmetunirn D ran ∞Met D ∞Met dom dom D
10 9 bilani φ D ran ∞Met D ∞Met dom dom D
11 eqid MetOpen D = MetOpen D
12 11 mopnuni D ∞Met dom dom D dom dom D = MetOpen D
13 10 12 syl φ D ran ∞Met dom dom D = MetOpen D
14 2 dmeqd φ dom D = dom dist M X × X
15 dmres dom dist M X × X = X × X dom dist M
16 14 15 eqtrdi φ dom D = X × X dom dist M
17 inss1 X × X dom dist M X × X
18 16 17 eqsstrdi φ dom D X × X
19 dmss dom D X × X dom dom D dom X × X
20 18 19 syl φ dom dom D dom X × X
21 dmxpid dom X × X = X
22 20 21 sseqtrdi φ dom dom D X
23 22 adantr φ D ran ∞Met dom dom D X
24 13 23 eqsstrrd φ D ran ∞Met MetOpen D X
25 sspwuni MetOpen D 𝒫 X MetOpen D X
26 24 25 sylibr φ D ran ∞Met MetOpen D 𝒫 X
27 26 ex φ D ran ∞Met MetOpen D 𝒫 X
28 8 27 syl5 φ D dom MetOpen MetOpen D 𝒫 X
29 ndmfv ¬ D dom MetOpen MetOpen D =
30 0ss 𝒫 X
31 29 30 eqsstrdi ¬ D dom MetOpen MetOpen D 𝒫 X
32 28 31 pm2.61d1 φ MetOpen D 𝒫 X
33 1 2 3 setsmsbas φ X = Base K
34 33 pweqd φ 𝒫 X = 𝒫 Base K
35 32 5 34 3sstr3d φ TopSet K 𝒫 Base K
36 eqid Base K = Base K
37 eqid TopSet K = TopSet K
38 36 37 topnid TopSet K 𝒫 Base K TopSet K = TopOpen K
39 35 38 syl φ TopSet K = TopOpen K
40 5 39 eqtrd φ MetOpen D = TopOpen K