Theorem kelac2 43510

Description: Kelley's choice, most common form: compactness of a product of knob topologies recovers choice. (Contributed by Stefan O'Rear, 22-Feb-2015.)

Hypotheses

Ref	Expression
kelac2.s	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝑆 ∈ 𝑉)
kelac2.z	⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝑆 ≠ ∅)
kelac2.k	⊢ (𝜑 → (∏t‘(𝑥 ∈ 𝐼 ↦ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))) ∈ Comp)

Assertion

Ref	Expression
kelac2	⊢ (𝜑 → X𝑥 ∈ 𝐼 𝑆 ≠ ∅)

Distinct variable groups:   𝜑,𝑥   𝑥,𝐼

Allowed substitution hints:   𝑆(𝑥)   𝑉(𝑥)

Proof of Theorem kelac2

Step	Hyp	Ref	Expression
1		kelac2.z	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝑆 ≠ ∅)
2		kelac2.s	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝑆 ∈ 𝑉)
3		kelac2lem 43509	. . 3 ⊢ (𝑆 ∈ 𝑉 → (topGen‘{𝑆, {𝒫 ∪ 𝑆}}) ∈ Comp)
4		cmptop 23378	. . 3 ⊢ ((topGen‘{𝑆, {𝒫 ∪ 𝑆}}) ∈ Comp → (topGen‘{𝑆, {𝒫 ∪ 𝑆}}) ∈ Top)
5	2, 3, 4	3syl 18	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (topGen‘{𝑆, {𝒫 ∪ 𝑆}}) ∈ Top)
6		uncom 4088	. . . . . . 7 ⊢ (𝑆 ∪ {𝒫 ∪ 𝑆}) = ({𝒫 ∪ 𝑆} ∪ 𝑆)
7	6	difeq1i 4053	. . . . . 6 ⊢ ((𝑆 ∪ {𝒫 ∪ 𝑆}) ∖ 𝑆) = (({𝒫 ∪ 𝑆} ∪ 𝑆) ∖ 𝑆)
8		difun2 4409	. . . . . 6 ⊢ (({𝒫 ∪ 𝑆} ∪ 𝑆) ∖ 𝑆) = ({𝒫 ∪ 𝑆} ∖ 𝑆)
9	7, 8	eqtri 2762	. . . . 5 ⊢ ((𝑆 ∪ {𝒫 ∪ 𝑆}) ∖ 𝑆) = ({𝒫 ∪ 𝑆} ∖ 𝑆)
10		snex 5368	. . . . . . 7 ⊢ {𝒫 ∪ 𝑆} ∈ V
11		uniprg 4854	. . . . . . 7 ⊢ ((𝑆 ∈ 𝑉 ∧ {𝒫 ∪ 𝑆} ∈ V) → ∪ {𝑆, {𝒫 ∪ 𝑆}} = (𝑆 ∪ {𝒫 ∪ 𝑆}))
12	2, 10, 11	sylancl 592	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → ∪ {𝑆, {𝒫 ∪ 𝑆}} = (𝑆 ∪ {𝒫 ∪ 𝑆}))
13	12	difeq1d 4056	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (∪ {𝑆, {𝒫 ∪ 𝑆}} ∖ 𝑆) = ((𝑆 ∪ {𝒫 ∪ 𝑆}) ∖ 𝑆))
14		incom 4138	. . . . . . 7 ⊢ ({𝒫 ∪ 𝑆} ∩ 𝑆) = (𝑆 ∩ {𝒫 ∪ 𝑆})
15		pwuninel 8215	. . . . . . . . 9 ⊢ ¬ 𝒫 ∪ 𝑆 ∈ 𝑆
16	15	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → ¬ 𝒫 ∪ 𝑆 ∈ 𝑆)
17		disjsn 4643	. . . . . . . 8 ⊢ ((𝑆 ∩ {𝒫 ∪ 𝑆}) = ∅ ↔ ¬ 𝒫 ∪ 𝑆 ∈ 𝑆)
18	16, 17	sylibr 235	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑆 ∩ {𝒫 ∪ 𝑆}) = ∅)
19	14, 18	eqtrid 2786	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → ({𝒫 ∪ 𝑆} ∩ 𝑆) = ∅)
20		disj3 4382	. . . . . 6 ⊢ (({𝒫 ∪ 𝑆} ∩ 𝑆) = ∅ ↔ {𝒫 ∪ 𝑆} = ({𝒫 ∪ 𝑆} ∖ 𝑆))
21	19, 20	sylib 219	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {𝒫 ∪ 𝑆} = ({𝒫 ∪ 𝑆} ∖ 𝑆))
22	9, 13, 21	3eqtr4a 2800	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (∪ {𝑆, {𝒫 ∪ 𝑆}} ∖ 𝑆) = {𝒫 ∪ 𝑆})
23		prex 5367	. . . . . 6 ⊢ {𝑆, {𝒫 ∪ 𝑆}} ∈ V
24		bastg 22949	. . . . . 6 ⊢ ({𝑆, {𝒫 ∪ 𝑆}} ∈ V → {𝑆, {𝒫 ∪ 𝑆}} ⊆ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))
25	23, 24	mp1i 13	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {𝑆, {𝒫 ∪ 𝑆}} ⊆ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))
26	10	prid2 4695	. . . . . 6 ⊢ {𝒫 ∪ 𝑆} ∈ {𝑆, {𝒫 ∪ 𝑆}}
27	26	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {𝒫 ∪ 𝑆} ∈ {𝑆, {𝒫 ∪ 𝑆}})
28	25, 27	sseldd 3916	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {𝒫 ∪ 𝑆} ∈ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))
29	22, 28	eqeltrd 2839	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (∪ {𝑆, {𝒫 ∪ 𝑆}} ∖ 𝑆) ∈ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))
30		prid1g 4692	. . . . 5 ⊢ (𝑆 ∈ 𝑉 → 𝑆 ∈ {𝑆, {𝒫 ∪ 𝑆}})
31		elssuni 4869	. . . . 5 ⊢ (𝑆 ∈ {𝑆, {𝒫 ∪ 𝑆}} → 𝑆 ⊆ ∪ {𝑆, {𝒫 ∪ 𝑆}})
32	2, 30, 31	3syl 18	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝑆 ⊆ ∪ {𝑆, {𝒫 ∪ 𝑆}})
33		unitg 22950	. . . . . . 7 ⊢ ({𝑆, {𝒫 ∪ 𝑆}} ∈ V → ∪ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}) = ∪ {𝑆, {𝒫 ∪ 𝑆}})
34	23, 33	ax-mp 5	. . . . . 6 ⊢ ∪ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}) = ∪ {𝑆, {𝒫 ∪ 𝑆}}
35	34	eqcomi 2748	. . . . 5 ⊢ ∪ {𝑆, {𝒫 ∪ 𝑆}} = ∪ (topGen‘{𝑆, {𝒫 ∪ 𝑆}})
36	35	iscld2 23011	. . . 4 ⊢ (((topGen‘{𝑆, {𝒫 ∪ 𝑆}}) ∈ Top ∧ 𝑆 ⊆ ∪ {𝑆, {𝒫 ∪ 𝑆}}) → (𝑆 ∈ (Clsd‘(topGen‘{𝑆, {𝒫 ∪ 𝑆}})) ↔ (∪ {𝑆, {𝒫 ∪ 𝑆}} ∖ 𝑆) ∈ (topGen‘{𝑆, {𝒫 ∪ 𝑆}})))
37	5, 32, 36	syl2anc 590	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑆 ∈ (Clsd‘(topGen‘{𝑆, {𝒫 ∪ 𝑆}})) ↔ (∪ {𝑆, {𝒫 ∪ 𝑆}} ∖ 𝑆) ∈ (topGen‘{𝑆, {𝒫 ∪ 𝑆}})))
38	29, 37	mpbird 258	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝑆 ∈ (Clsd‘(topGen‘{𝑆, {𝒫 ∪ 𝑆}})))
39		f1oi 6805	. . 3 ⊢ ( I ↾ 𝑆):𝑆–1-1-onto→𝑆
40	39	a1i 11	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → ( I ↾ 𝑆):𝑆–1-1-onto→𝑆)
41		elssuni 4869	. . . . 5 ⊢ ({𝒫 ∪ 𝑆} ∈ {𝑆, {𝒫 ∪ 𝑆}} → {𝒫 ∪ 𝑆} ⊆ ∪ {𝑆, {𝒫 ∪ 𝑆}})
42	26, 41	mp1i 13	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {𝒫 ∪ 𝑆} ⊆ ∪ {𝑆, {𝒫 ∪ 𝑆}})
43		uniexg 7683	. . . . 5 ⊢ (𝑆 ∈ 𝑉 → ∪ 𝑆 ∈ V)
44		pwexg 5307	. . . . 5 ⊢ (∪ 𝑆 ∈ V → 𝒫 ∪ 𝑆 ∈ V)
45		snidg 4592	. . . . 5 ⊢ (𝒫 ∪ 𝑆 ∈ V → 𝒫 ∪ 𝑆 ∈ {𝒫 ∪ 𝑆})
46	2, 43, 44, 45	4syl 19	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝒫 ∪ 𝑆 ∈ {𝒫 ∪ 𝑆})
47	42, 46	sseldd 3916	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝒫 ∪ 𝑆 ∈ ∪ {𝑆, {𝒫 ∪ 𝑆}})
48	47, 34	eleqtrrdi 2850	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝒫 ∪ 𝑆 ∈ ∪ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))
49		kelac2.k	. 2 ⊢ (𝜑 → (∏t‘(𝑥 ∈ 𝐼 ↦ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))) ∈ Comp)
50	1, 5, 38, 40, 48, 49	kelac1 43508	1 ⊢ (𝜑 → X𝑥 ∈ 𝐼 𝑆 ≠ ∅)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547   ∈ wcel 2119   ≠ wne 2934  Vcvv 3431   ∖ cdif 3880   ∪ cun 3881   ∩ cin 3882   ⊆ wss 3883  ∅c0 4261  𝒫 cpw 4529  {csn 4555  {cpr 4557  ∪ cuni 4838   ↦ cmpt 5153   I cid 5512   ↾ cres 5620  –1-1-onto→wf1o 6484  ‘cfv 6485  Xcixp 8835  topGenctg 17391  ∏_tcpt 17392  Topctop 22876  Clsdccld 22999  Compccmp 23369

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-int 4878  df-iun 4923  df-iin 4924  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-om 7807  df-1o 8395  df-2o 8396  df-ixp 8836  df-en 8884  df-dom 8885  df-fin 8887  df-fi 9314  df-topgen 17397  df-pt 17398  df-top 22877  df-bases 22929  df-cld 23002  df-cmp 23370

This theorem is referenced by:  dfac21  43511