Metamath Proof Explorer

Theorem xkohaus

Description: If the codomain space is Hausdorff, then the compact-open topology of continuous functions is also Hausdorff. (Contributed by Mario Carneiro, 19-Mar-2015)

Ref Expression
Assertion xkohaus 
|- ( ( R e. Top /\ S e. Haus ) -> ( S ^ko R ) e. Haus )

Proof

Step Hyp Ref Expression
1 haustop 
 |-  ( S e. Haus -> S e. Top )
2 xkotop 
 |-  ( ( R e. Top /\ S e. Top ) -> ( S ^ko R ) e. Top )
3 1 2 sylan2 
 |-  ( ( R e. Top /\ S e. Haus ) -> ( S ^ko R ) e. Top )
4 eqid 
 |-  ( S ^ko R ) = ( S ^ko R )
5 4 xkouni 
 |-  ( ( R e. Top /\ S e. Top ) -> ( R Cn S ) = U. ( S ^ko R ) )
6 1 5 sylan2 
 |-  ( ( R e. Top /\ S e. Haus ) -> ( R Cn S ) = U. ( S ^ko R ) )
7 6 eleq2d 
 |-  ( ( R e. Top /\ S e. Haus ) -> ( f e. ( R Cn S ) <-> f e. U. ( S ^ko R ) ) )
8 6 eleq2d 
 |-  ( ( R e. Top /\ S e. Haus ) -> ( g e. ( R Cn S ) <-> g e. U. ( S ^ko R ) ) )
9 7 8 anbi12d 
 |-  ( ( R e. Top /\ S e. Haus ) -> ( ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) <-> ( f e. U. ( S ^ko R ) /\ g e. U. ( S ^ko R ) ) ) )
10 simprl 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> f e. ( R Cn S ) )
11 eqid 
 |-  U. R = U. R
12 eqid 
 |-  U. S = U. S
13 11 12 cnf 
 |-  ( f e. ( R Cn S ) -> f : U. R --> U. S )
14 10 13 syl 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> f : U. R --> U. S )
15 14 ffnd 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> f Fn U. R )
16 simprr 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> g e. ( R Cn S ) )
17 11 12 cnf 
 |-  ( g e. ( R Cn S ) -> g : U. R --> U. S )
18 16 17 syl 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> g : U. R --> U. S )
19 18 ffnd 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> g Fn U. R )
20 eqfnfv 
 |-  ( ( f Fn U. R /\ g Fn U. R ) -> ( f = g <-> A. x e. U. R ( f ` x ) = ( g ` x ) ) )
21 15 19 20 syl2anc 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> ( f = g <-> A. x e. U. R ( f ` x ) = ( g ` x ) ) )
22 21 necon3abid 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> ( f =/= g <-> -. A. x e. U. R ( f ` x ) = ( g ` x ) ) )
23 rexnal 
 |-  ( E. x e. U. R -. ( f ` x ) = ( g ` x ) <-> -. A. x e. U. R ( f ` x ) = ( g ` x ) )
24 df-ne 
 |-  ( ( f ` x ) =/= ( g ` x ) <-> -. ( f ` x ) = ( g ` x ) )
25 simpllr 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ ( x e. U. R /\ ( f ` x ) =/= ( g ` x ) ) ) -> S e. Haus )
26 14 adantr 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ ( x e. U. R /\ ( f ` x ) =/= ( g ` x ) ) ) -> f : U. R --> U. S )
27 simprl 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ ( x e. U. R /\ ( f ` x ) =/= ( g ` x ) ) ) -> x e. U. R )
28 26 27 ffvelrnd 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ ( x e. U. R /\ ( f ` x ) =/= ( g ` x ) ) ) -> ( f ` x ) e. U. S )
29 18 adantr 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ ( x e. U. R /\ ( f ` x ) =/= ( g ` x ) ) ) -> g : U. R --> U. S )
30 29 27 ffvelrnd 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ ( x e. U. R /\ ( f ` x ) =/= ( g ` x ) ) ) -> ( g ` x ) e. U. S )
31 simprr 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ ( x e. U. R /\ ( f ` x ) =/= ( g ` x ) ) ) -> ( f ` x ) =/= ( g ` x ) )
32 12 hausnei 
 |-  ( ( S e. Haus /\ ( ( f ` x ) e. U. S /\ ( g ` x ) e. U. S /\ ( f ` x ) =/= ( g ` x ) ) ) -> E. a e. S E. b e. S ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) )
