HomeHome Metamath Proof Explorer
Theorem List (p. 315 of 328)
< 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-22421)
  Hilbert Space Explorer  Hilbert Space Explorer
(22422-23944)
  Users' Mathboxes  Users' Mathboxes
(23945-32762)
 

Theorem List for Metamath Proof Explorer - 31401-31500   *Has distinct variable group(s)
TypeLabelDescription
Statement
 
Theoremcdlemg2m 31401 TODO: FIX COMMENT T (Contributed by NM, 25-Apr-2013.)
 |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  A  =  (
 Atoms `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  F  e.  T )  ->  ( ( ( F `  P )  .\/  ( F `  Q ) )  ./\  W )  =  U )
 
Theoremcdlemg5 31402* TODO: Is there a simpler more direct proof, that could be placed earlier e.g. near lhpexle 30802? TODO: The  .\/ hypothesis is unused. FIX COMMENT (Contributed by NM, 26-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  A  =  (
 Atoms `  K )   &    |-  H  =  ( LHyp `  K )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  E. q  e.  A  ( P  =/=  q  /\  -.  q  .<_  W ) )
 
Theoremcdlemb3 31403* Given two atoms not under the fiducial co-atom  W, there is a third. Lemma B in [Crawley] p. 112. TODO: Is there a simpler more direct proof, that could be placed earlier e.g. near lhpexle 30802? Then replace cdlemb2 30838 with it. This is a more general version of cdlemb2 30838 without  P  =/=  Q condition. (Contributed by NM, 27-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  A  =  (
 Atoms `  K )   &    |-  H  =  ( LHyp `  K )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 ->  E. r  e.  A  ( -.  r  .<_  W  /\  -.  r  .<_  ( P  .\/  Q ) ) )
 
Theoremcdlemg7fvbwN 31404 Properties of a translation of an element not under  W. TODO: Fix comment. Can this be simplified? Perhaps derived from cdleme48bw 31299? Done with a *ltrn* theorem? (Contributed by NM, 28-Apr-2013.) (New usage is discouraged.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  B  =  ( Base `  K )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  F  e.  T )  ->  ( ( F `  X )  e.  B  /\  -.  ( F `  X ) 
 .<_  W ) )
 
Theoremcdlemg4a 31405 TODO: FIX COMMENT If fg(p) = p, then tr f = tr g. (Contributed by NM, 23-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  F  e.  T  /\  G  e.  T )  /\  ( F `  ( G `  P ) )  =  P ) 
 ->  ( R `  F )  =  ( R `  G ) )
 
Theoremcdlemg4b1 31406 TODO: FIX COMMENT (Contributed by NM, 24-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  G  e.  T )  ->  ( P  .\/  V )  =  ( P  .\/  ( G `  P ) ) )
 
Theoremcdlemg4b2 31407 TODO: FIX COMMENT (Contributed by NM, 24-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  G  e.  T )  ->  ( ( G `  P )  .\/  V )  =  ( P  .\/  ( G `  P ) ) )
 
Theoremcdlemg4b12 31408 TODO: FIX COMMENT (Contributed by NM, 24-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  G  e.  T )  ->  ( ( G `  P )  .\/  V )  =  ( P  .\/  V ) )
 
Theoremcdlemg4c 31409 TODO: FIX COMMENT (Contributed by NM, 24-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  G  e.  T )  /\  -.  Q  .<_  ( P  .\/  V ) )  ->  -.  ( G `  Q )  .<_  ( P  .\/  V )
 )
 
Theoremcdlemg4d 31410 TODO: FIX COMMENT (Contributed by NM, 25-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  -.  Q  .<_  ( P  .\/  V )  /\  ( F `
  ( G `  P ) )  =  P ) )  ->  -.  ( G `  Q )  .<_  ( ( G `
  P )  .\/  ( F `  ( G `
  P ) ) ) )
 
Theoremcdlemg4e 31411 TODO: FIX COMMENT (Contributed by NM, 25-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   &    |-  ./\  =  ( meet `  K )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  -.  Q  .<_  ( P  .\/  V )  /\  ( F `
  ( G `  P ) )  =  P ) )  ->  ( F `  ( G `
  Q ) )  =  ( ( ( G `  Q ) 
 .\/  ( R `  F ) )  ./\  ( ( F `  ( G `  P ) )  .\/  ( (
 ( G `  P )  .\/  ( G `  Q ) )  ./\  W ) ) ) )
 
