Metamath Proof Explorer

Theorem utoptop

Description: The topology induced by a uniform structure U is a topology. (Contributed by Thierry Arnoux, 30-Nov-2017)

Ref Expression
Assertion utoptop 
|- ( U e. ( UnifOn ` X ) -> ( unifTop ` U ) e. Top )

Proof

Step Hyp Ref Expression
1 simpr 
 |-  ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) -> x C_ ( unifTop ` U ) )
2 utopval 
 |-  ( U e. ( UnifOn ` X ) -> ( unifTop ` U ) = { a e. ~P X | A. p e. a E. v e. U ( v " { p } ) C_ a } )
3 ssrab2 
 |-  { a e. ~P X | A. p e. a E. v e. U ( v " { p } ) C_ a } C_ ~P X
4 2 3 eqsstrdi 
 |-  ( U e. ( UnifOn ` X ) -> ( unifTop ` U ) C_ ~P X )
5 4 adantr 
 |-  ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) -> ( unifTop ` U ) C_ ~P X )
6 1 5 sstrd 
 |-  ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) -> x C_ ~P X )
7 sspwuni 
 |-  ( x C_ ~P X <-> U. x C_ X )
8 6 7 sylib 
 |-  ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) -> U. x C_ X )
9 simp-4l 
 |-  ( ( ( ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) /\ p e. U. x ) /\ y e. x ) /\ p e. y ) -> U e. ( UnifOn ` X ) )
10 simp-4r 
 |-  ( ( ( ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) /\ p e. U. x ) /\ y e. x ) /\ p e. y ) -> x C_ ( unifTop ` U ) )
11 simplr 
 |-  ( ( ( ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) /\ p e. U. x ) /\ y e. x ) /\ p e. y ) -> y e. x )