33 25 28 30 31 32 syl13anc 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ ( x e. U. R /\ ( f ` x ) =/= ( g ` x ) ) ) -> E. a e. S E. b e. S ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) )
34 33 expr 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) -> ( ( f ` x ) =/= ( g ` x ) -> E. a e. S E. b e. S ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) )
35 24 34 syl5bir 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) -> ( -. ( f ` x ) = ( g ` x ) -> E. a e. S E. b e. S ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) )
36 simp-4l 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> R e. Top )
37 1 ad4antlr 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> S e. Top )
38 simplr 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> x e. U. R )
39 38 snssd 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> { x } C_ U. R )
40 toptopon2 
 |-  ( R e. Top <-> R e. ( TopOn ` U. R ) )
41 36 40 sylib 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> R e. ( TopOn ` U. R ) )
42 restsn2 
 |-  ( ( R e. ( TopOn ` U. R ) /\ x e. U. R ) -> ( R |`t { x } ) = ~P { x } )
43 41 38 42 syl2anc 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> ( R |`t { x } ) = ~P { x } )
44 snfi 
 |-  { x } e. Fin
45 discmp 
 |-  ( { x } e. Fin <-> ~P { x } e. Comp )
46 44 45 mpbi 
 |-  ~P { x } e. Comp
47 43 46 eqeltrdi 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> ( R |`t { x } ) e. Comp )
48 simprll 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> a e. S )
49 11 36 37 39 47 48 xkoopn 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> { h e. ( R Cn S ) | ( h " { x } ) C_ a } e. ( S ^ko R ) )
50 simprlr 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> b e. S )
51 11 36 37 39 47 50 xkoopn 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> { h e. ( R Cn S ) | ( h " { x } ) C_ b } e. ( S ^ko R ) )
52 imaeq1 
 |-  ( h = f -> ( h " { x } ) = ( f " { x } ) )
53 52 sseq1d 
 |-  ( h = f -> ( ( h " { x } ) C_ a <-> ( f " { x } ) C_ a ) )
54 10 ad2antrr 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> f e. ( R Cn S ) )
55 15 ad2antrr 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> f Fn U. R )
56 fnsnfv 
 |-  ( ( f Fn U. R /\ x e. U. R ) -> { ( f ` x ) } = ( f " { x } ) )
57 55 38 56 syl2anc 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> { ( f ` x ) } = ( f " { x } ) )
58 simprr1 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> ( f ` x ) e. a )
59 58 snssd 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> { ( f ` x ) } C_ a )
60 57 59 eqsstrrd 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> ( f " { x } ) C_ a )
61 53 54 60 elrabd 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> f e. { h e. ( R Cn S ) | ( h " { x } ) C_ a } )
62 imaeq1 
 |-  ( h = g -> ( h " { x } ) = ( g " { x } ) )
63 62 sseq1d 
 |-  ( h = g -> ( ( h " { x } ) C_ b <-> ( g " { x } ) C_ b ) )
64 16 ad2antrr 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> g e. ( R Cn S ) )
65 19 ad2antrr 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> g Fn U. R )
66 fnsnfv 
 |-  ( ( g Fn U. R /\ x e. U. R ) -> { ( g ` x ) } = ( g " { x } ) )
67 65 38 66 syl2anc 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> { ( g ` x ) } = ( g " { x } ) )
68 simprr2 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> ( g ` x ) e. b )
69 68 snssd 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> { ( g ` x ) } C_ b )
70 67 69 eqsstrrd 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> ( g " { x } ) C_ b )
71 63 64 70 elrabd 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> g e. { h e. ( R Cn S ) | ( h " { x } ) C_ b } )
72 inrab 
 |-  ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i { h e. ( R Cn S ) | ( h " { x } ) C_ b } ) = { h e. ( R Cn S ) | ( ( h " { x } ) C_ a /\ ( h " { x } ) C_ b ) }
73 simpllr 
 |-  ( ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) /\ h e. ( R Cn S ) ) -> x e. U. R )
74 11 12 cnf 
 |-  ( h e. ( R Cn S ) -> h : U. R --> U. S )
75 74 fdmd 
 |-  ( h e. ( R Cn S ) -> dom h = U. R )
76 75 adantl 
 |-  ( ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) /\ h e. ( R Cn S ) ) -> dom h = U. R )
77 73 76 eleqtrrd 
 |-  ( ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) /\ h e. ( R Cn S ) ) -> x e. dom h )
78 simprr3 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> ( a i^i b ) = (/) )
79 78 adantr 
 |-  ( ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) /\ h e. ( R Cn S ) ) -> ( a i^i b ) = (/) )
