Theorem pclfinN 36514

Description: The projective subspace closure of a set equals the union of the closures of its finite subsets. Analogous to Lemma 3.3.6 of [PtakPulmannova] p. 72. Compare the closed subspace version pclfinclN 36564. (Contributed by NM, 10-Sep-2013.) (New usage is discouraged.)

Hypotheses

Ref	Expression
pclfin.a	⊢ 𝐴 = (Atoms‘𝐾)
pclfin.c	⊢ 𝑈 = (PCl‘𝐾)

Assertion

Ref	Expression
pclfinN	⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑈‘𝑋) = ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))

Distinct variable groups:   𝑦,𝐴   𝑦,𝑈   𝑦,𝐾   𝑦,𝑋

Proof of Theorem pclfinN

Dummy variables 𝑞 𝑝 𝑟 𝑣 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 475	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → 𝐾 ∈ AtLat)
2		elin 4052	. . . . . . . 8 ⊢ (𝑦 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋))
3		elpwi 4427	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝒫 𝑋 → 𝑦 ⊆ 𝑋)
4	3	adantl 474	. . . . . . . 8 ⊢ ((𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋) → 𝑦 ⊆ 𝑋)
5	2, 4	sylbi 209	. . . . . . 7 ⊢ (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → 𝑦 ⊆ 𝑋)
6		simpll 755	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → 𝐾 ∈ AtLat)
7		sstr 3861	. . . . . . . . . . . 12 ⊢ ((𝑦 ⊆ 𝑋 ∧ 𝑋 ⊆ 𝐴) → 𝑦 ⊆ 𝐴)
8	7	ancoms 451	. . . . . . . . . . 11 ⊢ ((𝑋 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝑋) → 𝑦 ⊆ 𝐴)
9	8	adantll 702	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → 𝑦 ⊆ 𝐴)
10		pclfin.a	. . . . . . . . . . 11 ⊢ 𝐴 = (Atoms‘𝐾)
11		eqid 2773	. . . . . . . . . . 11 ⊢ (PSubSp‘𝐾) = (PSubSp‘𝐾)
12		pclfin.c	. . . . . . . . . . 11 ⊢ 𝑈 = (PCl‘𝐾)
13	10, 11, 12	pclclN 36505	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑦 ⊆ 𝐴) → (𝑈‘𝑦) ∈ (PSubSp‘𝐾))
14	6, 9, 13	syl2anc 576	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → (𝑈‘𝑦) ∈ (PSubSp‘𝐾))
15	10, 11	psubssat 36368	. . . . . . . . 9 ⊢ ((𝐾 ∈ AtLat ∧ (𝑈‘𝑦) ∈ (PSubSp‘𝐾)) → (𝑈‘𝑦) ⊆ 𝐴)
16	6, 14, 15	syl2anc 576	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → (𝑈‘𝑦) ⊆ 𝐴)
17	16	ex 405	. . . . . . 7 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑦 ⊆ 𝑋 → (𝑈‘𝑦) ⊆ 𝐴))
18	5, 17	syl5 34	. . . . . 6 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → (𝑈‘𝑦) ⊆ 𝐴))
19	18	ralrimiv 3126	. . . . 5 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∀𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴)
20		iunss 4832	. . . . 5 ⊢ (∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴 ↔ ∀𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴)
21	19, 20	sylibr 226	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴)
22		eliun 4793	. . . . . . . . 9 ⊢ (𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑦))
23		fveq2 6497	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑤 → (𝑈‘𝑦) = (𝑈‘𝑤))
24	23	eleq2d 2846	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → (𝑝 ∈ (𝑈‘𝑦) ↔ 𝑝 ∈ (𝑈‘𝑤)))
25	24	cbvrexv 3379	. . . . . . . . 9 ⊢ (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑦) ↔ ∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑤))
26	22, 25	bitri 267	. . . . . . . 8 ⊢ (𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑤))
27		eliun 4793	. . . . . . . . 9 ⊢ (𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑦))
28		fveq2 6497	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑣 → (𝑈‘𝑦) = (𝑈‘𝑣))
29	28	eleq2d 2846	. . . . . . . . . 10 ⊢ (𝑦 = 𝑣 → (𝑞 ∈ (𝑈‘𝑦) ↔ 𝑞 ∈ (𝑈‘𝑣)))
30	29	cbvrexv 3379	. . . . . . . . 9 ⊢ (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑦) ↔ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣))
31	27, 30	bitri 267	. . . . . . . 8 ⊢ (𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣))
32	26, 31	anbi12i 618	. . . . . . 7 ⊢ ((𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∧ 𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)) ↔ (∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑤) ∧ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣)))
33		elin 4052	. . . . . . . . . . 11 ⊢ (𝑤 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑤 ∈ Fin ∧ 𝑤 ∈ 𝒫 𝑋))
34		elpwi 4427	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ 𝒫 𝑋 → 𝑤 ⊆ 𝑋)
35	34	anim2i 608	. . . . . . . . . . 11 ⊢ ((𝑤 ∈ Fin ∧ 𝑤 ∈ 𝒫 𝑋) → (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋))
36	33, 35	sylbi 209	. . . . . . . . . 10 ⊢ (𝑤 ∈ (Fin ∩ 𝒫 𝑋) → (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋))
37		elin 4052	. . . . . . . . . . . . . 14 ⊢ (𝑣 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋))
38		elpwi 4427	. . . . . . . . . . . . . . 15 ⊢ (𝑣 ∈ 𝒫 𝑋 → 𝑣 ⊆ 𝑋)
39	38	anim2i 608	. . . . . . . . . . . . . 14 ⊢ ((𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋) → (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋))
40	37, 39	sylbi 209	. . . . . . . . . . . . 13 ⊢ (𝑣 ∈ (Fin ∩ 𝒫 𝑋) → (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋))
41		simp2rl 1223	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ∈ Fin)
42		simp12l 1267	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ∈ Fin)
43		unfi 8579	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑤 ∈ Fin ∧ 𝑣 ∈ Fin) → (𝑤 ∪ 𝑣) ∈ Fin)
44	41, 42, 43	syl2anc 576	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤 ∪ 𝑣) ∈ Fin)
45		simp2rr 1224	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ⊆ 𝑋)
46		simp12r 1268	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ⊆ 𝑋)
47	45, 46	unssd 4045	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤 ∪ 𝑣) ⊆ 𝑋)
48		vex 3413	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝑤 ∈ V
49		vex 3413	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝑣 ∈ V
50	48, 49	unex 7285	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑤 ∪ 𝑣) ∈ V
51	50	elpw 4423	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑤 ∪ 𝑣) ∈ 𝒫 𝑋 ↔ (𝑤 ∪ 𝑣) ⊆ 𝑋)
52	47, 51	sylibr 226	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤 ∪ 𝑣) ∈ 𝒫 𝑋)
53	44, 52	elind 4054	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤 ∪ 𝑣) ∈ (Fin ∩ 𝒫 𝑋))
54		simp11l 1265	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝐾 ∈ AtLat)
55		simp11r 1266	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑋 ⊆ 𝐴)
56	45, 55	sstrd 3863	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ⊆ 𝐴)
57	46, 55	sstrd 3863	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ⊆ 𝐴)
58	56, 57	unssd 4045	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤 ∪ 𝑣) ⊆ 𝐴)
59	10, 11, 12	pclclN 36505	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐾 ∈ AtLat ∧ (𝑤 ∪ 𝑣) ⊆ 𝐴) → (𝑈‘(𝑤 ∪ 𝑣)) ∈ (PSubSp‘𝐾))
60	54, 58, 59	syl2anc 576	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈‘(𝑤 ∪ 𝑣)) ∈ (PSubSp‘𝐾))
61		simp3l 1182	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ 𝐴)
62		ssun1 4032	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝑤 ⊆ (𝑤 ∪ 𝑣)
63	62	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ⊆ (𝑤 ∪ 𝑣))
64	10, 12	pclssN 36508	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐾 ∈ AtLat ∧ 𝑤 ⊆ (𝑤 ∪ 𝑣) ∧ (𝑤 ∪ 𝑣) ⊆ 𝐴) → (𝑈‘𝑤) ⊆ (𝑈‘(𝑤 ∪ 𝑣)))
65	54, 63, 58, 64	syl3anc 1352	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈‘𝑤) ⊆ (𝑈‘(𝑤 ∪ 𝑣)))
66		simp2l 1180	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑝 ∈ (𝑈‘𝑤))
67	65, 66	sseldd 3854	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑝 ∈ (𝑈‘(𝑤 ∪ 𝑣)))
68		ssun2 4033	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝑣 ⊆ (𝑤 ∪ 𝑣)
69	68	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ⊆ (𝑤 ∪ 𝑣))
70	10, 12	pclssN 36508	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐾 ∈ AtLat ∧ 𝑣 ⊆ (𝑤 ∪ 𝑣) ∧ (𝑤 ∪ 𝑣) ⊆ 𝐴) → (𝑈‘𝑣) ⊆ (𝑈‘(𝑤 ∪ 𝑣)))
71	54, 69, 58, 70	syl3anc 1352	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈‘𝑣) ⊆ (𝑈‘(𝑤 ∪ 𝑣)))
72		simp13 1186	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑞 ∈ (𝑈‘𝑣))
73	71, 72	sseldd 3854	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑞 ∈ (𝑈‘(𝑤 ∪ 𝑣)))
74		simp3r 1183	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))
75		eqid 2773	. . . . . . . . . . . . . . . . . . . 20 ⊢ (le‘𝐾) = (le‘𝐾)
76		eqid 2773	. . . . . . . . . . . . . . . . . . . 20 ⊢ (join‘𝐾) = (join‘𝐾)
77	75, 76, 10, 11	psubspi2N 36362	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐾 ∈ AtLat ∧ (𝑈‘(𝑤 ∪ 𝑣)) ∈ (PSubSp‘𝐾) ∧ 𝑟 ∈ 𝐴) ∧ (𝑝 ∈ (𝑈‘(𝑤 ∪ 𝑣)) ∧ 𝑞 ∈ (𝑈‘(𝑤 ∪ 𝑣)) ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ (𝑈‘(𝑤 ∪ 𝑣)))
78	54, 60, 61, 67, 73, 74, 77	syl33anc 1366	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ (𝑈‘(𝑤 ∪ 𝑣)))
79		fveq2 6497	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = (𝑤 ∪ 𝑣) → (𝑈‘𝑦) = (𝑈‘(𝑤 ∪ 𝑣)))
80	79	eleq2d 2846	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = (𝑤 ∪ 𝑣) → (𝑟 ∈ (𝑈‘𝑦) ↔ 𝑟 ∈ (𝑈‘(𝑤 ∪ 𝑣))))
81	80	rspcev 3530	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑤 ∪ 𝑣) ∈ (Fin ∩ 𝒫 𝑋) ∧ 𝑟 ∈ (𝑈‘(𝑤 ∪ 𝑣))) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈‘𝑦))
82	53, 78, 81	syl2anc 576	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈‘𝑦))
83		eliun 4793	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈‘𝑦))
84	82, 83	sylibr 226	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))
85	84	3exp 1100	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) → ((𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) → ((𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞)) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))
86	85	exp5c 437	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) → (𝑝 ∈ (𝑈‘𝑤) → ((𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))))
87	86	3exp 1100	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ((𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) → (𝑞 ∈ (𝑈‘𝑣) → (𝑝 ∈ (𝑈‘𝑤) → ((𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))))))
88	40, 87	syl5 34	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑣 ∈ (Fin ∩ 𝒫 𝑋) → (𝑞 ∈ (𝑈‘𝑣) → (𝑝 ∈ (𝑈‘𝑤) → ((𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))))))
89	88	rexlimdv 3223	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣) → (𝑝 ∈ (𝑈‘𝑤) → ((𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))))
90	89	com24 95	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ((𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋) → (𝑝 ∈ (𝑈‘𝑤) → (∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))))
91	36, 90	syl5 34	. . . . . . . . 9 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑤 ∈ (Fin ∩ 𝒫 𝑋) → (𝑝 ∈ (𝑈‘𝑤) → (∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))))
92	91	rexlimdv 3223	. . . . . . . 8 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑤) → (∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))))
93	92	impd 402	. . . . . . 7 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ((∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑤) ∧ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣)) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))
94	32, 93	syl5bi 234	. . . . . 6 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ((𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∧ 𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))
95	94	ralrimdv 3133	. . . . 5 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ((𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∧ 𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)) → ∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))
96	95	ralrimivv 3135	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∀𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))
97	75, 76, 10, 11	ispsubsp 36359	. . . . 5 ⊢ (𝐾 ∈ AtLat → (∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∈ (PSubSp‘𝐾) ↔ (∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴 ∧ ∀𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))
98	97	adantr 473	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∈ (PSubSp‘𝐾) ↔ (∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴 ∧ ∀𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))
99	21, 96, 98	mpbir2and 701	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∈ (PSubSp‘𝐾))
100		snfi 8390	. . . . . . . . 9 ⊢ {𝑤} ∈ Fin
101	100	a1i 11	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → {𝑤} ∈ Fin)
102		snelpwi 5190	. . . . . . . . 9 ⊢ (𝑤 ∈ 𝑋 → {𝑤} ∈ 𝒫 𝑋)
103	102	adantl 474	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → {𝑤} ∈ 𝒫 𝑋)
104	101, 103	elind 4054	. . . . . . 7 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → {𝑤} ∈ (Fin ∩ 𝒫 𝑋))
105		vsnid 4471	. . . . . . . 8 ⊢ 𝑤 ∈ {𝑤}
106		simpll 755	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → 𝐾 ∈ AtLat)
107		ssel2 3848	. . . . . . . . . . 11 ⊢ ((𝑋 ⊆ 𝐴 ∧ 𝑤 ∈ 𝑋) → 𝑤 ∈ 𝐴)
108	107	adantll 702	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → 𝑤 ∈ 𝐴)
109	10, 11	snatpsubN 36364	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑤 ∈ 𝐴) → {𝑤} ∈ (PSubSp‘𝐾))
110	106, 108, 109	syl2anc 576	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → {𝑤} ∈ (PSubSp‘𝐾))
111	11, 12	pclidN 36510	. . . . . . . . 9 ⊢ ((𝐾 ∈ AtLat ∧ {𝑤} ∈ (PSubSp‘𝐾)) → (𝑈‘{𝑤}) = {𝑤})
112	106, 110, 111	syl2anc 576	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → (𝑈‘{𝑤}) = {𝑤})
113	105, 112	syl5eleqr 2868	. . . . . . 7 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → 𝑤 ∈ (𝑈‘{𝑤}))
114		fveq2 6497	. . . . . . . . 9 ⊢ (𝑦 = {𝑤} → (𝑈‘𝑦) = (𝑈‘{𝑤}))
115	114	eleq2d 2846	. . . . . . . 8 ⊢ (𝑦 = {𝑤} → (𝑤 ∈ (𝑈‘𝑦) ↔ 𝑤 ∈ (𝑈‘{𝑤})))
116	115	rspcev 3530	. . . . . . 7 ⊢ (({𝑤} ∈ (Fin ∩ 𝒫 𝑋) ∧ 𝑤 ∈ (𝑈‘{𝑤})) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈‘𝑦))
117	104, 113, 116	syl2anc 576	. . . . . 6 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈‘𝑦))
118	117	ex 405	. . . . 5 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑤 ∈ 𝑋 → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈‘𝑦)))
119		eliun 4793	. . . . 5 ⊢ (𝑤 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈‘𝑦))
120	118, 119	syl6ibr 244	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑤 ∈ 𝑋 → 𝑤 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))
121	120	ssrdv 3859	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → 𝑋 ⊆ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))
122		simpr 477	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → 𝑦 ⊆ 𝑋)
123		simplr 757	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → 𝑋 ⊆ 𝐴)
124	10, 12	pclssN 36508	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑦 ⊆ 𝑋 ∧ 𝑋 ⊆ 𝐴) → (𝑈‘𝑦) ⊆ (𝑈‘𝑋))
125	6, 122, 123, 124	syl3anc 1352	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → (𝑈‘𝑦) ⊆ (𝑈‘𝑋))
126	125	sseld 3852	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → (𝑤 ∈ (𝑈‘𝑦) → 𝑤 ∈ (𝑈‘𝑋)))
127	126	ex 405	. . . . . . 7 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑦 ⊆ 𝑋 → (𝑤 ∈ (𝑈‘𝑦) → 𝑤 ∈ (𝑈‘𝑋))))
128	5, 127	syl5 34	. . . . . 6 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → (𝑤 ∈ (𝑈‘𝑦) → 𝑤 ∈ (𝑈‘𝑋))))
129	128	rexlimdv 3223	. . . . 5 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈‘𝑦) → 𝑤 ∈ (𝑈‘𝑋)))
130	119, 129	syl5bi 234	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑤 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) → 𝑤 ∈ (𝑈‘𝑋)))
131	130	ssrdv 3859	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ (𝑈‘𝑋))
132	11, 12	pclbtwnN 36511	. . 3 ⊢ (((𝐾 ∈ AtLat ∧ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∈ (PSubSp‘𝐾)) ∧ (𝑋 ⊆ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∧ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ (𝑈‘𝑋))) → ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) = (𝑈‘𝑋))
133	1, 99, 121, 131, 132	syl22anc 827	. 2 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) = (𝑈‘𝑋))
134	133	eqcomd 2779	1 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑈‘𝑋) = ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))