12 10 11 sseldd 
 |-  ( ( ( ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) /\ p e. U. x ) /\ y e. x ) /\ p e. y ) -> y e. ( unifTop ` U ) )
13 simpr 
 |-  ( ( ( ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) /\ p e. U. x ) /\ y e. x ) /\ p e. y ) -> p e. y )
14 elutop 
 |-  ( U e. ( UnifOn ` X ) -> ( y e. ( unifTop ` U ) <-> ( y C_ X /\ A. p e. y E. v e. U ( v " { p } ) C_ y ) ) )
15 14 biimpa 
 |-  ( ( U e. ( UnifOn ` X ) /\ y e. ( unifTop ` U ) ) -> ( y C_ X /\ A. p e. y E. v e. U ( v " { p } ) C_ y ) )
16 15 simprd 
 |-  ( ( U e. ( UnifOn ` X ) /\ y e. ( unifTop ` U ) ) -> A. p e. y E. v e. U ( v " { p } ) C_ y )
17 16 r19.21bi 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ y e. ( unifTop ` U ) ) /\ p e. y ) -> E. v e. U ( v " { p } ) C_ y )
18 9 12 13 17 syl21anc 
 |-  ( ( ( ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) /\ p e. U. x ) /\ y e. x ) /\ p e. y ) -> E. v e. U ( v " { p } ) C_ y )
19 r19.41v 
 |-  ( E. v e. U ( ( v " { p } ) C_ y /\ y e. x ) <-> ( E. v e. U ( v " { p } ) C_ y /\ y e. x ) )
20 ssuni 
 |-  ( ( ( v " { p } ) C_ y /\ y e. x ) -> ( v " { p } ) C_ U. x )
21 20 reximi 
 |-  ( E. v e. U ( ( v " { p } ) C_ y /\ y e. x ) -> E. v e. U ( v " { p } ) C_ U. x )
22 19 21 sylbir 
 |-  ( ( E. v e. U ( v " { p } ) C_ y /\ y e. x ) -> E. v e. U ( v " { p } ) C_ U. x )
23 18 11 22 syl2anc 
 |-  ( ( ( ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) /\ p e. U. x ) /\ y e. x ) /\ p e. y ) -> E. v e. U ( v " { p } ) C_ U. x )
24 eluni2 
 |-  ( p e. U. x <-> E. y e. x p e. y )
25 24 bilani 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) /\ p e. U. x ) -> E. y e. x p e. y )
26 23 25 r19.29a 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) /\ p e. U. x ) -> E. v e. U ( v " { p } ) C_ U. x )
27 26 ralrimiva 
 |-  ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) -> A. p e. U. x E. v e. U ( v " { p } ) C_ U. x )
28 elutop 
 |-  ( U e. ( UnifOn ` X ) -> ( U. x e. ( unifTop ` U ) <-> ( U. x C_ X /\ A. p e. U. x E. v e. U ( v " { p } ) C_ U. x ) ) )
29 28 adantr 
 |-  ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) -> ( U. x e. ( unifTop ` U ) <-> ( U. x C_ X /\ A. p e. U. x E. v e. U ( v " { p } ) C_ U. x ) ) )
30 8 27 29 mpbir2and 
 |-  ( ( U e. ( UnifOn ` X ) /\ x C_ ( unifTop ` U ) ) -> U. x e. ( unifTop ` U ) )
31 30 ex 
 |-  ( U e. ( UnifOn ` X ) -> ( x C_ ( unifTop ` U ) -> U. x e. ( unifTop ` U ) ) )
32 31 alrimiv 
 |-  ( U e. ( UnifOn ` X ) -> A. x ( x C_ ( unifTop ` U ) -> U. x e. ( unifTop ` U ) ) )
33 elutop 
 |-  ( U e. ( UnifOn ` X ) -> ( x e. ( unifTop ` U ) <-> ( x C_ X /\ A. p e. x E. u e. U ( u " { p } ) C_ x ) ) )
34 33 biimpa 
 |-  ( ( U e. ( UnifOn ` X ) /\ x e. ( unifTop ` U ) ) -> ( x C_ X /\ A. p e. x E. u e. U ( u " { p } ) C_ x ) )
35 34 simpld 
 |-  ( ( U e. ( UnifOn ` X ) /\ x e. ( unifTop ` U ) ) -> x C_ X )
36 35 adantrr 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) -> x C_ X )
37 ssinss1 
 |-  ( x C_ X -> ( x i^i y ) C_ X )
38 36 37 syl 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) -> ( x i^i y ) C_ X )
39 simpl 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> U e. ( UnifOn ` X ) )
40 simpr31 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> u e. U )
41 simpr32 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> v e. U )
42 ustincl 
 |-  ( ( U e. ( UnifOn ` X ) /\ u e. U /\ v e. U ) -> ( u i^i v ) e. U )
43 39 40 41 42 syl3anc 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> ( u i^i v ) e. U )
44 inss1 
 |-  ( u i^i v ) C_ u
45 imass1 
 |-  ( ( u i^i v ) C_ u -> ( ( u i^i v ) " { p } ) C_ ( u " { p } ) )
46 44 45 ax-mp 
 |-  ( ( u i^i v ) " { p } ) C_ ( u " { p } )
47 simpr33 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) )
48 47 simpld 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> ( u " { p } ) C_ x )
49 46 48 sstrid 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> ( ( u i^i v ) " { p } ) C_ x )
50 inss2 
 |-  ( u i^i v ) C_ v
51 imass1 
 |-  ( ( u i^i v ) C_ v -> ( ( u i^i v ) " { p } ) C_ ( v " { p } ) )
52 50 51 ax-mp 
 |-  ( ( u i^i v ) " { p } ) C_ ( v " { p } )
53 47 simprd 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> ( v " { p } ) C_ y )
54 52 53 sstrid 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> ( ( u i^i v ) " { p } ) C_ y )
55 49 54 ssind 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> ( ( u i^i v ) " { p } ) C_ ( x i^i y ) )
56 imaeq1 
 |-  ( w = ( u i^i v ) -> ( w " { p } ) = ( ( u i^i v ) " { p } ) )
57 56 sseq1d 
 |-  ( w = ( u i^i v ) -> ( ( w " { p } ) C_ ( x i^i y ) <-> ( ( u i^i v ) " { p } ) C_ ( x i^i y ) ) )
58 57 rspcev 
 |-  ( ( ( u i^i v ) e. U /\ ( ( u i^i v ) " { p } ) C_ ( x i^i y ) ) -> E. w e. U ( w " { p } ) C_ ( x i^i y ) )
59 43 55 58 syl2anc 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) /\ p e. ( x i^i y ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) ) -> E. w e. U ( w " { p } ) C_ ( x i^i y ) )
60 59 3anassrs 
 |-  ( ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) /\ ( u e. U /\ v e. U /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) ) -> E. w e. U ( w " { p } ) C_ ( x i^i y ) )
61 60 3anassrs 
 |-  ( ( ( ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) /\ u e. U ) /\ v e. U ) /\ ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) ) -> E. w e. U ( w " { p } ) C_ ( x i^i y ) )
62 simpll 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) -> U e. ( UnifOn ` X ) )
63 simplrl 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) -> x e. ( unifTop ` U ) )
64 elin 
 |-  ( p e. ( x i^i y ) <-> ( p e. x /\ p e. y ) )
65 64 bilani 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) -> ( p e. x /\ p e. y ) )
66 65 simpld 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) -> p e. x )
67 34 simprd 
 |-  ( ( U e. ( UnifOn ` X ) /\ x e. ( unifTop ` U ) ) -> A. p e. x E. u e. U ( u " { p } ) C_ x )
68 67 r19.21bi 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ x e. ( unifTop ` U ) ) /\ p e. x ) -> E. u e. U ( u " { p } ) C_ x )
69 62 63 66 68 syl21anc 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) -> E. u e. U ( u " { p } ) C_ x )
70 simplrr 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) -> y e. ( unifTop ` U ) )
71 65 simprd 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) -> p e. y )
72 62 70 71 17 syl21anc 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) -> E. v e. U ( v " { p } ) C_ y )
73 reeanv 
 |-  ( E. u e. U E. v e. U ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) <-> ( E. u e. U ( u " { p } ) C_ x /\ E. v e. U ( v " { p } ) C_ y ) )