80 sseq0 
 |-  ( ( ( h " { x } ) C_ ( a i^i b ) /\ ( a i^i b ) = (/) ) -> ( h " { x } ) = (/) )
81 80 expcom 
 |-  ( ( a i^i b ) = (/) -> ( ( h " { x } ) C_ ( a i^i b ) -> ( h " { x } ) = (/) ) )
82 79 81 syl 
 |-  ( ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) /\ h e. ( R Cn S ) ) -> ( ( h " { x } ) C_ ( a i^i b ) -> ( h " { x } ) = (/) ) )
83 imadisj 
 |-  ( ( h " { x } ) = (/) <-> ( dom h i^i { x } ) = (/) )
84 disjsn 
 |-  ( ( dom h i^i { x } ) = (/) <-> -. x e. dom h )
85 83 84 bitri 
 |-  ( ( h " { x } ) = (/) <-> -. x e. dom h )
86 82 85 syl6ib 
 |-  ( ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) /\ h e. ( R Cn S ) ) -> ( ( h " { x } ) C_ ( a i^i b ) -> -. x e. dom h ) )
87 77 86 mt2d 
 |-  ( ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) /\ h e. ( R Cn S ) ) -> -. ( h " { x } ) C_ ( a i^i b ) )
88 ssin 
 |-  ( ( ( h " { x } ) C_ a /\ ( h " { x } ) C_ b ) <-> ( h " { x } ) C_ ( a i^i b ) )
89 87 88 sylnibr 
 |-  ( ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) /\ h e. ( R Cn S ) ) -> -. ( ( h " { x } ) C_ a /\ ( h " { x } ) C_ b ) )
90 89 ralrimiva 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> A. h e. ( R Cn S ) -. ( ( h " { x } ) C_ a /\ ( h " { x } ) C_ b ) )
91 rabeq0 
 |-  ( { h e. ( R Cn S ) | ( ( h " { x } ) C_ a /\ ( h " { x } ) C_ b ) } = (/) <-> A. h e. ( R Cn S ) -. ( ( h " { x } ) C_ a /\ ( h " { x } ) C_ b ) )
92 90 91 sylibr 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> { h e. ( R Cn S ) | ( ( h " { x } ) C_ a /\ ( h " { x } ) C_ b ) } = (/) )
93 72 92 eqtrid 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i { h e. ( R Cn S ) | ( h " { x } ) C_ b } ) = (/) )
94 eleq2 
 |-  ( u = { h e. ( R Cn S ) | ( h " { x } ) C_ a } -> ( f e. u <-> f e. { h e. ( R Cn S ) | ( h " { x } ) C_ a } ) )
95 ineq1 
 |-  ( u = { h e. ( R Cn S ) | ( h " { x } ) C_ a } -> ( u i^i v ) = ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i v ) )
96 95 eqeq1d 
 |-  ( u = { h e. ( R Cn S ) | ( h " { x } ) C_ a } -> ( ( u i^i v ) = (/) <-> ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i v ) = (/) ) )
97 94 96 3anbi13d 
 |-  ( u = { h e. ( R Cn S ) | ( h " { x } ) C_ a } -> ( ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) <-> ( f e. { h e. ( R Cn S ) | ( h " { x } ) C_ a } /\ g e. v /\ ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i v ) = (/) ) ) )
98 eleq2 
 |-  ( v = { h e. ( R Cn S ) | ( h " { x } ) C_ b } -> ( g e. v <-> g e. { h e. ( R Cn S ) | ( h " { x } ) C_ b } ) )
99 ineq2 
 |-  ( v = { h e. ( R Cn S ) | ( h " { x } ) C_ b } -> ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i v ) = ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i { h e. ( R Cn S ) | ( h " { x } ) C_ b } ) )
100 99 eqeq1d 
 |-  ( v = { h e. ( R Cn S ) | ( h " { x } ) C_ b } -> ( ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i v ) = (/) <-> ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i { h e. ( R Cn S ) | ( h " { x } ) C_ b } ) = (/) ) )
101 98 100 3anbi23d 
 |-  ( v = { h e. ( R Cn S ) | ( h " { x } ) C_ b } -> ( ( f e. { h e. ( R Cn S ) | ( h " { x } ) C_ a } /\ g e. v /\ ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i v ) = (/) ) <-> ( f e. { h e. ( R Cn S ) | ( h " { x } ) C_ a } /\ g e. { h e. ( R Cn S ) | ( h " { x } ) C_ b } /\ ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i { h e. ( R Cn S ) | ( h " { x } ) C_ b } ) = (/) ) ) )
102 97 101 rspc2ev 
 |-  ( ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } e. ( S ^ko R ) /\ { h e. ( R Cn S ) | ( h " { x } ) C_ b } e. ( S ^ko R ) /\ ( f e. { h e. ( R Cn S ) | ( h " { x } ) C_ a } /\ g e. { h e. ( R Cn S ) | ( h " { x } ) C_ b } /\ ( { h e. ( R Cn S ) | ( h " { x } ) C_ a } i^i { h e. ( R Cn S ) | ( h " { x } ) C_ b } ) = (/) ) ) -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) )
103 49 51 61 71 93 102 syl113anc 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( ( a e. S /\ b e. S ) /\ ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) ) ) -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) )
104 103 expr 
 |-  ( ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) /\ ( a e. S /\ b e. S ) ) -> ( ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) ) )
