HomeHome Metamath Proof Explorer
Theorem List (p. 299 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 - 29801-29900   *Has distinct variable group(s)
TypeLabelDescription
Statement
 
Theoremcdlemkfid2N 29801 Lemma for cdlemkfid3N 29803. (Contributed by NM, 29-Jul-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  F  =  N )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B )  /\  b  e.  T )  /\  ( ( R `  b )  =/=  ( R `  F )  /\  ( P  e.  A  /\  -.  P  .<_  W ) ) )  ->  Z  =  ( b `  P ) )
 
Theoremcdlemkid2 29802* Lemma for cdlemkid 29814. (Contributed by NM, 24-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  G  =  (  _I  |`  B )  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) ) )  ->  [_ G  /  g ]_ Y  =  P )
 
Theoremcdlemkfid3N 29803* TODO: is this useful or should it be deleted? (Contributed by NM, 29-Jul-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  =  N ) 
 /\  ( ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  G  e.  T  /\  ( b  e.  T  /\  b  =/=  (  _I  |`  B ) ) )  /\  (
 ( R `  b
 )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  G )  /\  ( P  e.  A  /\  -.  P  .<_  W ) ) )  ->  [_ G  /  g ]_ Y  =  ( G `  P ) )
 
Theoremcdlemky 29804* Part of proof of Lemma K of [Crawley] p. 118. TODO: clean up  ( b Y G ) stuff.  V represents  Y in cdlemk31 29774. (Contributed by NM, 21-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  S  =  ( f  e.  T  |->  ( iota_ i  e.  T ( i `  P )  =  (
 ( P  .\/  ( R `  f ) ) 
 ./\  ( ( N `
  P )  .\/  ( R `  ( f  o.  `' F ) ) ) ) ) )   &    |-  V  =  ( d  e.  T ,  e  e.  T  |->  ( iota_ j  e.  T ( j `
  P )  =  ( ( P  .\/  ( R `  e ) )  ./\  ( (
 ( S `  d
 ) `  P )  .\/  ( R `  (
 e  o.  `' d
 ) ) ) ) ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( b  e.  T  /\  (
 b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  G ) ) ) )  ->  [_ G  /  g ]_ Y  =  ( ( b V G ) `  P ) )
 
Theoremcdlemkyu 29805* Convert between function and explicit forms.  C represents  Z in cdlemkuu 29773. TODO: Clean all this up. (Contributed by NM, 21-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  S  =  ( f  e.  T  |->  ( iota_ i  e.  T ( i `  P )  =  (
 ( P  .\/  ( R `  f ) ) 
 ./\  ( ( N `
  P )  .\/  ( R `  ( f  o.  `' F ) ) ) ) ) )   &    |-  V  =  ( d  e.  T ,  e  e.  T  |->  ( iota_ j  e.  T ( j `
  P )  =  ( ( P  .\/  ( R `  e ) )  ./\  ( (
 ( S `  d
 ) `  P )  .\/  ( R `  (
 e  o.  `' d
 ) ) ) ) ) )   &    |-  Q  =  ( S `  b )   &    |-  C  =  ( e  e.  T  |->  ( iota_ j  e.  T ( j `  P )  =  (
 ( P  .\/  ( R `  e ) ) 
 ./\  ( ( Q `
  P )  .\/  ( R `  ( e  o.  `' b ) ) ) ) ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( b  e.  T  /\  (
 b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  G ) ) ) )  ->  [_ G  /  g ]_ Y  =  ( ( C `  G ) `  P ) )
 
Theoremcdlemkyuu 29806* cdlemkyu 29805 with some hypotheses eliminated. TODO: Clean all this up. (Contributed by NM, 21-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  S  =  ( f  e.  T  |->  ( iota_ i  e.  T ( i `  P )  =  (
 ( P  .\/  ( R `  f ) ) 
 ./\  ( ( N `
  P )  .\/  ( R `  ( f  o.  `' F ) ) ) ) ) )   &    |-  C  =  ( e  e.  T  |->  (
 iota_ j  e.  T ( j `  P )  =  ( ( P  .\/  ( R `  e ) )  ./\  ( ( ( S `
  b ) `  P )  .\/  ( R `
  ( e  o.  `' b ) ) ) ) ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) ) 
 /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) )  /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( b  e.  T  /\  ( b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `
  b )  =/=  ( R `  G ) ) ) ) 
 ->  [_ G  /  g ]_ Y  =  (
 ( C `  G ) `  P ) )
 
Theoremcdlemk11ta 29807* Part of proof of Lemma K of [Crawley] p. 118. Lemma for Eq. 5, p. 119.  G,  I stand for g, h. TODO: fix comment. (Contributed by NM, 21-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  S  =  ( f  e.  T  |->  ( iota_ i  e.  T ( i `  P )  =  (
 ( P  .\/  ( R `  f ) ) 
 ./\  ( ( N `
  P )  .\/  ( R `  ( f  o.  `' F ) ) ) ) ) )   &    |-  C  =  ( e  e.  T  |->  (
 iota_ j  e.  T ( j `  P )  =  ( ( P  .\/  ( R `  e ) )  ./\  ( ( ( S `
  b ) `  P )  .\/  ( R `
  ( e  o.  `' b ) ) ) ) ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) ) 
 /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) )  /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( b  e.  T  /\  ( b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `
  b )  =/=  ( R `  G ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  I ) ) ) )  ->  [_ G  /  g ]_ Y  .<_  (
 [_ I  /  g ]_ Y  .\/  ( R `
  ( I  o.  `' G ) ) ) )
 
Theoremcdlemk19ylem 29808* Lemma for cdlemk19y 29810. (Contributed by NM, 30-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  S  =  ( f  e.  T  |->  ( iota_ i  e.  T ( i `  P )  =  (
 ( P  .\/  ( R `  f ) ) 
 ./\  ( ( N `
  P )  .\/  ( R `  ( f  o.  `' F ) ) ) ) ) )   &    |-  C  =  ( e  e.  T  |->  (
 iota_ j  e.  T ( j `  P )  =  ( ( P  .\/  ( R `  e ) )  ./\  ( ( ( S `
  b ) `  P )  .\/  ( R `
  ( e  o.  `' b ) ) ) ) ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H ) 
 /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) ) )  /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( b  e.  T  /\  ( b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F ) ) ) )  ->  [_ F  /  g ]_ Y  =  ( N `  P ) )
 
Theoremcdlemk11tb 29809* Part of proof of Lemma K of [Crawley] p. 118. Lemma for Eq. 5, p. 119.  G,  I stand for g, h. cdlemk11ta 29807 with hypotheses removed. TODO: Can this be proved directly with no quantification? (Contributed by NM, 21-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( b  e.  T  /\  (
 b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  G ) ) 
 /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  I ) ) ) )  ->  [_ G  /  g ]_ Y  .<_  (
 [_ I  /  g ]_ Y  .\/  ( R `
  ( I  o.  `' G ) ) ) )
 
Theoremcdlemk19y 29810* cdlemk19 29747 with simpler hypotheses. TODO: Clean all this up. (Contributed by NM, 30-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( b  e.  T  /\  (
 b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F ) ) ) ) 
 ->  [_ F  /  g ]_ Y  =  ( N `  P ) )
 
Theoremcdlemkid3N 29811* Lemma for cdlemkid 29814. (Contributed by NM, 25-Jul-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  G  =  (  _I  |`  B )
 ) )  ->  [_ G  /  g ]_ X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  G ) )  ->  ( z `  P )  =  P )
 ) )
 
Theoremcdlemkid4 29812* Lemma for cdlemkid 29814. (Contributed by NM, 25-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  G  =  (  _I  |`  B )
 ) )  ->  [_ G  /  g ]_ X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  G ) )  ->  z  =  (  _I  |`  B ) ) ) )
 
Theoremcdlemkid5 29813* Lemma for cdlemkid 29814. (Contributed by NM, 25-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  G  =  (  _I  |`  B )
 ) )  ->  [_ G  /  g ]_ X  e.  T )
 
Theoremcdlemkid 29814* The value of the tau function (in Lemma K of [Crawley] p. 118) on the identity relation. (Contributed by NM, 25-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  G  =  (  _I  |`  B )
 ) )  ->  [_ G  /  g ]_ X  =  (  _I  |`  B )
 )
 
Theoremcdlemk35s 29815* Substitution version of cdlemk35 29790. (Contributed by NM, 22-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) )  /\  N  e.  T )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) ) )  ->  [_ G  /  g ]_ X  e.  T )
 
Theoremcdlemk35s-id 29816* Substitution version of cdlemk35 29790. (Contributed by NM, 26-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  G  e.  T  /\  N  e.  T )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) ) )  ->  [_ G  /  g ]_ X  e.  T )
 
Theoremcdlemk39s 29817* Substitution version of cdlemk39 29794. TODO: Can any commonality with cdlemk35s 29815 be exploited? (Contributed by NM, 23-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) )  /\  N  e.  T )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) ) )  ->  ( R `  [_ G  /  g ]_ X ) 
 .<_  ( R `  G ) )
 
Theoremcdlemk39s-id 29818* Substitution version of cdlemk39 29794 with non-identity requirement on  G removed. TODO: Can any commonality with cdlemk35s 29815 be exploited? (Contributed by NM, 26-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
 ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  G  e.  T  /\  N  e.  T )  /\  ( ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) ) )  ->  ( R `  [_ G  /  g ]_ X ) 
 .<_  ( R `  G ) )
 
Theoremcdlemk42 29819* Part of proof of Lemma K of [Crawley] p. 118. TODO: fix comment. (Contributed by NM, 20-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( b  e.  T  /\  (
 b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  G ) ) ) )  ->  ( [_ G  /  g ]_ X `  P )  =  [_ G  /  g ]_ Y )
 
Theoremcdlemk19xlem 29820* Lemma for cdlemk19x 29821. (Contributed by NM, 30-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  e.  T  /\  F  =/=  (  _I  |`  B )  /\  N  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( b  e.  T  /\  (
 b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F ) ) ) ) 
 ->  ( [_ F  /  g ]_ X `  P )  =  ( N `  P ) )
 
Theoremcdlemk19x 29821* cdlemk19 29747 with simpler hypotheses. TODO: Clean all this up. (Contributed by NM, 30-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B )  /\  N  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) ) 
 ->  ( [_ F  /  g ]_ X `  P )  =  ( N `  P ) )
 
Theoremcdlemk42yN 29822* Part of proof of Lemma K of [Crawley] p. 118. TODO: fix comment. (Contributed by NM, 20-Jul-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( b  e.  T  /\  (
 b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  G ) ) ) )  ->  ( [_ G  /  g ]_ X `  P )  =  ( ( P 
 .\/  ( R `  G ) )  ./\  ( Z  .\/  ( R `
  ( G  o.  `' b ) ) ) ) )
 
Theoremcdlemk11tc 29823* Part of proof of Lemma K of [Crawley] p. 118. Lemma for Eq. 5, p. 119.  G,  I stand for g, h. TODO: fix comment. (Contributed by NM, 21-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( b  e.  T  /\  (
 b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  G ) ) 
 /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  I ) ) ) )  ->  ( [_ G  /  g ]_ X `  P ) 
 .<_  ( ( [_ I  /  g ]_ X `  P )  .\/  ( R `
  ( I  o.  `' G ) ) ) )
 
Theoremcdlemk11t 29824* Part of proof of Lemma K of [Crawley] p. 118. Eq. 5, line 36, p. 119.  G,  I stand for g, h.  X represents tau. (Contributed by NM, 21-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) ) )  ->  ( [_ G  /  g ]_ X `  P ) 
 .<_  ( ( [_ I  /  g ]_ X `  P )  .\/  ( R `
  ( I  o.  `' G ) ) ) )
 
Theoremcdlemk45 29825* Part of proof of Lemma K of [Crawley] p. 118. Line 37, p. 119.  G,  I stand for g, h.  X represents tau. They do not explicitly mention the requirement  ( G  o.  I
)  =/=  (  _I  |  `  B ). (Contributed by NM, 22-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) 
 /\  ( G  o.  I )  =/=  (  _I  |`  B ) ) )  ->  ( [_ ( G  o.  I
 )  /  g ]_ X `  P )  .<_  ( ( [_ I  /  g ]_ X `  P )  .\/  ( R `  G ) ) )
 
Theoremcdlemk46 29826* Part of proof of Lemma K of [Crawley] p. 118. Line 38 (last line), p. 119.  G,  I stand for g, h.  X represents tau. (Contributed by NM, 22-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) 
 /\  ( G  o.  I )  =/=  (  _I  |`  B ) ) )  ->  ( [_ ( G  o.  I
 )  /  g ]_ X `  P )  .<_  ( ( [_ G  /  g ]_ X `  P )  .\/  ( R `  I ) ) )
 
Theoremcdlemk47 29827* Part of proof of Lemma K of [Crawley] p. 118. Line 2, p. 120.  G,  I stand for g, h.  X represents tau. (Contributed by NM, 22-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) 
 /\  ( R `  G )  =/=  ( R `  I ) ) )  ->  ( [_ ( G  o.  I
 )  /  g ]_ X `  P )  =  ( ( ( [_ G  /  g ]_ X `  P )  .\/  ( R `  I ) ) 
 ./\  ( ( [_ I  /  g ]_ X `  P )  .\/  ( R `  G ) ) ) )
 
Theoremcdlemk48 29828* Part of proof of Lemma K of [Crawley] p. 118. Line 4, p. 120.  G,  I stand for g, h.  X represents tau. (Contributed by NM, 22-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) ) )  ->  (
 ( [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X ) `
  P )  .<_  ( ( [_ I  /  g ]_ X `  P )  .\/  ( R `  [_ G  /  g ]_ X ) ) )
 
Theoremcdlemk49 29829* Part of proof of Lemma K of [Crawley] p. 118. Line 5, p. 120.  G,  I stand for g, h.  X represents tau. (Contributed by NM, 23-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) ) )  ->  (
 ( [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X ) `
  P )  .<_  ( ( [_ G  /  g ]_ X `  P )  .\/  ( R `  [_ I  /  g ]_ X ) ) )
 
Theoremcdlemk50 29830* Part of proof of Lemma K of [Crawley] p. 118. Line 6, p. 120.  G,  I stand for g, h.  X represents tau. TODO: Combine into cdlemk52 29832? (Contributed by NM, 23-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) ) )  ->  (
 ( [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X ) `
  P )  .<_  ( ( ( [_ G  /  g ]_ X `  P )  .\/  ( R `
  [_ I  /  g ]_ X ) )  ./\  ( ( [_ I  /  g ]_ X `  P )  .\/  ( R `
  [_ G  /  g ]_ X ) ) ) )
 
Theoremcdlemk51 29831* Part of proof of Lemma K of [Crawley] p. 118. Line 6, p. 120.  G,  I stand for g, h.  X represents tau. TODO: Combine into cdlemk52 29832? (Contributed by NM, 23-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) ) )  ->  (
 ( ( [_ G  /  g ]_ X `  P )  .\/  ( R `
  [_ I  /  g ]_ X ) )  ./\  ( ( [_ I  /  g ]_ X `  P )  .\/  ( R `
  [_ G  /  g ]_ X ) ) ) 
 .<_  ( ( ( [_ G  /  g ]_ X `  P )  .\/  ( R `  I ) ) 
 ./\  ( ( [_ I  /  g ]_ X `  P )  .\/  ( R `  G ) ) ) )
 
Theoremcdlemk52 29832* Part of proof of Lemma K of [Crawley] p. 118. Line 6, p. 120.  G,  I stand for g, h.  X represents tau. (Contributed by NM, 23-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) 
 /\  ( R `  G )  =/=  ( R `  I ) ) )  ->  ( ( [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X ) `
  P )  =  ( [_ ( G  o.  I )  /  g ]_ X `  P ) )
 
Theoremcdlemk53a 29833* Lemma for cdlemk53 29835. (Contributed by NM, 26-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  F  =/=  (  _I  |`  B ) )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) ) 
 /\  ( N  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) 
 /\  ( R `  G )  =/=  ( R `  I ) ) )  ->  [_ ( G  o.  I )  /  g ]_ X  =  (
 [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X ) )
 
Theoremcdlemk53b 29834* Lemma for cdlemk53 29835. (Contributed by NM, 26-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  e.  T  /\  F  =/=  (  _I  |`  B )  /\  N  e.  T )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( I  e.  T  /\  I  =/=  (  _I  |`  B ) 
 /\  ( R `  G )  =/=  ( R `  I ) ) )  ->  [_ ( G  o.  I )  /  g ]_ X  =  (
 [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X ) )
 
Theoremcdlemk53 29835* Part of proof of Lemma K of [Crawley] p. 118. Line 7, p. 120.  G,  I stand for g, h.  X represents tau. (Contributed by NM, 26-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  e.  T  /\  F  =/=  (  _I  |`  B )  /\  N  e.  T )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( I  e.  T  /\  ( R `  G )  =/=  ( R `  I
 ) ) )  ->  [_ ( G  o.  I
 )  /  g ]_ X  =  ( [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X ) )
 
Theoremcdlemk54 29836* Part of proof of Lemma K of [Crawley] p. 118. Line 10, p. 120.  G,  I stand for g, h.  X represents tau. (Contributed by NM, 26-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  e.  T  /\  F  =/=  (  _I  |`  B )  /\  N  e.  T )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( ( I  e.  T  /\  ( R `  G )  =  ( R `  I ) )  /\  j  e.  T  /\  ( j  =/=  (  _I  |`  B )  /\  ( R `  j )  =/=  ( R `  G )  /\  ( R `
  j )  =/=  ( R `  ( G  o.  I ) ) ) ) )  ->  ( [_ ( G  o.  I )  /  g ]_ X  o.  [_ j  /  g ]_ X )  =  ( ( [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X )  o.  [_ j  /  g ]_ X ) )
 
Theoremcdlemk55a 29837* Lemma for cdlemk55 29839. (Contributed by NM, 26-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  e.  T  /\  F  =/=  (  _I  |`  B )  /\  N  e.  T )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( ( I  e.  T  /\  ( R `  G )  =  ( R `  I ) )  /\  j  e.  T  /\  ( j  =/=  (  _I  |`  B )  /\  ( R `  j )  =/=  ( R `  G )  /\  ( R `
  j )  =/=  ( R `  ( G  o.  I ) ) ) ) )  ->  [_ ( G  o.  I
 )  /  g ]_ X  =  ( [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X ) )
 
Theoremcdlemk55b 29838* Lemma for cdlemk55 29839. (Contributed by NM, 26-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  e.  T  /\  F  =/=  (  _I  |`  B )  /\  N  e.  T )  /\  G  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  ( I  e.  T  /\  ( R `  G )  =  ( R `  I
 ) ) )  ->  [_ ( G  o.  I
 )  /  g ]_ X  =  ( [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X ) )
 
Theoremcdlemk55 29839* Part of proof of Lemma K of [Crawley] p. 118. Line 11, p. 120.  G,  I stand for g, h.  X represents tau. (Contributed by NM, 26-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  e.  T  /\  F  =/=  (  _I  |`  B )  /\  N  e.  T )  /\  G  e.  T  /\  I  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  [_ ( G  o.  I )  /  g ]_ X  =  (
 [_ G  /  g ]_ X  o.  [_ I  /  g ]_ X ) )
 
TheoremcdlemkyyN 29840* Part of proof of Lemma K of [Crawley] p. 118. TODO: clean up  ( b Y G ) stuff. (Contributed by NM, 21-Jul-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  S  =  ( f  e.  T  |->  ( iota_ i  e.  T ( i `
  P )  =  ( ( P  .\/  ( R `  f ) )  ./\  ( ( N `  P )  .\/  ( R `  ( f  o.  `' F ) ) ) ) ) )   &    |-  V  =  ( d  e.  T ,  e  e.  T  |->  ( iota_ j  e.  T ( j `
  P )  =  ( ( P  .\/  ( R `  e ) )  ./\  ( (
 ( S `  d
 ) `  P )  .\/  ( R `  (
 e  o.  `' d
 ) ) ) ) ) )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H  /\  ( R `
  F )  =  ( R `  N ) )  /\  ( ( F  e.  T  /\  F  =/=  (  _I  |`  B ) 
 /\  N  e.  T )  /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  (
 b  e.  T  /\  ( b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `
  b )  =/=  ( R `  G ) ) ) ) 
 ->  ( [_ G  /  g ]_ X `  P )  =  ( (
 b V G ) `
  P ) )
 
Theoremcdlemk43N 29841* Part of proof of Lemma K of [Crawley] p. 118. TODO: fix comment. (Contributed by NM, 31-Jul-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( ( F  e.  T  /\  N  e.  T  /\  F  =/=  N ) 
 /\  ( G  e.  T  /\  G  =/=  (  _I  |`  B ) ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W ) )  /\  (
 b  e.  T  /\  ( b  =/=  (  _I  |`  B )  /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `
  b )  =/=  ( R `  G ) ) ) ) 
 ->  ( ( U `  G ) `  P )  =  [_ G  /  g ]_ Y )
 
Theoremcdlemk35u 29842* Substitution version of cdlemk35 29790. (Contributed by NM, 31-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( F  e.  T  /\  N  e.  T  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( U `  G )  e.  T )
 
Theoremcdlemk55u1 29843* Lemma for cdlemk55u 29844. (Contributed by NM, 31-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  N  e.  T )  /\  ( ( ( R `
  F )  =  ( R `  N )  /\  F  =/=  N )  /\  G  e.  T  /\  I  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( U `  ( G  o.  I ) )  =  ( ( U `  G )  o.  ( U `  I ) ) )
 
Theoremcdlemk55u 29844* Part of proof of Lemma K of [Crawley] p. 118. Line 11, p. 120.  G,  I stand for g, h.  X represents tau. (Contributed by NM, 31-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  N  e.  T )  /\  ( ( R `  F )  =  ( R `  N )  /\  G  e.  T  /\  I  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( U `  ( G  o.  I
 ) )  =  ( ( U `  G )  o.  ( U `  I ) ) )
 
Theoremcdlemk39u1 29845* Lemma for cdlemk39u 29846. (Contributed by NM, 31-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  N  e.  T )  /\  ( ( R `  F )  =  ( R `  N )  /\  F  =/=  N  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) ) 
 ->  ( R `  ( U `  G ) ) 
 .<_  ( R `  G ) )
 
Theoremcdlemk39u 29846* Part of proof of Lemma K of [Crawley] p. 118. Line 31, p. 119. Trace-preserving property of the value of tau, represented by  ( U `  G ). (Contributed by NM, 31-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  N  e.  T )  /\  ( ( R `  F )  =  ( R `  N )  /\  G  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  ( U `  G ) )  .<_  ( R `
  G ) )
 
Theoremcdlemk19u1 29847* cdlemk19 29747 with simpler hypotheses. TODO: Clean all this up. (Contributed by NM, 31-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( F  e.  T  /\  F  =/=  N  /\  N  e.  T )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( U `  F ) `  P )  =  ( N `  P ) )
 
Theoremcdlemk19u 29848* Part of Lemma K of [Crawley] p. 118. Line 12, p. 120, "f (exponent) tau = k". We represent f, k, tau with  F,  N,  U. (Contributed by NM, 31-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( R `  F )  =  ( R `  N ) )  /\  ( F  e.  T  /\  N  e.  T ) 
 /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( U `  F )  =  N )
 
Theoremcdlemk56 29849* Part of Lemma K of [Crawley] p. 118. Line 11, p. 120, "tau is in Delta" i.e.  U is a trace-preserving endormorphism. (Contributed by NM, 31-Jul-2013.)
 |-  B  =  ( Base `  K )   &    |-  .<_  =  ( le `  K )   &    |- 
 .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) )  ./\  ( Z  .\/  ( R `  (
 g  o.  `' b
 ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   &    |-  E  =  ( (
 TEndo `  K ) `  W )   =>    |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  N  e.  T )  /\  ( R `  F )  =  ( R `  N )  /\  ( P  e.  A  /\  -.  P  .<_  W ) ) 
 ->  U  e.  E )
 
Theoremcdlemk19w 29850* Use a fixed element to eliminate  P in cdlemk19u 29848. (Contributed by NM, 1-Aug-2013.)
 |-  B  =  ( Base `  K )   &    |-  .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  ._|_  =  ( oc `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  P  =  (  ._|_  `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `
  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) ) 
 ./\  ( Z  .\/  ( R `  ( g  o.  `' b ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T )  /\  ( R `  F )  =  ( R `  N ) )  ->  ( U `  F )  =  N )
 
Theoremcdlemk56w 29851* Use a fixed element to eliminate  P in cdlemk56 29849. (Contributed by NM, 1-Aug-2013.)
 |-  B  =  ( Base `  K )   &    |-  .\/  =  ( join `  K )   &    |-  ./\  =  ( meet `  K )   &    |-  ._|_  =  ( oc `  K )   &    |-  A  =  ( Atoms `  K )   &    |-  H  =  (
 LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  P  =  (  ._|_  `  W )   &    |-  Z  =  ( ( P  .\/  ( R `  b ) )  ./\  ( ( N `  P )  .\/  ( R `
  ( b  o.  `' F ) ) ) )   &    |-  Y  =  ( ( P  .\/  ( R `  g ) ) 
 ./\  ( Z  .\/  ( R `  ( g  o.  `' b ) ) ) )   &    |-  X  =  ( iota_ z  e.  T A. b  e.  T  ( ( b  =/=  (  _I  |`  B ) 
 /\  ( R `  b )  =/=  ( R `  F )  /\  ( R `  b )  =/=  ( R `  g ) )  ->  ( z `  P )  =  Y )
 )   &    |-  U  =  ( g  e.  T  |->  if ( F  =  N ,  g ,  X )
 )   &    |-  E  =  ( (
 TEndo `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T )  /\  ( R `  F )  =  ( R `  N ) )  ->  ( U  e.  E  /\  ( U `  F )  =  N )
 )
 
Theoremcdlemk 29852* Lemma K of [Crawley] p. 118. Final result, lines 11 and 12 on p. 120: given two translations f and k with the same trace, there exists a trace-preserving endomorphism tau whose value at f is k. We use  F,  N, and  u to represent f, k, and tau. (Contributed by NM, 1-Aug-2013.)
 |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  E  =  ( ( TEndo `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T ) 
 /\  ( R `  F )  =  ( R `  N ) ) 
 ->  E. u  e.  E  ( u `  F )  =  N )
 
Theoremtendoex 29853* Generalization of Lemma K of [Crawley] p. 118, cdlemk 29852. TODO: can this be used to shorten uses of cdlemk 29852? (Contributed by NM, 15-Oct-2013.)
 |-  .<_  =  ( le `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  E  =  ( ( TEndo `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  N  e.  T ) 
 /\  ( R `  N )  .<_  ( R `
  F ) ) 
 ->  E. u  e.  E  ( u `  F )  =  N )
 
Theoremcdleml1N 29854 Part of proof of Lemma L of [Crawley] p. 120. TODO: fix comment. (Contributed by NM, 1-Aug-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  E  =  ( ( TEndo `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U  e.  E  /\  V  e.  E  /\  f  e.  T )  /\  ( f  =/=  (  _I  |`  B )  /\  ( U `  f )  =/=  (  _I  |`  B ) 
 /\  ( V `  f )  =/=  (  _I  |`  B ) ) )  ->  ( R `  ( U `  f
 ) )  =  ( R `  ( V `
  f ) ) )
 
Theoremcdleml2N 29855* Part of proof of Lemma L of [Crawley] p. 120. TODO: fix comment. (Contributed by NM, 1-Aug-2013.) (New usage is discouraged.)
 |-  B  =  ( Base `  K )   &    |-  H  =  ( LHyp `  K )   &    |-  T  =  ( ( LTrn `  K ) `  W )   &    |-  R  =  ( ( trL `  K ) `  W )   &    |-  E  =  ( ( TEndo `  K ) `  W )   =>    |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( U  e.  E  /\  V  e.  E  /\  f  e.  T )  /\  ( f  =/=  (  _I  |`  B )  /\  ( U `  f )  =/=  (  _I  |`  B ) 
 /\  ( V `  f )  =/=  (  _I  |`  B ) ) )  ->  E. s  e.  E  ( s `  ( U `  f ) )  =  ( V `
  f ) )