Syntax hints:   → wi 4   ↔ wb 198   ∧ wa 387   ∧ w3a 1069   = wceq 1508   ∈ wcel 2051  ∀wral 3083  ∃wrex 3084   ∪ cun 3822   ∩ cin 3823   ⊆ wss 3824  𝒫 cpw 4417  {csn 4436  ∪ ciun 4789   class class class wbr 4926  ‘cfv 6186  (class class class)co 6975  Fincfn 8305  lecple 16427  joincjn 17425  Atomscatm 35877  AtLatcal 35878  PSubSpcpsubsp 36110  PClcpclN 36501

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1759  ax-4 1773  ax-5 1870  ax-6 1929  ax-7 1966  ax-8 2053  ax-9 2060  ax-10 2080  ax-11 2094  ax-12 2107  ax-13 2302  ax-ext 2745  ax-rep 5046  ax-sep 5057  ax-nul 5064  ax-pow 5116  ax-pr 5183  ax-un 7278

This theorem depends on definitions:  df-bi 199  df-an 388  df-or 835  df-3or 1070  df-3an 1071  df-tru 1511  df-ex 1744  df-nf 1748  df-sb 2017  df-mo 2548  df-eu 2585  df-clab 2754  df-cleq 2766  df-clel 2841  df-nfc 2913  df-ne 2963  df-ral 3088  df-rex 3089  df-reu 3090  df-rab 3092  df-v 3412  df-sbc 3677  df-csb 3782  df-dif 3827  df-un 3829  df-in 3831  df-ss 3838  df-pss 3840  df-nul 4174  df-if 4346  df-pw 4419  df-sn 4437  df-pr 4439  df-tp 4441  df-op 4443  df-uni 4710  df-int 4747  df-iun 4791  df-br 4927  df-opab 4989  df-mpt 5006  df-tr 5028  df-id 5309  df-eprel 5314  df-po 5323  df-so 5324  df-fr 5363  df-we 5365  df-xp 5410  df-rel 5411  df-cnv 5412  df-co 5413  df-dm 5414  df-rn 5415  df-res 5416  df-ima 5417  df-pred 5984  df-ord 6030  df-on 6031  df-lim 6032  df-suc 6033  df-iota 6150  df-fun 6188  df-fn 6189  df-f 6190  df-f1 6191  df-fo 6192  df-f1o 6193  df-fv 6194  df-riota 6936  df-ov 6978  df-oprab 6979  df-mpo 6980  df-om 7396  df-wrecs 7749  df-recs 7811  df-rdg 7849  df-1o 7904  df-oadd 7908  df-er 8088  df-en 8306  df-fin 8309  df-proset 17409  df-poset 17427  df-plt 17439  df-lub 17455  df-glb 17456  df-join 17457  df-meet 17458  df-p0 17520  df-lat 17527  df-covers 35880  df-ats 35881  df-atl 35912  df-psubsp 36117  df-pclN 36502

This theorem is referenced by:  pclcmpatN  36515