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

Theorem dihglblem5apreN 34859
Description: A conjunction property of isomorphism H. TODO: reduce antecedent size; general review for shorter proof. (Contributed by NM, 21-Mar-2014.) (New usage is discouraged.)
Hypotheses
Ref Expression
dihglblem5a.b  |-  B  =  ( Base `  K
)
dihglblem5a.m  |-  ./\  =  ( meet `  K )
dihglblem5a.h  |-  H  =  ( LHyp `  K
)
dihglblem5a.i  |-  I  =  ( ( DIsoH `  K
) `  W )
dihglblem5a.l  |-  .<_  =  ( le `  K )
dihglblem5a.j  |-  .\/  =  ( join `  K )
dihglblem5a.a  |-  A  =  ( Atoms `  K )
dihglblem5a.p  |-  P  =  ( ( oc `  K ) `  W
)
dihglblem5a.t  |-  T  =  ( ( LTrn `  K
) `  W )
dihglblem5a.r  |-  R  =  ( ( trL `  K
) `  W )
dihglblem5a.e  |-  E  =  ( ( TEndo `  K
) `  W )
dihglblem5a.g  |-  G  =  ( iota_ h  e.  T  ( h `  P
)  =  q )
dihglblem5a.o  |-  .0.  =  ( h  e.  T  |->  (  _I  |`  B ) )
Assertion
Ref Expression
dihglblem5apreN  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( I `  ( X  ./\  W ) )  =  ( ( I `
 X )  i^i  ( I `  W
) ) )
Distinct variable groups:    ./\ , q    h, q,  .<_    A, h, q    B, h, q    h, H, q   
I, q    h, K, q    P, h    T, h   
h, W, q    X, q
Allowed substitution hints:    P( q)    R( h, q)    T( q)    E( h, q)    G( h, q)    I( h)    .\/ ( h, q)    ./\ (
h)    X( h)    .0. ( h, q)

Proof of Theorem dihglblem5apreN
Dummy variables  f 
s are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hllat 32929 . . . . . 6  |-  ( K  e.  HL  ->  K  e.  Lat )
21ad2antrr 732 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  K  e.  Lat )
3 simprl 764 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  X  e.  B )
4 dihglblem5a.b . . . . . . 7  |-  B  =  ( Base `  K
)
5 dihglblem5a.h . . . . . . 7  |-  H  =  ( LHyp `  K
)
64, 5lhpbase 33563 . . . . . 6  |-  ( W  e.  H  ->  W  e.  B )
76ad2antlr 733 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  W  e.  B )
8 dihglblem5a.l . . . . . 6  |-  .<_  =  ( le `  K )
9 dihglblem5a.m . . . . . 6  |-  ./\  =  ( meet `  K )
104, 8, 9latmle1 16322 . . . . 5  |-  ( ( K  e.  Lat  /\  X  e.  B  /\  W  e.  B )  ->  ( X  ./\  W
)  .<_  X )
112, 3, 7, 10syl3anc 1268 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( X  ./\  W
)  .<_  X )
12 simpl 459 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( K  e.  HL  /\  W  e.  H ) )
134, 9latmcl 16298 . . . . . 6  |-  ( ( K  e.  Lat  /\  X  e.  B  /\  W  e.  B )  ->  ( X  ./\  W
)  e.  B )
142, 3, 7, 13syl3anc 1268 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( X  ./\  W
)  e.  B )
15 dihglblem5a.i . . . . . 6  |-  I  =  ( ( DIsoH `  K
) `  W )
164, 8, 5, 15dihord 34832 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  ./\  W )  e.  B  /\  X  e.  B )  ->  ( ( I `  ( X  ./\  W ) )  C_  ( I `  X )  <->  ( X  ./\ 
W )  .<_  X ) )
1712, 14, 3, 16syl3anc 1268 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( ( I `  ( X  ./\  W ) )  C_  ( I `  X )  <->  ( X  ./\ 
W )  .<_  X ) )
1811, 17mpbird 236 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( I `  ( X  ./\  W ) ) 
C_  ( I `  X ) )
194, 8, 9latmle2 16323 . . . . 5  |-  ( ( K  e.  Lat  /\  X  e.  B  /\  W  e.  B )  ->  ( X  ./\  W
)  .<_  W )
202, 3, 7, 19syl3anc 1268 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( X  ./\  W
)  .<_  W )
214, 8, 5, 15dihord 34832 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  ./\  W )  e.  B  /\  W  e.  B )  ->  ( ( I `  ( X  ./\  W ) )  C_  ( I `  W )  <->  ( X  ./\ 
W )  .<_  W ) )
2212, 14, 7, 21syl3anc 1268 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( ( I `  ( X  ./\  W ) )  C_  ( I `  W )  <->  ( X  ./\ 
W )  .<_  W ) )
2320, 22mpbird 236 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( I `  ( X  ./\  W ) ) 
C_  ( I `  W ) )
2418, 23ssind 3656 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( I `  ( X  ./\  W ) ) 
C_  ( ( I `
 X )  i^i  ( I `  W
) ) )
255, 15dihvalrel 34847 . . . . 5  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  Rel  ( I `  X ) )
26 relin1 4951 . . . . 5  |-  ( Rel  ( I `  X
)  ->  Rel  ( ( I `  X )  i^i  ( I `  W ) ) )
2725, 26syl 17 . . . 4  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  Rel  ( ( I `
 X )  i^i  ( I `  W
) ) )
2827adantr 467 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  Rel  ( ( I `  X )  i^i  (
I `  W )
) )
29 elin 3617 . . . 4  |-  ( <.
f ,  s >.  e.  ( ( I `  X )  i^i  (
I `  W )
)  <->  ( <. f ,  s >.  e.  ( I `  X )  /\  <. f ,  s
>.  e.  ( I `  W ) ) )
30 dihglblem5a.j . . . . . 6  |-  .\/  =  ( join `  K )
31 dihglblem5a.a . . . . . 6  |-  A  =  ( Atoms `  K )
324, 8, 30, 9, 31, 5lhpmcvr2 33589 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  E. q  e.  A  ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )
33 dihglblem5a.p . . . . . . . . . . . 12  |-  P  =  ( ( oc `  K ) `  W
)
34 dihglblem5a.t . . . . . . . . . . . 12  |-  T  =  ( ( LTrn `  K
) `  W )
35 dihglblem5a.r . . . . . . . . . . . 12  |-  R  =  ( ( trL `  K
) `  W )
36 dihglblem5a.e . . . . . . . . . . . 12  |-  E  =  ( ( TEndo `  K
) `  W )
37 dihglblem5a.g . . . . . . . . . . . 12  |-  G  =  ( iota_ h  e.  T  ( h `  P
)  =  q )
38 vex 3048 . . . . . . . . . . . 12  |-  f  e. 
_V
39 vex 3048 . . . . . . . . . . . 12  |-  s  e. 
_V
404, 8, 30, 9, 31, 5, 33, 34, 35, 36, 15, 37, 38, 39dihopelvalc 34817 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  (
( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  ->  ( <. f ,  s >.  e.  ( I `  X )  <-> 
( ( f  e.  T  /\  s  e.  E )  /\  ( R `  ( f  o.  `' ( s `  G ) ) ) 
.<_  X ) ) )
41 id 22 . . . . . . . . . . . . 13  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( K  e.  HL  /\  W  e.  H ) )
426adantl 468 . . . . . . . . . . . . 13  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  W  e.  B )
434, 8latref 16299 . . . . . . . . . . . . . 14  |-  ( ( K  e.  Lat  /\  W  e.  B )  ->  W  .<_  W )
441, 6, 43syl2an 480 . . . . . . . . . . . . 13  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  W  .<_  W )
45 dihglblem5a.o . . . . . . . . . . . . . 14  |-  .0.  =  ( h  e.  T  |->  (  _I  |`  B ) )
464, 8, 5, 34, 35, 45, 15dihopelvalbN 34806 . . . . . . . . . . . . 13  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( W  e.  B  /\  W  .<_  W ) )  ->  ( <. f ,  s >.  e.  ( I `  W
)  <->  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )
4741, 42, 44, 46syl12anc 1266 . . . . . . . . . . . 12  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( <. f ,  s
>.  e.  ( I `  W )  <->  ( (
f  e.  T  /\  ( R `  f ) 
.<_  W )  /\  s  =  .0.  ) ) )
48473ad2ant1 1029 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  (
( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  ->  ( <. f ,  s >.  e.  ( I `  W )  <-> 
( ( f  e.  T  /\  ( R `
 f )  .<_  W )  /\  s  =  .0.  ) ) )
