Theorem kelac2 43718

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 43717	. . 3 ⊢ (𝑆 ∈ 𝑉 → (topGen‘{𝑆, {𝒫 ∪ 𝑆}}) ∈ Comp)
4		cmptop 23521	. . 3 ⊢ ((topGen‘{𝑆, {𝒫 ∪ 𝑆}}) ∈ Comp → (topGen‘{𝑆, {𝒫 ∪ 𝑆}}) ∈ Top)
5	2, 3, 4	3syl 19	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (topGen‘{𝑆, {𝒫 ∪ 𝑆}}) ∈ Top)
6		uncom 4120	. . . . . . 7 ⊢ (𝑆 ∪ {𝒫 ∪ 𝑆}) = ({𝒫 ∪ 𝑆} ∪ 𝑆)
7	6	difeq1i 4085	. . . . . 6 ⊢ ((𝑆 ∪ {𝒫 ∪ 𝑆}) ∖ 𝑆) = (({𝒫 ∪ 𝑆} ∪ 𝑆) ∖ 𝑆)
8		difun2 4447	. . . . . 6 ⊢ (({𝒫 ∪ 𝑆} ∪ 𝑆) ∖ 𝑆) = ({𝒫 ∪ 𝑆} ∖ 𝑆)
9	7, 8	eqtri 2792	. . . . 5 ⊢ ((𝑆 ∪ {𝒫 ∪ 𝑆}) ∖ 𝑆) = ({𝒫 ∪ 𝑆} ∖ 𝑆)
10		snex 5411	. . . . . . 7 ⊢ {𝒫 ∪ 𝑆} ∈ V
11		uniprg 4892	. . . . . . 7 ⊢ ((𝑆 ∈ 𝑉 ∧ {𝒫 ∪ 𝑆} ∈ V) → ∪ {𝑆, {𝒫 ∪ 𝑆}} = (𝑆 ∪ {𝒫 ∪ 𝑆}))
12	2, 10, 11	sylancl 597	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → ∪ {𝑆, {𝒫 ∪ 𝑆}} = (𝑆 ∪ {𝒫 ∪ 𝑆}))
13	12	difeq1d 4088	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (∪ {𝑆, {𝒫 ∪ 𝑆}} ∖ 𝑆) = ((𝑆 ∪ {𝒫 ∪ 𝑆}) ∖ 𝑆))
14		incom 4170	. . . . . . 7 ⊢ ({𝒫 ∪ 𝑆} ∩ 𝑆) = (𝑆 ∩ {𝒫 ∪ 𝑆})
15		pwuninel 8271	. . . . . . . . 9 ⊢ ¬ 𝒫 ∪ 𝑆 ∈ 𝑆
16	15	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → ¬ 𝒫 ∪ 𝑆 ∈ 𝑆)
17		disjsn 4682	. . . . . . . 8 ⊢ ((𝑆 ∩ {𝒫 ∪ 𝑆}) = ∅ ↔ ¬ 𝒫 ∪ 𝑆 ∈ 𝑆)
18	16, 17	sylibr 237	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑆 ∩ {𝒫 ∪ 𝑆}) = ∅)
19	14, 18	eqtrid 2816	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → ({𝒫 ∪ 𝑆} ∩ 𝑆) = ∅)
20		disj3 4420	. . . . . 6 ⊢ (({𝒫 ∪ 𝑆} ∩ 𝑆) = ∅ ↔ {𝒫 ∪ 𝑆} = ({𝒫 ∪ 𝑆} ∖ 𝑆))
21	19, 20	sylib 221	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {𝒫 ∪ 𝑆} = ({𝒫 ∪ 𝑆} ∖ 𝑆))
22	9, 13, 21	3eqtr4a 2830	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (∪ {𝑆, {𝒫 ∪ 𝑆}} ∖ 𝑆) = {𝒫 ∪ 𝑆})
23		prex 5410	. . . . . 6 ⊢ {𝑆, {𝒫 ∪ 𝑆}} ∈ V
24		bastg 23092	. . . . . 6 ⊢ ({𝑆, {𝒫 ∪ 𝑆}} ∈ V → {𝑆, {𝒫 ∪ 𝑆}} ⊆ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))
25	23, 24	mp1i 14	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {𝑆, {𝒫 ∪ 𝑆}} ⊆ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))
26	10	prid2 4734	. . . . . 6 ⊢ {𝒫 ∪ 𝑆} ∈ {𝑆, {𝒫 ∪ 𝑆}}
27	26	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {𝒫 ∪ 𝑆} ∈ {𝑆, {𝒫 ∪ 𝑆}})
28	25, 27	sseldd 3946	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {𝒫 ∪ 𝑆} ∈ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))
29	22, 28	eqeltrd 2869	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (∪ {𝑆, {𝒫 ∪ 𝑆}} ∖ 𝑆) ∈ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))
30		prid1g 4731	. . . . 5 ⊢ (𝑆 ∈ 𝑉 → 𝑆 ∈ {𝑆, {𝒫 ∪ 𝑆}})
31		elssuni 4908	. . . . 5 ⊢ (𝑆 ∈ {𝑆, {𝒫 ∪ 𝑆}} → 𝑆 ⊆ ∪ {𝑆, {𝒫 ∪ 𝑆}})
32	2, 30, 31	3syl 19	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝑆 ⊆ ∪ {𝑆, {𝒫 ∪ 𝑆}})
33		unitg 23093	. . . . . . 7 ⊢ ({𝑆, {𝒫 ∪ 𝑆}} ∈ V → ∪ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}) = ∪ {𝑆, {𝒫 ∪ 𝑆}})
34	23, 33	ax-mp 5	. . . . . 6 ⊢ ∪ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}) = ∪ {𝑆, {𝒫 ∪ 𝑆}}
35	34	eqcomi 2778	. . . . 5 ⊢ ∪ {𝑆, {𝒫 ∪ 𝑆}} = ∪ (topGen‘{𝑆, {𝒫 ∪ 𝑆}})
36	35	iscld2 23154	. . . 4 ⊢ (((topGen‘{𝑆, {𝒫 ∪ 𝑆}}) ∈ Top ∧ 𝑆 ⊆ ∪ {𝑆, {𝒫 ∪ 𝑆}}) → (𝑆 ∈ (Clsd‘(topGen‘{𝑆, {𝒫 ∪ 𝑆}})) ↔ (∪ {𝑆, {𝒫 ∪ 𝑆}} ∖ 𝑆) ∈ (topGen‘{𝑆, {𝒫 ∪ 𝑆}})))
37	5, 32, 36	syl2anc 595	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → (𝑆 ∈ (Clsd‘(topGen‘{𝑆, {𝒫 ∪ 𝑆}})) ↔ (∪ {𝑆, {𝒫 ∪ 𝑆}} ∖ 𝑆) ∈ (topGen‘{𝑆, {𝒫 ∪ 𝑆}})))
38	29, 37	mpbird 260	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝑆 ∈ (Clsd‘(topGen‘{𝑆, {𝒫 ∪ 𝑆}})))
39		f1oi 6860	. . 3 ⊢ ( I ↾ 𝑆):𝑆–1-1-onto→𝑆
40	39	a1i 11	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → ( I ↾ 𝑆):𝑆–1-1-onto→𝑆)
41		elssuni 4908	. . . . 5 ⊢ ({𝒫 ∪ 𝑆} ∈ {𝑆, {𝒫 ∪ 𝑆}} → {𝒫 ∪ 𝑆} ⊆ ∪ {𝑆, {𝒫 ∪ 𝑆}})
42	26, 41	mp1i 14	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → {𝒫 ∪ 𝑆} ⊆ ∪ {𝑆, {𝒫 ∪ 𝑆}})
43		uniexg 7739	. . . . 5 ⊢ (𝑆 ∈ 𝑉 → ∪ 𝑆 ∈ V)
44		pwexg 5350	. . . . 5 ⊢ (∪ 𝑆 ∈ V → 𝒫 ∪ 𝑆 ∈ V)
45		snidg 4631	. . . . 5 ⊢ (𝒫 ∪ 𝑆 ∈ V → 𝒫 ∪ 𝑆 ∈ {𝒫 ∪ 𝑆})
46	2, 43, 44, 45	4syl 20	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝒫 ∪ 𝑆 ∈ {𝒫 ∪ 𝑆})
47	42, 46	sseldd 3946	. . 3 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝒫 ∪ 𝑆 ∈ ∪ {𝑆, {𝒫 ∪ 𝑆}})
48	47, 34	eleqtrrdi 2880	. 2 ⊢ ((𝜑 ∧ 𝑥 ∈ 𝐼) → 𝒫 ∪ 𝑆 ∈ ∪ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))
49		kelac2.k	. 2 ⊢ (𝜑 → (∏t‘(𝑥 ∈ 𝐼 ↦ (topGen‘{𝑆, {𝒫 ∪ 𝑆}}))) ∈ Comp)
50	1, 5, 38, 40, 48, 49	kelac1 43716	1 ⊢ (𝜑 → X𝑥 ∈ 𝐼 𝑆 ≠ ∅)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1567   ∈ wcel 2149   ≠ wne 2964  Vcvv 3463   ∖ cdif 3910   ∪ cun 3911   ∩ cin 3912   ⊆ wss 3913  ∅c0 4294  𝒫 cpw 4567  {csn 4594  {cpr 4596  ∪ cuni 4876   ↦ cmpt 5196   I cid 5556   ↾ cres 5664  –1-1-onto→wf1o 6536  ‘cfv 6537  Xcixp 8895  topGenctg 17490  ∏_tcpt 17491  Topctop 23019  Clsdccld 23142  Compccmp 23512

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-int 4917  df-iun 4962  df-iin 4963  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-om 7863  df-1o 8453  df-2o 8454  df-ixp 8896  df-en 8944  df-dom 8945  df-fin 8947  df-fi 9371  df-topgen 17496  df-pt 17497  df-top 23020  df-bases 23072  df-cld 23145  df-cmp 23513

This theorem is referenced by:  dfac21  43719