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 38819
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 38869. (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 3965 . . . . . . . 8 (𝑦 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋))
3 elpwi 4610 . . . . . . . . 9 (𝑦 ∈ 𝒫 𝑋 β†’ 𝑦 βŠ† 𝑋)
43adantl 483 . . . . . . . 8 ((𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋) β†’ 𝑦 βŠ† 𝑋)
52, 4sylbi 216 . . . . . . 7 (𝑦 ∈ (Fin ∩ 𝒫 𝑋) β†’ 𝑦 βŠ† 𝑋)
6 simpll 766 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ 𝐾 ∈ AtLat)
7 sstr 3991 . . . . . . . . . . . 12 ((𝑦 βŠ† 𝑋 ∧ 𝑋 βŠ† 𝐴) β†’ 𝑦 βŠ† 𝐴)
87ancoms 460 . . . . . . . . . . 11 ((𝑋 βŠ† 𝐴 ∧ 𝑦 βŠ† 𝑋) β†’ 𝑦 βŠ† 𝐴)
98adantll 713 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ 𝑦 βŠ† 𝐴)
10 pclfin.a . . . . . . . . . . 11 𝐴 = (Atomsβ€˜πΎ)
11 eqid 2733 . . . . . . . . . . 11 (PSubSpβ€˜πΎ) = (PSubSpβ€˜πΎ)
12 pclfin.c . . . . . . . . . . 11 π‘ˆ = (PClβ€˜πΎ)
1310, 11, 12pclclN 38810 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑦 βŠ† 𝐴) β†’ (π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ))
146, 9, 13syl2anc 585 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ (π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ))
1510, 11psubssat 38673 . . . . . . . . 9 ((𝐾 ∈ AtLat ∧ (π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ)) β†’ (π‘ˆβ€˜π‘¦) βŠ† 𝐴)
166, 14, 15syl2anc 585 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ (π‘ˆβ€˜π‘¦) βŠ† 𝐴)
1716ex 414 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑦 βŠ† 𝑋 β†’ (π‘ˆβ€˜π‘¦) βŠ† 𝐴))
185, 17syl5 34 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑦 ∈ (Fin ∩ 𝒫 𝑋) β†’ (π‘ˆβ€˜π‘¦) βŠ† 𝐴))
1918ralrimiv 3146 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆ€π‘¦ ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† 𝐴)
20 iunss 5049 . . . . 5 (βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† 𝐴 ↔ βˆ€π‘¦ ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† 𝐴)
2119, 20sylibr 233 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† 𝐴)
22 eliun 5002 . . . . . . . . 9 (𝑝 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘¦))
23 fveq2 6892 . . . . . . . . . . 11 (𝑦 = 𝑀 β†’ (π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜π‘€))
2423eleq2d 2820 . . . . . . . . . 10 (𝑦 = 𝑀 β†’ (𝑝 ∈ (π‘ˆβ€˜π‘¦) ↔ 𝑝 ∈ (π‘ˆβ€˜π‘€)))
2524cbvrexvw 3236 . . . . . . . . 9 (βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘€ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘€))
2622, 25bitri 275 . . . . . . . 8 (𝑝 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘€ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘€))
27 eliun 5002 . . . . . . . . 9 (π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘¦))
28 fveq2 6892 . . . . . . . . . . 11 (𝑦 = 𝑣 β†’ (π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜π‘£))
2928eleq2d 2820 . . . . . . . . . 10 (𝑦 = 𝑣 β†’ (π‘ž ∈ (π‘ˆβ€˜π‘¦) ↔ π‘ž ∈ (π‘ˆβ€˜π‘£)))
3029cbvrexvw 3236 . . . . . . . . 9 (βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£))
3127, 30bitri 275 . . . . . . . 8 (π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£))
3226, 31anbi12i 628 . . . . . . 7 ((𝑝 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∧ π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)) ↔ (βˆƒπ‘€ ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ βˆƒπ‘£ ∈ (Fin ∩ 𝒫 𝑋)π‘ž ∈ (π‘ˆβ€˜π‘£)))
33 elin 3965 . . . . . . . . . . 11 (𝑀 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑀 ∈ Fin ∧ 𝑀 ∈ 𝒫 𝑋))
34 elpwi 4610 . . . . . . . . . . . 12 (𝑀 ∈ 𝒫 𝑋 β†’ 𝑀 βŠ† 𝑋)
3534anim2i 618 . . . . . . . . . . 11 ((𝑀 ∈ Fin ∧ 𝑀 ∈ 𝒫 𝑋) β†’ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋))
3633, 35sylbi 216 . . . . . . . . . 10 (𝑀 ∈ (Fin ∩ 𝒫 𝑋) β†’ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋))
37 elin 3965 . . . . . . . . . . . . . 14 (𝑣 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋))
38 elpwi 4610 . . . . . . . . . . . . . . 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 9172 . . . . . . . . . . . . . . . . . . . 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 4187 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (𝑀 βˆͺ 𝑣) βŠ† 𝑋)
48 vex 3479 . . . . . . . . . . . . . . . . . . . . . 22 𝑀 ∈ V
49 vex 3479 . . . . . . . . . . . . . . . . . . . . . 22 𝑣 ∈ V
5048, 49unex 7733 . . . . . . . . . . . . . . . . . . . . 21 (𝑀 βˆͺ 𝑣) ∈ V
5150elpw 4607 . . . . . . . . . . . . . . . . . . . 20 ((𝑀 βˆͺ 𝑣) ∈ 𝒫 𝑋 ↔ (𝑀 βˆͺ 𝑣) βŠ† 𝑋)
5247, 51sylibr 233 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (𝑀 βˆͺ 𝑣) ∈ 𝒫 𝑋)
5344, 52elind 4195 . . . . . . . . . . . . . . . . . 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 3993 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑀 βŠ† 𝐴)
5746, 55sstrd 3993 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑣 βŠ† 𝐴)
5856, 57unssd 4187 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (𝑀 βˆͺ 𝑣) βŠ† 𝐴)
5910, 11, 12pclclN 38810 . . . . . . . . . . . . . . . . . . . 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 4173 . . . . . . . . . . . . . . . . . . . . . 22 𝑀 βŠ† (𝑀 βˆͺ 𝑣)
6362a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑀 βŠ† (𝑀 βˆͺ 𝑣))
6410, 12pclssN 38813 . . . . . . . . . . . . . . . . . . . . 21 ((𝐾 ∈ AtLat ∧ 𝑀 βŠ† (𝑀 βˆͺ 𝑣) ∧ (𝑀 βˆͺ 𝑣) βŠ† 𝐴) β†’ (π‘ˆβ€˜π‘€) βŠ† (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
6554, 63, 58, 64syl3anc 1372 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (π‘ˆβ€˜π‘€) βŠ† (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
66 simp2l 1200 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑝 ∈ (π‘ˆβ€˜π‘€))
6765, 66sseldd 3984 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑝 ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
68 ssun2 4174 . . . . . . . . . . . . . . . . . . . . . 22 𝑣 βŠ† (𝑀 βˆͺ 𝑣)
6968a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ 𝑣 βŠ† (𝑀 βˆͺ 𝑣))
7010, 12pclssN 38813 . . . . . . . . . . . . . . . . . . . . 21 ((𝐾 ∈ AtLat ∧ 𝑣 βŠ† (𝑀 βˆͺ 𝑣) ∧ (𝑀 βˆͺ 𝑣) βŠ† 𝐴) β†’ (π‘ˆβ€˜π‘£) βŠ† (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
7154, 69, 58, 70syl3anc 1372 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ (π‘ˆβ€˜π‘£) βŠ† (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
72 simp13 1206 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘ž ∈ (π‘ˆβ€˜π‘£))
7371, 72sseldd 3984 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘ž ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
74 simp3r 1203 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))
75 eqid 2733 . . . . . . . . . . . . . . . . . . . 20 (leβ€˜πΎ) = (leβ€˜πΎ)
76 eqid 2733 . . . . . . . . . . . . . . . . . . . 20 (joinβ€˜πΎ) = (joinβ€˜πΎ)
7775, 76, 10, 11psubspi2N 38667 . . . . . . . . . . . . . . . . . . 19 (((𝐾 ∈ AtLat ∧ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)) ∈ (PSubSpβ€˜πΎ) ∧ π‘Ÿ ∈ 𝐴) ∧ (𝑝 ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)) ∧ π‘ž ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)) ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘Ÿ ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
7854, 60, 61, 67, 73, 74, 77syl33anc 1386 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ π‘Ÿ ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
79 fveq2 6892 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (𝑀 βˆͺ 𝑣) β†’ (π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜(𝑀 βˆͺ 𝑣)))
8079eleq2d 2820 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (𝑀 βˆͺ 𝑣) β†’ (π‘Ÿ ∈ (π‘ˆβ€˜π‘¦) ↔ π‘Ÿ ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣))))
8180rspcev 3613 . . . . . . . . . . . . . . . . . 18 (((𝑀 βˆͺ 𝑣) ∈ (Fin ∩ 𝒫 𝑋) ∧ π‘Ÿ ∈ (π‘ˆβ€˜(𝑀 βˆͺ 𝑣))) β†’ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)π‘Ÿ ∈ (π‘ˆβ€˜π‘¦))
8253, 78, 81syl2anc 585 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣 βŠ† 𝑋) ∧ π‘ž ∈ (π‘ˆβ€˜π‘£)) ∧ (𝑝 ∈ (π‘ˆβ€˜π‘€) ∧ (𝑀 ∈ Fin ∧ 𝑀 βŠ† 𝑋)) ∧ (π‘Ÿ ∈ 𝐴 ∧ π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž))) β†’ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)π‘Ÿ ∈ (π‘ˆβ€˜π‘¦))
83 eliun 5002 . . . . . . . . . . . . . . . . 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 3154 . . . . . . . . . . 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 3154 . . . . . . . 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 3153 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ ((𝑝 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∧ π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)) β†’ βˆ€π‘Ÿ ∈ 𝐴 (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))))
9695ralrimivv 3199 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆ€π‘ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)βˆ€π‘ž ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)βˆ€π‘Ÿ ∈ 𝐴 (π‘Ÿ(leβ€˜πΎ)(𝑝(joinβ€˜πΎ)π‘ž) β†’ π‘Ÿ ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))
9775, 76, 10, 11ispsubsp 38664 . . . . 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 9044 . . . . . . . . 9 {𝑀} ∈ Fin
101100a1i 11 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ {𝑀} ∈ Fin)
102 snelpwi 5444 . . . . . . . . 9 (𝑀 ∈ 𝑋 β†’ {𝑀} ∈ 𝒫 𝑋)
103102adantl 483 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ {𝑀} ∈ 𝒫 𝑋)
104101, 103elind 4195 . . . . . . 7 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ {𝑀} ∈ (Fin ∩ 𝒫 𝑋))
105 vsnid 4666 . . . . . . . 8 𝑀 ∈ {𝑀}
106 simpll 766 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ 𝐾 ∈ AtLat)
107 ssel2 3978 . . . . . . . . . . 11 ((𝑋 βŠ† 𝐴 ∧ 𝑀 ∈ 𝑋) β†’ 𝑀 ∈ 𝐴)
108107adantll 713 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ 𝑀 ∈ 𝐴)
10910, 11snatpsubN 38669 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑀 ∈ 𝐴) β†’ {𝑀} ∈ (PSubSpβ€˜πΎ))
110106, 108, 109syl2anc 585 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ {𝑀} ∈ (PSubSpβ€˜πΎ))
11111, 12pclidN 38815 . . . . . . . . 9 ((𝐾 ∈ AtLat ∧ {𝑀} ∈ (PSubSpβ€˜πΎ)) β†’ (π‘ˆβ€˜{𝑀}) = {𝑀})
112106, 110, 111syl2anc 585 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ (π‘ˆβ€˜{𝑀}) = {𝑀})
113105, 112eleqtrrid 2841 . . . . . . 7 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ 𝑀 ∈ (π‘ˆβ€˜{𝑀}))
114 fveq2 6892 . . . . . . . . 9 (𝑦 = {𝑀} β†’ (π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜{𝑀}))
115114eleq2d 2820 . . . . . . . 8 (𝑦 = {𝑀} β†’ (𝑀 ∈ (π‘ˆβ€˜π‘¦) ↔ 𝑀 ∈ (π‘ˆβ€˜{𝑀})))
116115rspcev 3613 . . . . . . 7 (({𝑀} ∈ (Fin ∩ 𝒫 𝑋) ∧ 𝑀 ∈ (π‘ˆβ€˜{𝑀})) β†’ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑀 ∈ (π‘ˆβ€˜π‘¦))
117104, 113, 116syl2anc 585 . . . . . 6 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑀 ∈ 𝑋) β†’ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑀 ∈ (π‘ˆβ€˜π‘¦))
118117ex 414 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑀 ∈ 𝑋 β†’ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑀 ∈ (π‘ˆβ€˜π‘¦)))
119 eliun 5002 . . . . 5 (𝑀 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ↔ βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑀 ∈ (π‘ˆβ€˜π‘¦))
120118, 119syl6ibr 252 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑀 ∈ 𝑋 β†’ 𝑀 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦)))
121120ssrdv 3989 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ 𝑋 βŠ† βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))
122 simpr 486 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ 𝑦 βŠ† 𝑋)
123 simplr 768 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ 𝑋 βŠ† 𝐴)
12410, 12pclssN 38813 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑦 βŠ† 𝑋 ∧ 𝑋 βŠ† 𝐴) β†’ (π‘ˆβ€˜π‘¦) βŠ† (π‘ˆβ€˜π‘‹))
1256, 122, 123, 124syl3anc 1372 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ (π‘ˆβ€˜π‘¦) βŠ† (π‘ˆβ€˜π‘‹))
126125sseld 3982 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) ∧ 𝑦 βŠ† 𝑋) β†’ (𝑀 ∈ (π‘ˆβ€˜π‘¦) β†’ 𝑀 ∈ (π‘ˆβ€˜π‘‹)))
127126ex 414 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑦 βŠ† 𝑋 β†’ (𝑀 ∈ (π‘ˆβ€˜π‘¦) β†’ 𝑀 ∈ (π‘ˆβ€˜π‘‹))))
1285, 127syl5 34 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑦 ∈ (Fin ∩ 𝒫 𝑋) β†’ (𝑀 ∈ (π‘ˆβ€˜π‘¦) β†’ 𝑀 ∈ (π‘ˆβ€˜π‘‹))))
129128rexlimdv 3154 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (βˆƒπ‘¦ ∈ (Fin ∩ 𝒫 𝑋)𝑀 ∈ (π‘ˆβ€˜π‘¦) β†’ 𝑀 ∈ (π‘ˆβ€˜π‘‹)))
130119, 129biimtrid 241 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (𝑀 ∈ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) β†’ 𝑀 ∈ (π‘ˆβ€˜π‘‹)))
131130ssrdv 3989 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† (π‘ˆβ€˜π‘‹))
13211, 12pclbtwnN 38816 . . 3 (((𝐾 ∈ AtLat ∧ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∈ (PSubSpβ€˜πΎ)) ∧ (𝑋 βŠ† βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) ∧ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) βŠ† (π‘ˆβ€˜π‘‹))) β†’ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜π‘‹))
1331, 99, 121, 131, 132syl22anc 838 . 2 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦) = (π‘ˆβ€˜π‘‹))
134133eqcomd 2739 1 ((𝐾 ∈ AtLat ∧ 𝑋 βŠ† 𝐴) β†’ (π‘ˆβ€˜π‘‹) = βˆͺ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(π‘ˆβ€˜π‘¦))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  βˆ€wral 3062  βˆƒwrex 3071   βˆͺ cun 3947   ∩ cin 3948   βŠ† wss 3949  π’« cpw 4603  {csn 4629  βˆͺ ciun 4998   class class class wbr 5149  β€˜cfv 6544  (class class class)co 7409  Fincfn 8939  lecple 17204  joincjn 18264  Atomscatm 38181  AtLatcal 38182  PSubSpcpsubsp 38415  PClcpclN 38806
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 2704  ax-rep 5286  ax-sep 5300  ax-nul 5307  ax-pow 5364  ax-pr 5428  ax-un 7725
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 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3779  df-csb 3895  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-pss 3968  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4910  df-int 4952  df-iun 5000  df-br 5150  df-opab 5212  df-mpt 5233  df-tr 5267  df-id 5575  df-eprel 5581  df-po 5589  df-so 5590  df-fr 5632  df-we 5634  df-xp 5683  df-rel 5684  df-cnv 5685  df-co 5686  df-dm 5687  df-rn 5688  df-res 5689  df-ima 5690  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6496  df-fun 6546  df-fn 6547  df-f 6548  df-f1 6549  df-fo 6550  df-f1o 6551  df-fv 6552  df-riota 7365  df-ov 7412  df-oprab 7413  df-om 7856  df-1o 8466  df-en 8940  df-fin 8943  df-proset 18248  df-poset 18266  df-plt 18283  df-lub 18299  df-glb 18300  df-join 18301  df-meet 18302  df-p0 18378  df-lat 18385  df-covers 38184  df-ats 38185  df-atl 38216  df-psubsp 38422  df-pclN 38807
This theorem is referenced by:  pclcmpatN  38820
  Copyright terms: Public domain W3C validator