4940, 48anbi12d 717 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  (
( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  ->  ( ( <. f ,  s >.  e.  ( I `  X
)  /\  <. f ,  s >.  e.  (
I `  W )
)  <->  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) ) )
50 simprll 772 . . . . . . . . . . . . . 14  |-  ( ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  ( f  o.  `' ( s `  G ) ) ) 
.<_  X )  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  W )  /\  s  =  .0.  )
)  ->  f  e.  T )
5150adantl 468 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  f  e.  T
)
52 simprrr 775 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  s  =  .0.  )
5352fveq1d 5867 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( s `  G )  =  (  .0.  `  G )
)
54 simpl1 1011 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
558, 31, 5, 33lhpocnel2 33584 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
5654, 55syl 17 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
57 simpl3l 1063 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( q  e.  A  /\  -.  q  .<_  W ) )
588, 31, 5, 34, 37ltrniotacl 34146 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  (
q  e.  A  /\  -.  q  .<_  W ) )  ->  G  e.  T )
5954, 56, 57, 58syl3anc 1268 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  G  e.  T
)
6045, 4tendo02 34354 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( G  e.  T  ->  (  .0.  `  G )  =  (  _I  |`  B ) )
6159, 60syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  (  .0.  `  G )  =  (  _I  |`  B )
)
6253, 61eqtrd 2485 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( s `  G )  =  (  _I  |`  B )
)
6362cnveqd 5010 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  `' ( s `
 G )  =  `' (  _I  |`  B ) )
