Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  pclfinN Structured version   Visualization version   GIF version

Theorem pclfinN 38366
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 38416. (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.
StepHypRef Expression
1 simpl 484 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ 𝐾 ∈ AtLat)
2 elin 3927 . . . . . . . 8 (𝑦 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋))
3 elpwi 4568 . . . . . . . . 9 (𝑦 ∈ 𝒫 𝑋 β†’ 𝑦 βŠ† 𝑋)
43adantl 483 . . . . . . . 8 ((𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋) β†’ 𝑦 βŠ† 𝑋)
52, 4sylbi 216 . . . . . . 7 (𝑦 ∈ (Fin ∩ 𝒫 𝑋) β†’ 𝑦 βŠ† 𝑋)
6 simpll 766 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ 𝐾 ∈ AtLat)
7 sstr 3953 . . . . . . . . . . . 12 ((𝑦 βŠ† 𝑋 ∧ 𝑋 βŠ† 𝐴) β†’ 𝑦 βŠ† 𝐴)
87ancoms 460 . . . . . . . . . . 11 ((𝑋 βŠ† 𝐴 ∧ 𝑦 βŠ† 𝑋) β†’ 𝑦 βŠ† 𝐴)
98adantll 713 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ 𝑦 βŠ† 𝐴)
10 pclfin.a . . . . . . . . . . 11 𝐴 = (Atomsβ€˜πΎ)
11 eqid 2737 . . . . . . . . . . 11 (PSubSpβ€˜πΎ) = (PSubSpβ€˜πΎ)
12 pclfin.c . . . . . . . . . . 11 π‘ˆ = (PClβ€˜πΎ)
1310, 11, 12pclclN 38357 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑦 βŠ† 𝐴) β†’ (π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ))
146, 9, 13syl2anc 585 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ (π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ))
1510, 11psubssat 38220 . . . . . . . . 9 ((𝐾 ∈ AtLat ∧ (π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ)) β†’ (π‘ˆβ€˜π‘¦) βŠ† 𝐴)
166, 14, 15syl2anc 585 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ (π‘ˆβ€˜π‘¦) βŠ† 𝐴)
1716ex 414 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑦 βŠ† 𝑋 β†’ (π‘ˆβ€˜π‘¦) βŠ† 𝐴))
185, 17syl5 34 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑦 ∈ (Fin ∩ 𝒫 𝑋) β†’ (π‘ˆβ€˜π‘¦) βŠ† 𝐴))
1918ralrimiv 3143 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆ€π‘¦ ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† 𝐴)
20 iunss 5006 . . . . 5 (βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† 𝐴 ↔ βˆ€π‘¦ ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† 𝐴)
2119, 20sylibr 233 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† 𝐴)
22 eliun 4959 . . . . . . . . 9 (𝑝 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘¦))
23 fveq2 6843 . . . . . . . . . . 11 (𝑦 = 𝑀 β†’ (π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜π‘€))
2423eleq2d 2824 . . . . . . . . . 10 (𝑦 = 𝑀 β†’ (𝑝 ∈ (π‘ˆβ€˜π‘¦) ↔ 𝑝 ∈ (π‘ˆβ€˜π‘€)))
2524cbvrexvw 3227 . . . . . . . . 9 (βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘€ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘€))
2622, 25bitri 275 . . . . . . . 8 (𝑝 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘€ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘€))
27 eliun 4959 . . . . . . . . 9 (π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘¦))
28 fveq2 6843 . . . . . . . . . . 11 (𝑦 = 𝑣 β†’ (π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜π‘£))
2928eleq2d 2824 . . . . . . . . . 10 (𝑦 = 𝑣 β†’ (π‘ž ∈ (π‘ˆβ€˜π‘¦) ↔ π‘ž ∈ (π‘ˆβ€˜π‘£)))
3029cbvrexvw 3227 . . . . . . . . 9 (βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£))
3127, 30bitri 275 . . . . . . . 8 (π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£))
3226, 31anbi12i 628 . . . . . . 7 ((𝑝 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∧ π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)) ↔ (βˆƒπ‘€ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£)))
33 elin 3927 . . . . . . . . . . 11 (𝑀 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑀 ∈ Fin ∧ 𝑀 ∈ 𝒫 𝑋))
34 elpwi 4568 . . . . . . . . . . . 12 (𝑀 ∈ 𝒫 𝑋 β†’ 𝑀 βŠ† 𝑋)
3534anim2i 618 . . . . . . . . . . 11 ((𝑀 ∈ Fin ∧ 𝑀 ∈ 𝒫 𝑋) β†’ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋))
3633, 35sylbi 216 . . . . . . . . . 10 (𝑀 ∈ (Fin ∩ 𝒫 𝑋) β†’ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋))
37 elin 3927 . . . . . . . . . . . . . 14 (𝑣 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋))
38 elpwi 4568 . . . . . . . . . . . . . . 15 (𝑣 ∈ 𝒫 𝑋 β†’ 𝑣 βŠ† 𝑋)
3938anim2i 618 . . . . . . . . . . . . . 14 ((𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋) β†’ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋))
4037, 39sylbi 216 . . . . . . . . . . . . 13 (𝑣 ∈ (Fin ∩ 𝒫 𝑋) β†’ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋))
41 simp2rl 1243 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑀 ∈ Fin)
42 simp12l 1287 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑣 ∈ Fin)
43 unfi 9117 . . . . . . . . . . . . . . . . . . . 20 ((𝑀 ∈ Fin ∧ 𝑣 ∈ Fin) β†’ (𝑀 βˆͺ 𝑣) ∈ Fin)
4441, 42, 43syl2anc 585 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (𝑀 βˆͺ 𝑣) ∈ Fin)
45 simp2rr 1244 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑀 βŠ† 𝑋)
46 simp12r 1288 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑣 βŠ† 𝑋)
4745, 46unssd 4147 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (𝑀 βˆͺ 𝑣) βŠ† 𝑋)
48 vex 3450 . . . . . . . . . . . . . . . . . . . . . 22 𝑀 ∈ V
49 vex 3450 . . . . . . . . . . . . . . . . . . . . . 22 𝑣 ∈ V
5048, 49unex 7681 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 βˆͺ 𝑣) ∈ V
5150elpw 4565 . . . . . . . . . . . . . . . . . . . 20 ((𝑀 βˆͺ 𝑣) ∈ 𝒫 𝑋 ↔ (𝑀 βˆͺ 𝑣) βŠ† 𝑋)
5247, 51sylibr 233 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (𝑀 βˆͺ 𝑣) ∈ 𝒫 𝑋)
5344, 52elind 4155 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (𝑀 βˆͺ 𝑣) ∈ (Fin ∩ 𝒫 𝑋))
54 simp11l 1285 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝐾 ∈ AtLat)
55 simp11r 1286 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑋 βŠ† 𝐴)
5645, 55sstrd 3955 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑀 βŠ† 𝐴)
5746, 55sstrd 3955 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑣 βŠ† 𝐴)
5856, 57unssd 4147 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (𝑀 βˆͺ 𝑣) βŠ† 𝐴)
5910, 11, 12pclclN 38357 . . . . . . . . . . . . . . . . . . . 20 ((𝐾 ∈ AtLat ∧ (𝑀 βˆͺ 𝑣) βŠ† 𝐴) β†’ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)) ∈ (PSubSpβ€˜πΎ))
6054, 58, 59syl2anc 585 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)) ∈ (PSubSpβ€˜πΎ))
61 simp3l 1202 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘Ÿ ∈ 𝐴)
62 ssun1 4133 . . . . . . . . . . . . . . . . . . . . . 22 𝑀 βŠ† (𝑀 βˆͺ 𝑣)
6362a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑀 βŠ† (𝑀 βˆͺ 𝑣))
6410, 12pclssN 38360 . . . . . . . . . . . . . . . . . . . . 21 ((𝐾 ∈ AtLat ∧ 𝑀 βŠ† (𝑀 βˆͺ 𝑣) ∧ (𝑀 βˆͺ 𝑣) βŠ† 𝐴) β†’ (π‘ˆβ€˜π‘€) βŠ† (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
6554, 63, 58, 64syl3anc 1372 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (π‘ˆβ€˜π‘€) βŠ† (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
66 simp2l 1200 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑝 ∈ (π‘ˆβ€˜π‘€))
6765, 66sseldd 3946 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑝 ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
68 ssun2 4134 . . . . . . . . . . . . . . . . . . . . . 22 𝑣 βŠ† (𝑀 βˆͺ 𝑣)
6968a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑣 βŠ† (𝑀 βˆͺ 𝑣))
7010, 12pclssN 38360 . . . . . . . . . . . . . . . . . . . . 21 ((𝐾 ∈ AtLat ∧ 𝑣 βŠ† (𝑀 βˆͺ 𝑣) ∧ (𝑀 βˆͺ 𝑣) βŠ† 𝐴) β†’ (π‘ˆβ€˜π‘£) βŠ† (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
7154, 69, 58, 70syl3anc 1372 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (π‘ˆβ€˜π‘£) βŠ† (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
72 simp13 1206 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘ž ∈ (π‘ˆβ€˜π‘£))
7371, 72sseldd 3946 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘ž ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
74 simp3r 1203 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))
75 eqid 2737 . . . . . . . . . . . . . . . . . . . 20 (leβ€˜πΎ) = (leβ€˜πΎ)
76 eqid 2737 . . . . . . . . . . . . . . . . . . . 20 (joinβ€˜πΎ) = (joinβ€˜πΎ)
7775, 76, 10, 11psubspi2N 38214 . . . . . . . . . . . . . . . . . . 19 (((𝐾 ∈ AtLat ∧ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)) ∈ (PSubSpβ€˜πΎ) ∧ π‘Ÿ ∈ 𝐴) ∧ (𝑝 ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)) ∧ π‘ž ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)) ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘Ÿ ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
7854, 60, 61, 67, 73, 74, 77syl33anc 1386 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘Ÿ ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
79 fveq2 6843 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (𝑀 βˆͺ 𝑣) β†’ (π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
8079eleq2d 2824 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (𝑀 βˆͺ 𝑣) β†’ (π‘Ÿ ∈ (π‘ˆβ€˜π‘¦) ↔ π‘Ÿ ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣))))
8180rspcev 3582 . . . . . . . . . . . . . . . . . 18 (((𝑀 βˆͺ 𝑣) ∈ (Fin ∩ 𝒫 𝑋) ∧ π‘Ÿ ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣))) β†’ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)π‘Ÿ ∈ (π‘ˆβ€˜π‘¦))
8253, 78, 81syl2anc 585 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)π‘Ÿ ∈ (π‘ˆβ€˜π‘¦))
83 eliun 4959 . . . . . . . . . . . . . . . . 17 (π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)π‘Ÿ ∈ (π‘ˆβ€˜π‘¦))
8482, 83sylibr 233 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))
85843exp 1120 . . . . . . . . . . . . . . 15 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) β†’ ((𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) β†’ ((π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž)) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))))
8685exp5c 446 . . . . . . . . . . . . . 14 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) β†’ (𝑝 ∈ (π‘ˆβ€˜π‘€) β†’ ((𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋) β†’ (π‘Ÿ ∈ 𝐴 β†’ (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))))))
87863exp 1120 . . . . . . . . . . . . 13 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ ((𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) β†’ (π‘ž ∈ (π‘ˆβ€˜π‘£) β†’ (𝑝 ∈ (π‘ˆβ€˜π‘€) β†’ ((𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋) β†’ (π‘Ÿ ∈ 𝐴 β†’ (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))))))))
8840, 87syl5 34 . . . . . . . . . . . 12 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑣 ∈ (Fin ∩ 𝒫 𝑋) β†’ (π‘ž ∈ (π‘ˆβ€˜π‘£) β†’ (𝑝 ∈ (π‘ˆβ€˜π‘€) β†’ ((𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋) β†’ (π‘Ÿ ∈ 𝐴 β†’ (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))))))))
8988rexlimdv 3151 . . . . . . . . . . 11 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£) β†’ (𝑝 ∈ (π‘ˆβ€˜π‘€) β†’ ((𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋) β†’ (π‘Ÿ ∈ 𝐴 β†’ (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))))))
9089com24 95 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ ((𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋) β†’ (𝑝 ∈ (π‘ˆβ€˜π‘€) β†’ (βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£) β†’ (π‘Ÿ ∈ 𝐴 β†’ (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))))))
9136, 90syl5 34 . . . . . . . . 9 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑀 ∈ (Fin ∩ 𝒫 𝑋) β†’ (𝑝 ∈ (π‘ˆβ€˜π‘€) β†’ (βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£) β†’ (π‘Ÿ ∈ 𝐴 β†’ (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))))))
9291rexlimdv 3151 . . . . . . . 8 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (βˆƒπ‘€ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘€) β†’ (βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£) β†’ (π‘Ÿ ∈ 𝐴 β†’ (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))))))
9392impd 412 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ ((βˆƒπ‘€ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£)) β†’ (π‘Ÿ ∈ 𝐴 β†’ (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))))
9432, 93biimtrid 241 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ ((𝑝 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∧ π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)) β†’ (π‘Ÿ ∈ 𝐴 β†’ (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))))
9594ralrimdv 3150 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ ((𝑝 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∧ π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)) β†’ βˆ€π‘Ÿ ∈ 𝐴 (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))))
9695ralrimivv 3196 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆ€π‘ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)βˆ€π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)βˆ€π‘Ÿ ∈ 𝐴 (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))
9775, 76, 10, 11ispsubsp 38211 . . . . 5 (𝐾 ∈ AtLat β†’ (βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ) ↔ (βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† 𝐴 ∧ βˆ€π‘ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)βˆ€π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)βˆ€π‘Ÿ ∈ 𝐴 (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))))
9897adantr 482 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ) ↔ (βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† 𝐴 ∧ βˆ€π‘ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)βˆ€π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)βˆ€π‘Ÿ ∈ 𝐴 (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))))
9921, 96, 98mpbir2and 712 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ))
100 snfi 8989 . . . . . . . . 9 {𝑀} ∈ Fin
101100a1i 11 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ {𝑀} ∈ Fin)
102 snelpwi 5401 . . . . . . . . 9 (𝑀 ∈ 𝑋 β†’ {𝑀} ∈ 𝒫 𝑋)
103102adantl 483 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ {𝑀} ∈ 𝒫 𝑋)
104101, 103elind 4155 . . . . . . 7 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ {𝑀} ∈ (Fin ∩ 𝒫 𝑋))
105 vsnid 4624 . . . . . . . 8 𝑀 ∈ {𝑀}
106 simpll 766 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ 𝐾 ∈ AtLat)
107 ssel2 3940 . . . . . . . . . . 11 ((𝑋 βŠ† 𝐴 ∧ 𝑀 ∈ 𝑋) β†’ 𝑀 ∈ 𝐴)
108107adantll 713 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ 𝑀 ∈ 𝐴)
10910, 11snatpsubN 38216 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑀 ∈ 𝐴) β†’ {𝑀} ∈ (PSubSpβ€˜πΎ))
110106, 108, 109syl2anc 585 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ {𝑀} ∈ (PSubSpβ€˜πΎ))
11111, 12pclidN 38362 . . . . . . . . 9 ((𝐾 ∈ AtLat ∧ {𝑀} ∈ (PSubSpβ€˜πΎ)) β†’ (π‘ˆβ€˜{𝑀}) = {𝑀})
112106, 110, 111syl2anc 585 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ (π‘ˆβ€˜{𝑀}) = {𝑀})
113105, 112eleqtrrid 2845 . . . . . . 7 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ 𝑀 ∈ (π‘ˆβ€˜{𝑀}))
114 fveq2 6843 . . . . . . . . 9 (𝑦 = {𝑀} β†’ (π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜{𝑀}))
115114eleq2d 2824 . . . . . . . 8 (𝑦 = {𝑀} β†’ (𝑀 ∈ (π‘ˆβ€˜π‘¦) ↔ 𝑀 ∈ (π‘ˆβ€˜{𝑀})))
116115rspcev 3582 . . . . . . 7 (({𝑀} ∈ (Fin ∩ 𝒫 𝑋) ∧ 𝑀 ∈ (π‘ˆβ€˜{𝑀})) β†’ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑀 ∈ (π‘ˆβ€˜π‘¦))
117104, 113, 116syl2anc 585 . . . . . 6 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑀 ∈ (π‘ˆβ€˜π‘¦))
118117ex 414 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑀 ∈ 𝑋 β†’ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑀 ∈ (π‘ˆβ€˜π‘¦)))
119 eliun 4959 . . . . 5 (𝑀 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑀 ∈ (π‘ˆβ€˜π‘¦))
120118, 119syl6ibr 252 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑀 ∈ 𝑋 β†’ 𝑀 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))
121120ssrdv 3951 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ 𝑋 βŠ† βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))
122 simpr 486 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ 𝑦 βŠ† 𝑋)
123 simplr 768 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ 𝑋 βŠ† 𝐴)
12410, 12pclssN 38360 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑦 βŠ† 𝑋 ∧ 𝑋 βŠ† 𝐴) β†’ (π‘ˆβ€˜π‘¦) βŠ† (π‘ˆβ€˜π‘‹))
1256, 122, 123, 124syl3anc 1372 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ (π‘ˆβ€˜π‘¦) βŠ† (π‘ˆβ€˜π‘‹))
126125sseld 3944 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ (𝑀 ∈ (π‘ˆβ€˜π‘¦) β†’ 𝑀 ∈ (π‘ˆβ€˜π‘‹)))
127126ex 414 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑦 βŠ† 𝑋 β†’ (𝑀 ∈ (π‘ˆβ€˜π‘¦) β†’ 𝑀 ∈ (π‘ˆβ€˜π‘‹))))
1285, 127syl5 34 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑦 ∈ (Fin ∩ 𝒫 𝑋) β†’ (𝑀 ∈ (π‘ˆβ€˜π‘¦) β†’ 𝑀 ∈ (π‘ˆβ€˜π‘‹))))
129128rexlimdv 3151 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑀 ∈ (π‘ˆβ€˜π‘¦) β†’ 𝑀 ∈ (π‘ˆβ€˜π‘‹)))
130119, 129biimtrid 241 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑀 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) β†’ 𝑀 ∈ (π‘ˆβ€˜π‘‹)))
131130ssrdv 3951 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† (π‘ˆβ€˜π‘‹))
13211, 12pclbtwnN 38363 . . 3 (((𝐾 ∈ AtLat ∧ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ)) ∧ (𝑋 βŠ† βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∧ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† (π‘ˆβ€˜π‘‹))) β†’ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜π‘‹))
1331, 99, 121, 131, 132syl22anc 838 . 2 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜π‘‹))
134133eqcomd 2743 1 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (π‘ˆβ€˜π‘‹) = βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  βˆ€wral 3065  βˆƒwrex 3074   βˆͺ cun 3909   ∩ cin 3910   βŠ† wss 3911  π’« cpw 4561  {csn 4587  βˆͺ ciun 4955   class class class wbr 5106  β€˜cfv 6497  (class class class)co 7358  Fincfn 8884  lecple 17141  joincjn 18201  Atomscatm 37728  AtLatcal 37729  PSubSpcpsubsp 37962  PClcpclN 38353
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708  ax-rep 5243  ax-sep 5257  ax-nul 5264  ax-pow 5321  ax-pr 5385  ax-un 7673
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-ral 3066  df-rex 3075  df-reu 3355  df-rab 3409  df-v 3448  df-sbc 3741  df-csb 3857  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-pss 3930  df-nul 4284  df-if 4488  df-pw 4563  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4867  df-int 4909  df-iun 4957  df-br 5107  df-opab 5169  df-mpt 5190  df-tr 5224  df-id 5532  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5589  df-we 5591  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6499  df-fn 6500  df-f 6501  df-f1 6502  df-fo 6503  df-f1o 6504  df-fv 6505  df-riota 7314  df-ov 7361  df-oprab 7362  df-om 7804  df-1o 8413  df-en 8885  df-fin 8888  df-proset 18185  df-poset 18203  df-plt 18220  df-lub 18236  df-glb 18237  df-join 18238  df-meet 18239  df-p0 18315  df-lat 18322  df-covers 37731  df-ats 37732  df-atl 37763  df-psubsp 37969  df-pclN 38354
This theorem is referenced by:  pclcmpatN  38367
  Copyright terms: Public domain W3C validator