Theoremcdlemg4f 31412 TODO: FIX COMMENT (Contributed by NM, 25-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   &    |-  ./\  =  ( meet `  K )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  -.  Q  .<_  ( P  .\/  V )  /\  ( F `
  ( G `  P ) )  =  P ) )  ->  ( F `  ( G `
  Q ) )  =  ( ( Q 
 .\/  V )  ./\  ( P  .\/  ( ( P 
 .\/  Q )  ./\  W ) ) ) )
 
Theoremcdlemg4g 31413 TODO: FIX COMMENT (Contributed by NM, 25-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   &    |-  ./\  =  ( meet `  K )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  -.  Q  .<_  ( P  .\/  V )  /\  ( F `
  ( G `  P ) )  =  P ) )  ->  ( F `  ( G `
  Q ) )  =  ( ( Q 
 .\/  V )  ./\  ( P  .\/  Q ) ) )
 
Theoremcdlemg4 31414 TODO: FIX COMMENT (Contributed by NM, 25-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  -.  Q  .<_  ( P  .\/  V )  /\  ( F `
  ( G `  P ) )  =  P ) )  ->  ( F `  ( G `
  Q ) )  =  Q )
 
Theoremcdlemg6a 31415* TODO: FIX COMMENT TODO: replace with cdlemg4 31414. (Contributed by NM, 27-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( r  e.  A  /\  -.  r  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  -.  r  .<_  ( P  .\/  V )  /\  ( F `
  ( G `  P ) )  =  P ) )  ->  ( F `  ( G `
  r ) )  =  r )
 
Theoremcdlemg6b 31416* TODO: FIX COMMENT TODO: replace with cdlemg4 31414. (Contributed by NM, 27-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( r  e.  A  /\  -.  r  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  -.  Q  .<_  ( r  .\/  V )  /\  ( F `
  ( G `  r ) )  =  r ) )  ->  ( F `  ( G `
  Q ) )  =  Q )
 
Theoremcdlemg6c 31417* TODO: FIX COMMENT (Contributed by NM, 27-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  Q  .<_  ( P  .\/  V )  /\  ( F `  ( G `  P ) )  =  P ) )  ->  ( (
 ( r  e.  A  /\  -.  r  .<_  W ) 
 /\  -.  r  .<_  ( P  .\/  V )
 )  ->  ( F `  ( G `  Q ) )  =  Q ) )
 
