Theorem dfac21 43427

Description: Tychonoff's theorem is a choice equivalent. Definition AC21 of Schechter p. 461. (Contributed by Stefan O'Rear, 22-Feb-2015.) (Revised by Mario Carneiro, 27-Aug-2015.)

Assertion

Ref	Expression
dfac21	⊢ (CHOICE ↔ ∀𝑓(𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp))

Proof of Theorem dfac21

Dummy variables 𝑔 𝑦 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		vex 3446	. . . . . . 7 ⊢ 𝑓 ∈ V
2	1	dmex 7861	. . . . . 6 ⊢ dom 𝑓 ∈ V
3	2	a1i 11	. . . . 5 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → dom 𝑓 ∈ V)
4		simpr 484	. . . . 5 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → 𝑓:dom 𝑓⟶Comp)
5		fvex 6855	. . . . . . . 8 ⊢ (∏t‘𝑓) ∈ V
6	5	uniex 7696	. . . . . . 7 ⊢ ∪ (∏t‘𝑓) ∈ V
7		acufl 23876	. . . . . . . 8 ⊢ (CHOICE → UFL = V)
8	7	adantr 480	. . . . . . 7 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → UFL = V)
9	6, 8	eleqtrrid 2844	. . . . . 6 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → ∪ (∏t‘𝑓) ∈ UFL)
10		simpl 482	. . . . . . . 8 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → CHOICE)
11		dfac10 10060	. . . . . . . 8 ⊢ (CHOICE ↔ dom card = V)
12	10, 11	sylib 218	. . . . . . 7 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → dom card = V)
13	6, 12	eleqtrrid 2844	. . . . . 6 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → ∪ (∏t‘𝑓) ∈ dom card)
14	9, 13	elind 4154	. . . . 5 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → ∪ (∏t‘𝑓) ∈ (UFL ∩ dom card))
15		eqid 2737	. . . . . 6 ⊢ (∏t‘𝑓) = (∏t‘𝑓)
16		eqid 2737	. . . . . 6 ⊢ ∪ (∏t‘𝑓) = ∪ (∏t‘𝑓)
17	15, 16	ptcmpg 24016	. . . . 5 ⊢ ((dom 𝑓 ∈ V ∧ 𝑓:dom 𝑓⟶Comp ∧ ∪ (∏t‘𝑓) ∈ (UFL ∩ dom card)) → (∏t‘𝑓) ∈ Comp)
18	3, 4, 14, 17	syl3anc 1374	. . . 4 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → (∏t‘𝑓) ∈ Comp)
19	18	ex 412	. . 3 ⊢ (CHOICE → (𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp))
20	19	alrimiv 1929	. 2 ⊢ (CHOICE → ∀𝑓(𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp))
21		fvex 6855	. . . . . . . . 9 ⊢ (𝑔‘𝑦) ∈ V
22		kelac2lem 43425	. . . . . . . . 9 ⊢ ((𝑔‘𝑦) ∈ V → (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}) ∈ Comp)
23	21, 22	mp1i 13	. . . . . . . 8 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑦 ∈ dom 𝑔) → (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}) ∈ Comp)
24	23	fmpttd 7069	. . . . . . 7 ⊢ ((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) → (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})):dom 𝑔⟶Comp)
25	24	ffdmd 6700	. . . . . 6 ⊢ ((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) → (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})):dom (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))⟶Comp)
26		vex 3446	. . . . . . . . 9 ⊢ 𝑔 ∈ V
27	26	dmex 7861	. . . . . . . 8 ⊢ dom 𝑔 ∈ V
28	27	mptex 7179	. . . . . . 7 ⊢ (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) ∈ V
29		id 22	. . . . . . . . 9 ⊢ (𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) → 𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})))
30		dmeq 5860	. . . . . . . . 9 ⊢ (𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) → dom 𝑓 = dom (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})))
31	29, 30	feq12d 6658	. . . . . . . 8 ⊢ (𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) → (𝑓:dom 𝑓⟶Comp ↔ (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})):dom (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))⟶Comp))
32		fveq2 6842	. . . . . . . . 9 ⊢ (𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) → (∏t‘𝑓) = (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))))
33	32	eleq1d 2822	. . . . . . . 8 ⊢ (𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) → ((∏t‘𝑓) ∈ Comp ↔ (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp))
34	31, 33	imbi12d 344	. . . . . . 7 ⊢ (𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) → ((𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp) ↔ ((𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})):dom (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))⟶Comp → (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp)))
35	28, 34	spcv 3561	. . . . . 6 ⊢ (∀𝑓(𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp) → ((𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})):dom (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))⟶Comp → (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp))
36	25, 35	syl5com 31	. . . . 5 ⊢ ((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) → (∀𝑓(𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp) → (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp))
37		fvex 6855	. . . . . . . 8 ⊢ (𝑔‘𝑥) ∈ V
38	37	a1i 11	. . . . . . 7 ⊢ ((((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp) ∧ 𝑥 ∈ dom 𝑔) → (𝑔‘𝑥) ∈ V)
39		df-nel 3038	. . . . . . . . . . 11 ⊢ (∅ ∉ ran 𝑔 ↔ ¬ ∅ ∈ ran 𝑔)
40	39	biimpi 216	. . . . . . . . . 10 ⊢ (∅ ∉ ran 𝑔 → ¬ ∅ ∈ ran 𝑔)
41	40	ad2antlr 728	. . . . . . . . 9 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑥 ∈ dom 𝑔) → ¬ ∅ ∈ ran 𝑔)
42		fvelrn 7030	. . . . . . . . . . . 12 ⊢ ((Fun 𝑔 ∧ 𝑥 ∈ dom 𝑔) → (𝑔‘𝑥) ∈ ran 𝑔)
43	42	adantlr 716	. . . . . . . . . . 11 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑥 ∈ dom 𝑔) → (𝑔‘𝑥) ∈ ran 𝑔)
44		eleq1 2825	. . . . . . . . . . 11 ⊢ ((𝑔‘𝑥) = ∅ → ((𝑔‘𝑥) ∈ ran 𝑔 ↔ ∅ ∈ ran 𝑔))
45	43, 44	syl5ibcom 245	. . . . . . . . . 10 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑥 ∈ dom 𝑔) → ((𝑔‘𝑥) = ∅ → ∅ ∈ ran 𝑔))
46	45	necon3bd 2947	. . . . . . . . 9 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑥 ∈ dom 𝑔) → (¬ ∅ ∈ ran 𝑔 → (𝑔‘𝑥) ≠ ∅))
47	41, 46	mpd 15	. . . . . . . 8 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑥 ∈ dom 𝑔) → (𝑔‘𝑥) ≠ ∅)
48	47	adantlr 716	. . . . . . 7 ⊢ ((((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp) ∧ 𝑥 ∈ dom 𝑔) → (𝑔‘𝑥) ≠ ∅)
49		fveq2 6842	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑥 → (𝑔‘𝑦) = (𝑔‘𝑥))
50	49	unieqd 4878	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑥 → ∪ (𝑔‘𝑦) = ∪ (𝑔‘𝑥))
51	50	pweqd 4573	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑥 → 𝒫 ∪ (𝑔‘𝑦) = 𝒫 ∪ (𝑔‘𝑥))
52	51	sneqd 4594	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑥 → {𝒫 ∪ (𝑔‘𝑦)} = {𝒫 ∪ (𝑔‘𝑥)})
53	49, 52	preq12d 4700	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑥 → {(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}} = {(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}})
54	53	fveq2d 6846	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑥 → (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}) = (topGen‘{(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}}))
55	54	cbvmptv 5204	. . . . . . . . . . 11 ⊢ (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) = (𝑥 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}}))
56	55	fveq2i 6845	. . . . . . . . . 10 ⊢ (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) = (∏t‘(𝑥 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}})))
57	56	eleq1i 2828	. . . . . . . . 9 ⊢ ((∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp ↔ (∏t‘(𝑥 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}}))) ∈ Comp)
58	57	biimpi 216	. . . . . . . 8 ⊢ ((∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp → (∏t‘(𝑥 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}}))) ∈ Comp)
59	58	adantl 481	. . . . . . 7 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp) → (∏t‘(𝑥 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}}))) ∈ Comp)
60	38, 48, 59	kelac2 43426	. . . . . 6 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp) → X𝑥 ∈ dom 𝑔(𝑔‘𝑥) ≠ ∅)
61	60	ex 412	. . . . 5 ⊢ ((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) → ((∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp → X𝑥 ∈ dom 𝑔(𝑔‘𝑥) ≠ ∅))
62	36, 61	syldc 48	. . . 4 ⊢ (∀𝑓(𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp) → ((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) → X𝑥 ∈ dom 𝑔(𝑔‘𝑥) ≠ ∅))
63	62	alrimiv 1929	. . 3 ⊢ (∀𝑓(𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp) → ∀𝑔((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) → X𝑥 ∈ dom 𝑔(𝑔‘𝑥) ≠ ∅))
64		dfac9 10059	. . 3 ⊢ (CHOICE ↔ ∀𝑔((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) → X𝑥 ∈ dom 𝑔(𝑔‘𝑥) ≠ ∅))
65	63, 64	sylibr 234	. 2 ⊢ (∀𝑓(𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp) → CHOICE)
66	20, 65	impbii 209	1 ⊢ (CHOICE ↔ ∀𝑓(𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395  ∀wal 1540   = wceq 1542   ∈ wcel 2114   ≠ wne 2933   ∉ wnel 3037  Vcvv 3442   ∩ cin 3902  ∅c0 4287  𝒫 cpw 4556  {csn 4582  {cpr 4584  ∪ cuni 4865   ↦ cmpt 5181  dom cdm 5632  ran crn 5633  Fun wfun 6494  ⟶wf 6496  ‘cfv 6500  Xcixp 8847  cardccrd 9859  CHOICEwac 10037  topGenctg 17369  ∏_tcpt 17370  Compccmp 23345  UFLcufl 23859

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-iin 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-se 5586  df-we 5587  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-isom 6509  df-riota 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-rpss 7678  df-om 7819  df-1st 7943  df-2nd 7944  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351  df-1o 8407  df-2o 8408  df-oadd 8411  df-omul 8412  df-er 8645  df-map 8777  df-ixp 8848  df-en 8896  df-dom 8897  df-fin 8899  df-fi 9326  df-wdom 9482  df-dju 9825  df-card 9863  df-acn 9866  df-ac 10038  df-topgen 17375  df-pt 17376  df-fbas 21321  df-fg 21322  df-top 22853  df-topon 22870  df-bases 22905  df-cld 22978  df-ntr 22979  df-cls 22980  df-nei 23057  df-cmp 23346  df-fil 23805  df-ufil 23860  df-ufl 23861  df-flim 23898  df-fcls 23900

This theorem is referenced by: (None)