Metamath Proof Explorer


Theorem metustfbas

Description: The filter base generated by a metric D . (Contributed by Thierry Arnoux, 26-Nov-2017) (Revised by Thierry Arnoux, 11-Feb-2018) (Proof shortened by Peter Mazsa, 2-Oct-2022)

Ref Expression
Hypothesis metust.1 F = ran a + D -1 0 a
Assertion metustfbas X D PsMet X F fBas X × X

Proof

Step Hyp Ref Expression
1 metust.1 F = ran a + D -1 0 a
2 1 metustel D PsMet X x F a + x = D -1 0 a
3 simpr D PsMet X x = D -1 0 a x = D -1 0 a
4 cnvimass D -1 0 a dom D
5 psmetf D PsMet X D : X × X *
6 5 fdmd D PsMet X dom D = X × X
7 6 adantr D PsMet X x = D -1 0 a dom D = X × X
8 4 7 sseqtrid D PsMet X x = D -1 0 a D -1 0 a X × X
9 3 8 eqsstrd D PsMet X x = D -1 0 a x X × X
10 9 ex D PsMet X x = D -1 0 a x X × X
11 10 rexlimdvw D PsMet X a + x = D -1 0 a x X × X
12 2 11 sylbid D PsMet X x F x X × X
13 12 ralrimiv D PsMet X x F x X × X
14 pwssb F 𝒫 X × X x F x X × X
15 13 14 sylibr D PsMet X F 𝒫 X × X
16 15 adantl X D PsMet X F 𝒫 X × X
17 cnvexg D PsMet X D -1 V
18 imaexg D -1 V D -1 0 1 V
19 elisset D -1 0 1 V x x = D -1 0 1
20 1rp 1 +
21 oveq2 a = 1 0 a = 0 1
22 21 imaeq2d a = 1 D -1 0 a = D -1 0 1
23 22 rspceeqv 1 + x = D -1 0 1 a + x = D -1 0 a
24 20 23 mpan x = D -1 0 1 a + x = D -1 0 a
25 24 eximi x x = D -1 0 1 x a + x = D -1 0 a
26 17 18 19 25 4syl D PsMet X x a + x = D -1 0 a
27 2 exbidv D PsMet X x x F x a + x = D -1 0 a
28 26 27 mpbird D PsMet X x x F
29 28 adantl X D PsMet X x x F
30 n0 F x x F
31 29 30 sylibr X D PsMet X F
32 1 metustid D PsMet X x F I X x
33 32 adantll X D PsMet X x F I X x
34 n0 X p p X
35 34 birani X D PsMet X p p X
36 opelidres p X p p I X p X
37 36 ibir p X p p I X
38 37 ne0d p X I X
39 38 exlimiv p p X I X
40 35 39 syl X D PsMet X I X
41 40 adantr X D PsMet X x F I X
42 ssn0 I X x I X x
43 33 41 42 syl2anc X D PsMet X x F x
44 43 nelrdva X D PsMet X ¬ F
45 df-nel F ¬ F
46 44 45 sylibr X D PsMet X F
47 dfss2 x y x y = x
48 47 bilani X D PsMet X x F y F x y x y = x
49 simplrl X D PsMet X x F y F x y x F
50 48 49 eqeltrd X D PsMet X x F y F x y x y F
51 sseqin2 y x x y = y
52 51 bilani X D PsMet X x F y F y x x y = y
53 simplrr X D PsMet X x F y F y x y F
54 52 53 eqeltrd X D PsMet X x F y F y x x y F
55 simplr X D PsMet X x F y F D PsMet X
56 simprl X D PsMet X x F y F x F
57 simprr X D PsMet X x F y F y F
58 1 metustto D PsMet X x F y F x y y x
59 55 56 57 58 syl3anc X D PsMet X x F y F x y y x
60 50 54 59 mpjaodan X D PsMet X x F y F x y F
61 ssidd X D PsMet X x F y F x y x y
62 sseq1 z = x y z x y x y x y
63 62 rspcev x y F x y x y z F z x y
64 60 61 63 syl2anc X D PsMet X x F y F z F z x y
65 64 ralrimivva X D PsMet X x F y F z F z x y
66 31 46 65 3jca X D PsMet X F F x F y F z F z x y
67 elfvex D PsMet X X V
68 67 adantl X D PsMet X X V
69 68 68 xpexd X D PsMet X X × X V
70 isfbas2 X × X V F fBas X × X F 𝒫 X × X F F x F y F z F z x y
71 69 70 syl X D PsMet X F fBas X × X F 𝒫 X × X F F x F y F z F z x y
72 16 66 71 mpbir2and X D PsMet X F fBas X × X