64 cnvresid 5653 . . . . . . . . . . . . . . . . . . 19  |-  `' (  _I  |`  B )  =  (  _I  |`  B )
6563, 64syl6eq 2501 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  `' ( s `
 G )  =  (  _I  |`  B ) )
6665coeq2d 4997 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( f  o.  `' ( s `  G ) )  =  ( f  o.  (  _I  |`  B ) ) )
674, 5, 34ltrn1o 33689 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  f  e.  T
)  ->  f : B
-1-1-onto-> B )
6854, 51, 67syl2anc 667 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  f : B -1-1-onto-> B
)
69 f1of 5814 . . . . . . . . . . . . . . . . . 18  |-  ( f : B -1-1-onto-> B  ->  f : B
--> B )
70 fcoi1 5757 . . . . . . . . . . . . . . . . . 18  |-  ( f : B --> B  -> 
( f  o.  (  _I  |`  B ) )  =  f )
7168, 69, 703syl 18 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( f  o.  (  _I  |`  B ) )  =  f )
7266, 71eqtrd 2485 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( f  o.  `' ( s `  G ) )  =  f )
7372fveq2d 5869 . . . . . . . . . . . . . . 15  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( R `  ( f  o.  `' ( s `  G
) ) )  =  ( R `  f
) )
74 simprlr 773 . . . . . . . . . . . . . . 15  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( R `  ( f  o.  `' ( s `  G
) ) )  .<_  X )
7573, 74eqbrtrrd 4425 . . . . . . . . . . . . . 14  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( R `  f )  .<_  X )
768, 5, 34, 35trlle 33750 . . . . . . . . . . . . . . 15  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  f  e.  T
)  ->  ( R `  f )  .<_  W )
7754, 51, 76syl2anc 667 . . . . . . . . . . . . . 14  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( R `  f )  .<_  W )
78 simpl1l 1059 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  K  e.  HL )
7978, 1syl 17 . . . . . . . . . . . . . . 15  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  K  e.  Lat )
804, 5, 34, 35trlcl 33730 . . . . . . . . . . . . . . . 16  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  f  e.  T
)  ->  ( R `  f )  e.  B
)
8154, 51, 80syl2anc 667 . . . . . . . . . . . . . . 15  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( R `  f )  e.  B
)
82 simpl2l 1061 . . . . . . . . . . . . . . 15  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  X  e.  B
)
83 simpl1r 1060 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  W  e.  H
)
8483, 6syl 17 . . . . . . . . . . . . . . 15  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  W  e.  B
)
854, 8, 9latlem12 16324 . . . . . . . . . . . . . . 15  |-  ( ( K  e.  Lat  /\  ( ( R `  f )  e.  B  /\  X  e.  B  /\  W  e.  B
) )  ->  (
( ( R `  f )  .<_  X  /\  ( R `  f ) 
.<_  W )  <->  ( R `  f )  .<_  ( X 
./\  W ) ) )
8679, 81, 82, 84, 85syl13anc 1270 . . . . . . . . . . . . . 14  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( ( ( R `  f ) 
.<_  X  /\  ( R `
 f )  .<_  W )  <->  ( R `  f )  .<_  ( X 
./\  W ) ) )
8775, 77, 86mpbi2and 932 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( R `  f )  .<_  ( X 
./\  W ) )
8851, 87jca 535 . . . . . . . . . . . 12  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( f  e.  T  /\  ( R `
 f )  .<_  ( X  ./\  W ) ) )