Theoremcdlemg6d 31418* TODO: FIX COMMENT (Contributed by NM, 27-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  Q  .<_  ( P  .\/  V )  /\  ( F `  ( G `  P ) )  =  P ) )  ->  ( (
 ( r  e.  A  /\  -.  r  .<_  W ) 
 /\  -.  r  .<_  ( P  .\/  ( G `  P ) ) ) 
 ->  ( F `  ( G `  Q ) )  =  Q ) )
 
Theoremcdlemg6e 31419 TODO: FIX COMMENT (Contributed by NM, 27-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .\/  =  ( join `  K )   &    |-  V  =  ( R `  G )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  Q  .<_  ( P  .\/  V )  /\  ( F `  ( G `  P ) )  =  P ) )  ->  ( F `  ( G `  Q ) )  =  Q )
 
Theoremcdlemg6 31420 TODO: FIX COMMENT (Contributed by NM, 27-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 ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  ( F `  ( G `  P ) )  =  P ) ) 
 ->  ( F `  ( G `  Q ) )  =  Q )
 
Theoremcdlemg7fvN 31421 Value of a translation composition in terms of an associated atom. (Contributed by NM, 28-Apr-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( X  e.  B  /\  -.  X  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  ( P  .\/  ( X  ./\  W ) )  =  X ) ) 
 ->  ( F `  ( G `  X ) )  =  ( ( F `
  ( G `  P ) )  .\/  ( X  ./\  W ) ) )
 
Theoremcdlemg7aN 31422 TODO: FIX COMMENT (Contributed by NM, 28-Apr-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( X  e.  B  /\  -.  X  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  ( F `  ( G `  P ) )  =  P ) ) 
 ->  ( F `  ( G `  X ) )  =  X )
 
Theoremcdlemg7N 31423 TODO: FIX COMMENT (Contributed by NM, 28-Apr-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  X  e.  B )  /\  ( F  e.  T  /\  G  e.  T  /\  ( F `
  ( G `  P ) )  =  P ) )  ->  ( F `  ( G `
  X ) )  =  X )
 
Theoremcdlemg8a 31424 TODO: FIX COMMENT (Contributed by NM, 29-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  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 ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  ( F `  ( G `  P ) )  =  P ) ) 
 ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )
 )
 
Theoremcdlemg8b 31425 TODO: FIX COMMENT (Contributed by NM, 29-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  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 )  /\  F  e.  T )  /\  ( G  e.  T  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =  ( P  .\/  Q )  /\  ( F `  ( G `  P ) )  =/=  P ) )  ->  ( P  .\/  ( F `  ( G `  P ) ) )  =  ( P 
 .\/  Q ) )
 
Theoremcdlemg8c 31426 TODO: FIX COMMENT (Contributed by NM, 29-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  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 )  /\  F  e.  T )  /\  ( G  e.  T  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =  ( P  .\/  Q )  /\  ( F `  ( G `  P ) )  =/=  P ) )  ->  ( Q  .\/  ( F `  ( G `  Q ) ) )  =  ( P 
 .\/  Q ) )
 
Theoremcdlemg8d 31427 TODO: FIX COMMENT (Contributed by NM, 29-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  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 )  /\  F  e.  T )  /\  ( G  e.  T  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =  ( P  .\/  Q )  /\  ( F `  ( G `  P ) )  =/=  P ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  W )  =  ( ( Q 
 .\/  ( F `  ( G `  Q ) ) )  ./\  W ) )
 
Theoremcdlemg8 31428 TODO: FIX COMMENT (Contributed by NM, 29-Apr-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  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 )  /\  F  e.  T )  /\  ( G  e.  T  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )
 )
 
Theoremcdlemg9a 31429 TODO: FIX COMMENT (Contributed by NM, 1-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) 
 /\  F  e.  T )  /\  ( G  e.  T  /\  P  =/=  Q  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  U )  ./\  ( ( F `  ( G `  P ) )  .\/  U ) )  .<_  ( ( G `  P ) 
 .\/  U ) )
 
Theoremcdlemg9b 31430 The triples  <. P ,  ( F `  ( G `
 P ) ) ,  ( F `  P ) >. and  <. Q , 
( F `  ( G `  Q )
) ,  ( F `
 Q ) >. are centrally perspective. TODO: FIX COMMENT (Contributed by NM, 1-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  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 )  /\  F  e.  T )  /\  ( G  e.  T  /\  P  =/=  Q  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  Q )  ./\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
  Q ) ) ) )  .<_  ( ( G `  P ) 
 .\/  ( G `  Q ) ) )
 
Theoremcdlemg9 31431 The triples  <. P ,  ( F `  ( G `
 P ) ) ,  ( F `  P ) >. and  <. Q , 
( F `  ( G `  Q )
) ,  ( F `
 Q ) >. are axially perspective by dalaw 30683. Part of Lemma G of [Crawley] p. 116, last 2 lines. TODO: FIX COMMENT (Contributed by NM, 1-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  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 )  /\  F  e.  T )  /\  ( G  e.  T  /\  P  =/=  Q  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) )  .<_  ( ( ( ( F `  ( G `  P ) )  .\/  ( G `  P ) )  ./\  ( ( F `  ( G `  Q ) )  .\/  ( G `  Q ) ) ) 
 .\/  ( ( ( G `  P ) 
 .\/  P )  ./\  (
 ( G `  Q )  .\/  Q ) ) ) )
 
Theoremcdlemg10b 31432 TODO: FIX COMMENT TODO: Can this be moved up as a stand-alone theorem in ltrn* area? (Contributed by NM, 4-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  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 ) ) 
 /\  F  e.  T )  ->  ( ( ( F `  P ) 
 .\/  ( F `  Q ) )  ./\  W )  =  ( ( P  .\/  Q )  ./\ 
 W ) )
 
Theoremcdlemg10bALTN 31433 TODO: FIX COMMENT TODO: Can this be moved up as a stand-alone theorem in ltrn* area? TODO: Compare this proof to cdlemg2m 31401 and pick best, if moved to ltrn* area. (Contributed by NM, 4-May-2013.) (New usage is discouraged.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H  /\  F  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  (
 ( ( F `  P )  .\/  ( F `
  Q ) ) 
 ./\  W )  =  ( ( P  .\/  Q )  ./\  W ) )
 
Theoremcdlemg11a 31434 TODO: FIX COMMENT (Contributed by NM, 4-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  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 ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q ) ) )  ->  ( F `  ( G `
  P ) )  =/=  P )
 
Theoremcdlemg11aq 31435 TODO: FIX COMMENT TODO: can proof using this be restructured to use cdlemg11a 31434? (Contributed by NM, 4-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  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 ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q ) ) )  ->  ( F `  ( G `
  Q ) )  =/=  Q )
 
Theoremcdlemg10c 31436 TODO: FIX COMMENT TODO: Can this be moved up as a stand-alone theorem in trl* area? (Contributed by NM, 4-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T ) )  ->  ( ( R `  F ) 
 .<_  ( ( G `  P )  .\/  ( G `
  Q ) )  <-> 
 ( R `  F )  .<_  ( P  .\/  Q ) ) )
 
Theoremcdlemg10a 31437 TODO: FIX COMMENT (Contributed by NM, 3-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( ( F `  ( G `
  P ) ) 
 .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -.  ( R `  F )  .<_  ( P  .\/  Q )  /\  -.  ( R `  G )  .<_  ( P  .\/  Q )
 ) )  ->  (
 ( P  .\/  ( F `  ( G `  P ) ) ) 
 ./\  ( Q  .\/  ( F `  ( G `
  Q ) ) ) )  .<_  ( ( R `  F ) 
 .\/  ( R `  G ) ) )
 
