HomeHome Metamath Proof Explorer
Theorem List (p. 295 of 309)
< Previous  Next >
Browser slow? Try the
Unicode version.

Mirrors  >  Metamath Home Page  >  MPE Home Page  >  Theorem List Contents  >  Recent Proofs       This page: Page List

Color key:    Metamath Proof Explorer  Metamath Proof Explorer
(1-21328)
  Hilbert Space Explorer  Hilbert Space Explorer
(21329-22851)
  Users' Mathboxes  Users' Mathboxes
(22852-30843)
 

Theorem List for Metamath Proof Explorer - 29401-29500   *Has distinct variable group(s)
TypeLabelDescription
Statement
 
Theoremcdlemeg46fjv 29401* TODO FIX COMMENT f(r)  \/ f(g(s)) = f(r)  \/ v2 p. 116 2nd line. (Contributed by NM, 2-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   &    |-  Y  =  ( ( R  .\/  ( G `  S ) ) 
 ./\  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W ) )  /\  ( R 
 .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q )
 ) )  ->  (
 ( F `  R )  .\/  ( F `  ( G `  S ) ) )  =  ( ( F `  R )  .\/  Y ) )
 
Theoremcdlemeg46fsfv 29402* TODO FIX COMMENT f(r)  \/ s = f(r)  \/ v2 p. 116 2nd line. (Contributed by NM, 2-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   &    |-  Y  =  ( ( R  .\/  ( G `  S ) ) 
 ./\  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W ) )  /\  ( R 
 .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q )
 ) )  ->  (
 ( F `  R )  .\/  S )  =  ( ( F `  R )  .\/  Y ) )
 
Theoremcdlemeg46frv 29403* TODO FIX COMMENT (f(r)  \/ v2)  /\ w = v2 p. 116 3rd line. (Contributed by NM, 2-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   &    |-  Y  =  ( ( R  .\/  ( G `  S ) ) 
 ./\  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W ) )  /\  ( R 
 .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q )
 ) )  ->  (
 ( ( F `  R )  .\/  Y ) 
 ./\  W )  =  Y )
 
Theoremcdlemeg46v1v2 29404* TODO FIX COMMENT v1 = v2 p. 116 3rd line. (Contributed by NM, 2-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   &    |-  Y  =  ( ( R  .\/  ( G `  S ) ) 
 ./\  W )   &    |-  X  =  ( ( ( F `  R )  .\/  S ) 
 ./\  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W ) )  /\  ( R 
 .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q )
 ) )  ->  X  =  Y )
 
Theoremcdlemeg46vrg 29405* TODO FIX COMMENT v1  <_ r  \/ g(s) p. 116 3rd line. (Contributed by NM, 3-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   &    |-  Y  =  ( ( R  .\/  ( G `  S ) ) 
 ./\  W )   &    |-  X  =  ( ( ( F `  R )  .\/  S ) 
 ./\  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W ) )  /\  ( R 
 .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q )
 ) )  ->  X  .<_  ( R  .\/  ( G `  S ) ) )
 
Theoremcdlemeg46rgv 29406* TODO FIX COMMENT r  <_ g(s)  \/ v1 p. 116 3rd line. (Contributed by NM, 3-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   &    |-  Y  =  ( ( R  .\/  ( G `  S ) ) 
 ./\  W )   &    |-  X  =  ( ( ( F `  R )  .\/  S ) 
 ./\  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W ) )  /\  ( R 
 .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q )
 ) )  ->  R  .<_  ( ( G `  S )  .\/  X ) )
 
Theoremcdlemeg46req 29407* TODO FIX COMMENT r = (v1  \/ g(s)) p. 116 3rd line. (Contributed by NM, 3-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   &    |-  Y  =  ( ( R  .\/  ( G `  S ) ) 
 ./\  W )   &    |-  X  =  ( ( ( F `  R )  .\/  S ) 
 ./\  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W ) )  /\  ( R 
 .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q )
 ) )  ->  R  =  ( ( P  .\/  Q )  ./\  ( ( G `  S )  .\/  X ) ) )
 
Theoremcdlemeg46gfv 29408* TODO FIX COMMENT p. 115 penultimate line: g(f(r)) = (p v q) ^ (g(s) v v1) (Contributed by NM, 4-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   &    |-  Y  =  ( ( R  .\/  ( G `  S ) ) 
 ./\  W )   &    |-  X  =  ( ( ( F `  R )  .\/  S ) 
 ./\  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W ) )  /\  ( R 
 .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q )
 ) )  ->  ( G `  ( F `  R ) )  =  ( ( P  .\/  Q )  ./\  ( ( G `  S )  .\/  X ) ) )
 