105 104 rexlimdvva 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) -> ( E. a e. S E. b e. S ( ( f ` x ) e. a /\ ( g ` x ) e. b /\ ( a i^i b ) = (/) ) -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) ) )
106 35 105 syld 
 |-  ( ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) /\ x e. U. R ) -> ( -. ( f ` x ) = ( g ` x ) -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) ) )
107 106 rexlimdva 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> ( E. x e. U. R -. ( f ` x ) = ( g ` x ) -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) ) )
108 23 107 syl5bir 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> ( -. A. x e. U. R ( f ` x ) = ( g ` x ) -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) ) )
109 22 108 sylbid 
 |-  ( ( ( R e. Top /\ S e. Haus ) /\ ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) ) -> ( f =/= g -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) ) )
110 109 ex 
 |-  ( ( R e. Top /\ S e. Haus ) -> ( ( f e. ( R Cn S ) /\ g e. ( R Cn S ) ) -> ( f =/= g -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) ) ) )
111 9 110 sylbird 
 |-  ( ( R e. Top /\ S e. Haus ) -> ( ( f e. U. ( S ^ko R ) /\ g e. U. ( S ^ko R ) ) -> ( f =/= g -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) ) ) )
112 111 ralrimivv 
 |-  ( ( R e. Top /\ S e. Haus ) -> A. f e. U. ( S ^ko R ) A. g e. U. ( S ^ko R ) ( f =/= g -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) ) )
113 eqid 
 |-  U. ( S ^ko R ) = U. ( S ^ko R )
114 113 ishaus 
 |-  ( ( S ^ko R ) e. Haus <-> ( ( S ^ko R ) e. Top /\ A. f e. U. ( S ^ko R ) A. g e. U. ( S ^ko R ) ( f =/= g -> E. u e. ( S ^ko R ) E. v e. ( S ^ko R ) ( f e. u /\ g e. v /\ ( u i^i v ) = (/) ) ) ) )
115 3 112 114 sylanbrc 
 |-  ( ( R e. Top /\ S e. Haus ) -> ( S ^ko R ) e. Haus )