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 35677
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 35727. (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 470 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝐾 ∈ AtLat)
2 elin 3992 . . . . . . . 8 (𝑦 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋))
3 elpwi 4358 . . . . . . . . 9 (𝑦 ∈ 𝒫 𝑋𝑦𝑋)
43adantl 469 . . . . . . . 8 ((𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋) → 𝑦𝑋)
52, 4sylbi 208 . . . . . . 7 (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → 𝑦𝑋)
6 simpll 774 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → 𝐾 ∈ AtLat)
7 sstr 3803 . . . . . . . . . . . 12 ((𝑦𝑋𝑋𝐴) → 𝑦𝐴)
87ancoms 448 . . . . . . . . . . 11 ((𝑋𝐴𝑦𝑋) → 𝑦𝐴)
98adantll 696 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → 𝑦𝐴)
10 pclfin.a . . . . . . . . . . 11 𝐴 = (Atoms‘𝐾)
11 eqid 2805 . . . . . . . . . . 11 (PSubSp‘𝐾) = (PSubSp‘𝐾)
12 pclfin.c . . . . . . . . . . 11 𝑈 = (PCl‘𝐾)
1310, 11, 12pclclN 35668 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑦𝐴) → (𝑈𝑦) ∈ (PSubSp‘𝐾))
146, 9, 13syl2anc 575 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → (𝑈𝑦) ∈ (PSubSp‘𝐾))
1510, 11psubssat 35531 . . . . . . . . 9 ((𝐾 ∈ AtLat ∧ (𝑈𝑦) ∈ (PSubSp‘𝐾)) → (𝑈𝑦) ⊆ 𝐴)
166, 14, 15syl2anc 575 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → (𝑈𝑦) ⊆ 𝐴)
1716ex 399 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑦𝑋 → (𝑈𝑦) ⊆ 𝐴))
185, 17syl5 34 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → (𝑈𝑦) ⊆ 𝐴))
1918ralrimiv 3152 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ∀𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴)
20 iunss 4749 . . . . 5 ( 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴 ↔ ∀𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴)
2119, 20sylibr 225 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴)
22 eliun 4712 . . . . . . . . 9 (𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑦))
23 fveq2 6405 . . . . . . . . . . 11 (𝑦 = 𝑤 → (𝑈𝑦) = (𝑈𝑤))
2423eleq2d 2870 . . . . . . . . . 10 (𝑦 = 𝑤 → (𝑝 ∈ (𝑈𝑦) ↔ 𝑝 ∈ (𝑈𝑤)))
2524cbvrexv 3360 . . . . . . . . 9 (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑦) ↔ ∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑤))
2622, 25bitri 266 . . . . . . . 8 (𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑤))
27 eliun 4712 . . . . . . . . 9 (𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑦))
28 fveq2 6405 . . . . . . . . . . 11 (𝑦 = 𝑣 → (𝑈𝑦) = (𝑈𝑣))
2928eleq2d 2870 . . . . . . . . . 10 (𝑦 = 𝑣 → (𝑞 ∈ (𝑈𝑦) ↔ 𝑞 ∈ (𝑈𝑣)))
3029cbvrexv 3360 . . . . . . . . 9 (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑦) ↔ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣))
3127, 30bitri 266 . . . . . . . 8 (𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣))
3226, 31anbi12i 614 . . . . . . 7 ((𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∧ 𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)) ↔ (∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑤) ∧ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣)))
33 elin 3992 . . . . . . . . . . 11 (𝑤 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑤 ∈ Fin ∧ 𝑤 ∈ 𝒫 𝑋))
34 elpwi 4358 . . . . . . . . . . . 12 (𝑤 ∈ 𝒫 𝑋𝑤𝑋)
3534anim2i 605 . . . . . . . . . . 11 ((𝑤 ∈ Fin ∧ 𝑤 ∈ 𝒫 𝑋) → (𝑤 ∈ Fin ∧ 𝑤𝑋))
3633, 35sylbi 208 . . . . . . . . . 10 (𝑤 ∈ (Fin ∩ 𝒫 𝑋) → (𝑤 ∈ Fin ∧ 𝑤𝑋))
37 elin 3992 . . . . . . . . . . . . . 14 (𝑣 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋))
38 elpwi 4358 . . . . . . . . . . . . . . 15 (𝑣 ∈ 𝒫 𝑋𝑣𝑋)
3938anim2i 605 . . . . . . . . . . . . . 14 ((𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋) → (𝑣 ∈ Fin ∧ 𝑣𝑋))
4037, 39sylbi 208 . . . . . . . . . . . . 13 (𝑣 ∈ (Fin ∩ 𝒫 𝑋) → (𝑣 ∈ Fin ∧ 𝑣𝑋))
41 simp2rl 1316 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ∈ Fin)
42 simp12l 1378 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ∈ Fin)
43 unfi 8463 . . . . . . . . . . . . . . . . . . . 20 ((𝑤 ∈ Fin ∧ 𝑣 ∈ Fin) → (𝑤𝑣) ∈ Fin)
4441, 42, 43syl2anc 575 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤𝑣) ∈ Fin)
45 simp2rr 1317 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤𝑋)
46 simp12r 1379 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣𝑋)
4745, 46unssd 3985 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤𝑣) ⊆ 𝑋)
48 vex 3393 . . . . . . . . . . . . . . . . . . . . . 22 𝑤 ∈ V
49 vex 3393 . . . . . . . . . . . . . . . . . . . . . 22 𝑣 ∈ V
5048, 49unex 7183 . . . . . . . . . . . . . . . . . . . . 21 (𝑤𝑣) ∈ V
5150elpw 4354 . . . . . . . . . . . . . . . . . . . 20 ((𝑤𝑣) ∈ 𝒫 𝑋 ↔ (𝑤𝑣) ⊆ 𝑋)
5247, 51sylibr 225 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤𝑣) ∈ 𝒫 𝑋)
5344, 52elind 3994 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤𝑣) ∈ (Fin ∩ 𝒫 𝑋))
54 simp11l 1376 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝐾 ∈ AtLat)
55 simp11r 1377 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑋𝐴)
5645, 55sstrd 3805 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤𝐴)
5746, 55sstrd 3805 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣𝐴)
5856, 57unssd 3985 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤𝑣) ⊆ 𝐴)
5910, 11, 12pclclN 35668 . . . . . . . . . . . . . . . . . . . 20 ((𝐾 ∈ AtLat ∧ (𝑤𝑣) ⊆ 𝐴) → (𝑈‘(𝑤𝑣)) ∈ (PSubSp‘𝐾))
6054, 58, 59syl2anc 575 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈‘(𝑤𝑣)) ∈ (PSubSp‘𝐾))
61 simp3l 1251 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟𝐴)
62 ssun1 3972 . . . . . . . . . . . . . . . . . . . . . 22 𝑤 ⊆ (𝑤𝑣)
6362a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ⊆ (𝑤𝑣))
6410, 12pclssN 35671 . . . . . . . . . . . . . . . . . . . . 21 ((𝐾 ∈ AtLat ∧ 𝑤 ⊆ (𝑤𝑣) ∧ (𝑤𝑣) ⊆ 𝐴) → (𝑈𝑤) ⊆ (𝑈‘(𝑤𝑣)))
6554, 63, 58, 64syl3anc 1483 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈𝑤) ⊆ (𝑈‘(𝑤𝑣)))
66 simp2l 1249 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑝 ∈ (𝑈𝑤))
6765, 66sseldd 3796 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑝 ∈ (𝑈‘(𝑤𝑣)))
68 ssun2 3973 . . . . . . . . . . . . . . . . . . . . . 22 𝑣 ⊆ (𝑤𝑣)
6968a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ⊆ (𝑤𝑣))
7010, 12pclssN 35671 . . . . . . . . . . . . . . . . . . . . 21 ((𝐾 ∈ AtLat ∧ 𝑣 ⊆ (𝑤𝑣) ∧ (𝑤𝑣) ⊆ 𝐴) → (𝑈𝑣) ⊆ (𝑈‘(𝑤𝑣)))
7154, 69, 58, 70syl3anc 1483 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈𝑣) ⊆ (𝑈‘(𝑤𝑣)))
72 simp13 1255 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑞 ∈ (𝑈𝑣))
7371, 72sseldd 3796 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑞 ∈ (𝑈‘(𝑤𝑣)))
74 simp3r 1252 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))
75 eqid 2805 . . . . . . . . . . . . . . . . . . . 20 (le‘𝐾) = (le‘𝐾)
76 eqid 2805 . . . . . . . . . . . . . . . . . . . 20 (join‘𝐾) = (join‘𝐾)
7775, 76, 10, 11psubspi2N 35525 . . . . . . . . . . . . . . . . . . 19 (((𝐾 ∈ AtLat ∧ (𝑈‘(𝑤𝑣)) ∈ (PSubSp‘𝐾) ∧ 𝑟𝐴) ∧ (𝑝 ∈ (𝑈‘(𝑤𝑣)) ∧ 𝑞 ∈ (𝑈‘(𝑤𝑣)) ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ (𝑈‘(𝑤𝑣)))
7854, 60, 61, 67, 73, 74, 77syl33anc 1497 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ (𝑈‘(𝑤𝑣)))
79 fveq2 6405 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (𝑤𝑣) → (𝑈𝑦) = (𝑈‘(𝑤𝑣)))
8079eleq2d 2870 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (𝑤𝑣) → (𝑟 ∈ (𝑈𝑦) ↔ 𝑟 ∈ (𝑈‘(𝑤𝑣))))
8180rspcev 3501 . . . . . . . . . . . . . . . . . 18 (((𝑤𝑣) ∈ (Fin ∩ 𝒫 𝑋) ∧ 𝑟 ∈ (𝑈‘(𝑤𝑣))) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈𝑦))
8253, 78, 81syl2anc 575 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈𝑦))
83 eliun 4712 . . . . . . . . . . . . . . . . 17 (𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈𝑦))
8482, 83sylibr 225 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))
85843exp 1141 . . . . . . . . . . . . . . 15 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) → ((𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) → ((𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞)) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))
8685exp5c 433 . . . . . . . . . . . . . 14 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) → (𝑝 ∈ (𝑈𝑤) → ((𝑤 ∈ Fin ∧ 𝑤𝑋) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))))
87863exp 1141 . . . . . . . . . . . . 13 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ((𝑣 ∈ Fin ∧ 𝑣𝑋) → (𝑞 ∈ (𝑈𝑣) → (𝑝 ∈ (𝑈𝑤) → ((𝑤 ∈ Fin ∧ 𝑤𝑋) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))))))
8840, 87syl5 34 . . . . . . . . . . . 12 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑣 ∈ (Fin ∩ 𝒫 𝑋) → (𝑞 ∈ (𝑈𝑣) → (𝑝 ∈ (𝑈𝑤) → ((𝑤 ∈ Fin ∧ 𝑤𝑋) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))))))
8988rexlimdv 3217 . . . . . . . . . . 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 3217 . . . . . . . 8 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑤) → (∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))))
9392impd 398 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ((∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑤) ∧ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣)) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))
9432, 93syl5bi 233 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ((𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∧ 𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))
9594ralrimdv 3155 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ((𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∧ 𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)) → ∀𝑟𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))
9695ralrimivv 3157 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ∀𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑟𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))
9775, 76, 10, 11ispsubsp 35522 . . . . 5 (𝐾 ∈ AtLat → ( 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∈ (PSubSp‘𝐾) ↔ ( 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴 ∧ ∀𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑟𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))
9897adantr 468 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ( 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∈ (PSubSp‘𝐾) ↔ ( 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴 ∧ ∀𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑟𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))
9921, 96, 98mpbir2and 695 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∈ (PSubSp‘𝐾))
100 snfi 8274 . . . . . . . . 9 {𝑤} ∈ Fin
101100a1i 11 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → {𝑤} ∈ Fin)
102 snelpwi 5099 . . . . . . . . 9 (𝑤𝑋 → {𝑤} ∈ 𝒫 𝑋)
103102adantl 469 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → {𝑤} ∈ 𝒫 𝑋)
104101, 103elind 3994 . . . . . . 7 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → {𝑤} ∈ (Fin ∩ 𝒫 𝑋))
105 vsnid 4400 . . . . . . . 8 𝑤 ∈ {𝑤}
106 simpll 774 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → 𝐾 ∈ AtLat)
107 ssel2 3790 . . . . . . . . . . 11 ((𝑋𝐴𝑤𝑋) → 𝑤𝐴)
108107adantll 696 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → 𝑤𝐴)
10910, 11snatpsubN 35527 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑤𝐴) → {𝑤} ∈ (PSubSp‘𝐾))
110106, 108, 109syl2anc 575 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → {𝑤} ∈ (PSubSp‘𝐾))
11111, 12pclidN 35673 . . . . . . . . 9 ((𝐾 ∈ AtLat ∧ {𝑤} ∈ (PSubSp‘𝐾)) → (𝑈‘{𝑤}) = {𝑤})
112106, 110, 111syl2anc 575 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → (𝑈‘{𝑤}) = {𝑤})
113105, 112syl5eleqr 2891 . . . . . . 7 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → 𝑤 ∈ (𝑈‘{𝑤}))
114 fveq2 6405 . . . . . . . . 9 (𝑦 = {𝑤} → (𝑈𝑦) = (𝑈‘{𝑤}))
115114eleq2d 2870 . . . . . . . 8 (𝑦 = {𝑤} → (𝑤 ∈ (𝑈𝑦) ↔ 𝑤 ∈ (𝑈‘{𝑤})))
116115rspcev 3501 . . . . . . 7 (({𝑤} ∈ (Fin ∩ 𝒫 𝑋) ∧ 𝑤 ∈ (𝑈‘{𝑤})) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈𝑦))
117104, 113, 116syl2anc 575 . . . . . 6 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈𝑦))
118117ex 399 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑤𝑋 → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈𝑦)))
119 eliun 4712 . . . . 5 (𝑤 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈𝑦))
120118, 119syl6ibr 243 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑤𝑋𝑤 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))
121120ssrdv 3801 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝑋 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))
122 simpr 473 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → 𝑦𝑋)
123 simplr 776 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → 𝑋𝐴)
12410, 12pclssN 35671 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑦𝑋𝑋𝐴) → (𝑈𝑦) ⊆ (𝑈𝑋))
1256, 122, 123, 124syl3anc 1483 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → (𝑈𝑦) ⊆ (𝑈𝑋))
126125sseld 3794 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → (𝑤 ∈ (𝑈𝑦) → 𝑤 ∈ (𝑈𝑋)))
127126ex 399 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑦𝑋 → (𝑤 ∈ (𝑈𝑦) → 𝑤 ∈ (𝑈𝑋))))
1285, 127syl5 34 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → (𝑤 ∈ (𝑈𝑦) → 𝑤 ∈ (𝑈𝑋))))
129128rexlimdv 3217 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈𝑦) → 𝑤 ∈ (𝑈𝑋)))
130119, 129syl5bi 233 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑤 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) → 𝑤 ∈ (𝑈𝑋)))
131130ssrdv 3801 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ (𝑈𝑋))
13211, 12pclbtwnN 35674 . . 3 (((𝐾 ∈ AtLat ∧ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∈ (PSubSp‘𝐾)) ∧ (𝑋 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∧ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ (𝑈𝑋))) → 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) = (𝑈𝑋))
1331, 99, 121, 131, 132syl22anc 858 . 2 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) = (𝑈𝑋))
134133eqcomd 2811 1 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑈𝑋) = 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 197  wa 384  w3a 1100   = wceq 1637  wcel 2158  wral 3095  wrex 3096  cun 3764  cin 3765  wss 3766  𝒫 cpw 4348  {csn 4367   ciun 4708   class class class wbr 4840  cfv 6098  (class class class)co 6871  Fincfn 8189  lecple 16156  joincjn 17145  Atomscatm 35040  AtLatcal 35041  PSubSpcpsubsp 35273  PClcpclN 35664
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1880  ax-4 1897  ax-5 2004  ax-6 2070  ax-7 2106  ax-8 2160  ax-9 2167  ax-10 2187  ax-11 2203  ax-12 2216  ax-13 2422  ax-ext 2784  ax-rep 4960  ax-sep 4971  ax-nul 4980  ax-pow 5032  ax-pr 5093  ax-un 7176
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 866  df-3or 1101  df-3an 1102  df-tru 1641  df-ex 1860  df-nf 1865  df-sb 2063  df-eu 2636  df-mo 2637  df-clab 2792  df-cleq 2798  df-clel 2801  df-nfc 2936  df-ne 2978  df-ral 3100  df-rex 3101  df-reu 3102  df-rab 3104  df-v 3392  df-sbc 3631  df-csb 3726  df-dif 3769  df-un 3771  df-in 3773  df-ss 3780  df-pss 3782  df-nul 4114  df-if 4277  df-pw 4350  df-sn 4368  df-pr 4370  df-tp 4372  df-op 4374  df-uni 4627  df-int 4666  df-iun 4710  df-br 4841  df-opab 4903  df-mpt 4920  df-tr 4943  df-id 5216  df-eprel 5221  df-po 5229  df-so 5230  df-fr 5267  df-we 5269  df-xp 5314  df-rel 5315  df-cnv 5316  df-co 5317  df-dm 5318  df-rn 5319  df-res 5320  df-ima 5321  df-pred 5890  df-ord 5936  df-on 5937  df-lim 5938  df-suc 5939  df-iota 6061  df-fun 6100  df-fn 6101  df-f 6102  df-f1 6103  df-fo 6104  df-f1o 6105  df-fv 6106  df-riota 6832  df-ov 6874  df-oprab 6875  df-mpt2 6876  df-om 7293  df-wrecs 7639  df-recs 7701  df-rdg 7739  df-1o 7793  df-oadd 7797  df-er 7976  df-en 8190  df-fin 8193  df-proset 17129  df-poset 17147  df-plt 17159  df-lub 17175  df-glb 17176  df-join 17177  df-meet 17178  df-p0 17240  df-lat 17247  df-covers 35043  df-ats 35044  df-atl 35075  df-psubsp 35280  df-pclN 35665
This theorem is referenced by:  pclcmpatN  35678
  Copyright terms: Public domain W3C validator