Theoremcdlemg10 31438 TODO: FIX COMMENT (Contributed by NM, 4-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( ( F `  ( G `
  P ) ) 
 .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -.  ( R `  F )  .<_  ( P  .\/  Q )  /\  -.  ( R `  G )  .<_  ( P  .\/  Q )
 ) )  ->  (
 ( P  .\/  ( F `  ( G `  P ) ) ) 
 ./\  ( Q  .\/  ( F `  ( G `
  Q ) ) ) )  .<_  W )
 
Theoremcdlemg11b 31439 TODO: FIX COMMENT (Contributed by NM, 5-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  Q  e.  A )  /\  ( G  e.  T  /\  P  =/=  Q  /\  -.  ( R `  G )  .<_  ( P  .\/  Q )
 ) )  ->  ( P  .\/  Q )  =/=  ( ( G `  P )  .\/  ( G `
  Q ) ) )
 
Theoremcdlemg12a 31440 TODO: FIX COMMENT. (Contributed by NM, 5-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) 
 /\  F  e.  T )  /\  ( G  e.  T  /\  P  =/=  Q  /\  ( P  .\/  U )  =/=  ( ( G `
  P )  .\/  U ) ) )  ->  ( ( P  .\/  U )  ./\  ( ( G `  P )  .\/  U ) )  .<_  ( ( F `  ( G `
  P ) ) 
 .\/  U ) )
 
Theoremcdlemg12b 31441 The triples  <. P ,  ( F `  P ) ,  ( F `  ( G `  P ) ) >. and  <. Q , 
( F `  Q
) ,  ( F `
 ( G `  Q ) ) >. are centrally perspective. TODO: FIX COMMENT (Contributed by NM, 5-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  P  =/=  Q  /\  -.  ( R `  G )  .<_  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  Q )  ./\  ( ( G `  P )  .\/  ( G `  Q ) ) )  .<_  ( ( F `  ( G `
  P ) ) 
 .\/  ( F `  ( G `  Q ) ) ) )
 
Theoremcdlemg12c 31442 The triples  <. P ,  ( F `  P ) ,  ( F `  ( G `  P ) ) >. and  <. Q , 
( F `  Q
) ,  ( F `
 ( G `  Q ) ) >. are axially perspective by dalaw 30683. TODO: FIX COMMENT (Contributed by NM, 5-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  P  =/=  Q  /\  -.  ( R `  G )  .<_  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  ( G `  P ) )  ./\  ( Q  .\/  ( G `  Q ) ) )  .<_  ( ( ( ( G `
  P )  .\/  ( F `  ( G `
  P ) ) )  ./\  ( ( G `  Q )  .\/  ( F `  ( G `
  Q ) ) ) )  .\/  (
 ( ( F `  ( G `  P ) )  .\/  P )  ./\  ( ( F `  ( G `  Q ) )  .\/  Q )
 ) ) )
 
Theoremcdlemg12d 31443 TODO: FIX COMMENT (Contributed by NM, 5-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T )  /\  ( P  =/=  Q 
 /\  -.  ( R `  F )  .<_  ( P 
 .\/  Q )  /\  -.  ( R `  G ) 
 .<_  ( P  .\/  Q ) ) )  ->  ( R `  G ) 
 .<_  ( ( R `  F )  .\/  ( ( ( F `  ( G `  P ) ) 
 .\/  P )  ./\  (
 ( F `  ( G `  Q ) ) 
 .\/  Q ) ) ) )
 
Theoremcdlemg12e 31444 TODO: FIX COMMENT (Contributed by NM, 6-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  .0.  =  ( 0. `  K )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q )  /\  ( -.  ( R `  F )  .<_  ( P 
 .\/  Q )  /\  -.  ( R `  G ) 
 .<_  ( P  .\/  Q )  /\  ( R `  F )  =/=  ( R `  G ) ) )  ->  ( (
 ( F `  ( G `  P ) ) 
 .\/  P )  ./\  (
 ( F `  ( G `  Q ) ) 
 .\/  Q ) )  =/= 
 .0.  )
 
Theoremcdlemg12f 31445 TODO: FIX COMMENT (Contributed by NM, 6-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( -.  ( R `  F )  .<_  ( P  .\/  Q )  /\  -.  ( R `  G )  .<_  ( P  .\/  Q )
 )  /\  ( R `  F )  =/=  ( R `  G )  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) )  .<_  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  W ) )
 
Theoremcdlemg12g 31446 TODO: FIX COMMENT TODO: Combine with cdlemg12f 31445. (Contributed by NM, 6-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( -.  ( R `  F )  .<_  ( P  .\/  Q )  /\  -.  ( R `  G )  .<_  ( P  .\/  Q )
 )  /\  ( R `  F )  =/=  ( R `  G )  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) )  =  ( ( P  .\/  ( F `  ( G `  P ) ) ) 
 ./\  W ) )
 
