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 33998
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 34048. (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 472 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝐾 ∈ AtLat)
2 elin 3758 . . . . . . . 8 (𝑦 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋))
3 elpwi 4117 . . . . . . . . 9 (𝑦 ∈ 𝒫 𝑋𝑦𝑋)
43adantl 481 . . . . . . . 8 ((𝑦 ∈ Fin ∧ 𝑦 ∈ 𝒫 𝑋) → 𝑦𝑋)
52, 4sylbi 206 . . . . . . 7 (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → 𝑦𝑋)
6 simpll 786 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → 𝐾 ∈ AtLat)
7 sstr 3576 . . . . . . . . . . . 12 ((𝑦𝑋𝑋𝐴) → 𝑦𝐴)
87ancoms 468 . . . . . . . . . . 11 ((𝑋𝐴𝑦𝑋) → 𝑦𝐴)
98adantll 746 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → 𝑦𝐴)
10 pclfin.a . . . . . . . . . . 11 𝐴 = (Atoms‘𝐾)
11 eqid 2610 . . . . . . . . . . 11 (PSubSp‘𝐾) = (PSubSp‘𝐾)
12 pclfin.c . . . . . . . . . . 11 𝑈 = (PCl‘𝐾)
1310, 11, 12pclclN 33989 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑦𝐴) → (𝑈𝑦) ∈ (PSubSp‘𝐾))
146, 9, 13syl2anc 691 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → (𝑈𝑦) ∈ (PSubSp‘𝐾))
1510, 11psubssat 33852 . . . . . . . . 9 ((𝐾 ∈ AtLat ∧ (𝑈𝑦) ∈ (PSubSp‘𝐾)) → (𝑈𝑦) ⊆ 𝐴)
166, 14, 15syl2anc 691 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → (𝑈𝑦) ⊆ 𝐴)
1716ex 449 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑦𝑋 → (𝑈𝑦) ⊆ 𝐴))
185, 17syl5 33 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → (𝑈𝑦) ⊆ 𝐴))
1918ralrimiv 2948 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ∀𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴)
20 iunss 4492 . . . . 5 ( 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴 ↔ ∀𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴)
2119, 20sylibr 223 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴)
22 eliun 4455 . . . . . . . . 9 (𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑦))
23 fveq2 6088 . . . . . . . . . . 11 (𝑦 = 𝑤 → (𝑈𝑦) = (𝑈𝑤))
2423eleq2d 2673 . . . . . . . . . 10 (𝑦 = 𝑤 → (𝑝 ∈ (𝑈𝑦) ↔ 𝑝 ∈ (𝑈𝑤)))
2524cbvrexv 3148 . . . . . . . . 9 (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑦) ↔ ∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑤))
2622, 25bitri 263 . . . . . . . 8 (𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑤))
27 eliun 4455 . . . . . . . . 9 (𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑦))
28 fveq2 6088 . . . . . . . . . . 11 (𝑦 = 𝑣 → (𝑈𝑦) = (𝑈𝑣))
2928eleq2d 2673 . . . . . . . . . 10 (𝑦 = 𝑣 → (𝑞 ∈ (𝑈𝑦) ↔ 𝑞 ∈ (𝑈𝑣)))
3029cbvrexv 3148 . . . . . . . . 9 (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑦) ↔ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣))
3127, 30bitri 263 . . . . . . . 8 (𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣))
3226, 31anbi12i 729 . . . . . . 7 ((𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∧ 𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)) ↔ (∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑤) ∧ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣)))
33 elin 3758 . . . . . . . . . . 11 (𝑤 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑤 ∈ Fin ∧ 𝑤 ∈ 𝒫 𝑋))
34 elpwi 4117 . . . . . . . . . . . 12 (𝑤 ∈ 𝒫 𝑋𝑤𝑋)
3534anim2i 591 . . . . . . . . . . 11 ((𝑤 ∈ Fin ∧ 𝑤 ∈ 𝒫 𝑋) → (𝑤 ∈ Fin ∧ 𝑤𝑋))
3633, 35sylbi 206 . . . . . . . . . 10 (𝑤 ∈ (Fin ∩ 𝒫 𝑋) → (𝑤 ∈ Fin ∧ 𝑤𝑋))
37 elin 3758 . . . . . . . . . . . . . 14 (𝑣 ∈ (Fin ∩ 𝒫 𝑋) ↔ (𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋))
38 elpwi 4117 . . . . . . . . . . . . . . 15 (𝑣 ∈ 𝒫 𝑋𝑣𝑋)
3938anim2i 591 . . . . . . . . . . . . . 14 ((𝑣 ∈ Fin ∧ 𝑣 ∈ 𝒫 𝑋) → (𝑣 ∈ Fin ∧ 𝑣𝑋))
4037, 39sylbi 206 . . . . . . . . . . . . 13 (𝑣 ∈ (Fin ∩ 𝒫 𝑋) → (𝑣 ∈ Fin ∧ 𝑣𝑋))
41 simp2rl 1123 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ∈ Fin)
42 simp12l 1167 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ∈ Fin)
43 unfi 8090 . . . . . . . . . . . . . . . . . . . 20 ((𝑤 ∈ Fin ∧ 𝑣 ∈ Fin) → (𝑤𝑣) ∈ Fin)
4441, 42, 43syl2anc 691 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤𝑣) ∈ Fin)
45 simp2rr 1124 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤𝑋)
46 simp12r 1168 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣𝑋)
4745, 46unssd 3751 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤𝑣) ⊆ 𝑋)
48 vex 3176 . . . . . . . . . . . . . . . . . . . . . 22 𝑤 ∈ V
49 vex 3176 . . . . . . . . . . . . . . . . . . . . . 22 𝑣 ∈ V
5048, 49unex 6832 . . . . . . . . . . . . . . . . . . . . 21 (𝑤𝑣) ∈ V
5150elpw 4114 . . . . . . . . . . . . . . . . . . . 20 ((𝑤𝑣) ∈ 𝒫 𝑋 ↔ (𝑤𝑣) ⊆ 𝑋)
5247, 51sylibr 223 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤𝑣) ∈ 𝒫 𝑋)
5344, 52elind 3760 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤𝑣) ∈ (Fin ∩ 𝒫 𝑋))
54 simp11l 1165 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝐾 ∈ AtLat)
55 simp11r 1166 . . . . . . . . . . . . . . . . . . . . . 22 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑋𝐴)
5645, 55sstrd 3578 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤𝐴)
5746, 55sstrd 3578 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣𝐴)
5856, 57unssd 3751 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑤𝑣) ⊆ 𝐴)
5910, 11, 12pclclN 33989 . . . . . . . . . . . . . . . . . . . 20 ((𝐾 ∈ AtLat ∧ (𝑤𝑣) ⊆ 𝐴) → (𝑈‘(𝑤𝑣)) ∈ (PSubSp‘𝐾))
6054, 58, 59syl2anc 691 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈‘(𝑤𝑣)) ∈ (PSubSp‘𝐾))
61 simp3l 1082 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟𝐴)
62 ssun1 3738 . . . . . . . . . . . . . . . . . . . . . 22 𝑤 ⊆ (𝑤𝑣)
6362a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑤 ⊆ (𝑤𝑣))
6410, 12pclssN 33992 . . . . . . . . . . . . . . . . . . . . 21 ((𝐾 ∈ AtLat ∧ 𝑤 ⊆ (𝑤𝑣) ∧ (𝑤𝑣) ⊆ 𝐴) → (𝑈𝑤) ⊆ (𝑈‘(𝑤𝑣)))
6554, 63, 58, 64syl3anc 1318 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈𝑤) ⊆ (𝑈‘(𝑤𝑣)))
66 simp2l 1080 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑝 ∈ (𝑈𝑤))
6765, 66sseldd 3569 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑝 ∈ (𝑈‘(𝑤𝑣)))
68 ssun2 3739 . . . . . . . . . . . . . . . . . . . . . 22 𝑣 ⊆ (𝑤𝑣)
6968a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑣 ⊆ (𝑤𝑣))
7010, 12pclssN 33992 . . . . . . . . . . . . . . . . . . . . 21 ((𝐾 ∈ AtLat ∧ 𝑣 ⊆ (𝑤𝑣) ∧ (𝑤𝑣) ⊆ 𝐴) → (𝑈𝑣) ⊆ (𝑈‘(𝑤𝑣)))
7154, 69, 58, 70syl3anc 1318 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → (𝑈𝑣) ⊆ (𝑈‘(𝑤𝑣)))
72 simp13 1086 . . . . . . . . . . . . . . . . . . . 20 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑞 ∈ (𝑈𝑣))
7371, 72sseldd 3569 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑞 ∈ (𝑈‘(𝑤𝑣)))
74 simp3r 1083 . . . . . . . . . . . . . . . . . . 19 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))
75 eqid 2610 . . . . . . . . . . . . . . . . . . . 20 (le‘𝐾) = (le‘𝐾)
76 eqid 2610 . . . . . . . . . . . . . . . . . . . 20 (join‘𝐾) = (join‘𝐾)
7775, 76, 10, 11psubspi2N 33846 . . . . . . . . . . . . . . . . . . 19 (((𝐾 ∈ AtLat ∧ (𝑈‘(𝑤𝑣)) ∈ (PSubSp‘𝐾) ∧ 𝑟𝐴) ∧ (𝑝 ∈ (𝑈‘(𝑤𝑣)) ∧ 𝑞 ∈ (𝑈‘(𝑤𝑣)) ∧ 𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ (𝑈‘(𝑤𝑣)))
7854, 60, 61, 67, 73, 74, 77syl33anc 1333 . . . . . . . . . . . . . . . . . 18 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 ∈ (𝑈‘(𝑤𝑣)))
79 fveq2 6088 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = (𝑤𝑣) → (𝑈𝑦) = (𝑈‘(𝑤𝑣)))
8079eleq2d 2673 . . . . . . . . . . . . . . . . . . 19 (𝑦 = (𝑤𝑣) → (𝑟 ∈ (𝑈𝑦) ↔ 𝑟 ∈ (𝑈‘(𝑤𝑣))))
8180rspcev 3282 . . . . . . . . . . . . . . . . . 18 (((𝑤𝑣) ∈ (Fin ∩ 𝒫 𝑋) ∧ 𝑟 ∈ (𝑈‘(𝑤𝑣))) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈𝑦))
8253, 78, 81syl2anc 691 . . . . . . . . . . . . . . . . 17 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈𝑦))
83 eliun 4455 . . . . . . . . . . . . . . . . 17 (𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑟 ∈ (𝑈𝑦))
8482, 83sylibr 223 . . . . . . . . . . . . . . . 16 ((((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) ∧ (𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) ∧ (𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞))) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))
85843exp 1256 . . . . . . . . . . . . . . 15 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) → ((𝑝 ∈ (𝑈𝑤) ∧ (𝑤 ∈ Fin ∧ 𝑤𝑋)) → ((𝑟𝐴𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞)) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))
8685exp5c 642 . . . . . . . . . . . . . 14 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ (𝑣 ∈ Fin ∧ 𝑣𝑋) ∧ 𝑞 ∈ (𝑈𝑣)) → (𝑝 ∈ (𝑈𝑤) → ((𝑤 ∈ Fin ∧ 𝑤𝑋) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))))
87863exp 1256 . . . . . . . . . . . . 13 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ((𝑣 ∈ Fin ∧ 𝑣𝑋) → (𝑞 ∈ (𝑈𝑣) → (𝑝 ∈ (𝑈𝑤) → ((𝑤 ∈ Fin ∧ 𝑤𝑋) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))))))
8840, 87syl5 33 . . . . . . . . . . . 12 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑣 ∈ (Fin ∩ 𝒫 𝑋) → (𝑞 ∈ (𝑈𝑣) → (𝑝 ∈ (𝑈𝑤) → ((𝑤 ∈ Fin ∧ 𝑤𝑋) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))))))
8988rexlimdv 3012 . . . . . . . . . . 11 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣) → (𝑝 ∈ (𝑈𝑤) → ((𝑤 ∈ Fin ∧ 𝑤𝑋) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))))
9089com24 93 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ((𝑤 ∈ Fin ∧ 𝑤𝑋) → (𝑝 ∈ (𝑈𝑤) → (∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))))
9136, 90syl5 33 . . . . . . . . 9 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑤 ∈ (Fin ∩ 𝒫 𝑋) → (𝑝 ∈ (𝑈𝑤) → (∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))))
9291rexlimdv 3012 . . . . . . . 8 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑤) → (∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))))
9392impd 446 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ((∃𝑤 ∈ (Fin ∩ 𝒫 𝑋)𝑝 ∈ (𝑈𝑤) ∧ ∃𝑣 ∈ (Fin ∩ 𝒫 𝑋)𝑞 ∈ (𝑈𝑣)) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))
9432, 93syl5bi 231 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ((𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∧ 𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)) → (𝑟𝐴 → (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))
9594ralrimdv 2951 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ((𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∧ 𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)) → ∀𝑟𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))))
9695ralrimivv 2953 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ∀𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑟𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))
9775, 76, 10, 11ispsubsp 33843 . . . . 5 (𝐾 ∈ AtLat → ( 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∈ (PSubSp‘𝐾) ↔ ( 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴 ∧ ∀𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑟𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))
9897adantr 480 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → ( 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∈ (PSubSp‘𝐾) ↔ ( 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ 𝐴 ∧ ∀𝑝 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑞 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)∀𝑟𝐴 (𝑟(le‘𝐾)(𝑝(join‘𝐾)𝑞) → 𝑟 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))))
9921, 96, 98mpbir2and 959 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∈ (PSubSp‘𝐾))
100 snfi 7901 . . . . . . . . 9 {𝑤} ∈ Fin
101100a1i 11 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → {𝑤} ∈ Fin)
102 snelpwi 4834 . . . . . . . . 9 (𝑤𝑋 → {𝑤} ∈ 𝒫 𝑋)
103102adantl 481 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → {𝑤} ∈ 𝒫 𝑋)
104101, 103elind 3760 . . . . . . 7 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → {𝑤} ∈ (Fin ∩ 𝒫 𝑋))
105 vsnid 4156 . . . . . . . 8 𝑤 ∈ {𝑤}
106 simpll 786 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → 𝐾 ∈ AtLat)
107 ssel2 3563 . . . . . . . . . . 11 ((𝑋𝐴𝑤𝑋) → 𝑤𝐴)
108107adantll 746 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → 𝑤𝐴)
10910, 11snatpsubN 33848 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑤𝐴) → {𝑤} ∈ (PSubSp‘𝐾))
110106, 108, 109syl2anc 691 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → {𝑤} ∈ (PSubSp‘𝐾))
11111, 12pclidN 33994 . . . . . . . . 9 ((𝐾 ∈ AtLat ∧ {𝑤} ∈ (PSubSp‘𝐾)) → (𝑈‘{𝑤}) = {𝑤})
112106, 110, 111syl2anc 691 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → (𝑈‘{𝑤}) = {𝑤})
113105, 112syl5eleqr 2695 . . . . . . 7 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → 𝑤 ∈ (𝑈‘{𝑤}))
114 fveq2 6088 . . . . . . . . 9 (𝑦 = {𝑤} → (𝑈𝑦) = (𝑈‘{𝑤}))
115114eleq2d 2673 . . . . . . . 8 (𝑦 = {𝑤} → (𝑤 ∈ (𝑈𝑦) ↔ 𝑤 ∈ (𝑈‘{𝑤})))
116115rspcev 3282 . . . . . . 7 (({𝑤} ∈ (Fin ∩ 𝒫 𝑋) ∧ 𝑤 ∈ (𝑈‘{𝑤})) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈𝑦))
117104, 113, 116syl2anc 691 . . . . . 6 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑤𝑋) → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈𝑦))
118117ex 449 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑤𝑋 → ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈𝑦)))
119 eliun 4455 . . . . 5 (𝑤 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ↔ ∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈𝑦))
120118, 119syl6ibr 241 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑤𝑋𝑤 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦)))
121120ssrdv 3574 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝑋 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))
122 simpr 476 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → 𝑦𝑋)
123 simplr 788 . . . . . . . . . 10 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → 𝑋𝐴)
12410, 12pclssN 33992 . . . . . . . . . 10 ((𝐾 ∈ AtLat ∧ 𝑦𝑋𝑋𝐴) → (𝑈𝑦) ⊆ (𝑈𝑋))
1256, 122, 123, 124syl3anc 1318 . . . . . . . . 9 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → (𝑈𝑦) ⊆ (𝑈𝑋))
126125sseld 3567 . . . . . . . 8 (((𝐾 ∈ AtLat ∧ 𝑋𝐴) ∧ 𝑦𝑋) → (𝑤 ∈ (𝑈𝑦) → 𝑤 ∈ (𝑈𝑋)))
127126ex 449 . . . . . . 7 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑦𝑋 → (𝑤 ∈ (𝑈𝑦) → 𝑤 ∈ (𝑈𝑋))))
1285, 127syl5 33 . . . . . 6 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑦 ∈ (Fin ∩ 𝒫 𝑋) → (𝑤 ∈ (𝑈𝑦) → 𝑤 ∈ (𝑈𝑋))))
129128rexlimdv 3012 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (∃𝑦 ∈ (Fin ∩ 𝒫 𝑋)𝑤 ∈ (𝑈𝑦) → 𝑤 ∈ (𝑈𝑋)))
130119, 129syl5bi 231 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑤 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) → 𝑤 ∈ (𝑈𝑋)))
131130ssrdv 3574 . . 3 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ (𝑈𝑋))
13211, 12pclbtwnN 33995 . . 3 (((𝐾 ∈ AtLat ∧ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∈ (PSubSp‘𝐾)) ∧ (𝑋 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ∧ 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) ⊆ (𝑈𝑋))) → 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) = (𝑈𝑋))
1331, 99, 121, 131, 132syl22anc 1319 . 2 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦) = (𝑈𝑋))
134133eqcomd 2616 1 ((𝐾 ∈ AtLat ∧ 𝑋𝐴) → (𝑈𝑋) = 𝑦 ∈ (Fin ∩ 𝒫 𝑋)(𝑈𝑦))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 195  wa 383  w3a 1031   = wceq 1475  wcel 1977  wral 2896  wrex 2897  cun 3538  cin 3539  wss 3540  𝒫 cpw 4108  {csn 4125   ciun 4450   class class class wbr 4578  cfv 5790  (class class class)co 6527  Fincfn 7819  lecple 15724  joincjn 16716  Atomscatm 33362  AtLatcal 33363  PSubSpcpsubsp 33594  PClcpclN 33985
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4694  ax-sep 4704  ax-nul 4712  ax-pow 4764  ax-pr 4828  ax-un 6825
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-reu 2903  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4368  df-int 4406  df-iun 4452  df-br 4579  df-opab 4639  df-mpt 4640  df-tr 4676  df-eprel 4939  df-id 4943  df-po 4949  df-so 4950  df-fr 4987  df-we 4989  df-xp 5034  df-rel 5035  df-cnv 5036  df-co 5037  df-dm 5038  df-rn 5039  df-res 5040  df-ima 5041  df-pred 5583  df-ord 5629  df-on 5630  df-lim 5631  df-suc 5632  df-iota 5754  df-fun 5792  df-fn 5793  df-f 5794  df-f1 5795  df-fo 5796  df-f1o 5797  df-fv 5798  df-riota 6489  df-ov 6530  df-oprab 6531  df-mpt2 6532  df-om 6936  df-wrecs 7272  df-recs 7333  df-rdg 7371  df-1o 7425  df-oadd 7429  df-er 7607  df-en 7820  df-fin 7823  df-preset 16700  df-poset 16718  df-plt 16730  df-lub 16746  df-glb 16747  df-join 16748  df-meet 16749  df-p0 16811  df-lat 16818  df-covers 33365  df-ats 33366  df-atl 33397  df-psubsp 33601  df-pclN 33986
This theorem is referenced by:  pclcmpatN  33999
  Copyright terms: Public domain W3C validator