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

Theorem ishlat2 33307
Description: The predicate "is a Hilbert lattice". Here we replace  K  e.  CvLat with the weaker  K  e.  AtLat and show the exchange property explicitly. (Contributed by NM, 5-Nov-2012.)
Hypotheses
Ref Expression
ishlat.b  |-  B  =  ( Base `  K
)
ishlat.l  |-  .<_  =  ( le `  K )
ishlat.s  |-  .<  =  ( lt `  K )
ishlat.j  |-  .\/  =  ( join `  K )
ishlat.z  |-  .0.  =  ( 0. `  K )
ishlat.u  |-  .1.  =  ( 1. `  K )
ishlat.a  |-  A  =  ( Atoms `  K )
Assertion
Ref Expression
ishlat2  |-  ( K  e.  HL  <->  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat
)  /\  ( A. x  e.  A  A. y  e.  A  (
( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0. 
.<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) ) )
Distinct variable groups:    x, y,
z, A    x, B, y, z    x, K, y, z
Allowed substitution hints:    .< ( x, y,
z)    .1. ( x, y, z)    .\/ ( x, y, z)    .<_ ( x, y, z)    .0. ( x, y, z)

Proof of Theorem ishlat2
StepHypRef Expression
1 ishlat.b . . 3  |-  B  =  ( Base `  K
)
2 ishlat.l . . 3  |-  .<_  =  ( le `  K )
3 ishlat.s . . 3  |-  .<  =  ( lt `  K )
4 ishlat.j . . 3  |-  .\/  =  ( join `  K )
5 ishlat.z . . 3  |-  .0.  =  ( 0. `  K )
6 ishlat.u . . 3  |-  .1.  =  ( 1. `  K )
7 ishlat.a . . 3  |-  A  =  ( Atoms `  K )
81, 2, 3, 4, 5, 6, 7ishlat1 33306 . 2  |-  ( K  e.  HL  <->  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  CvLat
)  /\  ( A. x  e.  A  A. y  e.  A  (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0.  .<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) ) )
91, 2, 4, 7iscvlat 33277 . . . . 5  |-  ( K  e.  CvLat 
<->  ( K  e.  AtLat  /\ 
A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  ->  y  .<_  ( z  .\/  x ) ) ) )
1093anbi3i 1181 . . . 4  |-  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  CvLat )  <->  ( K  e.  OML  /\  K  e. 
CLat  /\  ( K  e. 
AtLat  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) ) ) )
11 anass 649 . . . . 5  |-  ( ( ( ( K  e. 
OML  /\  K  e.  CLat )  /\  K  e. 
AtLat )  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) )  <-> 
( ( K  e. 
OML  /\  K  e.  CLat )  /\  ( K  e.  AtLat  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) ) ) )
12 df-3an 967 . . . . . 6  |-  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat )  <->  ( ( K  e.  OML  /\  K  e.  CLat )  /\  K  e.  AtLat ) )
1312anbi1i 695 . . . . 5  |-  ( ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat )  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) ) )  <->  ( ( ( K  e.  OML  /\  K  e.  CLat )  /\  K  e.  AtLat )  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) ) ) )
14 df-3an 967 . . . . 5  |-  ( ( K  e.  OML  /\  K  e.  CLat  /\  ( K  e.  AtLat  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) ) ) )  <->  ( ( K  e.  OML  /\  K  e.  CLat )  /\  ( K  e.  AtLat  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) ) ) ) )
1511, 13, 143bitr4ri 278 . . . 4  |-  ( ( K  e.  OML  /\  K  e.  CLat  /\  ( K  e.  AtLat  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) ) ) )  <->  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat
)  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) ) )
1610, 15bitri 249 . . 3  |-  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  CvLat )  <->  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat
)  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) ) )
1716anbi1i 695 . 2  |-  ( ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  CvLat )  /\  ( A. x  e.  A  A. y  e.  A  ( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0.  .<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) )  <->  ( ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat )  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) ) )  /\  ( A. x  e.  A  A. y  e.  A  (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0.  .<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) ) )
18 anass 649 . . 3  |-  ( ( ( ( K  e. 
OML  /\  K  e.  CLat  /\  K  e.  AtLat )  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) ) )  /\  ( A. x  e.  A  A. y  e.  A  (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0.  .<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) )  <->  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat
)  /\  ( A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) )  /\  ( A. x  e.  A  A. y  e.  A  ( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x  .\/  y ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  (
(  .0.  .<  x  /\  x  .<  y )  /\  ( y  .< 
z  /\  z  .<  .1.  ) ) ) ) ) )
19 anass 649 . . . . 5  |-  ( ( ( A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) )  /\  A. x  e.  A  A. y  e.  A  (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  (
(  .0.  .<  x  /\  x  .<  y )  /\  ( y  .< 
z  /\  z  .<  .1.  ) ) )  <->  ( A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) )  /\  ( A. x  e.  A  A. y  e.  A  ( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x  .\/  y ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  (
(  .0.  .<  x  /\  x  .<  y )  /\  ( y  .< 
z  /\  z  .<  .1.  ) ) ) ) )
20 ancom 450 . . . . . . 7  |-  ( ( A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  ->  y  .<_  ( z  .\/  x ) )  /\  A. x  e.  A  A. y  e.  A  ( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x  .\/  y ) ) ) )  <->  ( A. x  e.  A  A. y  e.  A  (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) ) )
21 r19.26-2 2949 . . . . . . 7  |-  ( A. x  e.  A  A. y  e.  A  (
( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) )  <-> 
( A. x  e.  A  A. y  e.  A  ( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x  .\/  y ) ) )  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) ) ) )
2220, 21bitr4i 252 . . . . . 6  |-  ( ( A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  ->  y  .<_  ( z  .\/  x ) )  /\  A. x  e.  A  A. y  e.  A  ( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x  .\/  y ) ) ) )  <->  A. x  e.  A  A. y  e.  A  ( (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) ) )
2322anbi1i 695 . . . . 5  |-  ( ( ( A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) )  /\  A. x  e.  A  A. y  e.  A  (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  (
(  .0.  .<  x  /\  x  .<  y )  /\  ( y  .< 
z  /\  z  .<  .1.  ) ) )  <->  ( A. x  e.  A  A. y  e.  A  (
( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0. 
.<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) )
2419, 23bitr3i 251 . . . 4  |-  ( ( A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  ->  y  .<_  ( z  .\/  x ) )  /\  ( A. x  e.  A  A. y  e.  A  (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0.  .<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) )  <->  ( A. x  e.  A  A. y  e.  A  ( (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0. 
.<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) )
2524anbi2i 694 . . 3  |-  ( ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat )  /\  ( A. x  e.  A  A. y  e.  A  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  ->  y  .<_  ( z  .\/  x ) )  /\  ( A. x  e.  A  A. y  e.  A  (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0.  .<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) ) )  <->  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat
)  /\  ( A. x  e.  A  A. y  e.  A  (
( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0. 
.<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) ) )
2618, 25bitri 249 . 2  |-  ( ( ( ( K  e. 
OML  /\  K  e.  CLat  /\  K  e.  AtLat )  /\  A. x  e.  A  A. y  e.  A  A. z  e.  B  (
( -.  x  .<_  z  /\  x  .<_  ( z 
.\/  y ) )  ->  y  .<_  ( z 
.\/  x ) ) )  /\  ( A. x  e.  A  A. y  e.  A  (
x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0.  .<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) )  <->  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat
)  /\  ( A. x  e.  A  A. y  e.  A  (
( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0. 
.<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) ) )
278, 17, 263bitri 271 1  |-  ( K  e.  HL  <->  ( ( K  e.  OML  /\  K  e.  CLat  /\  K  e.  AtLat
)  /\  ( A. x  e.  A  A. y  e.  A  (
( x  =/=  y  ->  E. z  e.  A  ( z  =/=  x  /\  z  =/=  y  /\  z  .<_  ( x 
.\/  y ) ) )  /\  A. z  e.  B  ( ( -.  x  .<_  z  /\  x  .<_  ( z  .\/  y ) )  -> 
y  .<_  ( z  .\/  x ) ) )  /\  E. x  e.  B  E. y  e.  B  E. z  e.  B  ( (  .0. 
.<  x  /\  x  .<  y )  /\  (
y  .<  z  /\  z  .<  .1.  ) ) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 965    = wceq 1370    e. wcel 1758    =/= wne 2644   A.wral 2795   E.wrex 2796   class class class wbr 4393   ` cfv 5519  (class class class)co 6193   Basecbs 14285   lecple 14356   ltcplt 15222   joincjn 15225   0.cp0 15318   1.cp1 15319   CLatccla 15388   OMLcoml 33129   Atomscatm 33217   AtLatcal 33218   CvLatclc 33219   HLchlt 33304
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1592  ax-4 1603  ax-5 1671  ax-6 1710  ax-7 1730  ax-10 1777  ax-11 1782  ax-12 1794  ax-13 1952  ax-ext 2430
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3an 967  df-tru 1373  df-ex 1588  df-nf 1591  df-sb 1703  df-clab 2437  df-cleq 2443  df-clel 2446  df-nfc 2601  df-ral 2800  df-rex 2801  df-rab 2804  df-v 3073  df-dif 3432  df-un 3434  df-in 3436  df-ss 3443  df-nul 3739  df-if 3893  df-sn 3979  df-pr 3981  df-op 3985  df-uni 4193  df-br 4394  df-iota 5482  df-fv 5527  df-ov 6196  df-cvlat 33276  df-hlat 33305
This theorem is referenced by:  ishlatiN  33309  hlsuprexch  33334  hlhgt4  33341
  Copyright terms: Public domain W3C validator