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

Theorem pclfinN 28778
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 28828. (Contributed by NM, 10-Sep-2013.) (New usage is discouraged.)
Hypotheses
Ref Expression
pclfin.a  |-  A  =  ( Atoms `  K )
pclfin.c  |-  U  =  ( PCl `  K
)
Assertion
Ref Expression
pclfinN  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  ( U `  X )  =  U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y ) )
Distinct variable groups:    y, A    y, U    y, K    y, X

Proof of Theorem pclfinN
StepHypRef Expression
1 simpl 445 . . 3  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  K  e.  AtLat )
2 elin 3266 . . . . . . . 8  |-  ( y  e.  ( Fin  i^i  ~P X )  <->  ( y  e.  Fin  /\  y  e. 
~P X ) )
3 elpwi 3538 . . . . . . . . 9  |-  ( y  e.  ~P X  -> 
y  C_  X )
43adantl 454 . . . . . . . 8  |-  ( ( y  e.  Fin  /\  y  e.  ~P X
)  ->  y  C_  X )
52, 4sylbi 189 . . . . . . 7  |-  ( y  e.  ( Fin  i^i  ~P X )  ->  y  C_  X )
6 simpll 733 . . . . . . . . 9  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  y  C_  X )  ->  K  e.  AtLat )
7 sstr 3108 . . . . . . . . . . . 12  |-  ( ( y  C_  X  /\  X  C_  A )  -> 
y  C_  A )
87ancoms 441 . . . . . . . . . . 11  |-  ( ( X  C_  A  /\  y  C_  X )  -> 
y  C_  A )
98adantll 697 . . . . . . . . . 10  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  y  C_  X )  ->  y  C_  A
)
10 pclfin.a . . . . . . . . . . 11  |-  A  =  ( Atoms `  K )
11 eqid 2253 . . . . . . . . . . 11  |-  ( PSubSp `  K )  =  (
PSubSp `  K )
12 pclfin.c . . . . . . . . . . 11  |-  U  =  ( PCl `  K
)
1310, 11, 12pclclN 28769 . . . . . . . . . 10  |-  ( ( K  e.  AtLat  /\  y  C_  A )  ->  ( U `  y )  e.  ( PSubSp `  K )
)
146, 9, 13syl2anc 645 . . . . . . . . 9  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  y  C_  X )  ->  ( U `  y )  e.  (
PSubSp `  K ) )
1510, 11psubssat 28632 . . . . . . . . 9  |-  ( ( K  e.  AtLat  /\  ( U `  y )  e.  ( PSubSp `  K )
)  ->  ( U `  y )  C_  A
)
166, 14, 15syl2anc 645 . . . . . . . 8  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  y  C_  X )  ->  ( U `  y )  C_  A
)
1716ex 425 . . . . . . 7  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
y  C_  X  ->  ( U `  y ) 
C_  A ) )
185, 17syl5 30 . . . . . 6  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
y  e.  ( Fin 
i^i  ~P X )  -> 
( U `  y
)  C_  A )
)
1918ralrimiv 2587 . . . . 5  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  A. y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  C_  A )
20 iunss 3841 . . . . 5  |-  ( U_ y  e.  ( Fin  i^i 
~P X ) ( U `  y ) 
C_  A  <->  A. y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  C_  A )
2119, 20sylibr 205 . . . 4  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  C_  A )
22 eliun 3807 . . . . . . . . 9  |-  ( p  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  <->  E. y  e.  ( Fin  i^i  ~P X ) p  e.  ( U `  y
) )
23 fveq2 5377 . . . . . . . . . . 11  |-  ( y  =  w  ->  ( U `  y )  =  ( U `  w ) )
2423eleq2d 2320 . . . . . . . . . 10  |-  ( y  =  w  ->  (
p  e.  ( U `
 y )  <->  p  e.  ( U `  w ) ) )
2524cbvrexv 2709 . . . . . . . . 9  |-  ( E. y  e.  ( Fin 
i^i  ~P X ) p  e.  ( U `  y )  <->  E. w  e.  ( Fin  i^i  ~P X ) p  e.  ( U `  w
) )
2622, 25bitri 242 . . . . . . . 8  |-  ( p  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  <->  E. w  e.  ( Fin  i^i  ~P X ) p  e.  ( U `  w
) )
27 eliun 3807 . . . . . . . . 9  |-  ( q  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  <->  E. y  e.  ( Fin  i^i  ~P X ) q  e.  ( U `  y
) )
28 fveq2 5377 . . . . . . . . . . 11  |-  ( y  =  v  ->  ( U `  y )  =  ( U `  v ) )
2928eleq2d 2320 . . . . . . . . . 10  |-  ( y  =  v  ->  (
q  e.  ( U `
 y )  <->  q  e.  ( U `  v ) ) )
3029cbvrexv 2709 . . . . . . . . 9  |-  ( E. y  e.  ( Fin 
i^i  ~P X ) q  e.  ( U `  y )  <->  E. v  e.  ( Fin  i^i  ~P X ) q  e.  ( U `  v
) )
3127, 30bitri 242 . . . . . . . 8  |-  ( q  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  <->  E. v  e.  ( Fin  i^i  ~P X ) q  e.  ( U `  v
) )
3226, 31anbi12i 681 . . . . . . 7  |-  ( ( p  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  /\  q  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y ) )  <-> 
( E. w  e.  ( Fin  i^i  ~P X ) p  e.  ( U `  w
)  /\  E. v  e.  ( Fin  i^i  ~P X ) q  e.  ( U `  v
) ) )
33 elin 3266 . . . . . . . . . . 11  |-  ( w  e.  ( Fin  i^i  ~P X )  <->  ( w  e.  Fin  /\  w  e. 
~P X ) )
34 elpwi 3538 . . . . . . . . . . . 12  |-  ( w  e.  ~P X  ->  w  C_  X )
3534anim2i 555 . . . . . . . . . . 11  |-  ( ( w  e.  Fin  /\  w  e.  ~P X
)  ->  ( w  e.  Fin  /\  w  C_  X ) )
3633, 35sylbi 189 . . . . . . . . . 10  |-  ( w  e.  ( Fin  i^i  ~P X )  ->  (
w  e.  Fin  /\  w  C_  X ) )
37 elin 3266 . . . . . . . . . . . . . 14  |-  ( v  e.  ( Fin  i^i  ~P X )  <->  ( v  e.  Fin  /\  v  e. 
~P X ) )
38 elpwi 3538 . . . . . . . . . . . . . . 15  |-  ( v  e.  ~P X  -> 
v  C_  X )
3938anim2i 555 . . . . . . . . . . . . . 14  |-  ( ( v  e.  Fin  /\  v  e.  ~P X
)  ->  ( v  e.  Fin  /\  v  C_  X ) )
4037, 39sylbi 189 . . . . . . . . . . . . 13  |-  ( v  e.  ( Fin  i^i  ~P X )  ->  (
v  e.  Fin  /\  v  C_  X ) )
41 simp2rl 1029 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  w  e.  Fin )
42 simp12l 1073 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  v  e.  Fin )
43 unfi 7009 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( w  e.  Fin  /\  v  e.  Fin )  ->  ( w  u.  v
)  e.  Fin )
4441, 42, 43syl2anc 645 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  ( w  u.  v )  e.  Fin )
45 simp2rr 1030 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  w  C_  X
)
46 simp12r 1074 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  v  C_  X
)
4745, 46unssd 3261 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  ( w  u.  v )  C_  X
)
48 vex 2730 . . . . . . . . . . . . . . . . . . . . . 22  |-  w  e. 
_V
49 vex 2730 . . . . . . . . . . . . . . . . . . . . . 22  |-  v  e. 
_V
5048, 49unex 4409 . . . . . . . . . . . . . . . . . . . . 21  |-  ( w  u.  v )  e. 
_V
5150elpw 3536 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( w  u.  v )  e.  ~P X  <->  ( w  u.  v )  C_  X
)
5247, 51sylibr 205 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  ( w  u.  v )  e.  ~P X )
53 elin 3266 . . . . . . . . . . . . . . . . . . 19  |-  ( ( w  u.  v )  e.  ( Fin  i^i  ~P X )  <->  ( (
w  u.  v )  e.  Fin  /\  (
w  u.  v )  e.  ~P X ) )
5444, 52, 53sylanbrc 648 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  ( w  u.  v )  e.  ( Fin  i^i  ~P X
) )
55 simp11l 1071 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  K  e.  AtLat )
56 simp11r 1072 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  X  C_  A
)
5745, 56sstrd 3110 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  w  C_  A
)
5846, 56sstrd 3110 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  v  C_  A
)
5957, 58unssd 3261 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  ( w  u.  v )  C_  A
)
6010, 11, 12pclclN 28769 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( K  e.  AtLat  /\  (
w  u.  v ) 
C_  A )  -> 
( U `  (
w  u.  v ) )  e.  ( PSubSp `  K ) )
6155, 59, 60syl2anc 645 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  ( U `  ( w  u.  v
) )  e.  (
PSubSp `  K ) )
62 simp3l 988 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  r  e.  A
)
63 ssun1 3248 . . . . . . . . . . . . . . . . . . . . . 22  |-  w  C_  ( w  u.  v
)
6463a1i 12 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  w  C_  (
w  u.  v ) )
6510, 12pclssN 28772 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( K  e.  AtLat  /\  w  C_  ( w  u.  v
)  /\  ( w  u.  v )  C_  A
)  ->  ( U `  w )  C_  ( U `  ( w  u.  v ) ) )
6655, 64, 59, 65syl3anc 1187 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  ( U `  w )  C_  ( U `  ( w  u.  v ) ) )
67 simp2l 986 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  p  e.  ( U `  w ) )
6866, 67sseldd 3104 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  p  e.  ( U `  ( w  u.  v ) ) )
69 ssun2 3249 . . . . . . . . . . . . . . . . . . . . . 22  |-  v  C_  ( w  u.  v
)
7069a1i 12 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  v  C_  (
w  u.  v ) )
7110, 12pclssN 28772 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( K  e.  AtLat  /\  v  C_  ( w  u.  v
)  /\  ( w  u.  v )  C_  A
)  ->  ( U `  v )  C_  ( U `  ( w  u.  v ) ) )
7255, 70, 59, 71syl3anc 1187 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  ( U `  v )  C_  ( U `  ( w  u.  v ) ) )
73 simp13 992 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  q  e.  ( U `  v ) )
7472, 73sseldd 3104 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  q  e.  ( U `  ( w  u.  v ) ) )
75 simp3r 989 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  r ( le
`  K ) ( p ( join `  K
) q ) )
76 eqid 2253 . . . . . . . . . . . . . . . . . . . 20  |-  ( le
`  K )  =  ( le `  K
)
77 eqid 2253 . . . . . . . . . . . . . . . . . . . 20  |-  ( join `  K )  =  (
join `  K )
7876, 77, 10, 11psubspi2N 28626 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( K  e.  AtLat  /\  ( U `  (
w  u.  v ) )  e.  ( PSubSp `  K )  /\  r  e.  A )  /\  (
p  e.  ( U `
 ( w  u.  v ) )  /\  q  e.  ( U `  ( w  u.  v
) )  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  r  e.  ( U `  ( w  u.  v ) ) )
7955, 61, 62, 68, 74, 75, 78syl33anc 1202 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  r  e.  ( U `  ( w  u.  v ) ) )
80 fveq2 5377 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  =  ( w  u.  v )  ->  ( U `  y )  =  ( U `  ( w  u.  v
) ) )
8180eleq2d 2320 . . . . . . . . . . . . . . . . . . 19  |-  ( y  =  ( w  u.  v )  ->  (
r  e.  ( U `
 y )  <->  r  e.  ( U `  ( w  u.  v ) ) ) )
