Theorem dfac21 43056

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 3467	. . . . . . 7 ⊢ 𝑓 ∈ V
2	1	dmex 7913	. . . . . 6 ⊢ dom 𝑓 ∈ V
3	2	a1i 11	. . . . 5 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → dom 𝑓 ∈ V)
4		simpr 484	. . . . 5 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → 𝑓:dom 𝑓⟶Comp)
5		fvex 6899	. . . . . . . 8 ⊢ (∏t‘𝑓) ∈ V
6	5	uniex 7743	. . . . . . 7 ⊢ ∪ (∏t‘𝑓) ∈ V
7		acufl 23872	. . . . . . . 8 ⊢ (CHOICE → UFL = V)
8	7	adantr 480	. . . . . . 7 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → UFL = V)
9	6, 8	eleqtrrid 2840	. . . . . 6 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → ∪ (∏t‘𝑓) ∈ UFL)
10		simpl 482	. . . . . . . 8 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → CHOICE)
11		dfac10 10160	. . . . . . . 8 ⊢ (CHOICE ↔ dom card = V)
12	10, 11	sylib 218	. . . . . . 7 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → dom card = V)
13	6, 12	eleqtrrid 2840	. . . . . 6 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → ∪ (∏t‘𝑓) ∈ dom card)
14	9, 13	elind 4180	. . . . 5 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → ∪ (∏t‘𝑓) ∈ (UFL ∩ dom card))
15		eqid 2734	. . . . . 6 ⊢ (∏t‘𝑓) = (∏t‘𝑓)
16		eqid 2734	. . . . . 6 ⊢ ∪ (∏t‘𝑓) = ∪ (∏t‘𝑓)
17	15, 16	ptcmpg 24012	. . . . 5 ⊢ ((dom 𝑓 ∈ V ∧ 𝑓:dom 𝑓⟶Comp ∧ ∪ (∏t‘𝑓) ∈ (UFL ∩ dom card)) → (∏t‘𝑓) ∈ Comp)
18	3, 4, 14, 17	syl3anc 1372	. . . 4 ⊢ ((CHOICE ∧ 𝑓:dom 𝑓⟶Comp) → (∏t‘𝑓) ∈ Comp)
19	18	ex 412	. . 3 ⊢ (CHOICE → (𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp))
20	19	alrimiv 1926	. 2 ⊢ (CHOICE → ∀𝑓(𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp))
21		fvex 6899	. . . . . . . . 9 ⊢ (𝑔‘𝑦) ∈ V
22		kelac2lem 43054	. . . . . . . . 9 ⊢ ((𝑔‘𝑦) ∈ V → (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}) ∈ Comp)
23	21, 22	mp1i 13	. . . . . . . 8 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑦 ∈ dom 𝑔) → (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}) ∈ Comp)
24	23	fmpttd 7115	. . . . . . 7 ⊢ ((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) → (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})):dom 𝑔⟶Comp)
25	24	ffdmd 6746	. . . . . 6 ⊢ ((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) → (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})):dom (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))⟶Comp)
26		vex 3467	. . . . . . . . 9 ⊢ 𝑔 ∈ V
27	26	dmex 7913	. . . . . . . 8 ⊢ dom 𝑔 ∈ V
28	27	mptex 7225	. . . . . . 7 ⊢ (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) ∈ V
29		id 22	. . . . . . . . 9 ⊢ (𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) → 𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})))
30		dmeq 5894	. . . . . . . . 9 ⊢ (𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) → dom 𝑓 = dom (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})))
31	29, 30	feq12d 6704	. . . . . . . 8 ⊢ (𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) → (𝑓:dom 𝑓⟶Comp ↔ (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})):dom (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))⟶Comp))
32		fveq2 6886	. . . . . . . . 9 ⊢ (𝑓 = (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) → (∏t‘𝑓) = (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))))
33	32	eleq1d 2818	. . . . . . . 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 3588	. . . . . 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 6899	. . . . . . . 8 ⊢ (𝑔‘𝑥) ∈ V
38	37	a1i 11	. . . . . . 7 ⊢ ((((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp) ∧ 𝑥 ∈ dom 𝑔) → (𝑔‘𝑥) ∈ V)
39		df-nel 3036	. . . . . . . . . . 11 ⊢ (∅ ∉ ran 𝑔 ↔ ¬ ∅ ∈ ran 𝑔)
40	39	biimpi 216	. . . . . . . . . 10 ⊢ (∅ ∉ ran 𝑔 → ¬ ∅ ∈ ran 𝑔)
41	40	ad2antlr 727	. . . . . . . . 9 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑥 ∈ dom 𝑔) → ¬ ∅ ∈ ran 𝑔)
42		fvelrn 7076	. . . . . . . . . . . 12 ⊢ ((Fun 𝑔 ∧ 𝑥 ∈ dom 𝑔) → (𝑔‘𝑥) ∈ ran 𝑔)
43	42	adantlr 715	. . . . . . . . . . 11 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑥 ∈ dom 𝑔) → (𝑔‘𝑥) ∈ ran 𝑔)
44		eleq1 2821	. . . . . . . . . . 11 ⊢ ((𝑔‘𝑥) = ∅ → ((𝑔‘𝑥) ∈ ran 𝑔 ↔ ∅ ∈ ran 𝑔))
45	43, 44	syl5ibcom 245	. . . . . . . . . 10 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑥 ∈ dom 𝑔) → ((𝑔‘𝑥) = ∅ → ∅ ∈ ran 𝑔))
46	45	necon3bd 2945	. . . . . . . . 9 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑥 ∈ dom 𝑔) → (¬ ∅ ∈ ran 𝑔 → (𝑔‘𝑥) ≠ ∅))
47	41, 46	mpd 15	. . . . . . . 8 ⊢ (((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ 𝑥 ∈ dom 𝑔) → (𝑔‘𝑥) ≠ ∅)
48	47	adantlr 715	. . . . . . 7 ⊢ ((((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) ∧ (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) ∈ Comp) ∧ 𝑥 ∈ dom 𝑔) → (𝑔‘𝑥) ≠ ∅)
49		fveq2 6886	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑥 → (𝑔‘𝑦) = (𝑔‘𝑥))
50	49	unieqd 4900	. . . . . . . . . . . . . . . 16 ⊢ (𝑦 = 𝑥 → ∪ (𝑔‘𝑦) = ∪ (𝑔‘𝑥))
51	50	pweqd 4597	. . . . . . . . . . . . . . 15 ⊢ (𝑦 = 𝑥 → 𝒫 ∪ (𝑔‘𝑦) = 𝒫 ∪ (𝑔‘𝑥))
52	51	sneqd 4618	. . . . . . . . . . . . . 14 ⊢ (𝑦 = 𝑥 → {𝒫 ∪ (𝑔‘𝑦)} = {𝒫 ∪ (𝑔‘𝑥)})
53	49, 52	preq12d 4721	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑥 → {(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}} = {(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}})
54	53	fveq2d 6890	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑥 → (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}) = (topGen‘{(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}}))
55	54	cbvmptv 5235	. . . . . . . . . . 11 ⊢ (𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}})) = (𝑥 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}}))
56	55	fveq2i 6889	. . . . . . . . . 10 ⊢ (∏t‘(𝑦 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑦), {𝒫 ∪ (𝑔‘𝑦)}}))) = (∏t‘(𝑥 ∈ dom 𝑔 ↦ (topGen‘{(𝑔‘𝑥), {𝒫 ∪ (𝑔‘𝑥)}})))
57	56	eleq1i 2824	. . . . . . . . 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 43055	. . . . . 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 1926	. . 3 ⊢ (∀𝑓(𝑓:dom 𝑓⟶Comp → (∏t‘𝑓) ∈ Comp) → ∀𝑔((Fun 𝑔 ∧ ∅ ∉ ran 𝑔) → X𝑥 ∈ dom 𝑔(𝑔‘𝑥) ≠ ∅))
64		dfac9 10159	. . 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 1537   = wceq 1539   ∈ wcel 2107   ≠ wne 2931   ∉ wnel 3035  Vcvv 3463   ∩ cin 3930  ∅c0 4313  𝒫 cpw 4580  {csn 4606  {cpr 4608  ∪ cuni 4887   ↦ cmpt 5205  dom cdm 5665  ran crn 5666  Fun wfun 6535  ⟶wf 6537  ‘cfv 6541  Xcixp 8919  cardccrd 9957  CHOICEwac 10137  topGenctg 17454  ∏_tcpt 17455  Compccmp 23341  UFLcufl 23855

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2706  ax-rep 5259  ax-sep 5276  ax-nul 5286  ax-pow 5345  ax-pr 5412  ax-un 7737

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2808  df-nfc 2884  df-ne 2932  df-nel 3036  df-ral 3051  df-rex 3060  df-rmo 3363  df-reu 3364  df-rab 3420  df-v 3465  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-pss 3951  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-op 4613  df-uni 4888  df-int 4927  df-iun 4973  df-iin 4974  df-br 5124  df-opab 5186  df-mpt 5206  df-tr 5240  df-id 5558  df-eprel 5564  df-po 5572  df-so 5573  df-fr 5617  df-se 5618  df-we 5619  df-xp 5671  df-rel 5672  df-cnv 5673  df-co 5674  df-dm 5675  df-rn 5676  df-res 5677  df-ima 5678  df-pred 6301  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7370  df-ov 7416  df-oprab 7417  df-mpo 7418  df-rpss 7725  df-om 7870  df-1st 7996  df-2nd 7997  df-frecs 8288  df-wrecs 8319  df-recs 8393  df-rdg 8432  df-1o 8488  df-2o 8489  df-oadd 8492  df-omul 8493  df-er 8727  df-map 8850  df-ixp 8920  df-en 8968  df-dom 8969  df-fin 8971  df-fi 9433  df-wdom 9587  df-dju 9923  df-card 9961  df-acn 9964  df-ac 10138  df-topgen 17460  df-pt 17461  df-fbas 21324  df-fg 21325  df-top 22849  df-topon 22866  df-bases 22901  df-cld 22974  df-ntr 22975  df-cls 22976  df-nei 23053  df-cmp 23342  df-fil 23801  df-ufil 23856  df-ufl 23857  df-flim 23894  df-fcls 23896

This theorem is referenced by: (None)