Theorem pclfinN 40360

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 40410. (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 482	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → 𝐾 ∈ AtLat)
2		elin 3906	. . . . . . . 8 ⊢ (𝑦 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋))
3		elpwi 4549	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝒫 𝑋 → 𝑦 ⊆ 𝑋)
4	3	adantl 481	. . . . . . . 8 ⊢ ((𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋) → 𝑦 ⊆ 𝑋)
5	2, 4	sylbi 217	. . . . . . 7 ⊢ (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → 𝑦 ⊆ 𝑋)
6		simpll 767	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → 𝐾 ∈ AtLat)
7		sstr 3931	. . . . . . . . . . . 12 ⊢ ((𝑦 ⊆ 𝑋 ∧ 𝑋 ⊆ 𝐴) → 𝑦 ⊆ 𝐴)
8	7	ancoms 458	. . . . . . . . . . 11 ⊢ ((𝑋 ⊆ 𝐴 ∧ 𝑦 ⊆ 𝑋) → 𝑦 ⊆ 𝐴)
9	8	adantll 715	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → 𝑦 ⊆ 𝐴)
10		pclfin.a	. . . . . . . . . . 11 ⊢ 𝐴 = (Atoms‘𝐾)
11		eqid 2737	. . . . . . . . . . 11 ⊢ (PSubSp‘𝐾) = (PSubSp‘𝐾)
12		pclfin.c	. . . . . . . . . . 11 ⊢ 𝑈 = (PCl‘𝐾)
13	10, 11, 12	pclclN 40351	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑦 ⊆ 𝐴) → (𝑈‘𝑦) ∈ (PSubSp‘𝐾))
14	6, 9, 13	syl2anc 585	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → (𝑈‘𝑦) ∈ (PSubSp‘𝐾))
15	10, 11	psubssat 40214	. . . . . . . . 9 ⊢ ((𝐾 ∈ AtLat ∧ (𝑈‘𝑦) ∈ (PSubSp‘𝐾)) → (𝑈‘𝑦) ⊆ 𝐴)
16	6, 14, 15	syl2anc 585	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → (𝑈‘𝑦) ⊆ 𝐴)
17	16	ex 412	. . . . . . 7 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑦 ⊆ 𝑋 → (𝑈‘𝑦) ⊆ 𝐴))
18	5, 17	syl5 34	. . . . . 6 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → (𝑈‘𝑦) ⊆ 𝐴))
19	18	ralrimiv 3129	. . . . 5 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∀𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴)
20		iunss 4988	. . . . 5 ⊢ (∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴 ↔ ∀𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴)
21	19, 20	sylibr 234	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴)
22		eliun 4938	. . . . . . . . 9 ⊢ (𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑦))
23		fveq2 6834	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑤 → (𝑈‘𝑦) = (𝑈‘𝑤))
24	23	eleq2d 2823	. . . . . . . . . 10 ⊢ (𝑦 = 𝑤 → (𝑝 ∈ (𝑈‘𝑦) ↔ 𝑝 ∈ (𝑈‘𝑤)))
25	24	cbvrexvw 3217	. . . . . . . . 9 ⊢ (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑦) ↔ ∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑤))
26	22, 25	bitri 275	. . . . . . . 8 ⊢ (𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑤))
27		eliun 4938	. . . . . . . . 9 ⊢ (𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑦))
28		fveq2 6834	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑣 → (𝑈‘𝑦) = (𝑈‘𝑣))
29	28	eleq2d 2823	. . . . . . . . . 10 ⊢ (𝑦 = 𝑣 → (𝑞 ∈ (𝑈‘𝑦) ↔ 𝑞 ∈ (𝑈‘𝑣)))
30	29	cbvrexvw 3217	. . . . . . . . 9 ⊢ (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑦) ↔ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣))
31	27, 30	bitri 275	. . . . . . . 8 ⊢ (𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣))
32	26, 31	anbi12i 629	. . . . . . 7 ⊢ ((𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∧ 𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)) ↔ (∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑤) ∧ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣)))
33		elin 3906	. . . . . . . . . . 11 ⊢ (𝑤 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑤 ∈ Fin ∧ 𝑤 ∈ 𝒫 𝑋))
34		elpwi 4549	. . . . . . . . . . . 12 ⊢ (𝑤 ∈ 𝒫 𝑋 → 𝑤 ⊆ 𝑋)
35	34	anim2i 618	. . . . . . . . . . 11 ⊢ ((𝑤 ∈ Fin ∧ 𝑤 ∈ 𝒫 𝑋) → (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋))
36	33, 35	sylbi 217	. . . . . . . . . 10 ⊢ (𝑤 ∈ (Fin ∩ 𝒫 𝑋) → (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋))
37		elin 3906	. . . . . . . . . . . . . 14 ⊢ (𝑣 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋))
38		elpwi 4549	. . . . . . . . . . . . . . 15 ⊢ (𝑣 ∈ 𝒫 𝑋 → 𝑣 ⊆ 𝑋)
39	38	anim2i 618	. . . . . . . . . . . . . 14 ⊢ ((𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋) → (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋))
40	37, 39	sylbi 217	. . . . . . . . . . . . 13 ⊢ (𝑣 ∈ (Fin ∩ 𝒫 𝑋) → (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋))
41		simp2rl 1244	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ∈ Fin)
42		simp12l 1288	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ∈ Fin)
43		unfi 9098	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑤 ∈ Fin ∧ 𝑣 ∈ Fin) → (𝑤 ∪ 𝑣) ∈ Fin)
44	41, 42, 43	syl2anc 585	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤 ∪ 𝑣) ∈ Fin)
45		simp2rr 1245	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ⊆ 𝑋)
46		simp12r 1289	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ⊆ 𝑋)
47	45, 46	unssd 4133	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤 ∪ 𝑣) ⊆ 𝑋)
48		vex 3434	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝑤 ∈ V
49		vex 3434	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝑣 ∈ V
50	48, 49	unex 7691	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑤 ∪ 𝑣) ∈ V
51	50	elpw 4546	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑤 ∪ 𝑣) ∈ 𝒫 𝑋 ↔ (𝑤 ∪ 𝑣) ⊆ 𝑋)
52	47, 51	sylibr 234	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤 ∪ 𝑣) ∈ 𝒫 𝑋)
53	44, 52	elind 4141	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤 ∪ 𝑣) ∈ (Fin ∩ 𝒫 𝑋))
54		simp11l 1286	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝐾 ∈ AtLat)
55		simp11r 1287	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑋 ⊆ 𝐴)
56	45, 55	sstrd 3933	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ⊆ 𝐴)
57	46, 55	sstrd 3933	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ⊆ 𝐴)
58	56, 57	unssd 4133	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤 ∪ 𝑣) ⊆ 𝐴)
59	10, 11, 12	pclclN 40351	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐾 ∈ AtLat ∧ (𝑤 ∪ 𝑣) ⊆ 𝐴) → (𝑈‘(𝑤 ∪ 𝑣)) ∈ (PSubSp‘𝐾))
60	54, 58, 59	syl2anc 585	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈‘(𝑤 ∪ 𝑣)) ∈ (PSubSp‘𝐾))
61		simp3l 1203	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ 𝐴)
62		ssun1 4119	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝑤 ⊆ (𝑤 ∪ 𝑣)
63	62	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ⊆ (𝑤 ∪ 𝑣))
64	10, 12	pclssN 40354	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐾 ∈ AtLat ∧ 𝑤 ⊆ (𝑤 ∪ 𝑣) ∧ (𝑤 ∪ 𝑣) ⊆ 𝐴) → (𝑈‘𝑤) ⊆ (𝑈‘(𝑤 ∪ 𝑣)))
65	54, 63, 58, 64	syl3anc 1374	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈‘𝑤) ⊆ (𝑈‘(𝑤 ∪ 𝑣)))
66		simp2l 1201	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑝 ∈ (𝑈‘𝑤))
67	65, 66	sseldd 3923	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑝 ∈ (𝑈‘(𝑤 ∪ 𝑣)))
68		ssun2 4120	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝑣 ⊆ (𝑤 ∪ 𝑣)
69	68	a1i 11	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ⊆ (𝑤 ∪ 𝑣))
70	10, 12	pclssN 40354	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐾 ∈ AtLat ∧ 𝑣 ⊆ (𝑤 ∪ 𝑣) ∧ (𝑤 ∪ 𝑣) ⊆ 𝐴) → (𝑈‘𝑣) ⊆ (𝑈‘(𝑤 ∪ 𝑣)))
71	54, 69, 58, 70	syl3anc 1374	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈‘𝑣) ⊆ (𝑈‘(𝑤 ∪ 𝑣)))
72		simp13 1207	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑞 ∈ (𝑈‘𝑣))
73	71, 72	sseldd 3923	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑞 ∈ (𝑈‘(𝑤 ∪ 𝑣)))
74		simp3r 1204	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))
75		eqid 2737	. . . . . . . . . . . . . . . . . . . 20 ⊢ (le‘𝐾) = (le‘𝐾)
76		eqid 2737	. . . . . . . . . . . . . . . . . . . 20 ⊢ (join‘𝐾) = (join‘𝐾)
77	75, 76, 10, 11	psubspi2N 40208	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐾 ∈ AtLat ∧ (𝑈‘(𝑤 ∪ 𝑣)) ∈ (PSubSp‘𝐾) ∧ 𝑟 ∈ 𝐴) ∧ (𝑝 ∈ (𝑈‘(𝑤 ∪ 𝑣)) ∧ 𝑞 ∈ (𝑈‘(𝑤 ∪ 𝑣)) ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ (𝑈‘(𝑤 ∪ 𝑣)))
78	54, 60, 61, 67, 73, 74, 77	syl33anc 1388	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ (𝑈‘(𝑤 ∪ 𝑣)))
79		fveq2 6834	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 = (𝑤 ∪ 𝑣) → (𝑈‘𝑦) = (𝑈‘(𝑤 ∪ 𝑣)))
80	79	eleq2d 2823	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑦 = (𝑤 ∪ 𝑣) → (𝑟 ∈ (𝑈‘𝑦) ↔ 𝑟 ∈ (𝑈‘(𝑤 ∪ 𝑣))))
81	80	rspcev 3565	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝑤 ∪ 𝑣) ∈ (Fin ∩ 𝒫 𝑋) ∧ 𝑟 ∈ (𝑈‘(𝑤 ∪ 𝑣))) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈‘𝑦))
82	53, 78, 81	syl2anc 585	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈‘𝑦))
83		eliun 4938	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈‘𝑦))
84	82, 83	sylibr 234	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) ∧ (𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) ∧ (𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))
85	84	3exp 1120	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) → ((𝑝 ∈ (𝑈‘𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋)) → ((𝑟 ∈ 𝐴 ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞)) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))
86	85	exp5c 444	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) ∧ 𝑞 ∈ (𝑈‘𝑣)) → (𝑝 ∈ (𝑈‘𝑤) → ((𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))))
87	86	3exp 1120	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ((𝑣 ∈ Fin ∧ 𝑣 ⊆ 𝑋) → (𝑞 ∈ (𝑈‘𝑣) → (𝑝 ∈ (𝑈‘𝑤) → ((𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))))))
88	40, 87	syl5 34	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑣 ∈ (Fin ∩ 𝒫 𝑋) → (𝑞 ∈ (𝑈‘𝑣) → (𝑝 ∈ (𝑈‘𝑤) → ((𝑤 ∈ Fin ∧ 𝑤 ⊆ 𝑋) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))))))
89	88	rexlimdv 3137	. . . . . . . . . . 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 3137	. . . . . . . 8 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑤) → (∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))))
93	92	impd 410	. . . . . . 7 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ((∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈‘𝑤) ∧ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈‘𝑣)) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))
94	32, 93	biimtrid 242	. . . . . 6 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ((𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∧ 𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)) → (𝑟 ∈ 𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))
95	94	ralrimdv 3136	. . . . 5 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ((𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∧ 𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)) → ∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))))
96	95	ralrimivv 3179	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∀𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))
97	75, 76, 10, 11	ispsubsp 40205	. . . . 5 ⊢ (𝐾 ∈ AtLat → (∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∈ (PSubSp‘𝐾) ↔ (∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴 ∧ ∀𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))
98	97	adantr 480	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∈ (PSubSp‘𝐾) ↔ (∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ 𝐴 ∧ ∀𝑝 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑞 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)∀𝑟 ∈ 𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))))
99	21, 96, 98	mpbir2and 714	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∈ (PSubSp‘𝐾))
100		snfi 8983	. . . . . . . . 9 ⊢ {𝑤} ∈ Fin
101	100	a1i 11	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → {𝑤} ∈ Fin)
102		snelpwi 5391	. . . . . . . . 9 ⊢ (𝑤 ∈ 𝑋 → {𝑤} ∈ 𝒫 𝑋)
103	102	adantl 481	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → {𝑤} ∈ 𝒫 𝑋)
104	101, 103	elind 4141	. . . . . . 7 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → {𝑤} ∈ (Fin ∩ 𝒫 𝑋))
105		vsnid 4608	. . . . . . . 8 ⊢ 𝑤 ∈ {𝑤}
106		simpll 767	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → 𝐾 ∈ AtLat)
107		ssel2 3917	. . . . . . . . . . 11 ⊢ ((𝑋 ⊆ 𝐴 ∧ 𝑤 ∈ 𝑋) → 𝑤 ∈ 𝐴)
108	107	adantll 715	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → 𝑤 ∈ 𝐴)
109	10, 11	snatpsubN 40210	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑤 ∈ 𝐴) → {𝑤} ∈ (PSubSp‘𝐾))
110	106, 108, 109	syl2anc 585	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → {𝑤} ∈ (PSubSp‘𝐾))
111	11, 12	pclidN 40356	. . . . . . . . 9 ⊢ ((𝐾 ∈ AtLat ∧ {𝑤} ∈ (PSubSp‘𝐾)) → (𝑈‘{𝑤}) = {𝑤})
112	106, 110, 111	syl2anc 585	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → (𝑈‘{𝑤}) = {𝑤})
113	105, 112	eleqtrrid 2844	. . . . . . 7 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → 𝑤 ∈ (𝑈‘{𝑤}))
114		fveq2 6834	. . . . . . . . 9 ⊢ (𝑦 = {𝑤} → (𝑈‘𝑦) = (𝑈‘{𝑤}))
115	114	eleq2d 2823	. . . . . . . 8 ⊢ (𝑦 = {𝑤} → (𝑤 ∈ (𝑈‘𝑦) ↔ 𝑤 ∈ (𝑈‘{𝑤})))
116	115	rspcev 3565	. . . . . . 7 ⊢ (({𝑤} ∈ (Fin ∩ 𝒫 𝑋) ∧ 𝑤 ∈ (𝑈‘{𝑤})) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈‘𝑦))
117	104, 113, 116	syl2anc 585	. . . . . 6 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑤 ∈ 𝑋) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈‘𝑦))
118	117	ex 412	. . . . 5 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑤 ∈ 𝑋 → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈‘𝑦)))
119		eliun 4938	. . . . 5 ⊢ (𝑤 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈‘𝑦))
120	118, 119	imbitrrdi 252	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑤 ∈ 𝑋 → 𝑤 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦)))
121	120	ssrdv 3928	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → 𝑋 ⊆ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))
122		simpr 484	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → 𝑦 ⊆ 𝑋)
123		simplr 769	. . . . . . . . . 10 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → 𝑋 ⊆ 𝐴)
124	10, 12	pclssN 40354	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑦 ⊆ 𝑋 ∧ 𝑋 ⊆ 𝐴) → (𝑈‘𝑦) ⊆ (𝑈‘𝑋))
125	6, 122, 123, 124	syl3anc 1374	. . . . . . . . 9 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → (𝑈‘𝑦) ⊆ (𝑈‘𝑋))
126	125	sseld 3921	. . . . . . . 8 ⊢ (((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) ∧ 𝑦 ⊆ 𝑋) → (𝑤 ∈ (𝑈‘𝑦) → 𝑤 ∈ (𝑈‘𝑋)))
127	126	ex 412	. . . . . . 7 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑦 ⊆ 𝑋 → (𝑤 ∈ (𝑈‘𝑦) → 𝑤 ∈ (𝑈‘𝑋))))
128	5, 127	syl5 34	. . . . . 6 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → (𝑤 ∈ (𝑈‘𝑦) → 𝑤 ∈ (𝑈‘𝑋))))
129	128	rexlimdv 3137	. . . . 5 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈‘𝑦) → 𝑤 ∈ (𝑈‘𝑋)))
130	119, 129	biimtrid 242	. . . 4 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑤 ∈ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) → 𝑤 ∈ (𝑈‘𝑋)))
131	130	ssrdv 3928	. . 3 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ (𝑈‘𝑋))
132	11, 12	pclbtwnN 40357	. . 3 ⊢ (((𝐾 ∈ AtLat ∧ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∈ (PSubSp‘𝐾)) ∧ (𝑋 ⊆ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ∧ ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) ⊆ (𝑈‘𝑋))) → ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) = (𝑈‘𝑋))
133	1, 99, 121, 131, 132	syl22anc 839	. 2 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦) = (𝑈‘𝑋))
134	133	eqcomd 2743	1 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ⊆ 𝐴) → (𝑈‘𝑋) = ∪ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈‘𝑦))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  ∀wral 3052  ∃wrex 3062   ∪ cun 3888   ∩ cin 3889   ⊆ wss 3890  𝒫 cpw 4542  {csn 4568  ∪ ciun 4934   class class class wbr 5086  ‘cfv 6492  (class class class)co 7360  Fincfn 8886  lecple 17218  joincjn 18268  Atomscatm 39723  AtLatcal 39724  PSubSpcpsubsp 39956  PClcpclN 40347

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 5212  ax-sep 5231  ax-nul 5241  ax-pow 5302  ax-pr 5370  ax-un 7682

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-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5519  df-eprel 5524  df-po 5532  df-so 5533  df-fr 5577  df-we 5579  df-xp 5630  df-rel 5631  df-cnv 5632  df-co 5633  df-dm 5634  df-rn 5635  df-res 5636  df-ima 5637  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-riota 7317  df-ov 7363  df-oprab 7364  df-om 7811  df-1o 8398  df-en 8887  df-fin 8890  df-proset 18251  df-poset 18270  df-plt 18285  df-lub 18301  df-glb 18302  df-join 18303  df-meet 18304  df-p0 18380  df-lat 18389  df-covers 39726  df-ats 39727  df-atl 39758  df-psubsp 39963  df-pclN 40348

This theorem is referenced by:  pclcmpatN  40361