Theoremcdlemeg46gfr 29409* TODO FIX COMMENT p. 116 penultimate line: g(f(r)) = r. (Contributed by NM, 4-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W ) )  /\  ( R 
 .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q )
 ) )  ->  ( G `  ( F `  R ) )  =  R )
 
Theoremcdlemeg46gfre 29410* TODO FIX COMMENT p. 116 penultimate line: g(f(r)) = r. (Contributed by NM, 4-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) ) 
 /\  R  .<_  ( P 
 .\/  Q ) )  ->  ( G `  ( F `
  R ) )  =  R )
 
Theoremcdlemeg46gf 29411* TODO FIX COMMENT Eliminate antecedent  R  .<_  ( P  .\/  Q ). (Contributed by NM, 4-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) ) )  ->  ( G `  ( F `  R ) )  =  R )
 
Theoremcdlemeg46fgN 29412* TODO FIX COMMENT p. 116 penultimate line: f(g(r)) = r. (Contributed by NM, 4-Apr-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) ) )  ->  ( F `  ( G `  R ) )  =  R )
 
Theoremcdleme48d 29413* TODO: fix comment. (Contributed by NM, 8-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( X  e.  B  /\  -.  X  .<_  W ) ) 
 /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  ( S  .\/  ( X 
 ./\  W ) )  =  X ) )  ->  ( G `  ( F `
  X ) )  =  X )
 
Theoremcdleme48gfv1 29414* TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( X  e.  B  /\  -.  X  .<_  W ) ) )  ->  ( G `  ( F `  X ) )  =  X )
 
Theoremcdleme48gfv 29415* TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  X  e.  B )  ->  ( G `  ( F `  X ) )  =  X )
 
Theoremcdleme48fgv 29416* TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  X  e.  B )  ->  ( F `  ( G `  X ) )  =  X )
 
Theoremcdlemeg49lebilem 29417* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( X  e.  B  /\  Y  e.  B )
 )  ->  ( X  .<_  Y  <->  ( F `  X )  .<_  ( F `
  Y ) ) )
 
Theoremcdleme50lebi 29418* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( X  e.  B  /\  Y  e.  B )
 )  ->  ( X  .<_  Y  <->  ( F `  X )  .<_  ( F `
  Y ) ) )
 
Theoremcdleme50eq 29419* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( X  e.  B  /\  Y  e.  B )
 )  ->  ( ( F `  X )  =  ( F `  Y ) 
 <->  X  =  Y ) )
 
Theoremcdleme50f 29420* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment TODO: can we use just  F  Fn  B since range is computed in cdleme50rn 29423? (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  F : B
 --> B )
 
Theoremcdleme50f1 29421* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  F : B -1-1-> B )
 
Theoremcdleme50rnlem 29422* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment TODO: can we get rid of  G stuff if we show  G  =  `' F earlier? (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  ran  F  =  B )
 
Theoremcdleme50rn 29423* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  ran  F  =  B )
 
Theoremcdleme50f1o 29424* Part of proof of Lemma D in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  F : B
 -1-1-onto-> B )
 
Theoremcdleme50laut 29425* Part of proof of Lemma D in [Crawley] p. 113.  F is a lattice automorphism. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  I  =  (
 LAut `  K )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  F  e.  I )
 
Theoremcdleme50ldil 29426* Part of proof of Lemma D in [Crawley] p. 113.  F is a lattice dilation. TODO: fix comment. (Contributed by NM, 9-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  C  =  ( ( LDil `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  F  e.  C )
 
Theoremcdleme50trn1 29427* Part of proof that  F is a tranlation.  -.  R  .<_  ( P  .\/  Q ) case. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) ) 
 /\  -.  R  .<_  ( P  .\/  Q )
 )  ->  ( ( R  .\/  ( F `  R ) )  ./\  W )  =  U )
 
Theoremcdleme50trn2a 29428* Part of proof that  F is a translation.  R  .<_  ( P 
.\/  Q ) case. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W )  /\  ( S  e.  A  /\  -.  S  .<_  W ) )  /\  ( R 
 .<_  ( P  .\/  Q )  /\  -.  S  .<_  ( P  .\/  Q )
 ) )  ->  (
 ( R  .\/  ( F `  R ) ) 
 ./\  W )  =  U )
 
Theoremcdleme50trn2 29429* Part of proof that  F is a translation. Remove  S hypotheses no longer needed from cdleme50trn2a 29428. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) ) 
 /\  R  .<_  ( P 
 .\/  Q ) )  ->  ( ( R  .\/  ( F `  R ) )  ./\  W )  =  U )
 