Theoremcdlemg12 31447 TODO: FIX COMMENT (Contributed by NM, 6-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( -.  ( R `  F )  .<_  ( P  .\/  Q )  /\  -.  ( R `  G )  .<_  ( P  .\/  Q )
 )  /\  ( R `  F )  =/=  ( R `  G )  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )
 )
 
Theoremcdlemg13a 31448 TODO: FIX COMMENT (Contributed by NM, 6-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T )  /\  ( ( F `
  P )  =/= 
 P  /\  ( R `  F )  =  ( R `  G ) 
 /\  ( ( F `
  ( G `  P ) )  .\/  ( F `  ( G `
  Q ) ) )  =/=  ( P 
 .\/  Q ) ) ) 
 ->  ( P  .\/  ( F `  ( G `  P ) ) )  =  ( ( G `
  P )  .\/  ( F `  ( G `
  P ) ) ) )
 
Theoremcdlemg13 31449 TODO: FIX COMMENT (Contributed by NM, 6-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T )  /\  ( ( F `
  P )  =/= 
 P  /\  ( R `  F )  =  ( R `  G ) 
 /\  ( ( F `
  ( G `  P ) )  .\/  ( F `  ( G `
  Q ) ) )  =/=  ( P 
 .\/  Q ) ) ) 
 ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )
 )
 
Theoremcdlemg14f 31450 TODO: FIX COMMENT (Contributed by NM, 6-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  ( F `  P )  =  P )
 )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  W )  =  ( ( Q 
 .\/  ( F `  ( G `  Q ) ) )  ./\  W ) )
 
Theoremcdlemg14g 31451 TODO: FIX COMMENT (Contributed by NM, 22-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  ( G `  P )  =  P )
 )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  W )  =  ( ( Q 
 .\/  ( F `  ( G `  Q ) ) )  ./\  W ) )
 
Theoremcdlemg15a 31452 Eliminate the  ( F `  P )  =/=  P condition from cdlemg13 31449. TODO: FIX COMMENT (Contributed by NM, 6-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T )  /\  ( ( R `
  F )  =  ( R `  G )  /\  ( ( F `
  ( G `  P ) )  .\/  ( F `  ( G `
  Q ) ) )  =/=  ( P 
 .\/  Q ) ) ) 
 ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )
 )
 
Theoremcdlemg15 31453 Eliminate the  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) condition from cdlemg13 31449. TODO: FIX COMMENT (Contributed by NM, 25-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T )  /\  ( R `  F )  =  ( R `  G ) ) 
 ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )
 )
 