8281rcla4ev 2821 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  u.  v
)  e.  ( Fin 
i^i  ~P X )  /\  r  e.  ( U `  ( w  u.  v
) ) )  ->  E. y  e.  ( Fin  i^i  ~P X ) r  e.  ( U `
 y ) )
8354, 79, 82syl2anc 645 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  E. y  e.  ( Fin  i^i  ~P X
) r  e.  ( U `  y ) )
84 eliun 3807 . . . . . . . . . . . . . . . . 17  |-  ( r  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  <->  E. y  e.  ( Fin  i^i  ~P X ) r  e.  ( U `  y
) )
8583, 84sylibr 205 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( K  e. 
AtLat  /\  X  C_  A
)  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v
) )  /\  (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  /\  ( r  e.  A  /\  r
( le `  K
) ( p (
join `  K )
q ) ) )  ->  r  e.  U_ y  e.  ( Fin  i^i 
~P X ) ( U `  y ) )
86853exp 1155 . . . . . . . . . . . . . . 15  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v )
)  ->  ( (
p  e.  ( U `
 w )  /\  ( w  e.  Fin  /\  w  C_  X )
)  ->  ( (
r  e.  A  /\  r ( le `  K ) ( p ( join `  K
) q ) )  ->  r  e.  U_ y  e.  ( Fin  i^i 
~P X ) ( U `  y ) ) ) )
8786exp5c 602 . . . . . . . . . . . . . 14  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  ( v  e.  Fin  /\  v  C_  X )  /\  q  e.  ( U `  v )
)  ->  ( p  e.  ( U `  w
)  ->  ( (
w  e.  Fin  /\  w  C_  X )  -> 
( r  e.  A  ->  ( r ( le
`  K ) ( p ( join `  K
) q )  -> 
r  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y ) ) ) ) ) )
88873exp 1155 . . . . . . . . . . . . 13  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
( v  e.  Fin  /\  v  C_  X )  ->  ( q  e.  ( U `  v )  ->  ( p  e.  ( U `  w
)  ->  ( (
w  e.  Fin  /\  w  C_  X )  -> 
( r  e.  A  ->  ( r ( le
`  K ) ( p ( join `  K
) q )  -> 
r  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y ) ) ) ) ) ) ) )
8940, 88syl5 30 . . . . . . . . . . . 12  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
v  e.  ( Fin 
i^i  ~P X )  -> 
( q  e.  ( U `  v )  ->  ( p  e.  ( U `  w
)  ->  ( (
w  e.  Fin  /\  w  C_  X )  -> 
( r  e.  A  ->  ( r ( le
`  K ) ( p ( join `  K
) q )  -> 
r  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y ) ) ) ) ) ) ) )
9089rexlimdv 2628 . . . . . . . . . . 11  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  ( E. v  e.  ( Fin  i^i  ~P X ) q  e.  ( U `
 v )  -> 
( p  e.  ( U `  w )  ->  ( ( w  e.  Fin  /\  w  C_  X )  ->  (
r  e.  A  -> 
( r ( le
`  K ) ( p ( join `  K
) q )  -> 
r  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y ) ) ) ) ) ) )
9190com24 83 . . . . . . . . . 10  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
( w  e.  Fin  /\  w  C_  X )  ->  ( p  e.  ( U `  w )  ->  ( E. v  e.  ( Fin  i^i  ~P X ) q  e.  ( U `  v
)  ->  ( r  e.  A  ->  ( r ( le `  K
) ( p (
join `  K )
q )  ->  r  e.  U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y ) ) ) ) ) ) )
9236, 91syl5 30 . . . . . . . . 9  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
w  e.  ( Fin 
i^i  ~P X )  -> 
( p  e.  ( U `  w )  ->  ( E. v  e.  ( Fin  i^i  ~P X ) q  e.  ( U `  v
)  ->  ( r  e.  A  ->  ( r ( le `  K
) ( p (
join `  K )
q )  ->  r  e.  U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y ) ) ) ) ) ) )
9392rexlimdv 2628 . . . . . . . 8  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  ( E. w  e.  ( Fin  i^i  ~P X ) p  e.  ( U `
 w )  -> 
( E. v  e.  ( Fin  i^i  ~P X ) q  e.  ( U `  v
)  ->  ( r  e.  A  ->  ( r ( le `  K
) ( p (
join `  K )
q )  ->  r  e.  U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y ) ) ) ) ) )
9493imp3a 422 . . . . . . 7  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
( E. w  e.  ( Fin  i^i  ~P X ) p  e.  ( U `  w
)  /\  E. v  e.  ( Fin  i^i  ~P X ) q  e.  ( U `  v
) )  ->  (
r  e.  A  -> 
( r ( le
`  K ) ( p ( join `  K
) q )  -> 
r  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y ) ) ) ) )
9532, 94syl5bi 210 . . . . . 6  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
( p  e.  U_ y  e.  ( Fin  i^i 
~P X ) ( U `  y )  /\  q  e.  U_ y  e.  ( Fin  i^i 
~P X ) ( U `  y ) )  ->  ( r  e.  A  ->  ( r ( le `  K
) ( p (
join `  K )
q )  ->  r  e.  U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y ) ) ) ) )
9695ralrimdv 2594 . . . . 5  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
( p  e.  U_ y  e.  ( Fin  i^i 
~P X ) ( U `  y )  /\  q  e.  U_ y  e.  ( Fin  i^i 
~P X ) ( U `  y ) )  ->  A. r  e.  A  ( r
( le `  K
) ( p (
join `  K )
q )  ->  r  e.  U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y ) ) ) )
9796ralrimivv 2596 . . . 4  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  A. p  e.  U_  y  e.  ( Fin  i^i  ~P X
) ( U `  y ) A. q  e.  U_  y  e.  ( Fin  i^i  ~P X
) ( U `  y ) A. r  e.  A  ( r
( le `  K
) ( p (
join `  K )
q )  ->  r  e.  U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y ) ) )
9876, 77, 10, 11ispsubsp 28623 . . . . 5  |-  ( K  e.  AtLat  ->  ( U_ y  e.  ( Fin  i^i 
~P X ) ( U `  y )  e.  ( PSubSp `  K
)  <->  ( U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  C_  A  /\  A. p  e. 
U_  y  e.  ( Fin  i^i  ~P X
) ( U `  y ) A. q  e.  U_  y  e.  ( Fin  i^i  ~P X
) ( U `  y ) A. r  e.  A  ( r
( le `  K
) ( p (
join `  K )
q )  ->  r  e.  U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y ) ) ) ) )
9998adantr 453 . . . 4  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  ( U_ y  e.  ( Fin  i^i  ~P X ) ( U `  y
)  e.  ( PSubSp `  K )  <->  ( U_ y  e.  ( Fin  i^i 
~P X ) ( U `  y ) 
C_  A  /\  A. p  e.  U_  y  e.  ( Fin  i^i  ~P X ) ( U `
 y ) A. q  e.  U_  y  e.  ( Fin  i^i  ~P X ) ( U `
 y ) A. r  e.  A  (
r ( le `  K ) ( p ( join `  K
) q )  -> 
r  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y ) ) ) ) )
10021, 97, 99mpbir2and 893 . . 3  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  e.  ( PSubSp `  K )
)
101 snfi 6826 . . . . . . . . 9  |-  { w }  e.  Fin
102101a1i 12 . . . . . . . 8  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  w  e.  X
)  ->  { w }  e.  Fin )
103 snelpwi 4114 . . . . . . . . 9  |-  ( w  e.  X  ->  { w }  e.  ~P X
)
104103adantl 454 . . . . . . . 8  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  w  e.  X
)  ->  { w }  e.  ~P X
)
105 elin 3266 . . . . . . . 8  |-  ( { w }  e.  ( Fin  i^i  ~P X
)  <->  ( { w }  e.  Fin  /\  {
w }  e.  ~P X ) )
106102, 104, 105sylanbrc 648 . . . . . . 7  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  w  e.  X
)  ->  { w }  e.  ( Fin  i^i 
~P X ) )
10748snid 3571 . . . . . . . 8  |-  w  e. 
{ w }
108 simpll 733 . . . . . . . . 9  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  w  e.  X
)  ->  K  e.  AtLat
)
109 ssel2 3098 . . . . . . . . . . 11  |-  ( ( X  C_  A  /\  w  e.  X )  ->  w  e.  A )
110109adantll 697 . . . . . . . . . 10  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  w  e.  X
)  ->  w  e.  A )
11110, 11snatpsubN 28628 . . . . . . . . . 10  |-  ( ( K  e.  AtLat  /\  w  e.  A )  ->  { w }  e.  ( PSubSp `  K ) )
112108, 110, 111syl2anc 645 . . . . . . . . 9  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  w  e.  X
)  ->  { w }  e.  ( PSubSp `  K ) )
11311, 12pclidN 28774 . . . . . . . . 9  |-  ( ( K  e.  AtLat  /\  {
w }  e.  (
PSubSp `  K ) )  ->  ( U `  { w } )  =  { w }
)
114108, 112, 113syl2anc 645 . . . . . . . 8  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  w  e.  X
)  ->  ( U `  { w } )  =  { w }
)
115107, 114syl5eleqr 2340 . . . . . . 7  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  w  e.  X
)  ->  w  e.  ( U `  { w } ) )
116 fveq2 5377 . . . . . . . . 9  |-  ( y  =  { w }  ->  ( U `  y
)  =  ( U `
 { w }
) )
117116eleq2d 2320 . . . . . . . 8  |-  ( y  =  { w }  ->  ( w  e.  ( U `  y )  <-> 
w  e.  ( U `
 { w }
) ) )
118117rcla4ev 2821 . . . . . . 7  |-  ( ( { w }  e.  ( Fin  i^i  ~P X
)  /\  w  e.  ( U `  { w } ) )  ->  E. y  e.  ( Fin  i^i  ~P X ) w  e.  ( U `
 y ) )
119106, 115, 118syl2anc 645 . . . . . 6  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  w  e.  X
)  ->  E. y  e.  ( Fin  i^i  ~P X ) w  e.  ( U `  y
) )
120119ex 425 . . . . 5  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
w  e.  X  ->  E. y  e.  ( Fin  i^i  ~P X ) w  e.  ( U `
 y ) ) )
121 eliun 3807 . . . . 5  |-  ( w  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  <->  E. y  e.  ( Fin  i^i  ~P X ) w  e.  ( U `  y
) )
122120, 121syl6ibr 220 . . . 4  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
w  e.  X  ->  w  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y ) ) )
123122ssrdv 3106 . . 3  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  X  C_ 
U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y ) )
124 simpr 449 . . . . . . . . . 10  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  y  C_  X )  ->  y  C_  X
)
125 simplr 734 . . . . . . . . . 10  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  y  C_  X )  ->  X  C_  A
)
12610, 12pclssN 28772 . . . . . . . . . 10  |-  ( ( K  e.  AtLat  /\  y  C_  X  /\  X  C_  A )  ->  ( U `  y )  C_  ( U `  X
) )
1276, 124, 125, 126syl3anc 1187 . . . . . . . . 9  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  y  C_  X )  ->  ( U `  y )  C_  ( U `  X )
)
128127sseld 3102 . . . . . . . 8  |-  ( ( ( K  e.  AtLat  /\  X  C_  A )  /\  y  C_  X )  ->  ( w  e.  ( U `  y
)  ->  w  e.  ( U `  X ) ) )
129128ex 425 . . . . . . 7  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
y  C_  X  ->  ( w  e.  ( U `
 y )  ->  w  e.  ( U `  X ) ) ) )
