Theorem uncmp 23539

Description: The union of two compact sets is compact. (Contributed by Jeff Hankins, 30-Jan-2010.)

Hypothesis

Ref	Expression
uncmp.1	⊢ 𝑋 = ∪ 𝐽

Assertion

Ref	Expression
uncmp	⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ ((𝐽 ↾t 𝑆) ∈ Comp ∧ (𝐽 ↾t 𝑇) ∈ Comp)) → 𝐽 ∈ Comp)

Proof of Theorem uncmp

Dummy variables 𝑐 𝑑 𝑚 𝑛 𝑟 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpll 778	. 2 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ ((𝐽 ↾t 𝑆) ∈ Comp ∧ (𝐽 ↾t 𝑇) ∈ Comp)) → 𝐽 ∈ Top)
2		simpll 778	. . . . . . . 8 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → 𝐽 ∈ Top)
3		ssun1 4130	. . . . . . . . . 10 ⊢ 𝑆 ⊆ (𝑆 ∪ 𝑇)
4		sseq2 3962	. . . . . . . . . 10 ⊢ (𝑋 = (𝑆 ∪ 𝑇) → (𝑆 ⊆ 𝑋 ↔ 𝑆 ⊆ (𝑆 ∪ 𝑇)))
5	3, 4	mpbiri 261	. . . . . . . . 9 ⊢ (𝑋 = (𝑆 ∪ 𝑇) → 𝑆 ⊆ 𝑋)
6	5	ad2antlr 739	. . . . . . . 8 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → 𝑆 ⊆ 𝑋)
7		uncmp.1	. . . . . . . . 9 ⊢ 𝑋 = ∪ 𝐽
8	7	cmpsub 23536	. . . . . . . 8 ⊢ ((𝐽 ∈ Top ∧ 𝑆 ⊆ 𝑋) → ((𝐽 ↾t 𝑆) ∈ Comp ↔ ∀𝑚 ∈ 𝒫 𝐽(𝑆 ⊆ ∪ 𝑚 → ∃𝑛 ∈ (𝒫 𝑚 ∩ Fin)𝑆 ⊆ ∪ 𝑛)))
9	2, 6, 8	syl2anc 595	. . . . . . 7 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → ((𝐽 ↾t 𝑆) ∈ Comp ↔ ∀𝑚 ∈ 𝒫 𝐽(𝑆 ⊆ ∪ 𝑚 → ∃𝑛 ∈ (𝒫 𝑚 ∩ Fin)𝑆 ⊆ ∪ 𝑛)))
10		simprr 784	. . . . . . . . 9 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → 𝑋 = ∪ 𝑐)
11	6, 10	sseqtrd 3972	. . . . . . . 8 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → 𝑆 ⊆ ∪ 𝑐)
12		unieq 4882	. . . . . . . . . . . 12 ⊢ (𝑚 = 𝑐 → ∪ 𝑚 = ∪ 𝑐)
13	12	sseq2d 3968	. . . . . . . . . . 11 ⊢ (𝑚 = 𝑐 → (𝑆 ⊆ ∪ 𝑚 ↔ 𝑆 ⊆ ∪ 𝑐))
14		pweq 4575	. . . . . . . . . . . . 13 ⊢ (𝑚 = 𝑐 → 𝒫 𝑚 = 𝒫 𝑐)
15	14	ineq1d 4171	. . . . . . . . . . . 12 ⊢ (𝑚 = 𝑐 → (𝒫 𝑚 ∩ Fin) = (𝒫 𝑐 ∩ Fin))
16	15	rexeqdv 3322	. . . . . . . . . . 11 ⊢ (𝑚 = 𝑐 → (∃𝑛 ∈ (𝒫 𝑚 ∩ Fin)𝑆 ⊆ ∪ 𝑛 ↔ ∃𝑛 ∈ (𝒫 𝑐 ∩ Fin)𝑆 ⊆ ∪ 𝑛))
17	13, 16	imbi12d 347	. . . . . . . . . 10 ⊢ (𝑚 = 𝑐 → ((𝑆 ⊆ ∪ 𝑚 → ∃𝑛 ∈ (𝒫 𝑚 ∩ Fin)𝑆 ⊆ ∪ 𝑛) ↔ (𝑆 ⊆ ∪ 𝑐 → ∃𝑛 ∈ (𝒫 𝑐 ∩ Fin)𝑆 ⊆ ∪ 𝑛)))
18	17	rspcv 3576	. . . . . . . . 9 ⊢ (𝑐 ∈ 𝒫 𝐽 → (∀𝑚 ∈ 𝒫 𝐽(𝑆 ⊆ ∪ 𝑚 → ∃𝑛 ∈ (𝒫 𝑚 ∩ Fin)𝑆 ⊆ ∪ 𝑛) → (𝑆 ⊆ ∪ 𝑐 → ∃𝑛 ∈ (𝒫 𝑐 ∩ Fin)𝑆 ⊆ ∪ 𝑛)))
19	18	ad2antrl 740	. . . . . . . 8 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → (∀𝑚 ∈ 𝒫 𝐽(𝑆 ⊆ ∪ 𝑚 → ∃𝑛 ∈ (𝒫 𝑚 ∩ Fin)𝑆 ⊆ ∪ 𝑛) → (𝑆 ⊆ ∪ 𝑐 → ∃𝑛 ∈ (𝒫 𝑐 ∩ Fin)𝑆 ⊆ ∪ 𝑛)))
20	11, 19	mpid 45	. . . . . . 7 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → (∀𝑚 ∈ 𝒫 𝐽(𝑆 ⊆ ∪ 𝑚 → ∃𝑛 ∈ (𝒫 𝑚 ∩ Fin)𝑆 ⊆ ∪ 𝑛) → ∃𝑛 ∈ (𝒫 𝑐 ∩ Fin)𝑆 ⊆ ∪ 𝑛))
21	9, 20	sylbid 243	. . . . . 6 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → ((𝐽 ↾t 𝑆) ∈ Comp → ∃𝑛 ∈ (𝒫 𝑐 ∩ Fin)𝑆 ⊆ ∪ 𝑛))
22		ssun2 4131	. . . . . . . . . 10 ⊢ 𝑇 ⊆ (𝑆 ∪ 𝑇)
23		sseq2 3962	. . . . . . . . . 10 ⊢ (𝑋 = (𝑆 ∪ 𝑇) → (𝑇 ⊆ 𝑋 ↔ 𝑇 ⊆ (𝑆 ∪ 𝑇)))
24	22, 23	mpbiri 261	. . . . . . . . 9 ⊢ (𝑋 = (𝑆 ∪ 𝑇) → 𝑇 ⊆ 𝑋)
25	24	ad2antlr 739	. . . . . . . 8 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → 𝑇 ⊆ 𝑋)
26	7	cmpsub 23536	. . . . . . . 8 ⊢ ((𝐽 ∈ Top ∧ 𝑇 ⊆ 𝑋) → ((𝐽 ↾t 𝑇) ∈ Comp ↔ ∀𝑟 ∈ 𝒫 𝐽(𝑇 ⊆ ∪ 𝑟 → ∃𝑠 ∈ (𝒫 𝑟 ∩ Fin)𝑇 ⊆ ∪ 𝑠)))
27	2, 25, 26	syl2anc 595	. . . . . . 7 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → ((𝐽 ↾t 𝑇) ∈ Comp ↔ ∀𝑟 ∈ 𝒫 𝐽(𝑇 ⊆ ∪ 𝑟 → ∃𝑠 ∈ (𝒫 𝑟 ∩ Fin)𝑇 ⊆ ∪ 𝑠)))
28	25, 10	sseqtrd 3972	. . . . . . . 8 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → 𝑇 ⊆ ∪ 𝑐)
29		unieq 4882	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑐 → ∪ 𝑟 = ∪ 𝑐)
30	29	sseq2d 3968	. . . . . . . . . . 11 ⊢ (𝑟 = 𝑐 → (𝑇 ⊆ ∪ 𝑟 ↔ 𝑇 ⊆ ∪ 𝑐))
31		pweq 4575	. . . . . . . . . . . . 13 ⊢ (𝑟 = 𝑐 → 𝒫 𝑟 = 𝒫 𝑐)
32	31	ineq1d 4171	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑐 → (𝒫 𝑟 ∩ Fin) = (𝒫 𝑐 ∩ Fin))
33	32	rexeqdv 3322	. . . . . . . . . . 11 ⊢ (𝑟 = 𝑐 → (∃𝑠 ∈ (𝒫 𝑟 ∩ Fin)𝑇 ⊆ ∪ 𝑠 ↔ ∃𝑠 ∈ (𝒫 𝑐 ∩ Fin)𝑇 ⊆ ∪ 𝑠))
34	30, 33	imbi12d 347	. . . . . . . . . 10 ⊢ (𝑟 = 𝑐 → ((𝑇 ⊆ ∪ 𝑟 → ∃𝑠 ∈ (𝒫 𝑟 ∩ Fin)𝑇 ⊆ ∪ 𝑠) ↔ (𝑇 ⊆ ∪ 𝑐 → ∃𝑠 ∈ (𝒫 𝑐 ∩ Fin)𝑇 ⊆ ∪ 𝑠)))
35	34	rspcv 3576	. . . . . . . . 9 ⊢ (𝑐 ∈ 𝒫 𝐽 → (∀𝑟 ∈ 𝒫 𝐽(𝑇 ⊆ ∪ 𝑟 → ∃𝑠 ∈ (𝒫 𝑟 ∩ Fin)𝑇 ⊆ ∪ 𝑠) → (𝑇 ⊆ ∪ 𝑐 → ∃𝑠 ∈ (𝒫 𝑐 ∩ Fin)𝑇 ⊆ ∪ 𝑠)))
36	35	ad2antrl 740	. . . . . . . 8 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → (∀𝑟 ∈ 𝒫 𝐽(𝑇 ⊆ ∪ 𝑟 → ∃𝑠 ∈ (𝒫 𝑟 ∩ Fin)𝑇 ⊆ ∪ 𝑠) → (𝑇 ⊆ ∪ 𝑐 → ∃𝑠 ∈ (𝒫 𝑐 ∩ Fin)𝑇 ⊆ ∪ 𝑠)))
37	28, 36	mpid 45	. . . . . . 7 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → (∀𝑟 ∈ 𝒫 𝐽(𝑇 ⊆ ∪ 𝑟 → ∃𝑠 ∈ (𝒫 𝑟 ∩ Fin)𝑇 ⊆ ∪ 𝑠) → ∃𝑠 ∈ (𝒫 𝑐 ∩ Fin)𝑇 ⊆ ∪ 𝑠))
38	27, 37	sylbid 243	. . . . . 6 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → ((𝐽 ↾t 𝑇) ∈ Comp → ∃𝑠 ∈ (𝒫 𝑐 ∩ Fin)𝑇 ⊆ ∪ 𝑠))
39		reeanv 3235	. . . . . . 7 ⊢ (∃𝑛 ∈ (𝒫 𝑐 ∩ Fin)∃𝑠 ∈ (𝒫 𝑐 ∩ Fin)(𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠) ↔ (∃𝑛 ∈ (𝒫 𝑐 ∩ Fin)𝑆 ⊆ ∪ 𝑛 ∧ ∃𝑠 ∈ (𝒫 𝑐 ∩ Fin)𝑇 ⊆ ∪ 𝑠))
40		elinel1 4153	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ (𝒫 𝑐 ∩ Fin) → 𝑛 ∈ 𝒫 𝑐)
41	40	elpwid 4570	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ (𝒫 𝑐 ∩ Fin) → 𝑛 ⊆ 𝑐)
42		elinel1 4153	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 ∈ (𝒫 𝑐 ∩ Fin) → 𝑠 ∈ 𝒫 𝑐)
43	42	elpwid 4570	. . . . . . . . . . . . . . 15 ⊢ (𝑠 ∈ (𝒫 𝑐 ∩ Fin) → 𝑠 ⊆ 𝑐)
44	41, 43	anim12i 624	. . . . . . . . . . . . . 14 ⊢ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) → (𝑛 ⊆ 𝑐 ∧ 𝑠 ⊆ 𝑐))
45	44	ad2antrl 740	. . . . . . . . . . . . 13 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → (𝑛 ⊆ 𝑐 ∧ 𝑠 ⊆ 𝑐))
46		unss 4142	. . . . . . . . . . . . 13 ⊢ ((𝑛 ⊆ 𝑐 ∧ 𝑠 ⊆ 𝑐) ↔ (𝑛 ∪ 𝑠) ⊆ 𝑐)
47	45, 46	sylib 221	. . . . . . . . . . . 12 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → (𝑛 ∪ 𝑠) ⊆ 𝑐)
48		elinel2 4154	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (𝒫 𝑐 ∩ Fin) → 𝑛 ∈ Fin)
49		elinel2 4154	. . . . . . . . . . . . . 14 ⊢ (𝑠 ∈ (𝒫 𝑐 ∩ Fin) → 𝑠 ∈ Fin)
50		unfi 9154	. . . . . . . . . . . . . 14 ⊢ ((𝑛 ∈ Fin ∧ 𝑠 ∈ Fin) → (𝑛 ∪ 𝑠) ∈ Fin)
51	48, 49, 50	syl2an 607	. . . . . . . . . . . . 13 ⊢ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) → (𝑛 ∪ 𝑠) ∈ Fin)
52	51	ad2antrl 740	. . . . . . . . . . . 12 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → (𝑛 ∪ 𝑠) ∈ Fin)
53	47, 52	jca 520	. . . . . . . . . . 11 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → ((𝑛 ∪ 𝑠) ⊆ 𝑐 ∧ (𝑛 ∪ 𝑠) ∈ Fin))
54		elin 3920	. . . . . . . . . . . 12 ⊢ ((𝑛 ∪ 𝑠) ∈ (𝒫 𝑐 ∩ Fin) ↔ ((𝑛 ∪ 𝑠) ∈ 𝒫 𝑐 ∧ (𝑛 ∪ 𝑠) ∈ Fin))
55		vex 3457	. . . . . . . . . . . . . 14 ⊢ 𝑐 ∈ V
56	55	elpw2 5304	. . . . . . . . . . . . 13 ⊢ ((𝑛 ∪ 𝑠) ∈ 𝒫 𝑐 ↔ (𝑛 ∪ 𝑠) ⊆ 𝑐)
57	56	anbi1i 635	. . . . . . . . . . . 12 ⊢ (((𝑛 ∪ 𝑠) ∈ 𝒫 𝑐 ∧ (𝑛 ∪ 𝑠) ∈ Fin) ↔ ((𝑛 ∪ 𝑠) ⊆ 𝑐 ∧ (𝑛 ∪ 𝑠) ∈ Fin))
58	54, 57	bitr2i 279	. . . . . . . . . . 11 ⊢ (((𝑛 ∪ 𝑠) ⊆ 𝑐 ∧ (𝑛 ∪ 𝑠) ∈ Fin) ↔ (𝑛 ∪ 𝑠) ∈ (𝒫 𝑐 ∩ Fin))
59	53, 58	sylib 221	. . . . . . . . . 10 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → (𝑛 ∪ 𝑠) ∈ (𝒫 𝑐 ∩ Fin))
60		simpllr 787	. . . . . . . . . . . . 13 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → 𝑋 = (𝑆 ∪ 𝑇))
61		ssun3 4132	. . . . . . . . . . . . . . . 16 ⊢ (𝑆 ⊆ ∪ 𝑛 → 𝑆 ⊆ (∪ 𝑛 ∪ ∪ 𝑠))
62		ssun4 4133	. . . . . . . . . . . . . . . 16 ⊢ (𝑇 ⊆ ∪ 𝑠 → 𝑇 ⊆ (∪ 𝑛 ∪ ∪ 𝑠))
63	61, 62	anim12i 624	. . . . . . . . . . . . . . 15 ⊢ ((𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠) → (𝑆 ⊆ (∪ 𝑛 ∪ ∪ 𝑠) ∧ 𝑇 ⊆ (∪ 𝑛 ∪ ∪ 𝑠)))
64	63	ad2antll 741	. . . . . . . . . . . . . 14 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → (𝑆 ⊆ (∪ 𝑛 ∪ ∪ 𝑠) ∧ 𝑇 ⊆ (∪ 𝑛 ∪ ∪ 𝑠)))
65		unss 4142	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ⊆ (∪ 𝑛 ∪ ∪ 𝑠) ∧ 𝑇 ⊆ (∪ 𝑛 ∪ ∪ 𝑠)) ↔ (𝑆 ∪ 𝑇) ⊆ (∪ 𝑛 ∪ ∪ 𝑠))
66	64, 65	sylib 221	. . . . . . . . . . . . 13 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → (𝑆 ∪ 𝑇) ⊆ (∪ 𝑛 ∪ ∪ 𝑠))
67	60, 66	eqsstrd 3970	. . . . . . . . . . . 12 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → 𝑋 ⊆ (∪ 𝑛 ∪ ∪ 𝑠))
68		uniun 4894	. . . . . . . . . . . 12 ⊢ ∪ (𝑛 ∪ 𝑠) = (∪ 𝑛 ∪ ∪ 𝑠)
69	67, 68	sseqtrrdi 3977	. . . . . . . . . . 11 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → 𝑋 ⊆ ∪ (𝑛 ∪ 𝑠))
70		elpwi 4568	. . . . . . . . . . . . . . 15 ⊢ (𝑐 ∈ 𝒫 𝐽 → 𝑐 ⊆ 𝐽)
71	70	adantr 485	. . . . . . . . . . . . . 14 ⊢ ((𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐) → 𝑐 ⊆ 𝐽)
72	71	ad2antlr 739	. . . . . . . . . . . . 13 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → 𝑐 ⊆ 𝐽)
73	47, 72	sstrd 3946	. . . . . . . . . . . 12 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → (𝑛 ∪ 𝑠) ⊆ 𝐽)
74		uniss 4879	. . . . . . . . . . . . 13 ⊢ ((𝑛 ∪ 𝑠) ⊆ 𝐽 → ∪ (𝑛 ∪ 𝑠) ⊆ ∪ 𝐽)
75	74, 7	sseqtrrdi 3977	. . . . . . . . . . . 12 ⊢ ((𝑛 ∪ 𝑠) ⊆ 𝐽 → ∪ (𝑛 ∪ 𝑠) ⊆ 𝑋)
76	73, 75	syl 18	. . . . . . . . . . 11 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → ∪ (𝑛 ∪ 𝑠) ⊆ 𝑋)
77	69, 76	eqssd 3953	. . . . . . . . . 10 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → 𝑋 = ∪ (𝑛 ∪ 𝑠))
78		unieq 4882	. . . . . . . . . . 11 ⊢ (𝑑 = (𝑛 ∪ 𝑠) → ∪ 𝑑 = ∪ (𝑛 ∪ 𝑠))
79	78	rspceeqv 3603	. . . . . . . . . 10 ⊢ (((𝑛 ∪ 𝑠) ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑋 = ∪ (𝑛 ∪ 𝑠)) → ∃𝑑 ∈ (𝒫 𝑐 ∩ Fin)𝑋 = ∪ 𝑑)
80	59, 77, 79	syl2anc 595	. . . . . . . . 9 ⊢ ((((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) ∧ ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) ∧ (𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠))) → ∃𝑑 ∈ (𝒫 𝑐 ∩ Fin)𝑋 = ∪ 𝑑)
81	80	exp32 425	. . . . . . . 8 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → ((𝑛 ∈ (𝒫 𝑐 ∩ Fin) ∧ 𝑠 ∈ (𝒫 𝑐 ∩ Fin)) → ((𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠) → ∃𝑑 ∈ (𝒫 𝑐 ∩ Fin)𝑋 = ∪ 𝑑)))
82	81	rexlimdvv 3219	. . . . . . 7 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → (∃𝑛 ∈ (𝒫 𝑐 ∩ Fin)∃𝑠 ∈ (𝒫 𝑐 ∩ Fin)(𝑆 ⊆ ∪ 𝑛 ∧ 𝑇 ⊆ ∪ 𝑠) → ∃𝑑 ∈ (𝒫 𝑐 ∩ Fin)𝑋 = ∪ 𝑑))
83	39, 82	biimtrrid 246	. . . . . 6 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → ((∃𝑛 ∈ (𝒫 𝑐 ∩ Fin)𝑆 ⊆ ∪ 𝑛 ∧ ∃𝑠 ∈ (𝒫 𝑐 ∩ Fin)𝑇 ⊆ ∪ 𝑠) → ∃𝑑 ∈ (𝒫 𝑐 ∩ Fin)𝑋 = ∪ 𝑑))
84	21, 38, 83	syl2and 619	. . . . 5 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ (𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐)) → (((𝐽 ↾t 𝑆) ∈ Comp ∧ (𝐽 ↾t 𝑇) ∈ Comp) → ∃𝑑 ∈ (𝒫 𝑐 ∩ Fin)𝑋 = ∪ 𝑑))
85	84	impancom 456	. . . 4 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ ((𝐽 ↾t 𝑆) ∈ Comp ∧ (𝐽 ↾t 𝑇) ∈ Comp)) → ((𝑐 ∈ 𝒫 𝐽 ∧ 𝑋 = ∪ 𝑐) → ∃𝑑 ∈ (𝒫 𝑐 ∩ Fin)𝑋 = ∪ 𝑑))
86	85	expd 420	. . 3 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ ((𝐽 ↾t 𝑆) ∈ Comp ∧ (𝐽 ↾t 𝑇) ∈ Comp)) → (𝑐 ∈ 𝒫 𝐽 → (𝑋 = ∪ 𝑐 → ∃𝑑 ∈ (𝒫 𝑐 ∩ Fin)𝑋 = ∪ 𝑑)))
87	86	ralrimiv 3154	. 2 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ ((𝐽 ↾t 𝑆) ∈ Comp ∧ (𝐽 ↾t 𝑇) ∈ Comp)) → ∀𝑐 ∈ 𝒫 𝐽(𝑋 = ∪ 𝑐 → ∃𝑑 ∈ (𝒫 𝑐 ∩ Fin)𝑋 = ∪ 𝑑))
88	7	iscmp 23524	. 2 ⊢ (𝐽 ∈ Comp ↔ (𝐽 ∈ Top ∧ ∀𝑐 ∈ 𝒫 𝐽(𝑋 = ∪ 𝑐 → ∃𝑑 ∈ (𝒫 𝑐 ∩ Fin)𝑋 = ∪ 𝑑)))
89	1, 87, 88	sylanbrc 594	1 ⊢ (((𝐽 ∈ Top ∧ 𝑋 = (𝑆 ∪ 𝑇)) ∧ ((𝐽 ↾t 𝑆) ∈ Comp ∧ (𝐽 ↾t 𝑇) ∈ Comp)) → 𝐽 ∈ Comp)

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1568   ∈ wcel 2141  ∀wral 3077  ∃wrex 3087   ∪ cun 3902   ∩ cin 3903   ⊆ wss 3904  𝒫 cpw 4561  ∪ cuni 4871  (class class class)co 7410  Fincfn 8942   ↾_t crest 17472  Topctop 23029  Compccmp 23522

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5237  ax-sep 5256  ax-nul 5268  ax-pow 5336  ax-pr 5404  ax-un 7732

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2095  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3078  df-rex 3088  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-op 4595  df-uni 4872  df-int 4912  df-iun 4957  df-br 5109  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-ov 7413  df-oprab 7414  df-mpo 7415  df-om 7862  df-1st 7985  df-2nd 7986  df-1o 8452  df-en 8943  df-dom 8944  df-fin 8946  df-fi 9370  df-rest 17474  df-topgen 17495  df-top 23030  df-topon 23047  df-bases 23082  df-cmp 23523

This theorem is referenced by:  fiuncmp  23540