Theoremcdlemg16 31454 Part of proof of Lemma G of [Crawley] p. 116; 2nd line p. 117, which says that (our) cdlemg10 31438 "implies (2)" (of p. 116). No details are provided by the authors, so there may be a shorter proof; but ours requires the 14 lemmas, one using Desargues' law dalaw 30683, in order to make this inference. This final step eliminates the  ( R `  F )  =/=  ( R `  G ) condition from cdlemg12 31447. TODO: FIX COMMENT TODO: should we also eliminate  P  =/=  Q here (or earlier)? Do it if we don't need to add it in for something else later. (Contributed by NM, 6-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( -.  ( R `  F )  .<_  ( P  .\/  Q )  /\  -.  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  (
 ( F `  ( G `  P ) ) 
 .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  W )  =  ( ( Q 
 .\/  ( F `  ( G `  Q ) ) )  ./\  W ) )
 
Theoremcdlemg16ALTN 31455 This version of cdlemg16 31454 uses cdlemg15a 31452 instead of cdlemg15 31453, in case cdlemg15 31453 ends up not being needed. TODO: FIX COMMENT (Contributed by NM, 6-May-2013.) (New usage is discouraged.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H  /\  ( F  e.  T  /\  G  e.  T ) )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) 
 /\  P  =/=  Q )  /\  ( ( ( F `  ( G `
  P ) ) 
 .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -.  ( R `  F )  .<_  ( P  .\/  Q )  /\  -.  ( R `  G )  .<_  ( P  .\/  Q )
 ) )  ->  (
 ( P  .\/  ( F `  ( G `  P ) ) ) 
 ./\  W )  =  ( ( Q  .\/  ( F `  ( G `  Q ) ) ) 
 ./\  W ) )
 
Theoremcdlemg16z 31456 Eliminate  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `
 Q ) ) )  =/=  ( P 
.\/  Q ) condition from cdlemg16 31454. TODO: would it help to also eliminate  P  =/=  Q here or later? (Contributed by NM, 25-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( -.  ( R `  F )  .<_  ( P  .\/  Q )  /\  -.  ( R `  G )  .<_  ( P 
 .\/  Q ) ) ) 
 ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )
 )
 
Theoremcdlemg16zz 31457 Eliminate  P  =/=  Q from cdlemg16z 31456. TODO: Use this only if needed. (Contributed by NM, 26-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  -.  ( R `  F )  .<_  ( P 
 .\/  Q )  /\  -.  ( R `  G ) 
 .<_  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )
 )
 
Theoremcdlemg17a 31458 TODO: FIX COMMENT (Contributed by NM, 8-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( G  e.  T  /\  ( R `  G )  .<_  ( P 
 .\/  Q ) ) ) 
 ->  ( G `  P )  .<_  ( P  .\/  Q ) )
 
Theoremcdlemg17b 31459* Part of proof of Lemma G in [Crawley] p. 117, 4th line. Whenever (in their terminology) p  \/ q/0 (i.e. the sublattice from 0 to p  \/ q) contains precisely three atoms and g is not the identity, g(p) = q. See also comments under cdleme0nex 31087. (Contributed by NM, 8-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( G  e.  T  /\  P  =/=  Q )  /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( G `  P )  =  Q )
 
Theoremcdlemg17dN 31460* TODO: fix comment. (Contributed by NM, 9-May-2013.) (New usage is discouraged.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H  /\  G  e.  T )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  P  =/=  Q )  /\  ( ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) )  /\  ( G `  P )  =/=  P ) ) 
 ->  ( R `  G )  =  ( ( P  .\/  Q )  ./\  W ) )
 
Theoremcdlemg17dALTN 31461 Same as cdlemg17dN 31460 with fewer antecedents but longer proof TODO: fix comment. (Contributed by NM, 9-May-2013.) (New usage is discouraged.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H  /\  G  e.  T )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  Q  e.  A  /\  P  =/=  Q )  /\  ( ( R `
  G )  .<_  ( P  .\/  Q )  /\  ( G `  P )  =/=  P ) ) 
 ->  ( R `  G )  =  ( ( P  .\/  Q )  ./\  W ) )
 
Theoremcdlemg17e 31462* TODO: fix comment. (Contributed by NM, 8-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( ( F `  P )  .\/  ( F `  Q ) )  =  ( ( F `  P ) 
 .\/  ( R `  G ) ) )
 
Theoremcdlemg17f 31463* TODO: fix comment. (Contributed by NM, 8-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( ( F `  P )  .\/  ( F `  Q ) )  =  ( ( F `  P ) 
 .\/  ( G `  ( F `  P ) ) ) )
 
Theoremcdlemg17g 31464* TODO: fix comment. (Contributed by NM, 9-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( G `  ( F `  P ) )  .<_  ( ( F `  P ) 
 .\/  ( F `  Q ) ) )
 
Theoremcdlemg17h 31465* TODO: fix comment. (Contributed by NM, 10-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( ( S  e.  A  /\  -.  S  .<_  W )  /\  ( F  e.  T  /\  G  e.  T ) 
 /\  ( P  =/=  Q 
 /\  S  .<_  ( ( F `  P ) 
 .\/  ( F `  Q ) ) ) )  /\  ( ( G `  P )  =/=  P  /\  ( R `  G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P 
 .\/  r )  =  ( Q  .\/  r
 ) ) ) ) 
 ->  ( S  =  ( F `  P )  \/  S  =  ( F `  Q ) ) )
 
Theoremcdlemg17i 31466* TODO: fix comment. (Contributed by NM, 10-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( G `  ( F `  P ) )  =  ( F `  Q ) )
 
Theoremcdlemg17ir 31467* TODO: fix comment. (Contributed by NM, 13-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( F `  ( G `  P ) )  =  ( F `  Q ) )
 
Theoremcdlemg17j 31468* TODO: fix comment. (Contributed by NM, 11-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( G `  ( F `  P ) )  =  ( F `  ( G `  P ) ) )
 
Theoremcdlemg17pq 31469* Utility theorem for swapping  P and  Q. TODO: fix comment. (Contributed by NM, 11-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( (
 ( K  e.  HL  /\  W  e.  H ) 
 /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  ( P  e.  A  /\  -.  P  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  Q  =/=  P ) 
 /\  ( ( G `
  Q )  =/= 
 Q  /\  ( R `  G )  .<_  ( Q 
 .\/  P )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( Q  .\/  r )  =  ( P  .\/  r ) ) ) ) )
 
Theoremcdlemg17bq 31470* cdlemg17b 31459 with  P and  Q swapped. Antecedent  F  e.  ( T `  W ) is redundant for easier use. TODO: should we have redundant antecedent for cdlemg17b 31459 also? (Contributed by NM, 13-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( G `  Q )  =  P )
 
Theoremcdlemg17iqN 31471* cdlemg17i 31466 with  P and  Q swapped. (Contributed by NM, 13-May-2013.) (New usage is discouraged.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H  /\  ( F  e.  T  /\  G  e.  T ) )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) 
 /\  P  =/=  Q )  /\  ( ( R `
  G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P 
 .\/  r )  =  ( Q  .\/  r
 ) )  /\  ( G `  P )  =/= 
 P ) )  ->  ( G `  ( F `
  Q ) )  =  ( F `  P ) )
 
Theoremcdlemg17irq 31472* cdlemg17ir 31467 with  P and  Q swapped. (Contributed by NM, 13-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( F `  ( G `  Q ) )  =  ( F `  P ) )
 
Theoremcdlemg17jq 31473* cdlemg17j 31468 with  P and  Q swapped. (Contributed by NM, 13-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( G `  ( F `  Q ) )  =  ( F `  ( G `  Q ) ) )
 
Theoremcdlemg17 31474* Part of Lemma G of [Crawley] p. 117, lines 7 and 8. We show an argument whose value at  G equals itself. TODO: fix comment. (Contributed by NM, 12-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( G `
  P )  =/= 
 P  /\  ( R `  G )  .<_  ( P 
 .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( G `  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) ) )  =  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) ) )
 
Theoremcdlemg18a 31475 Show two lines are different. TODO: fix comment. (Contributed by NM, 14-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  Q  e.  A  /\  F  e.  T )  /\  ( P  =/=  Q  /\  ( ( F `  Q )  .\/  ( F `
  P ) )  =/=  ( P  .\/  Q ) ) )  ->  ( P  .\/  ( F `
  Q ) )  =/=  ( Q  .\/  ( F `  P ) ) )
 
Theoremcdlemg18b 31476 Lemma for cdlemg18c 31477. TODO: fix comment. (Contributed by NM, 15-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) 
 /\  F  e.  T )  /\  ( P  =/=  Q 
 /\  ( F `  P )  =/=  Q  /\  ( ( F `  Q )  .\/  ( F `
  P ) )  =/=  ( P  .\/  Q ) ) )  ->  -.  P  .<_  ( U  .\/  ( F `  Q ) ) )
 