1305, 129syl5 30 . . . . . 6  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
y  e.  ( Fin 
i^i  ~P X )  -> 
( w  e.  ( U `  y )  ->  w  e.  ( U `  X ) ) ) )
131130rexlimdv 2628 . . . . 5  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  ( E. y  e.  ( Fin  i^i  ~P X ) w  e.  ( U `
 y )  ->  w  e.  ( U `  X ) ) )
132121, 131syl5bi 210 . . . 4  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  (
w  e.  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  ->  w  e.  ( U `  X ) ) )
133132ssrdv 3106 . . 3  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  C_  ( U `  X ) )
13411, 12pclbtwnN 28775 . . 3  |-  ( ( ( K  e.  AtLat  /\ 
U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y )  e.  (
PSubSp `  K ) )  /\  ( X  C_  U_ y  e.  ( Fin 
i^i  ~P X ) ( U `  y )  /\  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  C_  ( U `  X ) ) )  ->  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  =  ( U `  X
) )
1351, 100, 123, 133, 134syl22anc 1188 . 2  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  U_ y  e.  ( Fin  i^i  ~P X ) ( U `
 y )  =  ( U `  X
) )
136135eqcomd 2258 1  |-  ( ( K  e.  AtLat  /\  X  C_  A )  ->  ( U `  X )  =  U_ y  e.  ( Fin  i^i  ~P X
) ( U `  y ) )
Colors of variables: wff set class
Syntax hints:    -> wi 6    <-> wb 178    /\ wa 360    /\ w3a 939    = wceq 1619    e. wcel 1621   A.wral 2509   E.wrex 2510    u. cun 3076    i^i cin 3077    C_ wss 3078   ~Pcpw 3530   {csn 3544   U_ciun 3803   class class class wbr 3920   ` cfv 4592  (class class class)co 5710   Fincfn 6749   lecple 13089   joincjn 13922   Atomscatm 28142   AtLatcal 28143   PSubSpcpsubsp 28374   PClcpclN 28765
This theorem is referenced by:  pclcmpatN  28779
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-5 1533  ax-6 1534  ax-7 1535  ax-gen 1536  ax-8 1623  ax-11 1624  ax-13 1625  ax-14 1626  ax-17 1628  ax-12o 1664  ax-10 1678  ax-9 1684  ax-4 1692  ax-16 1926  ax-ext 2234  ax-rep 4028  ax-sep 4038  ax-nul 4046  ax-pow 4082  ax-pr 4108  ax-un 4403
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 940  df-3an 941  df-tru 1315  df-ex 1538  df-nf 1540  df-sb 1883  df-eu 2118  df-mo 2119  df-clab 2240  df-cleq 2246  df-clel 2249  df-nfc 2374  df-ne 2414  df-nel 2415  df-ral 2513  df-rex 2514  df-reu 2515  df-rab 2516  df-v 2729  df-sbc 2922  df-csb 3010  df-dif 3081  df-un 3083  df-in 3085  df-ss 3089  df-pss 3091  df-nul 3363  df-if 3471  df-pw 3532  df-sn 3550  df-pr 3551  df-tp 3552  df-op 3553  df-uni 3728  df-int 3761  df-iun 3805  df-br 3921  df-opab 3975  df-mpt 3976  df-tr 4011  df-eprel 4198  df-id 4202  df-po 4207  df-so 4208  df-fr 4245  df-we 4247  df-ord 4288  df-on 4289  df-lim 4290  df-suc 4291  df-om 4548  df-xp 4594  df-rel 4595  df-cnv 4596  df-co 4597  df-dm 4598  df-rn 4599  df-res 4600  df-ima 4601  df-fun 4602  df-fn 4603  df-f 4604  df-f1 4605  df-fo 4606  df-f1o 4607  df-fv 4608  df-ov 5713  df-oprab 5714  df-mpt2 5715  df-1st 5974  df-2nd 5975  df-iota 6143  df-undef 6182  df-riota 6190  df-recs 6274  df-rdg 6309  df-1o 6365  df-oadd 6369  df-er 6546  df-en 6750  df-fin 6753  df-poset 13924  df-plt 13936  df-lub 13952  df-join 13954  df-lat 13996  df-covers 28145  df-ats 28146  df-atl 28177  df-psubsp 28381  df-pclN 28766
  Copyright terms: Public domain W3C validator