Metamath Proof Explorer


Theorem kelac1

Description: Kelley's choice, basic form: if a collection of sets can be cast as closed sets in the factors of a topology, and there is a definable element in each topology (which need not be in the closed set - if it were this would be trivial), then compactness (via finite intersection) guarantees that the final product is nonempty. (Contributed by Stefan O'Rear, 22-Feb-2015)

Ref Expression
Hypotheses kelac1.z φxIS
kelac1.j φxIJTop
kelac1.c φxICClsdJ
kelac1.b φxIB:S1-1 ontoC
kelac1.u φxIUJ
kelac1.k φ𝑡xIJComp
Assertion kelac1 φxIS

Proof

Step Hyp Ref Expression
1 kelac1.z φxIS
2 kelac1.j φxIJTop
3 kelac1.c φxICClsdJ
4 kelac1.b φxIB:S1-1 ontoC
5 kelac1.u φxIUJ
6 kelac1.k φ𝑡xIJComp
7 eqid J=J
8 7 cldss CClsdJCJ
9 3 8 syl φxICJ
10 9 ralrimiva φxICJ
11 boxriin xICJxIC=xIJyIxIifx=yCJ
12 10 11 syl φxIC=xIJyIxIifx=yCJ
13 cmptop 𝑡xIJComp𝑡xIJTop
14 0ntop ¬Top
15 fvprc ¬xIJV𝑡xIJ=
16 15 eleq1d ¬xIJV𝑡xIJTopTop
17 14 16 mtbiri ¬xIJV¬𝑡xIJTop
18 17 con4i 𝑡xIJTopxIJV
19 6 13 18 3syl φxIJV
20 2 fmpttd φxIJ:ITop
21 dmfex xIJVxIJ:ITopIV
22 19 20 21 syl2anc φIV
23 2 ralrimiva φxIJTop
24 eqid 𝑡xIJ=𝑡xIJ
25 24 ptunimpt IVxIJTopxIJ=𝑡xIJ
26 22 23 25 syl2anc φxIJ=𝑡xIJ
27 26 ineq1d φxIJyIxIifx=yCJ=𝑡xIJyIxIifx=yCJ
28 eqid 𝑡xIJ=𝑡xIJ
29 7 topcld JTopJClsdJ
30 2 29 syl φxIJClsdJ
31 3 30 ifcld φxIifx=yCJClsdJ
32 22 2 31 ptcldmpt φxIifx=yCJClsd𝑡xIJ
33 32 adantr φyIxIifx=yCJClsd𝑡xIJ
34 simprr φzIzFinzFin
35 f1ofo B:S1-1 ontoCB:SontoC
36 foima B:SontoCBS=C
37 4 35 36 3syl φxIBS=C
38 37 eqcomd φxIC=BS
39 f1ofn B:S1-1 ontoCBFnS
40 4 39 syl φxIBFnS
41 ssid SS
42 fnimaeq0 BFnSSSBS=S=
43 40 41 42 sylancl φxIBS=S=
44 43 necon3bid φxIBSS
45 1 44 mpbird φxIBS
46 38 45 eqnetrd φxIC
47 n0 CwwC
48 46 47 sylib φxIwwC
49 rexv wVwCwwC
50 48 49 sylibr φxIwVwC
51 50 ralrimiva φxIwVwC
52 ssralv zIxIwVwCxzwVwC
53 52 adantr zIzFinxIwVwCxzwVwC
54 51 53 mpan9 φzIzFinxzwVwC
55 eleq1 w=fxwCfxC
56 55 ac6sfi zFinxzwVwCff:zVxzfxC
57 34 54 56 syl2anc φzIzFinff:zVxzfxC
58 26 eqcomd φ𝑡xIJ=xIJ
59 58 ineq1d φ𝑡xIJyzxIifx=yCJ=xIJyzxIifx=yCJ
60 59 ad2antrr φzIzFinxzfxC𝑡xIJyzxIifx=yCJ=xIJyzxIifx=yCJ
61 iftrue xzifxzfxU=fx
62 61 ad2antrl φzIzFinxzfxCifxzfxU=fx
63 simpll φzIzFinxzφ
64 simprl φzIzFinzI
65 64 sselda φzIzFinxzxI
66 63 65 9 syl2anc φzIzFinxzCJ
67 66 sseld φzIzFinxzfxCfxJ
68 67 impr φzIzFinxzfxCfxJ
69 62 68 eqeltrd φzIzFinxzfxCifxzfxUJ
70 69 expr φzIzFinxzfxCifxzfxUJ
71 70 ralimdva φzIzFinxzfxCxzifxzfxUJ
72 71 imp φzIzFinxzfxCxzifxzfxUJ
73 eldifn xIz¬xz
74 73 iffalsed xIzifxzfxU=U
75 74 adantl φxIzifxzfxU=U
76 eldifi xIzxI
77 76 5 sylan2 φxIzUJ
78 75 77 eqeltrd φxIzifxzfxUJ
79 78 ralrimiva φxIzifxzfxUJ
80 79 ad2antrr φzIzFinxzfxCxIzifxzfxUJ
81 ralun xzifxzfxUJxIzifxzfxUJxzIzifxzfxUJ
82 72 80 81 syl2anc φzIzFinxzfxCxzIzifxzfxUJ
83 undif zIzIz=I
84 83 biimpi zIzIz=I
85 84 ad2antrl φzIzFinzIz=I
86 85 raleqdv φzIzFinxzIzifxzfxUJxIifxzfxUJ
87 86 adantr φzIzFinxzfxCxzIzifxzfxUJxIifxzfxUJ
88 82 87 mpbid φzIzFinxzfxCxIifxzfxUJ
89 22 ad2antrr φzIzFinxzfxCIV
90 mptelixpg IVxIifxzfxUxIJxIifxzfxUJ
91 89 90 syl φzIzFinxzfxCxIifxzfxUxIJxIifxzfxUJ
92 88 91 mpbird φzIzFinxzfxCxIifxzfxUxIJ
93 eleq2 C=ifx=yCJfxCfxifx=yCJ
94 eleq2 J=ifx=yCJfxJfxifx=yCJ
95 simplrr φzIzFinxzfxCx=yfxC
96 68 adantr φzIzFinxzfxC¬x=yfxJ
97 93 94 95 96 ifbothda φzIzFinxzfxCfxifx=yCJ
98 62 97 eqeltrd φzIzFinxzfxCifxzfxUifx=yCJ
99 98 expr φzIzFinxzfxCifxzfxUifx=yCJ
100 99 ralimdva φzIzFinxzfxCxzifxzfxUifx=yCJ
101 100 imp φzIzFinxzfxCxzifxzfxUifx=yCJ
102 101 adantr φzIzFinxzfxCyzxzifxzfxUifx=yCJ
103 77 adantlr φyzxIzUJ
104 74 adantl φyzxIzifxzfxU=U
105 disjdifr Izz=
106 105 a1i φyzxIzIzz=
107 simpr φyzxIzxIz
108 simplr φyzxIzyz
109 disjne Izz=xIzyzxy
110 106 107 108 109 syl3anc φyzxIzxy
111 110 neneqd φyzxIz¬x=y
112 111 iffalsed φyzxIzifx=yCJ=J
113 103 104 112 3eltr4d φyzxIzifxzfxUifx=yCJ
114 113 ralrimiva φyzxIzifxzfxUifx=yCJ
115 114 adantlr φzIzFinyzxIzifxzfxUifx=yCJ
116 115 adantlr φzIzFinxzfxCyzxIzifxzfxUifx=yCJ
117 ralun xzifxzfxUifx=yCJxIzifxzfxUifx=yCJxzIzifxzfxUifx=yCJ
118 102 116 117 syl2anc φzIzFinxzfxCyzxzIzifxzfxUifx=yCJ
119 85 raleqdv φzIzFinxzIzifxzfxUifx=yCJxIifxzfxUifx=yCJ
120 119 ad2antrr φzIzFinxzfxCyzxzIzifxzfxUifx=yCJxIifxzfxUifx=yCJ
121 118 120 mpbid φzIzFinxzfxCyzxIifxzfxUifx=yCJ
122 22 ad3antrrr φzIzFinxzfxCyzIV
123 mptelixpg IVxIifxzfxUxIifx=yCJxIifxzfxUifx=yCJ
124 122 123 syl φzIzFinxzfxCyzxIifxzfxUxIifx=yCJxIifxzfxUifx=yCJ
125 121 124 mpbird φzIzFinxzfxCyzxIifxzfxUxIifx=yCJ
126 125 ralrimiva φzIzFinxzfxCyzxIifxzfxUxIifx=yCJ
127 mptexg IVxIifxzfxUV
128 22 127 syl φxIifxzfxUV
129 128 ad2antrr φzIzFinxzfxCxIifxzfxUV
130 eliin xIifxzfxUVxIifxzfxUyzxIifx=yCJyzxIifxzfxUxIifx=yCJ
131 129 130 syl φzIzFinxzfxCxIifxzfxUyzxIifx=yCJyzxIifxzfxUxIifx=yCJ
132 126 131 mpbird φzIzFinxzfxCxIifxzfxUyzxIifx=yCJ
133 92 132 elind φzIzFinxzfxCxIifxzfxUxIJyzxIifx=yCJ
134 133 ne0d φzIzFinxzfxCxIJyzxIifx=yCJ
135 60 134 eqnetrd φzIzFinxzfxC𝑡xIJyzxIifx=yCJ
136 135 adantrl φzIzFinf:zVxzfxC𝑡xIJyzxIifx=yCJ
137 57 136 exlimddv φzIzFin𝑡xIJyzxIifx=yCJ
138 28 6 33 137 cmpfiiin φ𝑡xIJyIxIifx=yCJ
139 27 138 eqnetrd φxIJyIxIifx=yCJ
140 12 139 eqnetrd φxIC
141 n0 xICyyxIC
142 140 141 sylib φyyxIC
143 elixp2 yxICyVyFnIxIyxC
144 143 simp3bi yxICxIyxC
145 f1ocnv B:S1-1 ontoCB-1:C1-1 ontoS
146 f1of B-1:C1-1 ontoSB-1:CS
147 ffvelcdm B-1:CSyxCB-1yxS
148 147 ex B-1:CSyxCB-1yxS
149 4 145 146 148 4syl φxIyxCB-1yxS
150 149 ralimdva φxIyxCxIB-1yxS
151 150 imp φxIyxCxIB-1yxS
152 144 151 sylan2 φyxICxIB-1yxS
153 mptelixpg IVxIB-1yxxISxIB-1yxS
154 22 153 syl φxIB-1yxxISxIB-1yxS
155 154 adantr φyxICxIB-1yxxISxIB-1yxS
156 152 155 mpbird φyxICxIB-1yxxIS
157 156 ne0d φyxICxIS
158 142 157 exlimddv φxIS