Theoremcdlemg18c 31477 Show two lines intersect at an atom. TODO: fix comment. (Contributed by NM, 15-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  U  =  ( ( P  .\/  Q )  ./\  W )   =>    |-  (
 ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) 
 /\  F  e.  T )  /\  ( P  =/=  Q 
 /\  ( F `  P )  =/=  Q  /\  ( ( F `  Q )  .\/  ( F `
  P ) )  =/=  ( P  .\/  Q ) ) )  ->  ( ( P  .\/  ( F `  Q ) )  ./\  ( Q  .\/  ( F `  P ) ) )  e.  A )
 
Theoremcdlemg18d 31478* Show two lines intersect at an atom. TODO: fix comment. (Contributed by NM, 15-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( ( F  e.  T  /\  G  e.  T )  /\  P  =/=  Q  /\  ( G `
  P )  =/= 
 P )  /\  (
 ( R `  G )  .<_  ( P  .\/  Q )  /\  ( ( F `  ( G `
  P ) ) 
 .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -. 
 E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) )  e.  A )
 
Theoremcdlemg18 31479* Show two lines intersect at an atom. TODO: fix comment. (Contributed by NM, 15-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( ( F  e.  T  /\  G  e.  T )  /\  P  =/=  Q  /\  ( G `
  P )  =/= 
 P )  /\  (
 ( R `  G )  .<_  ( P  .\/  Q )  /\  ( ( F `  ( G `
  P ) ) 
 .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -. 
 E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) )  .<_  W )
 
Theoremcdlemg19a 31480* Show two lines intersect at an atom. TODO: fix comment. (Contributed by NM, 15-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( ( F  e.  T  /\  G  e.  T )  /\  P  =/=  Q  /\  ( G `
  P )  =/= 
 P )  /\  (
 ( R `  G )  .<_  ( P  .\/  Q )  /\  ( ( F `  ( G `
  P ) ) 
 .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -. 
 E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) )  =  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )
 )
 
Theoremcdlemg19 31481* Show two lines intersect at an atom. TODO: fix comment. (Contributed by NM, 15-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( ( F  e.  T  /\  G  e.  T )  /\  P  =/=  Q  /\  ( G `
  P )  =/= 
 P )  /\  (
 ( R `  G )  .<_  ( P  .\/  Q )  /\  ( ( F `  ( G `
  P ) ) 
 .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -. 
 E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  W )  =  ( ( Q 
 .\/  ( F `  ( G `  Q ) ) )  ./\  W ) )
 
Theoremcdlemg20 31482* Show two lines intersect at an atom. TODO: fix comment. (Contributed by NM, 23-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( R `
  G )  .<_  ( P  .\/  Q )  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P 
 .\/  r )  =  ( Q  .\/  r
 ) ) ) ) 
 ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )
 )
 
