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

Theorem dihjatcclem4 37561
Description: Lemma for isomorphism H of lattice join of two atoms not under the fiducial hyperplane. (Contributed by NM, 29-Sep-2014.)
Hypotheses
Ref Expression
dihjatcclem.b  |-  B  =  ( Base `  K
)
dihjatcclem.l  |-  .<_  =  ( le `  K )
dihjatcclem.h  |-  H  =  ( LHyp `  K
)
dihjatcclem.j  |-  .\/  =  ( join `  K )
dihjatcclem.m  |-  ./\  =  ( meet `  K )
dihjatcclem.a  |-  A  =  ( Atoms `  K )
dihjatcclem.u  |-  U  =  ( ( DVecH `  K
) `  W )
dihjatcclem.s  |-  .(+)  =  (
LSSum `  U )
dihjatcclem.i  |-  I  =  ( ( DIsoH `  K
) `  W )
dihjatcclem.v  |-  V  =  ( ( P  .\/  Q )  ./\  W )
dihjatcclem.k  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
dihjatcclem.p  |-  ( ph  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
dihjatcclem.q  |-  ( ph  ->  ( Q  e.  A  /\  -.  Q  .<_  W ) )
dihjatcc.w  |-  C  =  ( ( oc `  K ) `  W
)
dihjatcc.t  |-  T  =  ( ( LTrn `  K
) `  W )
dihjatcc.r  |-  R  =  ( ( trL `  K
) `  W )
dihjatcc.e  |-  E  =  ( ( TEndo `  K
) `  W )
dihjatcc.g  |-  G  =  ( iota_ d  e.  T  ( d `  C
)  =  P )
dihjatcc.dd  |-  D  =  ( iota_ d  e.  T  ( d `  C
)  =  Q )
dihjatcc.n  |-  N  =  ( a  e.  E  |->  ( d  e.  T  |->  `' ( a `  d ) ) )
dihjatcc.o  |-  .0.  =  ( d  e.  T  |->  (  _I  |`  B ) )
dihjatcc.d  |-  J  =  ( a  e.  E ,  b  e.  E  |->  ( d  e.  T  |->  ( ( a `  d )  o.  (
b `  d )
) ) )
Assertion
Ref Expression
dihjatcclem4  |-  ( ph  ->  ( I `  V
)  C_  ( (
I `  P )  .(+)  ( I `  Q
) ) )
Distinct variable groups:    .<_ , d    A, d    B, d    C, d   
a, b, E    H, d    P, d    a, d, K, b    Q, d    T, a, b, d    W, a, b, d
Allowed substitution hints:    ph( a, b, d)    A( a, b)    B( a, b)    C( a, b)    D( a, b, d)    P( a, b)    .(+) ( a, b,
d)    Q( a, b)    R( a, b, d)    U( a, b, d)    E( d)    G( a, b, d)    H( a, b)    I( a, b, d)    J( a, b, d)    .\/ ( a, b, d)    .<_ ( a, b)    ./\ ( a, b, d)    N( a, b, d)    V( a, b, d)    .0. ( a,
b, d)

Proof of Theorem dihjatcclem4
Dummy variables  t 
f  s  g  h  u are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dihjatcclem.k . . 3  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
2 dihjatcclem.h . . . 4  |-  H  =  ( LHyp `  K
)
3 dihjatcclem.i . . . 4  |-  I  =  ( ( DIsoH `  K
) `  W )
42, 3dihvalrel 37419 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  Rel  ( I `  V ) )
51, 4syl 16 . 2  |-  ( ph  ->  Rel  ( I `  V ) )
61adantr 463 . . . . . . 7  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  -> 
( K  e.  HL  /\  W  e.  H ) )
7 dihjatcclem.l . . . . . . . . . . . 12  |-  .<_  =  ( le `  K )
8 dihjatcclem.a . . . . . . . . . . . 12  |-  A  =  ( Atoms `  K )
9 dihjatcc.w . . . . . . . . . . . 12  |-  C  =  ( ( oc `  K ) `  W
)
107, 8, 2, 9lhpocnel2 36156 . . . . . . . . . . 11  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( C  e.  A  /\  -.  C  .<_  W ) )
111, 10syl 16 . . . . . . . . . 10  |-  ( ph  ->  ( C  e.  A  /\  -.  C  .<_  W ) )
12 dihjatcclem.p . . . . . . . . . 10  |-  ( ph  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
13 dihjatcc.t . . . . . . . . . . 11  |-  T  =  ( ( LTrn `  K
) `  W )
14 dihjatcc.g . . . . . . . . . . 11  |-  G  =  ( iota_ d  e.  T  ( d `  C
)  =  P )
157, 8, 2, 13, 14ltrniotacl 36718 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( C  e.  A  /\  -.  C  .<_  W )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  G  e.  T )
161, 11, 12, 15syl3anc 1226 . . . . . . . . 9  |-  ( ph  ->  G  e.  T )
17 dihjatcclem.q . . . . . . . . . . 11  |-  ( ph  ->  ( Q  e.  A  /\  -.  Q  .<_  W ) )
18 dihjatcc.dd . . . . . . . . . . . 12  |-  D  =  ( iota_ d  e.  T  ( d `  C
)  =  Q )
197, 8, 2, 13, 18ltrniotacl 36718 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( C  e.  A  /\  -.  C  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  D  e.  T )
201, 11, 17, 19syl3anc 1226 . . . . . . . . . 10  |-  ( ph  ->  D  e.  T )
212, 13ltrncnv 36283 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  D  e.  T
)  ->  `' D  e.  T )
221, 20, 21syl2anc 659 . . . . . . . . 9  |-  ( ph  ->  `' D  e.  T
)
232, 13ltrnco 36858 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  `' D  e.  T
)  ->  ( G  o.  `' D )  e.  T
)
241, 16, 22, 23syl3anc 1226 . . . . . . . 8  |-  ( ph  ->  ( G  o.  `' D )  e.  T
)
2524adantr 463 . . . . . . 7  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  -> 
( G  o.  `' D )  e.  T
)
26 simprll 761 . . . . . . 7  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  -> 
f  e.  T )
27 simprlr 762 . . . . . . . 8  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  -> 
( R `  f
)  .<_  V )
28 dihjatcclem.b . . . . . . . . . 10  |-  B  =  ( Base `  K
)
29 dihjatcclem.j . . . . . . . . . 10  |-  .\/  =  ( join `  K )
30 dihjatcclem.m . . . . . . . . . 10  |-  ./\  =  ( meet `  K )
31 dihjatcclem.u . . . . . . . . . 10  |-  U  =  ( ( DVecH `  K
) `  W )
32 dihjatcclem.s . . . . . . . . . 10  |-  .(+)  =  (
LSSum `  U )
33 dihjatcclem.v . . . . . . . . . 10  |-  V  =  ( ( P  .\/  Q )  ./\  W )
34 dihjatcc.r . . . . . . . . . 10  |-  R  =  ( ( trL `  K
) `  W )
35 dihjatcc.e . . . . . . . . . 10  |-  E  =  ( ( TEndo `  K
) `  W )
3628, 7, 2, 29, 30, 8, 31, 32, 3, 33, 1, 12, 17, 9, 13, 34, 35, 14, 18dihjatcclem3 37560 . . . . . . . . 9  |-  ( ph  ->  ( R `  ( G  o.  `' D
) )  =  V )
3736adantr 463 . . . . . . . 8  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  -> 
( R `  ( G  o.  `' D
) )  =  V )
3827, 37breqtrrd 4393 . . . . . . 7  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  -> 
( R `  f
)  .<_  ( R `  ( G  o.  `' D ) ) )
397, 2, 13, 34, 35tendoex 37114 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( G  o.  `' D )  e.  T  /\  f  e.  T )  /\  ( R `  f )  .<_  ( R `  ( G  o.  `' D
) ) )  ->  E. t  e.  E  ( t `  ( G  o.  `' D
) )  =  f )
406, 25, 26, 38, 39syl121anc 1231 . . . . . 6  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  ->  E. t  e.  E  ( t `  ( G  o.  `' D
) )  =  f )
41 df-rex 2738 . . . . . 6  |-  ( E. t  e.  E  ( t `  ( G  o.  `' D ) )  =  f  <->  E. t
( t  e.  E  /\  ( t `  ( G  o.  `' D
) )  =  f ) )
4240, 41sylib 196 . . . . 5  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  ->  E. t ( t  e.  E  /\  ( t `
 ( G  o.  `' D ) )  =  f ) )
43 eqidd 2383 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( t `  G
)  =  ( t `
 G ) )
44 simprl 754 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
t  e.  E )
451ad2antrr 723 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( K  e.  HL  /\  W  e.  H ) )
4612ad2antrr 723 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( P  e.  A  /\  -.  P  .<_  W ) )
47 fvex 5784 . . . . . . . . . . . 12  |-  ( t `
 G )  e. 
_V
48 vex 3037 . . . . . . . . . . . 12  |-  t  e. 
_V
497, 8, 2, 9, 13, 35, 3, 14, 47, 48dihopelvalcqat 37386 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  -> 
( <. ( t `  G ) ,  t
>.  e.  ( I `  P )  <->  ( (
t `  G )  =  ( t `  G )  /\  t  e.  E ) ) )
5045, 46, 49syl2anc 659 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( <. ( t `  G ) ,  t
>.  e.  ( I `  P )  <->  ( (
t `  G )  =  ( t `  G )  /\  t  e.  E ) ) )
5143, 44, 50mpbir2and 920 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  ->  <. ( t `  G
) ,  t >.  e.  ( I `  P
) )
52 eqidd 2383 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( ( N `  t ) `  D
)  =  ( ( N `  t ) `
 D ) )
53 dihjatcc.n . . . . . . . . . . . 12  |-  N  =  ( a  e.  E  |->  ( d  e.  T  |->  `' ( a `  d ) ) )
542, 13, 35, 53tendoicl 36935 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  t  e.  E
)  ->  ( N `  t )  e.  E
)
5545, 44, 54syl2anc 659 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( N `  t
)  e.  E )
5617ad2antrr 723 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( Q  e.  A  /\  -.  Q  .<_  W ) )
57 fvex 5784 . . . . . . . . . . . 12  |-  ( ( N `  t ) `
 D )  e. 
_V
58 fvex 5784 . . . . . . . . . . . 12  |-  ( N `
 t )  e. 
_V
597, 8, 2, 9, 13, 35, 3, 18, 57, 58dihopelvalcqat 37386 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  -> 
( <. ( ( N `
 t ) `  D ) ,  ( N `  t )
>.  e.  ( I `  Q )  <->  ( (
( N `  t
) `  D )  =  ( ( N `
 t ) `  D )  /\  ( N `  t )  e.  E ) ) )
6045, 56, 59syl2anc 659 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( <. ( ( N `
 t ) `  D ) ,  ( N `  t )
>.  e.  ( I `  Q )  <->  ( (
( N `  t
) `  D )  =  ( ( N `
 t ) `  D )  /\  ( N `  t )  e.  E ) ) )
6152, 55, 60mpbir2and 920 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  ->  <. ( ( N `  t ) `  D
) ,  ( N `
 t ) >.  e.  ( I `  Q
) )
6216ad2antrr 723 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  ->  G  e.  T )
6322ad2antrr 723 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  ->  `' D  e.  T
)
642, 13, 35tendospdi1 37160 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( t  e.  E  /\  G  e.  T  /\  `' D  e.  T ) )  -> 
( t `  ( G  o.  `' D
) )  =  ( ( t `  G
)  o.  ( t `
 `' D ) ) )
6545, 44, 62, 63, 64syl13anc 1228 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( t `  ( G  o.  `' D
) )  =  ( ( t `  G
)  o.  ( t `
 `' D ) ) )
66 simprr 755 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( t `  ( G  o.  `' D
) )  =  f )
6720ad2antrr 723 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  ->  D  e.  T )
6853, 13tendoi2 36934 . . . . . . . . . . . . 13  |-  ( ( t  e.  E  /\  D  e.  T )  ->  ( ( N `  t ) `  D
)  =  `' ( t `  D ) )
6944, 67, 68syl2anc 659 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( ( N `  t ) `  D
)  =  `' ( t `  D ) )
702, 13, 35tendocnv 37161 . . . . . . . . . . . . 13  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  t  e.  E  /\  D  e.  T
)  ->  `' (
t `  D )  =  ( t `  `' D ) )
7145, 44, 67, 70syl3anc 1226 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  ->  `' ( t `  D )  =  ( t `  `' D
) )
7269, 71eqtr2d 2424 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( t `  `' D )  =  ( ( N `  t
) `  D )
)
7372coeq2d 5078 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( ( t `  G )  o.  (
t `  `' D
) )  =  ( ( t `  G
)  o.  ( ( N `  t ) `
 D ) ) )
7465, 66, 733eqtr3d 2431 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
f  =  ( ( t `  G )  o.  ( ( N `
 t ) `  D ) ) )
75 simplrr 760 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
s  =  .0.  )
76 dihjatcc.d . . . . . . . . . . . 12  |-  J  =  ( a  e.  E ,  b  e.  E  |->  ( d  e.  T  |->  ( ( a `  d )  o.  (
b `  d )
) ) )
77 dihjatcc.o . . . . . . . . . . . 12  |-  .0.  =  ( d  e.  T  |->  (  _I  |`  B ) )
782, 13, 35, 53, 28, 76, 77tendoipl2 36937 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  t  e.  E
)  ->  ( t J ( N `  t ) )  =  .0.  )
7945, 44, 78syl2anc 659 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
( t J ( N `  t ) )  =  .0.  )
8075, 79eqtr4d 2426 . . . . . . . . 9  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  -> 
s  =  ( t J ( N `  t ) ) )
81 opeq1 4131 . . . . . . . . . . . . . . 15  |-  ( g  =  ( t `  G )  ->  <. g ,  t >.  =  <. ( t `  G ) ,  t >. )
8281eleq1d 2451 . . . . . . . . . . . . . 14  |-  ( g  =  ( t `  G )  ->  ( <. g ,  t >.  e.  ( I `  P
)  <->  <. ( t `  G ) ,  t
>.  e.  ( I `  P ) ) )
8382anbi1d 702 . . . . . . . . . . . . 13  |-  ( g  =  ( t `  G )  ->  (
( <. g ,  t
>.  e.  ( I `  P )  /\  <. h ,  u >.  e.  ( I `  Q ) )  <->  ( <. (
t `  G ) ,  t >.  e.  ( I `  P )  /\  <. h ,  u >.  e.  ( I `  Q ) ) ) )
84 coeq1 5073 . . . . . . . . . . . . . . 15  |-  ( g  =  ( t `  G )  ->  (
g  o.  h )  =  ( ( t `
 G )  o.  h ) )
8584eqeq2d 2396 . . . . . . . . . . . . . 14  |-  ( g  =  ( t `  G )  ->  (
f  =  ( g  o.  h )  <->  f  =  ( ( t `  G )  o.  h
) ) )
8685anbi1d 702 . . . . . . . . . . . . 13  |-  ( g  =  ( t `  G )  ->  (
( f  =  ( g  o.  h )  /\  s  =  ( t J u ) )  <->  ( f  =  ( ( t `  G )  o.  h
)  /\  s  =  ( t J u ) ) ) )
8783, 86anbi12d 708 . . . . . . . . . . . 12  |-  ( g  =  ( t `  G )  ->  (
( ( <. g ,  t >.  e.  ( I `  P )  /\  <. h ,  u >.  e.  ( I `  Q ) )  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) )  <->  ( ( <. ( t `  G
) ,  t >.  e.  ( I `  P
)  /\  <. h ,  u >.  e.  (
I `  Q )
)  /\  ( f  =  ( ( t `
 G )  o.  h )  /\  s  =  ( t J u ) ) ) ) )
88 opeq1 4131 . . . . . . . . . . . . . . 15  |-  ( h  =  ( ( N `
 t ) `  D )  ->  <. h ,  u >.  =  <. ( ( N `  t
) `  D ) ,  u >. )
8988eleq1d 2451 . . . . . . . . . . . . . 14  |-  ( h  =  ( ( N `
 t ) `  D )  ->  ( <. h ,  u >.  e.  ( I `  Q
)  <->  <. ( ( N `
 t ) `  D ) ,  u >.  e.  ( I `  Q ) ) )
9089anbi2d 701 . . . . . . . . . . . . 13  |-  ( h  =  ( ( N `
 t ) `  D )  ->  (
( <. ( t `  G ) ,  t
>.  e.  ( I `  P )  /\  <. h ,  u >.  e.  ( I `  Q ) )  <->  ( <. (
t `  G ) ,  t >.  e.  ( I `  P )  /\  <. ( ( N `
 t ) `  D ) ,  u >.  e.  ( I `  Q ) ) ) )
91 coeq2 5074 . . . . . . . . . . . . . . 15  |-  ( h  =  ( ( N `
 t ) `  D )  ->  (
( t `  G
)  o.  h )  =  ( ( t `
 G )  o.  ( ( N `  t ) `  D
) ) )
9291eqeq2d 2396 . . . . . . . . . . . . . 14  |-  ( h  =  ( ( N `
 t ) `  D )  ->  (
f  =  ( ( t `  G )  o.  h )  <->  f  =  ( ( t `  G )  o.  (
( N `  t
) `  D )
) ) )
9392anbi1d 702 . . . . . . . . . . . . 13  |-  ( h  =  ( ( N `
 t ) `  D )  ->  (
( f  =  ( ( t `  G
)  o.  h )  /\  s  =  ( t J u ) )  <->  ( f  =  ( ( t `  G )  o.  (
( N `  t
) `  D )
)  /\  s  =  ( t J u ) ) ) )
9490, 93anbi12d 708 . . . . . . . . . . . 12  |-  ( h  =  ( ( N `
 t ) `  D )  ->  (
( ( <. (
t `  G ) ,  t >.  e.  ( I `  P )  /\  <. h ,  u >.  e.  ( I `  Q ) )  /\  ( f  =  ( ( t `  G
)  o.  h )  /\  s  =  ( t J u ) ) )  <->  ( ( <. ( t `  G
) ,  t >.  e.  ( I `  P
)  /\  <. ( ( N `  t ) `
 D ) ,  u >.  e.  (
I `  Q )
)  /\  ( f  =  ( ( t `
 G )  o.  ( ( N `  t ) `  D
) )  /\  s  =  ( t J u ) ) ) ) )
95 opeq2 4132 . . . . . . . . . . . . . . 15  |-  ( u  =  ( N `  t )  ->  <. (
( N `  t
) `  D ) ,  u >.  =  <. ( ( N `  t
) `  D ) ,  ( N `  t ) >. )
9695eleq1d 2451 . . . . . . . . . . . . . 14  |-  ( u  =  ( N `  t )  ->  ( <. ( ( N `  t ) `  D
) ,  u >.  e.  ( I `  Q
)  <->  <. ( ( N `
 t ) `  D ) ,  ( N `  t )
>.  e.  ( I `  Q ) ) )
9796anbi2d 701 . . . . . . . . . . . . 13  |-  ( u  =  ( N `  t )  ->  (
( <. ( t `  G ) ,  t
>.  e.  ( I `  P )  /\  <. ( ( N `  t
) `  D ) ,  u >.  e.  (
I `  Q )
)  <->  ( <. (
t `  G ) ,  t >.  e.  ( I `  P )  /\  <. ( ( N `
 t ) `  D ) ,  ( N `  t )
>.  e.  ( I `  Q ) ) ) )
98 oveq2 6204 . . . . . . . . . . . . . . 15  |-  ( u  =  ( N `  t )  ->  (
t J u )  =  ( t J ( N `  t
) ) )
9998eqeq2d 2396 . . . . . . . . . . . . . 14  |-  ( u  =  ( N `  t )  ->  (
s  =  ( t J u )  <->  s  =  ( t J ( N `  t ) ) ) )
10099anbi2d 701 . . . . . . . . . . . . 13  |-  ( u  =  ( N `  t )  ->  (
( f  =  ( ( t `  G
)  o.  ( ( N `  t ) `
 D ) )  /\  s  =  ( t J u ) )  <->  ( f  =  ( ( t `  G )  o.  (
( N `  t
) `  D )
)  /\  s  =  ( t J ( N `  t ) ) ) ) )
10197, 100anbi12d 708 . . . . . . . . . . . 12  |-  ( u  =  ( N `  t )  ->  (
( ( <. (
t `  G ) ,  t >.  e.  ( I `  P )  /\  <. ( ( N `
 t ) `  D ) ,  u >.  e.  ( I `  Q ) )  /\  ( f  =  ( ( t `  G
)  o.  ( ( N `  t ) `
 D ) )  /\  s  =  ( t J u ) ) )  <->  ( ( <. ( t `  G
) ,  t >.  e.  ( I `  P
)  /\  <. ( ( N `  t ) `
 D ) ,  ( N `  t
) >.  e.  ( I `
 Q ) )  /\  ( f  =  ( ( t `  G )  o.  (
( N `  t
) `  D )
)  /\  s  =  ( t J ( N `  t ) ) ) ) ) )
10287, 94, 101syl3an9b 1295 . . . . . . . . . . 11  |-  ( ( g  =  ( t `
 G )  /\  h  =  ( ( N `  t ) `  D )  /\  u  =  ( N `  t ) )  -> 
( ( ( <.
g ,  t >.  e.  ( I `  P
)  /\  <. h ,  u >.  e.  (
I `  Q )
)  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) )  <-> 
( ( <. (
t `  G ) ,  t >.  e.  ( I `  P )  /\  <. ( ( N `
 t ) `  D ) ,  ( N `  t )
>.  e.  ( I `  Q ) )  /\  ( f  =  ( ( t `  G
)  o.  ( ( N `  t ) `
 D ) )  /\  s  =  ( t J ( N `
 t ) ) ) ) ) )
103102spc3egv 3123 . . . . . . . . . 10  |-  ( ( ( t `  G
)  e.  _V  /\  ( ( N `  t ) `  D
)  e.  _V  /\  ( N `  t )  e.  _V )  -> 
( ( ( <.
( t `  G
) ,  t >.  e.  ( I `  P
)  /\  <. ( ( N `  t ) `
 D ) ,  ( N `  t
) >.  e.  ( I `
 Q ) )  /\  ( f  =  ( ( t `  G )  o.  (
( N `  t
) `  D )
)  /\  s  =  ( t J ( N `  t ) ) ) )  ->  E. g E. h E. u ( ( <.
g ,  t >.  e.  ( I `  P
)  /\  <. h ,  u >.  e.  (
I `  Q )
)  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) ) ) )
10447, 57, 58, 103mp3an 1322 . . . . . . . . 9  |-  ( ( ( <. ( t `  G ) ,  t
>.  e.  ( I `  P )  /\  <. ( ( N `  t
) `  D ) ,  ( N `  t ) >.  e.  ( I `  Q ) )  /\  ( f  =  ( ( t `
 G )  o.  ( ( N `  t ) `  D
) )  /\  s  =  ( t J ( N `  t
) ) ) )  ->  E. g E. h E. u ( ( <.
g ,  t >.  e.  ( I `  P
)  /\  <. h ,  u >.  e.  (
I `  Q )
)  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) ) )
10551, 61, 74, 80, 104syl22anc 1227 . . . . . . . 8  |-  ( ( ( ph  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
)  /\  ( t  e.  E  /\  (
t `  ( G  o.  `' D ) )  =  f ) )  ->  E. g E. h E. u ( ( <.
g ,  t >.  e.  ( I `  P
)  /\  <. h ,  u >.  e.  (
I `  Q )
)  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) ) )
106105ex 432 . . . . . . 7  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  -> 
( ( t  e.  E  /\  ( t `
 ( G  o.  `' D ) )  =  f )  ->  E. g E. h E. u ( ( <. g ,  t
>.  e.  ( I `  P )  /\  <. h ,  u >.  e.  ( I `  Q ) )  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) ) ) )
107106eximdv 1718 . . . . . 6  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  -> 
( E. t ( t  e.  E  /\  ( t `  ( G  o.  `' D
) )  =  f )  ->  E. t E. g E. h E. u ( ( <.
g ,  t >.  e.  ( I `  P
)  /\  <. h ,  u >.  e.  (
I `  Q )
)  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) ) ) )
108 excom 1857 . . . . . 6  |-  ( E. t E. g E. h E. u ( ( <. g ,  t
>.  e.  ( I `  P )  /\  <. h ,  u >.  e.  ( I `  Q ) )  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) )  <->  E. g E. t E. h E. u ( ( <. g ,  t
>.  e.  ( I `  P )  /\  <. h ,  u >.  e.  ( I `  Q ) )  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) ) )
109107, 108syl6ib 226 . . . . 5  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  -> 
( E. t ( t  e.  E  /\  ( t `  ( G  o.  `' D
) )  =  f )  ->  E. g E. t E. h E. u ( ( <.
g ,  t >.  e.  ( I `  P
)  /\  <. h ,  u >.  e.  (
I `  Q )
)  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) ) ) )
11042, 109mpd 15 . . . 4  |-  ( (
ph  /\  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) )  ->  E. g E. t E. h E. u ( ( <. g ,  t
>.  e.  ( I `  P )  /\  <. h ,  u >.  e.  ( I `  Q ) )  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) ) )
111110ex 432 . . 3  |-  ( ph  ->  ( ( ( f  e.  T  /\  ( R `  f )  .<_  V )  /\  s  =  .0.  )  ->  E. g E. t E. h E. u ( ( <.
g ,  t >.  e.  ( I `  P
)  /\  <. h ,  u >.  e.  (
I `  Q )
)  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) ) ) )
1121simpld 457 . . . . . . . . 9  |-  ( ph  ->  K  e.  HL )
113 hllat 35501 . . . . . . . . 9  |-  ( K  e.  HL  ->  K  e.  Lat )
114112, 113syl 16 . . . . . . . 8  |-  ( ph  ->  K  e.  Lat )
11512simpld 457 . . . . . . . . 9  |-  ( ph  ->  P  e.  A )
11617simpld 457 . . . . . . . . 9  |-  ( ph  ->  Q  e.  A )
11728, 29, 8hlatjcl 35504 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  P  e.  A  /\  Q  e.  A )  ->  ( P  .\/  Q
)  e.  B )
118112, 115, 116, 117syl3anc 1226 . . . . . . . 8  |-  ( ph  ->  ( P  .\/  Q
)  e.  B )
1191simprd 461 . . . . . . . . 9  |-  ( ph  ->  W  e.  H )
12028, 2lhpbase 36135 . . . . . . . . 9  |-  ( W  e.  H  ->  W  e.  B )
121119, 120syl 16 . . . . . . . 8  |-  ( ph  ->  W  e.  B )
12228, 30latmcl 15799 . . . . . . . 8  |-  ( ( K  e.  Lat  /\  ( P  .\/  Q )  e.  B  /\  W  e.  B )  ->  (
( P  .\/  Q
)  ./\  W )  e.  B )
123114, 118, 121, 122syl3anc 1226 . . . . . . 7  |-  ( ph  ->  ( ( P  .\/  Q )  ./\  W )  e.  B )
12433, 123syl5eqel 2474 . . . . . 6  |-  ( ph  ->  V  e.  B )
12528, 7, 30latmle2 15824 . . . . . . . 8  |-  ( ( K  e.  Lat  /\  ( P  .\/  Q )  e.  B  /\  W  e.  B )  ->  (
( P  .\/  Q
)  ./\  W )  .<_  W )
126114, 118, 121, 125syl3anc 1226 . . . . . . 7  |-  ( ph  ->  ( ( P  .\/  Q )  ./\  W )  .<_  W )
12733, 126syl5eqbr 4400 . . . . . 6  |-  ( ph  ->  V  .<_  W )
128 eqid 2382 . . . . . . 7  |-  ( (
DIsoB `  K ) `  W )  =  ( ( DIsoB `  K ) `  W )
12928, 7, 2, 3, 128dihvalb 37377 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( V  e.  B  /\  V  .<_  W ) )  ->  (
I `  V )  =  ( ( (
DIsoB `  K ) `  W ) `  V
) )
1301, 124, 127, 129syl12anc 1224 . . . . 5  |-  ( ph  ->  ( I `  V
)  =  ( ( ( DIsoB `  K ) `  W ) `  V
) )
131130eleq2d 2452 . . . 4  |-  ( ph  ->  ( <. f ,  s
>.  e.  ( I `  V )  <->  <. f ,  s >.  e.  (
( ( DIsoB `  K
) `  W ) `  V ) ) )
13228, 7, 2, 13, 34, 77, 128dibopelval3 37288 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( V  e.  B  /\  V  .<_  W ) )  ->  ( <. f ,  s >.  e.  ( ( ( DIsoB `  K ) `  W
) `  V )  <->  ( ( f  e.  T  /\  ( R `  f
)  .<_  V )  /\  s  =  .0.  )
) )
1331, 124, 127, 132syl12anc 1224 . . . 4  |-  ( ph  ->  ( <. f ,  s
>.  e.  ( ( (
DIsoB `  K ) `  W ) `  V
)  <->  ( ( f  e.  T  /\  ( R `  f )  .<_  V )  /\  s  =  .0.  ) ) )
134131, 133bitrd 253 . . 3  |-  ( ph  ->  ( <. f ,  s
>.  e.  ( I `  V )  <->  ( (
f  e.  T  /\  ( R `  f ) 
.<_  V )  /\  s  =  .0.  ) ) )
135 eqid 2382 . . . 4  |-  ( LSubSp `  U )  =  (
LSubSp `  U )
13628, 8atbase 35427 . . . . 5  |-  ( P  e.  A  ->  P  e.  B )
137115, 136syl 16 . . . 4  |-  ( ph  ->  P  e.  B )
13828, 8atbase 35427 . . . . 5  |-  ( Q  e.  A  ->  Q  e.  B )
139116, 138syl 16 . . . 4  |-  ( ph  ->  Q  e.  B )
14028, 2, 13, 35, 76, 31, 135, 32, 3, 1, 137, 139dihopellsm 37395 . . 3  |-  ( ph  ->  ( <. f ,  s
>.  e.  ( ( I `
 P )  .(+)  ( I `  Q ) )  <->  E. g E. t E. h E. u ( ( <. g ,  t
>.  e.  ( I `  P )  /\  <. h ,  u >.  e.  ( I `  Q ) )  /\  ( f  =  ( g  o.  h )  /\  s  =  ( t J u ) ) ) ) )
141111, 134, 1403imtr4d 268 . 2  |-  ( ph  ->  ( <. f ,  s
>.  e.  ( I `  V )  ->  <. f ,  s >.  e.  ( ( I `  P
)  .(+)  ( I `  Q ) ) ) )
1425, 141relssdv 5008 1  |-  ( ph  ->  ( I `  V
)  C_  ( (
I `  P )  .(+)  ( I `  Q
) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 367    = wceq 1399   E.wex 1620    e. wcel 1826   E.wrex 2733   _Vcvv 3034    C_ wss 3389   <.cop 3950   class class class wbr 4367    |-> cmpt 4425    _I cid 4704   `'ccnv 4912    |` cres 4915    o. ccom 4917   Rel wrel 4918   ` cfv 5496   iota_crio 6157  (class class class)co 6196    |-> cmpt2 6198   Basecbs 14634   lecple 14709   occoc 14710   joincjn 15690   meetcmee 15691   Latclat 15792   LSSumclsm 16771   LSubSpclss 17691   Atomscatm 35401   HLchlt 35488   LHypclh 36121   LTrncltrn 36238   trLctrl 36296   TEndoctendo 36891   DVecHcdvh 37218   DIsoBcdib 37278   DIsoHcdih 37368
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1626  ax-4 1639  ax-5 1712  ax-6 1755  ax-7 1798  ax-8 1828  ax-9 1830  ax-10 1845  ax-11 1850  ax-12 1862  ax-13 2006  ax-ext 2360  ax-rep 4478  ax-sep 4488  ax-nul 4496  ax-pow 4543  ax-pr 4601  ax-un 6491  ax-cnex 9459  ax-resscn 9460  ax-1cn 9461  ax-icn 9462  ax-addcl 9463  ax-addrcl 9464  ax-mulcl 9465  ax-mulrcl 9466  ax-mulcom 9467  ax-addass 9468  ax-mulass 9469  ax-distr 9470  ax-i2m1 9471  ax-1ne0 9472  ax-1rid 9473  ax-rnegex 9474  ax-rrecex 9475  ax-cnre 9476  ax-pre-lttri 9477  ax-pre-lttrn 9478  ax-pre-ltadd 9479  ax-pre-mulgt0 9480  ax-riotaBAD 35097
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 972  df-3an 973  df-tru 1402  df-fal 1405  df-ex 1621  df-nf 1625  df-sb 1748  df-eu 2222  df-mo 2223  df-clab 2368  df-cleq 2374  df-clel 2377  df-nfc 2532  df-ne 2579  df-nel 2580  df-ral 2737  df-rex 2738  df-reu 2739  df-rmo 2740  df-rab 2741  df-v 3036  df-sbc 3253  df-csb 3349  df-dif 3392  df-un 3394  df-in 3396  df-ss 3403  df-pss 3405  df-nul 3712  df-if 3858  df-pw 3929  df-sn 3945  df-pr 3947  df-tp 3949  df-op 3951  df-uni 4164  df-int 4200  df-iun 4245  df-iin 4246  df-br 4368  df-opab 4426  df-mpt 4427  df-tr 4461  df-eprel 4705  df-id 4709  df-po 4714  df-so 4715  df-fr 4752  df-we 4754  df-ord 4795  df-on 4796  df-lim 4797  df-suc 4798  df-xp 4919  df-rel 4920  df-cnv 4921  df-co 4922  df-dm 4923  df-rn 4924  df-res 4925  df-ima 4926  df-iota 5460  df-fun 5498  df-fn 5499  df-f 5500  df-f1 5501  df-fo 5502  df-f1o 5503  df-fv 5504  df-riota 6158  df-ov 6199  df-oprab 6200  df-mpt2 6201  df-om 6600  df-1st 6699  df-2nd 6700  df-tpos 6873  df-undef 6920  df-recs 6960  df-rdg 6994  df-1o 7048  df-oadd 7052  df-er 7229  df-map 7340  df-en 7436  df-dom 7437  df-sdom 7438  df-fin 7439  df-pnf 9541  df-mnf 9542  df-xr 9543  df-ltxr 9544  df-le 9545  df-sub 9720  df-neg 9721  df-nn 10453  df-2 10511  df-3 10512  df-4 10513  df-5 10514  df-6 10515  df-n0 10713  df-z 10782  df-uz 11002  df-fz 11594  df-struct 14636  df-ndx 14637  df-slot 14638  df-base 14639  df-sets 14640  df-ress 14641  df-plusg 14715  df-mulr 14716  df-sca 14718  df-vsca 14719  df-0g 14849  df-preset 15674  df-poset 15692  df-plt 15705  df-lub 15721  df-glb 15722  df-join 15723  df-meet 15724  df-p0 15786  df-p1 15787  df-lat 15793  df-clat 15855  df-mgm 15989  df-sgrp 16028  df-mnd 16038  df-submnd 16084  df-grp 16174  df-minusg 16175  df-sbg 16176  df-subg 16315  df-cntz 16472  df-lsm 16773  df-cmn 16917  df-abl 16918  df-mgp 17255  df-ur 17267  df-ring 17313  df-oppr 17385  df-dvdsr 17403  df-unit 17404  df-invr 17434  df-dvr 17445  df-drng 17511  df-lmod 17627  df-lss 17692  df-lsp 17731  df-lvec 17862  df-oposet 35314  df-ol 35316  df-oml 35317  df-covers 35404  df-ats 35405  df-atl 35436  df-cvlat 35460  df-hlat 35489  df-llines 35635  df-lplanes 35636  df-lvols 35637  df-lines 35638  df-psubsp 35640  df-pmap 35641  df-padd 35933  df-lhyp 36125  df-laut 36126  df-ldil 36241  df-ltrn 36242  df-trl 36297  df-tendo 36894  df-edring 36896  df-disoa 37169  df-dvech 37219  df-dib 37279  df-dic 37313  df-dih 37369
This theorem is referenced by:  dihjatcc  37562
  Copyright terms: Public domain W3C validator