74 69 72 73 sylanbrc 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) -> E. u e. U E. v e. U ( ( u " { p } ) C_ x /\ ( v " { p } ) C_ y ) )
75 61 74 r19.29vva 
 |-  ( ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) /\ p e. ( x i^i y ) ) -> E. w e. U ( w " { p } ) C_ ( x i^i y ) )
76 75 ralrimiva 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) -> A. p e. ( x i^i y ) E. w e. U ( w " { p } ) C_ ( x i^i y ) )
77 elutop 
 |-  ( U e. ( UnifOn ` X ) -> ( ( x i^i y ) e. ( unifTop ` U ) <-> ( ( x i^i y ) C_ X /\ A. p e. ( x i^i y ) E. w e. U ( w " { p } ) C_ ( x i^i y ) ) ) )
78 77 adantr 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) -> ( ( x i^i y ) e. ( unifTop ` U ) <-> ( ( x i^i y ) C_ X /\ A. p e. ( x i^i y ) E. w e. U ( w " { p } ) C_ ( x i^i y ) ) ) )
79 38 76 78 mpbir2and 
 |-  ( ( U e. ( UnifOn ` X ) /\ ( x e. ( unifTop ` U ) /\ y e. ( unifTop ` U ) ) ) -> ( x i^i y ) e. ( unifTop ` U ) )
80 79 ralrimivva 
 |-  ( U e. ( UnifOn ` X ) -> A. x e. ( unifTop ` U ) A. y e. ( unifTop ` U ) ( x i^i y ) e. ( unifTop ` U ) )
81 fvex 
 |-  ( unifTop ` U ) e. _V
82 istopg 
 |-  ( ( unifTop ` U ) e. _V -> ( ( unifTop ` U ) e. Top <-> ( A. x ( x C_ ( unifTop ` U ) -> U. x e. ( unifTop ` U ) ) /\ A. x e. ( unifTop ` U ) A. y e. ( unifTop ` U ) ( x i^i y ) e. ( unifTop ` U ) ) ) )
83 81 82 ax-mp 
 |-  ( ( unifTop ` U ) e. Top <-> ( A. x ( x C_ ( unifTop ` U ) -> U. x e. ( unifTop ` U ) ) /\ A. x e. ( unifTop ` U ) A. y e. ( unifTop ` U ) ( x i^i y ) e. ( unifTop ` U ) ) )
84 32 80 83 sylanbrc 
 |-  ( U e. ( UnifOn ` X ) -> ( unifTop ` U ) e. Top )