Theoremcdlemg21 31483* Version of cdlemg19 with  ( R `  F
)  .<_  ( P  .\/  Q ) instead of  ( R `  G )  .<_  ( P 
.\/  Q ) as a condition. (Contributed by NM, 23-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( ( F  e.  T  /\  G  e.  T )  /\  P  =/=  Q  /\  ( F `
  P )  =/= 
 P )  /\  (
 ( R `  F )  .<_  ( P  .\/  Q )  /\  ( ( F `  ( G `
  P ) ) 
 .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -. 
 E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  W )  =  ( ( Q 
 .\/  ( F `  ( G `  Q ) ) )  ./\  W ) )
 
Theoremcdlemg22 31484* cdlemg21 31483 with  ( F `  P )  =/=  P condition removed. (Contributed by NM, 23-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( R `
  F )  .<_  ( P  .\/  Q )  /\  ( ( F `  ( G `  P ) )  .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P 
 .\/  r )  =  ( Q  .\/  r
 ) ) ) ) 
 ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )
 )
 
Theoremcdlemg24 31485* Combine cdlemg16z 31456 and cdlemg22 31484. TODO: Fix comment. (Contributed by NM, 24-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) 
 /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q ) 
 /\  ( ( ( F `  ( G `
  P ) ) 
 .\/  ( F `  ( G `  Q ) ) )  =/=  ( P  .\/  Q )  /\  -. 
 E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  W )  =  ( ( Q 
 .\/  ( F `  ( G `  Q ) ) )  ./\  W ) )
 
Theoremcdlemg37 31486* Use cdlemg8 31428 to eliminate the  =/=  ( P  .\/  Q
) condition of cdlemg24 31485. (Contributed by NM, 31-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  P  =/=  Q  /\  -. 
 E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  W )  =  ( ( Q 
 .\/  ( F `  ( G `  Q ) ) )  ./\  W ) )
 
Theoremcdlemg25zz 31487 cdlemg16zz 31457 restated for easier studying. TODO: Discard this after everything is figured out. (Contributed by NM, 26-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( z  e.  A  /\  -.  z  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  -.  ( R `  F )  .<_  ( P 
 .\/  z )  /\  -.  ( R `  G )  .<_  ( P  .\/  z ) ) ) 
 ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( z  .\/  ( F `  ( G `
  z ) ) )  ./\  W )
 )
 
Theoremcdlemg26zz 31488 cdlemg16zz 31457 restated for easier studying. TODO: Discard this after everything is figured out. (Contributed by NM, 26-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( Q  e.  A  /\  -.  Q  .<_  W )  /\  ( z  e.  A  /\  -.  z  .<_  W )  /\  F  e.  T )  /\  ( G  e.  T  /\  -.  ( R `  F )  .<_  ( Q 
 .\/  z )  /\  -.  ( R `  G )  .<_  ( Q  .\/  z ) ) ) 
 ->  ( ( Q  .\/  ( F `  ( G `
  Q ) ) )  ./\  W )  =  ( ( z  .\/  ( F `  ( G `
  z ) ) )  ./\  W )
 )
 
Theoremcdlemg27a 31489 For use with case when  ( P  .\/  v
)  ./\  ( Q  .\/  ( R `  F
) ) or  ( P  .\/  v )  ./\  ( Q  .\/  ( R `  F ) ) is zero, letting us establish  -.  z  .<_  W  /\  z  .<_  ( P 
.\/  v ) via 4atex 30873. TODO: Fix comment. (Contributed by NM, 28-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( v  e.  A  /\  v  .<_  W ) )  /\  ( z  e.  A  /\  F  e.  T ) 
 /\  ( v  =/=  ( R `  F )  /\  z  .<_  ( P 
 .\/  v )  /\  ( F `  P )  =/=  P ) ) 
 ->  -.  ( R `  F )  .<_  ( P 
 .\/  z ) )
 
Theoremcdlemg28a 31490 Part of proof of Lemma G of [Crawley] p. 116. First equality of the equation of line 14 on p. 117. (Contributed by NM, 29-May-2013.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( v  e.  A  /\  v  .<_  W ) )  /\  ( ( z  e.  A  /\  -.  z  .<_  W )  /\  F  e.  T  /\  G  e.  T )  /\  ( ( v  =/=  ( R `
  F )  /\  v  =/=  ( R `  G ) )  /\  z  .<_  ( P  .\/  v )  /\  ( ( F `  P )  =/=  P  /\  ( G `  P )  =/= 
 P ) ) ) 
 ->  ( ( P  .\/  ( F `  ( G `
  P ) ) )  ./\  W )  =  ( ( z  .\/  ( F `  ( G `
  z ) ) )  ./\  W )
 )
 
Theoremcdlemg31b0N 31491 TODO: Fix comment. (Contributed by NM, 30-May-2013.) (New usage is discouraged.)
 |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  N  =  ( ( P  .\/  v )  ./\  ( Q 
 .\/  ( R `  F ) ) )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H  /\  F  e.  T )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )