Theorem acsfn 17602

Description: Algebraicity of a conditional point closure condition. (Contributed by Stefan O'Rear, 3-Apr-2015.)

Assertion

Ref	Expression
acsfn	⊢ (((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) → {𝑎 ∈ 𝒫 𝑋 ∣ (𝑇 ⊆ 𝑎 → 𝐾 ∈ 𝑎)} ∈ (ACS‘𝑋))

Distinct variable groups:   𝐾,𝑎   𝑇,𝑎   𝑉,𝑎   𝑋,𝑎

Proof of Theorem acsfn

Dummy variables 𝑏 𝑐 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		funmpt 6576	. . . . . . 7 ⊢ Fun (𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅))
2		funiunfv 7239	. . . . . . 7 ⊢ (Fun (𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)) → ∪ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅))‘𝑐) = ∪ ((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)) “ (𝒫 𝑎 ∩ Fin)))
3	1, 2	mp1i 13	. . . . . 6 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → ∪ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅))‘𝑐) = ∪ ((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)) “ (𝒫 𝑎 ∩ Fin)))
4		elinel1 4187	. . . . . . . . . . . 12 ⊢ (𝑐 ∈ (𝒫 𝑎 ∩ Fin) → 𝑐 ∈ 𝒫 𝑎)
5	4	elpwid 4603	. . . . . . . . . . 11 ⊢ (𝑐 ∈ (𝒫 𝑎 ∩ Fin) → 𝑐 ⊆ 𝑎)
6		elpwi 4601	. . . . . . . . . . 11 ⊢ (𝑎 ∈ 𝒫 𝑋 → 𝑎 ⊆ 𝑋)
7	5, 6	sylan9ssr 3988	. . . . . . . . . 10 ⊢ ((𝑎 ∈ 𝒫 𝑋 ∧ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)) → 𝑐 ⊆ 𝑋)
8		velpw 4599	. . . . . . . . . 10 ⊢ (𝑐 ∈ 𝒫 𝑋 ↔ 𝑐 ⊆ 𝑋)
9	7, 8	sylibr 233	. . . . . . . . 9 ⊢ ((𝑎 ∈ 𝒫 𝑋 ∧ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)) → 𝑐 ∈ 𝒫 𝑋)
10	9	adantll 711	. . . . . . . 8 ⊢ (((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) ∧ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)) → 𝑐 ∈ 𝒫 𝑋)
11		eqeq1 2728	. . . . . . . . . 10 ⊢ (𝑏 = 𝑐 → (𝑏 = 𝑇 ↔ 𝑐 = 𝑇))
12	11	ifbid 4543	. . . . . . . . 9 ⊢ (𝑏 = 𝑐 → if(𝑏 = 𝑇, {𝐾}, ∅) = if(𝑐 = 𝑇, {𝐾}, ∅))
13		eqid 2724	. . . . . . . . 9 ⊢ (𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)) = (𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅))
14		snex 5421	. . . . . . . . . 10 ⊢ {𝐾} ∈ V
15		0ex 5297	. . . . . . . . . 10 ⊢ ∅ ∈ V
16	14, 15	ifex 4570	. . . . . . . . 9 ⊢ if(𝑐 = 𝑇, {𝐾}, ∅) ∈ V
17	12, 13, 16	fvmpt 6988	. . . . . . . 8 ⊢ (𝑐 ∈ 𝒫 𝑋 → ((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅))‘𝑐) = if(𝑐 = 𝑇, {𝐾}, ∅))
18	10, 17	syl 17	. . . . . . 7 ⊢ (((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) ∧ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)) → ((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅))‘𝑐) = if(𝑐 = 𝑇, {𝐾}, ∅))
19	18	iuneq2dv 5011	. . . . . 6 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → ∪ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅))‘𝑐) = ∪ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)if(𝑐 = 𝑇, {𝐾}, ∅))
20	3, 19	eqtr3d 2766	. . . . 5 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → ∪ ((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)) “ (𝒫 𝑎 ∩ Fin)) = ∪ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)if(𝑐 = 𝑇, {𝐾}, ∅))
21	20	sseq1d 4005	. . . 4 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (∪ ((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)) “ (𝒫 𝑎 ∩ Fin)) ⊆ 𝑎 ↔ ∪ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎))
22		iunss 5038	. . . . 5 ⊢ (∪ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎 ↔ ∀𝑐 ∈ (𝒫 𝑎 ∩ Fin)if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎)
23		sseq1 3999	. . . . . . . . 9 ⊢ ({𝐾} = if(𝑐 = 𝑇, {𝐾}, ∅) → ({𝐾} ⊆ 𝑎 ↔ if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎))
24	23	bibi1d 343	. . . . . . . 8 ⊢ ({𝐾} = if(𝑐 = 𝑇, {𝐾}, ∅) → (({𝐾} ⊆ 𝑎 ↔ (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)) ↔ (if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎 ↔ (𝑐 = 𝑇 → 𝐾 ∈ 𝑎))))
25		sseq1 3999	. . . . . . . . 9 ⊢ (∅ = if(𝑐 = 𝑇, {𝐾}, ∅) → (∅ ⊆ 𝑎 ↔ if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎))
26	25	bibi1d 343	. . . . . . . 8 ⊢ (∅ = if(𝑐 = 𝑇, {𝐾}, ∅) → ((∅ ⊆ 𝑎 ↔ (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)) ↔ (if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎 ↔ (𝑐 = 𝑇 → 𝐾 ∈ 𝑎))))
27		snssg 4779	. . . . . . . . . 10 ⊢ (𝐾 ∈ 𝑋 → (𝐾 ∈ 𝑎 ↔ {𝐾} ⊆ 𝑎))
28	27	adantr 480	. . . . . . . . 9 ⊢ ((𝐾 ∈ 𝑋 ∧ 𝑐 = 𝑇) → (𝐾 ∈ 𝑎 ↔ {𝐾} ⊆ 𝑎))
29		biimt 360	. . . . . . . . . 10 ⊢ (𝑐 = 𝑇 → (𝐾 ∈ 𝑎 ↔ (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)))
30	29	adantl 481	. . . . . . . . 9 ⊢ ((𝐾 ∈ 𝑋 ∧ 𝑐 = 𝑇) → (𝐾 ∈ 𝑎 ↔ (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)))
31	28, 30	bitr3d 281	. . . . . . . 8 ⊢ ((𝐾 ∈ 𝑋 ∧ 𝑐 = 𝑇) → ({𝐾} ⊆ 𝑎 ↔ (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)))
32		0ss 4388	. . . . . . . . . . 11 ⊢ ∅ ⊆ 𝑎
33	32	a1i 11	. . . . . . . . . 10 ⊢ (¬ 𝑐 = 𝑇 → ∅ ⊆ 𝑎)
34		pm2.21 123	. . . . . . . . . 10 ⊢ (¬ 𝑐 = 𝑇 → (𝑐 = 𝑇 → 𝐾 ∈ 𝑎))
35	33, 34	2thd 265	. . . . . . . . 9 ⊢ (¬ 𝑐 = 𝑇 → (∅ ⊆ 𝑎 ↔ (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)))
36	35	adantl 481	. . . . . . . 8 ⊢ ((𝐾 ∈ 𝑋 ∧ ¬ 𝑐 = 𝑇) → (∅ ⊆ 𝑎 ↔ (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)))
37	24, 26, 31, 36	ifbothda 4558	. . . . . . 7 ⊢ (𝐾 ∈ 𝑋 → (if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎 ↔ (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)))
38	37	ralbidv 3169	. . . . . 6 ⊢ (𝐾 ∈ 𝑋 → (∀𝑐 ∈ (𝒫 𝑎 ∩ Fin)if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎 ↔ ∀𝑐 ∈ (𝒫 𝑎 ∩ Fin)(𝑐 = 𝑇 → 𝐾 ∈ 𝑎)))
39	38	ad3antlr 728	. . . . 5 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (∀𝑐 ∈ (𝒫 𝑎 ∩ Fin)if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎 ↔ ∀𝑐 ∈ (𝒫 𝑎 ∩ Fin)(𝑐 = 𝑇 → 𝐾 ∈ 𝑎)))
40	22, 39	bitrid 283	. . . 4 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (∪ 𝑐 ∈ (𝒫 𝑎 ∩ Fin)if(𝑐 = 𝑇, {𝐾}, ∅) ⊆ 𝑎 ↔ ∀𝑐 ∈ (𝒫 𝑎 ∩ Fin)(𝑐 = 𝑇 → 𝐾 ∈ 𝑎)))
41		inss1 4220	. . . . . . . 8 ⊢ (𝒫 𝑎 ∩ Fin) ⊆ 𝒫 𝑎
42	6	sspwd 4607	. . . . . . . 8 ⊢ (𝑎 ∈ 𝒫 𝑋 → 𝒫 𝑎 ⊆ 𝒫 𝑋)
43	41, 42	sstrid 3985	. . . . . . 7 ⊢ (𝑎 ∈ 𝒫 𝑋 → (𝒫 𝑎 ∩ Fin) ⊆ 𝒫 𝑋)
44	43	adantl 481	. . . . . 6 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (𝒫 𝑎 ∩ Fin) ⊆ 𝒫 𝑋)
45		ralss 4046	. . . . . 6 ⊢ ((𝒫 𝑎 ∩ Fin) ⊆ 𝒫 𝑋 → (∀𝑐 ∈ (𝒫 𝑎 ∩ Fin)(𝑐 = 𝑇 → 𝐾 ∈ 𝑎) ↔ ∀𝑐 ∈ 𝒫 𝑋(𝑐 ∈ (𝒫 𝑎 ∩ Fin) → (𝑐 = 𝑇 → 𝐾 ∈ 𝑎))))
46	44, 45	syl 17	. . . . 5 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (∀𝑐 ∈ (𝒫 𝑎 ∩ Fin)(𝑐 = 𝑇 → 𝐾 ∈ 𝑎) ↔ ∀𝑐 ∈ 𝒫 𝑋(𝑐 ∈ (𝒫 𝑎 ∩ Fin) → (𝑐 = 𝑇 → 𝐾 ∈ 𝑎))))
47		bi2.04 387	. . . . . . 7 ⊢ ((𝑐 ∈ (𝒫 𝑎 ∩ Fin) → (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)) ↔ (𝑐 = 𝑇 → (𝑐 ∈ (𝒫 𝑎 ∩ Fin) → 𝐾 ∈ 𝑎)))
48	47	ralbii 3085	. . . . . 6 ⊢ (∀𝑐 ∈ 𝒫 𝑋(𝑐 ∈ (𝒫 𝑎 ∩ Fin) → (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)) ↔ ∀𝑐 ∈ 𝒫 𝑋(𝑐 = 𝑇 → (𝑐 ∈ (𝒫 𝑎 ∩ Fin) → 𝐾 ∈ 𝑎)))
49		elpwg 4597	. . . . . . . . 9 ⊢ (𝑇 ∈ Fin → (𝑇 ∈ 𝒫 𝑋 ↔ 𝑇 ⊆ 𝑋))
50	49	biimparc 479	. . . . . . . 8 ⊢ ((𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin) → 𝑇 ∈ 𝒫 𝑋)
51	50	ad2antlr 724	. . . . . . 7 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → 𝑇 ∈ 𝒫 𝑋)
52		eleq1 2813	. . . . . . . . 9 ⊢ (𝑐 = 𝑇 → (𝑐 ∈ (𝒫 𝑎 ∩ Fin) ↔ 𝑇 ∈ (𝒫 𝑎 ∩ Fin)))
53	52	imbi1d 341	. . . . . . . 8 ⊢ (𝑐 = 𝑇 → ((𝑐 ∈ (𝒫 𝑎 ∩ Fin) → 𝐾 ∈ 𝑎) ↔ (𝑇 ∈ (𝒫 𝑎 ∩ Fin) → 𝐾 ∈ 𝑎)))
54	53	ceqsralv 3506	. . . . . . 7 ⊢ (𝑇 ∈ 𝒫 𝑋 → (∀𝑐 ∈ 𝒫 𝑋(𝑐 = 𝑇 → (𝑐 ∈ (𝒫 𝑎 ∩ Fin) → 𝐾 ∈ 𝑎)) ↔ (𝑇 ∈ (𝒫 𝑎 ∩ Fin) → 𝐾 ∈ 𝑎)))
55	51, 54	syl 17	. . . . . 6 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (∀𝑐 ∈ 𝒫 𝑋(𝑐 = 𝑇 → (𝑐 ∈ (𝒫 𝑎 ∩ Fin) → 𝐾 ∈ 𝑎)) ↔ (𝑇 ∈ (𝒫 𝑎 ∩ Fin) → 𝐾 ∈ 𝑎)))
56	48, 55	bitrid 283	. . . . 5 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (∀𝑐 ∈ 𝒫 𝑋(𝑐 ∈ (𝒫 𝑎 ∩ Fin) → (𝑐 = 𝑇 → 𝐾 ∈ 𝑎)) ↔ (𝑇 ∈ (𝒫 𝑎 ∩ Fin) → 𝐾 ∈ 𝑎)))
57		simplrr 775	. . . . . . . . 9 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → 𝑇 ∈ Fin)
58	57	biantrud 531	. . . . . . . 8 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (𝑇 ∈ 𝒫 𝑎 ↔ (𝑇 ∈ 𝒫 𝑎 ∧ 𝑇 ∈ Fin)))
59		elin 3956	. . . . . . . 8 ⊢ (𝑇 ∈ (𝒫 𝑎 ∩ Fin) ↔ (𝑇 ∈ 𝒫 𝑎 ∧ 𝑇 ∈ Fin))
60	58, 59	bitr4di 289	. . . . . . 7 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (𝑇 ∈ 𝒫 𝑎 ↔ 𝑇 ∈ (𝒫 𝑎 ∩ Fin)))
61		vex 3470	. . . . . . . 8 ⊢ 𝑎 ∈ V
62	61	elpw2 5335	. . . . . . 7 ⊢ (𝑇 ∈ 𝒫 𝑎 ↔ 𝑇 ⊆ 𝑎)
63	60, 62	bitr3di 286	. . . . . 6 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (𝑇 ∈ (𝒫 𝑎 ∩ Fin) ↔ 𝑇 ⊆ 𝑎))
64	63	imbi1d 341	. . . . 5 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → ((𝑇 ∈ (𝒫 𝑎 ∩ Fin) → 𝐾 ∈ 𝑎) ↔ (𝑇 ⊆ 𝑎 → 𝐾 ∈ 𝑎)))
65	46, 56, 64	3bitrd 305	. . . 4 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → (∀𝑐 ∈ (𝒫 𝑎 ∩ Fin)(𝑐 = 𝑇 → 𝐾 ∈ 𝑎) ↔ (𝑇 ⊆ 𝑎 → 𝐾 ∈ 𝑎)))
66	21, 40, 65	3bitrrd 306	. . 3 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑎 ∈ 𝒫 𝑋) → ((𝑇 ⊆ 𝑎 → 𝐾 ∈ 𝑎) ↔ ∪ ((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)) “ (𝒫 𝑎 ∩ Fin)) ⊆ 𝑎))
67	66	rabbidva 3431	. 2 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) → {𝑎 ∈ 𝒫 𝑋 ∣ (𝑇 ⊆ 𝑎 → 𝐾 ∈ 𝑎)} = {𝑎 ∈ 𝒫 𝑋 ∣ ∪ ((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)) “ (𝒫 𝑎 ∩ Fin)) ⊆ 𝑎})
68		simpll 764	. . 3 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) → 𝑋 ∈ 𝑉)
69		snelpwi 5433	. . . . . . 7 ⊢ (𝐾 ∈ 𝑋 → {𝐾} ∈ 𝒫 𝑋)
70	69	ad2antlr 724	. . . . . 6 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) → {𝐾} ∈ 𝒫 𝑋)
71		0elpw 5344	. . . . . 6 ⊢ ∅ ∈ 𝒫 𝑋
72		ifcl 4565	. . . . . 6 ⊢ (({𝐾} ∈ 𝒫 𝑋 ∧ ∅ ∈ 𝒫 𝑋) → if(𝑏 = 𝑇, {𝐾}, ∅) ∈ 𝒫 𝑋)
73	70, 71, 72	sylancl 585	. . . . 5 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) → if(𝑏 = 𝑇, {𝐾}, ∅) ∈ 𝒫 𝑋)
74	73	adantr 480	. . . 4 ⊢ ((((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) ∧ 𝑏 ∈ 𝒫 𝑋) → if(𝑏 = 𝑇, {𝐾}, ∅) ∈ 𝒫 𝑋)
75	74	fmpttd 7106	. . 3 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) → (𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)):𝒫 𝑋⟶𝒫 𝑋)
76		isacs1i 17600	. . 3 ⊢ ((𝑋 ∈ 𝑉 ∧ (𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)):𝒫 𝑋⟶𝒫 𝑋) → {𝑎 ∈ 𝒫 𝑋 ∣ ∪ ((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)) “ (𝒫 𝑎 ∩ Fin)) ⊆ 𝑎} ∈ (ACS‘𝑋))
77	68, 75, 76	syl2anc 583	. 2 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) → {𝑎 ∈ 𝒫 𝑋 ∣ ∪ ((𝑏 ∈ 𝒫 𝑋 ↦ if(𝑏 = 𝑇, {𝐾}, ∅)) “ (𝒫 𝑎 ∩ Fin)) ⊆ 𝑎} ∈ (ACS‘𝑋))
78	67, 77	eqeltrd 2825	1 ⊢ (((𝑋 ∈ 𝑉 ∧ 𝐾 ∈ 𝑋) ∧ (𝑇 ⊆ 𝑋 ∧ 𝑇 ∈ Fin)) → {𝑎 ∈ 𝒫 𝑋 ∣ (𝑇 ⊆ 𝑎 → 𝐾 ∈ 𝑎)} ∈ (ACS‘𝑋))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 395   = wceq 1533   ∈ wcel 2098  ∀wral 3053  {crab 3424   ∩ cin 3939   ⊆ wss 3940  ∅c0 4314  ifcif 4520  𝒫 cpw 4594  {csn 4620  ∪ cuni 4899  ∪ ciun 4987   ↦ cmpt 5221   “ cima 5669  Fun wfun 6527  ⟶wf 6529  ‘cfv 6533  Fincfn 8935  ACScacs 17528

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-ral 3054  df-rex 3063  df-rab 3425  df-v 3468  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-op 4627  df-uni 4900  df-int 4941  df-iun 4989  df-br 5139  df-opab 5201  df-mpt 5222  df-id 5564  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-fv 6541  df-mre 17529  df-acs 17532

This theorem is referenced by:  acsfn0  17603  acsfn1  17604  acsfn2  17606  acsfn1p  20640