8979, 82, 84, 13syl3anc 1268 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( X  ./\  W )  e.  B )
9079, 82, 84, 19syl3anc 1268 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( X  ./\  W )  .<_  W )
914, 8, 5, 34, 35, 45, 15dihopelvalbN 34806 . . . . . . . . . . . . 13  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( X 
./\  W )  e.  B  /\  ( X 
./\  W )  .<_  W ) )  -> 
( <. f ,  s
>.  e.  ( I `  ( X  ./\  W ) )  <->  ( ( f  e.  T  /\  ( R `  f )  .<_  ( X  ./\  W
) )  /\  s  =  .0.  ) ) )
9254, 89, 90, 91syl12anc 1266 . . . . . . . . . . . 12  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  ( <. f ,  s >.  e.  ( I `  ( X 
./\  W ) )  <-> 
( ( f  e.  T  /\  ( R `
 f )  .<_  ( X  ./\  W ) )  /\  s  =  .0.  ) ) )
9388, 52, 92mpbir2and 933 . . . . . . . . . . 11  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  /\  ( ( ( f  e.  T  /\  s  e.  E )  /\  ( R `  (
f  o.  `' ( s `  G ) ) )  .<_  X )  /\  ( ( f  e.  T  /\  ( R `  f )  .<_  W )  /\  s  =  .0.  ) ) )  ->  <. f ,  s
>.  e.  ( I `  ( X  ./\  W ) ) )
9493ex 436 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  (
( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  ->  ( (
( ( f  e.  T  /\  s  e.  E )  /\  ( R `  ( f  o.  `' ( s `  G ) ) ) 
.<_  X )  /\  (
( f  e.  T  /\  ( R `  f
)  .<_  W )  /\  s  =  .0.  )
)  ->  <. f ,  s >.  e.  (
I `  ( X  ./\ 
W ) ) ) )
9549, 94sylbid 219 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  (
( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )  ->  ( ( <. f ,  s >.  e.  ( I `  X
)  /\  <. f ,  s >.  e.  (
I `  W )
)  ->  <. f ,  s >.  e.  (
I `  ( X  ./\ 
W ) ) ) )
96953expia 1210 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  -> 
( ( <. f ,  s >.  e.  ( I `  X )  /\  <. f ,  s
>.  e.  ( I `  W ) )  ->  <. f ,  s >.  e.  ( I `  ( X  ./\  W ) ) ) ) )
9796exp4c 613 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( q  e.  A  ->  ( -.  q  .<_  W  ->  ( ( q 
.\/  ( X  ./\  W ) )  =  X  ->  ( ( <.
f ,  s >.  e.  ( I `  X
)  /\  <. f ,  s >.  e.  (
I `  W )
)  ->  <. f ,  s >.  e.  (
I `  ( X  ./\ 
W ) ) ) ) ) ) )
9897imp4a 594 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( q  e.  A  ->  ( ( -.  q  .<_  W  /\  ( q 
.\/  ( X  ./\  W ) )  =  X )  ->  ( ( <. f ,  s >.  e.  ( I `  X
)  /\  <. f ,  s >.  e.  (
I `  W )
)  ->  <. f ,  s >.  e.  (
I `  ( X  ./\ 
W ) ) ) ) ) )
9998rexlimdv 2877 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( E. q  e.  A  ( -.  q  .<_  W  /\  ( q 
.\/  ( X  ./\  W ) )  =  X )  ->  ( ( <. f ,  s >.  e.  ( I `  X
)  /\  <. f ,  s >.  e.  (
I `  W )
)  ->  <. f ,  s >.  e.  (
I `  ( X  ./\ 
W ) ) ) ) )
10032, 99mpd 15 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( ( <. f ,  s >.  e.  ( I `  X )  /\  <. f ,  s
>.  e.  ( I `  W ) )  ->  <. f ,  s >.  e.  ( I `  ( X  ./\  W ) ) ) )
10129, 100syl5bi 221 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( <. f ,  s
>.  e.  ( ( I `
 X )  i^i  ( I `  W
) )  ->  <. f ,  s >.  e.  ( I `  ( X 
./\  W ) ) ) )
10228, 101relssdv 4927 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( ( I `  X )  i^i  (
I `  W )
)  C_  ( I `  ( X  ./\  W
) ) )
10324, 102eqssd 3449 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( I `  ( X  ./\  W ) )  =  ( ( I `
 X )  i^i  ( I `  W
) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 188    /\ wa 371    /\ w3a 985    = wceq 1444    e. wcel 1887   E.wrex 2738    i^i cin 3403    C_ wss 3404   <.cop 3974   class class class wbr 4402    |-> cmpt 4461    _I cid 4744   `'ccnv 4833    |` cres 4836    o. ccom 4838   Rel wrel 4839   -->wf 5578   -1-1-onto->wf1o 5581   ` cfv 5582   iota_crio 6251  (class class class)co 6290   Basecbs 15121   lecple 15197   occoc 15198   joincjn 16189   meetcmee 16190   Latclat 16291   Atomscatm 32829   HLchlt 32916   LHypclh 33549   LTrncltrn 33666   trLctrl 33724   TEndoctendo 34319   DIsoHcdih 34796
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1669  ax-4 1682  ax-5 1758  ax-6 1805  ax-7 1851  ax-8 1889  ax-9 1896  ax-10 1915  ax-11 1920  ax-12 1933  ax-13 2091  ax-ext 2431  ax-rep 4515  ax-sep 4525  ax-nul 4534  ax-pow 4581  ax-pr 4639  ax-un 6583  ax-cnex 9595  ax-resscn 9596  ax-1cn 9597  ax-icn 9598  ax-addcl 9599  ax-addrcl 9600  ax-mulcl 9601  ax-mulrcl 9602  ax-mulcom 9603  ax-addass 9604  ax-mulass 9605  ax-distr 9606  ax-i2m1 9607  ax-1ne0 9608  ax-1rid 9609  ax-rnegex 9610  ax-rrecex 9611  ax-cnre 9612  ax-pre-lttri 9613  ax-pre-lttrn 9614  ax-pre-ltadd 9615  ax-pre-mulgt0 9616  ax-riotaBAD 32525
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 986  df-3an 987  df-tru 1447  df-fal 1450  df-ex 1664  df-nf 1668  df-sb 1798  df-eu 2303  df-mo 2304  df-clab 2438  df-cleq 2444  df-clel 2447  df-nfc 2581  df-ne 2624  df-nel 2625  df-ral 2742  df-rex 2743  df-reu 2744  df-rmo 2745  df-rab 2746  df-v 3047  df-sbc 3268  df-csb 3364  df-dif 3407  df-un 3409  df-in 3411  df-ss 3418  df-pss 3420  df-nul 3732  df-if 3882  df-pw 3953  df-sn 3969  df-pr 3971  df-tp 3973  df-op 3975  df-uni 4199  df-int 4235  df-iun 4280  df-iin 4281  df-br 4403  df-opab 4462  df-mpt 4463  df-tr 4498  df-eprel 4745  df-id 4749  df-po 4755  df-so 4756  df-fr 4793  df-we 4795  df-xp 4840  df-rel 4841  df-cnv 4842  df-co 4843  df-dm 4844  df-rn 4845  df-res 4846  df-ima 4847  df-pred 5380  df-ord 5426  df-on 5427  df-lim 5428  df-suc 5429  df-iota 5546  df-fun 5584  df-fn 5585  df-f 5586  df-f1 5587  df-fo 5588  df-f1o 5589  df-fv 5590  df-riota 6252  df-ov 6293  df-oprab 6294  df-mpt2 6295  df-om 6693  df-1st 6793  df-2nd 6794  df-tpos 6973  df-undef 7020  df-wrecs 7028  df-recs 7090  df-rdg 7128  df-1o 7182  df-oadd 7186  df-er 7363  df-map 7474  df-en 7570  df-dom 7571  df-sdom 7572  df-fin 7573  df-pnf 9677  df-mnf 9678  df-xr 9679  df-ltxr 9680  df-le 9681  df-sub 9862  df-neg 9863  df-nn 10610  df-2 10668  df-3 10669  df-4 10670  df-5 10671  df-6 10672  df-n0 10870  df-z 10938  df-uz 11160  df-fz 11785  df-struct 15123  df-ndx 15124  df-slot 15125  df-base 15126  df-sets 15127  df-ress 15128  df-plusg 15203  df-mulr 15204  df-sca 15206  df-vsca 15207  df-0g 15340  df-preset 16173  df-poset 16191  df-plt 16204  df-lub 16220  df-glb 16221  df-join 16222  df-meet 16223  df-p0 16285  df-p1 16286  df-lat 16292  df-clat 16354  df-mgm 16488  df-sgrp 16527  df-mnd 16537  df-submnd 16583  df-grp 16673  df-minusg 16674  df-sbg 16675  df-subg 16814  df-cntz 16971  df-lsm 17288  df-cmn 17432  df-abl 17433  df-mgp 17724  df-ur 17736  df-ring 17782  df-oppr 17851  df-dvdsr 17869  df-unit 17870  df-invr 17900  df-dvr 17911  df-drng 17977  df-lmod 18093  df-lss 18156  df-lsp 18195  df-lvec 18326  df-oposet 32742  df-ol 32744  df-oml 32745  df-covers 32832  df-ats 32833  df-atl 32864  df-cvlat 32888  df-hlat 32917  df-llines 33063  df-lplanes 33064  df-lvols 33065  df-lines 33066  df-psubsp 33068  df-pmap 33069  df-padd 33361  df-lhyp 33553  df-laut 33554  df-ldil 33669  df-ltrn 33670  df-trl 33725  df-tendo 34322  df-edring 34324  df-disoa 34597  df-dvech 34647  df-dib 34707  df-dic 34741  df-dih 34797
This theorem is referenced by:  dihglblem5aN  34860
  Copyright terms: Public domain W3C validator