Theoremcdleme50trn12 29430* Part of proof that  F is a translation. Combine  R  .<_  ( P 
.\/  Q ) and  -.  R  .<_  ( P  .\/  Q ) cases. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =/=  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) ) )  ->  ( ( R  .\/  ( F `  R ) )  ./\  W )  =  U )
 
Theoremcdleme50trn3 29431* Part of proof that  F is a translation.  P  =  Q case. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( P  =  Q  /\  ( R  e.  A  /\  -.  R  .<_  W ) ) )  ->  (
 ( R  .\/  ( F `  R ) ) 
 ./\  W )  =  U )
 
Theoremcdleme50trn123 29432* Part of proof that  F is a translation. Combine all cases. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( R  e.  A  /\  -.  R  .<_  W ) ) 
 ->  ( ( R  .\/  ( F `  R ) )  ./\  W )  =  U )
 
Theoremcdleme51finvfvN 29433* Part of proof of Lemma E in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 14-Apr-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  X  e.  B )  ->  ( `' F `  X )  =  ( G `  X ) )
 
Theoremcdleme51finvN 29434* Part of proof of Lemma E in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 14-Apr-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  V  =  ( ( Q  .\/  P )  ./\  W )   &    |-  N  =  ( ( v  .\/  V )  ./\  ( P  .\/  ( ( Q  .\/  v )  ./\  W ) ) )   &    |-  O  =  ( ( Q  .\/  P )  ./\  ( N  .\/  ( ( u  .\/  v )  ./\  W ) ) )   &    |-  G  =  ( a  e.  B  |->  if ( ( Q  =/=  P 
 /\  -.  a  .<_  W ) ,  ( iota_ c  e.  B A. u  e.  A  ( ( -.  u  .<_  W  /\  ( u  .\/  ( a  ./\  W ) )  =  a )  ->  c  =  ( if ( u  .<_  ( Q  .\/  P ) ,  ( iota_ b  e.  B A. v  e.  A  ( ( -.  v  .<_  W  /\  -.  v  .<_  ( Q  .\/  P ) )  ->  b  =  O ) ) , 
 [_ u  /  v ]_ N )  .\/  (
 a  ./\  W ) ) ) ) ,  a
 ) )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  `' F  =  G )
 
Theoremcdleme50ltrn 29435* Part of proof of Lemma E in [Crawley] p. 113.  F is a lattice translation. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  T  =  ( ( LTrn `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  F  e.  T )
 
Theoremcdleme51finvtrN 29436* Part of proof of Lemma E in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 14-Apr-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  F  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  T  =  ( ( LTrn `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  `' F  e.  T )
 
Theoremcdleme50ex 29437* Part of Lemma E in [Crawley] p. 113. TODO: fix comment. (Contributed by NM, 11-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  E. f  e.  T  ( f `  P )  =  Q )
 
Theoremcdleme 29438* Lemma E in [Crawley] p. 113. If p,q are atoms not under hyperplane w, then there is a unique translation f such that f(p) = q. (Contributed by NM, 11-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  E! f  e.  T  (
 f `  P )  =  Q )
 
Theoremcdlemf1 29439* Part of Lemma F in [Crawley] p. 116. TODO: should this or part of it become a stand-alone theorem? (Contributed by NM, 12-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  A  =  (
 Atoms `  K )   &    |-  H  =  ( LHyp `  K )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( U  e.  A  /\  U  .<_  W ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  E. q  e.  A  ( P  =/=  q  /\  -.  q  .<_  W 
 /\  U  .<_  ( P 
 .\/  q ) ) )
 
Theoremcdlemf2 29440* Part of Lemma F in [Crawley] p. 116. (Contributed by NM, 12-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  A  =  (
 Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  ./\  =  ( meet `  K )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( U  e.  A  /\  U  .<_  W ) )  ->  E. p  e.  A  E. q  e.  A  ( ( -.  p  .<_  W  /\  -.  q  .<_  W )  /\  U  =  ( ( p  .\/  q )  ./\  W ) ) )
 
Theoremcdlemf 29441* Lemma F in [Crawley] p. 116. If u is an atom under w, there exists a translation whose trace is u. (Contributed by NM, 12-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U  e.  A  /\  U  .<_  W ) ) 
 ->  E. f  e.  T  ( R `  f )  =  U )
 
Theoremcdlemfnid 29442* cdlemf 29441 with additional constraint of non-identity. (Contributed by NM, 20-Jun-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U  e.  A  /\  U  .<_  W ) ) 
 ->  E. f  e.  T  ( ( R `  f )  =  U  /\  f  =/=  (  _I  |`  B ) ) )
 
Theoremcdlemftr3 29443* Special case of cdlemf 29441 showing existence of non-identity translation with trace different from any 3 given lattice elements. (Contributed by NM, 24-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( K  e.  HL  /\  W  e.  H )  ->  E. f  e.  T  ( f  =/=  (  _I  |`  B ) 
 /\  ( ( R `
  f )  =/= 
 X  /\  ( R `  f )  =/=  Y  /\  ( R `  f
 )  =/=  Z )
 ) )
 
Theoremcdlemftr2 29444* Special case of cdlemf 29441 showing existence of non-identity translation with trace different from any 2 given lattice elements. (Contributed by NM, 25-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( K  e.  HL  /\  W  e.  H )  ->  E. f  e.  T  ( f  =/=  (  _I  |`  B ) 
 /\  ( R `  f )  =/=  X  /\  ( R `  f )  =/=  Y ) )
 
Theoremcdlemftr1 29445* Part of proof of Lemma G of [Crawley] p. 116, sixth line of third paragraph on p. 117: there is "a translation h, different from the identity, such that tr h  =/= tr f." (Contributed by NM, 25-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( K  e.  HL  /\  W  e.  H )  ->  E. f  e.  T  ( f  =/=  (  _I  |`  B ) 
 /\  ( R `  f )  =/=  X ) )
 
Theoremcdlemftr0 29446* Special case of cdlemf 29441 showing existence of a non-identity translation. (Contributed by NM, 1-Aug-2013.)
 |-  B  =  ( Base `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   =>    |-  ( ( K  e.  HL  /\  W  e.  H )  ->  E. f  e.  T  f  =/=  (  _I  |`  B ) )
 
Theoremtrlord 29447* The ordering of two Hilbert lattice elements (under the fiducial hyperplane  W) is determined by the translations whose traces are under them. (Contributed by NM, 3-Mar-2014.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  Y  .<_  W ) ) 
 ->  ( X  .<_  Y  <->  A. f  e.  T  ( ( R `  f )  .<_  X  ->  ( R `  f ) 
 .<_  Y ) ) )
 
Theoremcdlemg1a 29448* Shorter expression for  G. TODO: fix comment. TODO: shorten using cdleme 29438 or vice-versa? Also, if not shortened with cdleme 29438, then it can be moved up to save repeating hypotheses. (Contributed by NM, 15-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  G  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  T  =  ( ( LTrn `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  G  =  ( iota_ f  e.  T ( f `  P )  =  Q )
 )
 
Theoremcdlemg1b2 29449* This theorem can be used to shorten 
G  = hypothesis. TODO: Fix comment. (Contributed by NM, 18-Apr-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  G  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  F  =  (
 iota_ f  e.  T ( f `  P )  =  Q )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 ->  F  =  G )
 
Theoremcdlemg1idlemN 29450* Lemma for cdlemg1idN 29455. (Contributed by NM, 18-Apr-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   &    |-  D  =  ( ( t  .\/  U )  ./\  ( Q  .\/  ( ( P  .\/  t )  ./\  W ) ) )   &    |-  E  =  ( ( P  .\/  Q )  ./\  ( D  .\/  ( ( s  .\/  t )  ./\  W ) ) )   &    |-  G  =  ( x  e.  B  |->  if ( ( P  =/=  Q 
 /\  -.  x  .<_  W ) ,  ( iota_ z  e.  B A. s  e.  A  ( ( -.  s  .<_  W  /\  (
 s  .\/  ( x  ./\ 
 W ) )  =  x )  ->  z  =  ( if ( s 
 .<_  ( P  .\/  Q ) ,  ( iota_ y  e.  B A. t  e.  A  ( ( -.  t  .<_  W  /\  -.  t  .<_  ( P  .\/  Q ) )  ->  y  =  E ) ) , 
 [_ s  /  t ]_ D )  .\/  ( x  ./\  W ) ) ) ) ,  x ) )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  F  =  (
 iota_ f  e.  T ( f `  P )  =  Q )   =>    |-  (
 ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  X  e.  B )  /\  P  =  Q )  ->  ( F `  X )  =  X )
 
Theorem