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

Theorem dihlsscpre 34254
Description: Closure of isomorphism H for a lattice  K when  -.  X  .<_  W. (Contributed by NM, 6-Mar-2014.)
Hypotheses
Ref Expression
dihval.b  |-  B  =  ( Base `  K
)
dihval.l  |-  .<_  =  ( le `  K )
dihval.j  |-  .\/  =  ( join `  K )
dihval.m  |-  ./\  =  ( meet `  K )
dihval.a  |-  A  =  ( Atoms `  K )
dihval.h  |-  H  =  ( LHyp `  K
)
dihval.i  |-  I  =  ( ( DIsoH `  K
) `  W )
dihval.d  |-  D  =  ( ( DIsoB `  K
) `  W )
dihval.c  |-  C  =  ( ( DIsoC `  K
) `  W )
dihval.u  |-  U  =  ( ( DVecH `  K
) `  W )
dihval.s  |-  S  =  ( LSubSp `  U )
dihval.p  |-  .(+)  =  (
LSSum `  U )
Assertion
Ref Expression
dihlsscpre  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( I `  X
)  e.  S )

Proof of Theorem dihlsscpre
Dummy variables  q  u  r are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dihval.b . . 3  |-  B  =  ( Base `  K
)
2 dihval.l . . 3  |-  .<_  =  ( le `  K )
3 dihval.j . . 3  |-  .\/  =  ( join `  K )
4 dihval.m . . 3  |-  ./\  =  ( meet `  K )
5 dihval.a . . 3  |-  A  =  ( Atoms `  K )
6 dihval.h . . 3  |-  H  =  ( LHyp `  K
)
7 dihval.i . . 3  |-  I  =  ( ( DIsoH `  K
) `  W )
8 dihval.d . . 3  |-  D  =  ( ( DIsoB `  K
) `  W )
9 dihval.c . . 3  |-  C  =  ( ( DIsoC `  K
) `  W )
10 dihval.u . . 3  |-  U  =  ( ( DVecH `  K
) `  W )
11 dihval.s . . 3  |-  S  =  ( LSubSp `  U )
12 dihval.p . . 3  |-  .(+)  =  (
LSSum `  U )
131, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12dihvalc 34253 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( I `  X
)  =  ( iota_ u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `  ( X  ./\  W ) ) ) ) ) )
14 simp1l 1021 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  -> 
( K  e.  HL  /\  W  e.  H ) )
15 simp2l 1023 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  -> 
q  e.  A )
16 simp3ll 1068 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  ->  -.  q  .<_  W )
1715, 16jca 530 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  -> 
( q  e.  A  /\  -.  q  .<_  W ) )
18 simp2r 1024 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  -> 
r  e.  A )
19 simp3rl 1070 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  ->  -.  r  .<_  W )
2018, 19jca 530 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  -> 
( r  e.  A  /\  -.  r  .<_  W ) )
21 simp1rl 1062 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  ->  X  e.  B )
22 simp3lr 1069 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  -> 
( q  .\/  ( X  ./\  W ) )  =  X )
23 simp3rr 1071 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  -> 
( r  .\/  ( X  ./\  W ) )  =  X )
2422, 23eqtr4d 2446 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  -> 
( q  .\/  ( X  ./\  W ) )  =  ( r  .\/  ( X  ./\  W ) ) )
251, 2, 3, 4, 5, 6, 8, 9, 10, 12dihjust 34237 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( q  e.  A  /\  -.  q  .<_  W )  /\  ( r  e.  A  /\  -.  r  .<_  W )  /\  X  e.  B
)  /\  ( q  .\/  ( X  ./\  W
) )  =  ( r  .\/  ( X 
./\  W ) ) )  ->  ( ( C `  q )  .(+)  ( D `  ( X  ./\  W ) ) )  =  ( ( C `  r ) 
.(+)  ( D `  ( X  ./\  W ) ) ) )
2614, 17, 20, 21, 24, 25syl131anc 1243 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  r  e.  A )  /\  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) ) )  -> 
( ( C `  q )  .(+)  ( D `
 ( X  ./\  W ) ) )  =  ( ( C `  r )  .(+)  ( D `
 ( X  ./\  W ) ) ) )
27263exp 1196 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( ( q  e.  A  /\  r  e.  A )  ->  (
( ( -.  q  .<_  W  /\  ( q 
.\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r  .\/  ( X  ./\  W ) )  =  X ) )  ->  ( ( C `
 q )  .(+)  ( D `  ( X 
./\  W ) ) )  =  ( ( C `  r ) 
.(+)  ( D `  ( X  ./\  W ) ) ) ) ) )
2827ralrimivv 2824 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  A. q  e.  A  A. r  e.  A  ( ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r  .\/  ( X  ./\  W ) )  =  X ) )  ->  ( ( C `  q )  .(+)  ( D `  ( X  ./\  W ) ) )  =  ( ( C `  r ) 
.(+)  ( D `  ( X  ./\  W ) ) ) ) )
291, 2, 3, 4, 5, 6lhpmcvr2 33041 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  E. q  e.  A  ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X ) )
30 simpll 752 . . . . . . . . . . . . . 14  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
316, 10, 30dvhlmod 34130 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  U  e.  LMod )
322, 5, 6, 10, 9, 11diclss 34213 . . . . . . . . . . . . . 14  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  -> 
( C `  q
)  e.  S )
3332adantlr 713 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  ( C `  q )  e.  S
)
34 hllat 32381 . . . . . . . . . . . . . . . 16  |-  ( K  e.  HL  ->  K  e.  Lat )
3534ad3antrrr 728 . . . . . . . . . . . . . . 15  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  K  e.  Lat )
36 simplrl 762 . . . . . . . . . . . . . . 15  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  X  e.  B
)
371, 6lhpbase 33015 . . . . . . . . . . . . . . . 16  |-  ( W  e.  H  ->  W  e.  B )
3837ad3antlr 729 . . . . . . . . . . . . . . 15  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  W  e.  B
)
391, 4latmcl 16006 . . . . . . . . . . . . . . 15  |-  ( ( K  e.  Lat  /\  X  e.  B  /\  W  e.  B )  ->  ( X  ./\  W
)  e.  B )
4035, 36, 38, 39syl3anc 1230 . . . . . . . . . . . . . 14  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  ( X  ./\  W )  e.  B )
411, 2, 4latmle2 16031 . . . . . . . . . . . . . . 15  |-  ( ( K  e.  Lat  /\  X  e.  B  /\  W  e.  B )  ->  ( X  ./\  W
)  .<_  W )
4235, 36, 38, 41syl3anc 1230 . . . . . . . . . . . . . 14  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  ( X  ./\  W )  .<_  W )
431, 2, 6, 10, 8, 11diblss 34190 . . . . . . . . . . . . . 14  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( X 
./\  W )  e.  B  /\  ( X 
./\  W )  .<_  W ) )  -> 
( D `  ( X  ./\  W ) )  e.  S )
4430, 40, 42, 43syl12anc 1228 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  ( D `  ( X  ./\  W ) )  e.  S )
4511, 12lsmcl 18049 . . . . . . . . . . . . 13  |-  ( ( U  e.  LMod  /\  ( C `  q )  e.  S  /\  ( D `  ( X  ./\ 
W ) )  e.  S )  ->  (
( C `  q
)  .(+)  ( D `  ( X  ./\  W ) ) )  e.  S
)
4631, 33, 44, 45syl3anc 1230 . . . . . . . . . . . 12  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  ( ( C `
 q )  .(+)  ( D `  ( X 
./\  W ) ) )  e.  S )
4746a1d 25 . . . . . . . . . . 11  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  ( q  e.  A  /\  -.  q  .<_  W ) )  ->  ( ( q 
.\/  ( X  ./\  W ) )  =  X  ->  ( ( C `
 q )  .(+)  ( D `  ( X 
./\  W ) ) )  e.  S ) )
4847expr 613 . . . . . . . . . 10  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  q  e.  A )  ->  ( -.  q  .<_  W  -> 
( ( q  .\/  ( X  ./\  W ) )  =  X  -> 
( ( C `  q )  .(+)  ( D `
 ( X  ./\  W ) ) )  e.  S ) ) )
4948impd 429 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  q  e.  A )  ->  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  ->  ( ( C `
 q )  .(+)  ( D `  ( X 
./\  W ) ) )  e.  S ) )
5049ancld 551 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  /\  q  e.  A )  ->  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  ->  ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( ( C `  q )  .(+)  ( D `
 ( X  ./\  W ) ) )  e.  S ) ) )
5150reximdva 2879 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( E. q  e.  A  ( -.  q  .<_  W  /\  ( q 
.\/  ( X  ./\  W ) )  =  X )  ->  E. q  e.  A  ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( ( C `  q )  .(+)  ( D `
 ( X  ./\  W ) ) )  e.  S ) ) )
5229, 51mpd 15 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  E. q  e.  A  ( ( -.  q  .<_  W  /\  ( q 
.\/  ( X  ./\  W ) )  =  X )  /\  ( ( C `  q ) 
.(+)  ( D `  ( X  ./\  W ) ) )  e.  S
) )
53 breq1 4398 . . . . . . . . 9  |-  ( q  =  r  ->  (
q  .<_  W  <->  r  .<_  W ) )
5453notbid 292 . . . . . . . 8  |-  ( q  =  r  ->  ( -.  q  .<_  W  <->  -.  r  .<_  W ) )
55 oveq1 6285 . . . . . . . . 9  |-  ( q  =  r  ->  (
q  .\/  ( X  ./\ 
W ) )  =  ( r  .\/  ( X  ./\  W ) ) )
5655eqeq1d 2404 . . . . . . . 8  |-  ( q  =  r  ->  (
( q  .\/  ( X  ./\  W ) )  =  X  <->  ( r  .\/  ( X  ./\  W
) )  =  X ) )
5754, 56anbi12d 709 . . . . . . 7  |-  ( q  =  r  ->  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  <-> 
( -.  r  .<_  W  /\  ( r  .\/  ( X  ./\  W ) )  =  X ) ) )
58 fveq2 5849 . . . . . . . 8  |-  ( q  =  r  ->  ( C `  q )  =  ( C `  r ) )
5958oveq1d 6293 . . . . . . 7  |-  ( q  =  r  ->  (
( C `  q
)  .(+)  ( D `  ( X  ./\  W ) ) )  =  ( ( C `  r
)  .(+)  ( D `  ( X  ./\  W ) ) ) )
6057, 59reusv3 4602 . . . . . 6  |-  ( E. q  e.  A  ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( ( C `
 q )  .(+)  ( D `  ( X 
./\  W ) ) )  e.  S )  ->  ( A. q  e.  A  A. r  e.  A  ( (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r 
.\/  ( X  ./\  W ) )  =  X ) )  ->  (
( C `  q
)  .(+)  ( D `  ( X  ./\  W ) ) )  =  ( ( C `  r
)  .(+)  ( D `  ( X  ./\  W ) ) ) )  <->  E. u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `  ( X  ./\  W ) ) ) ) ) )
6152, 60syl 17 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( A. q  e.  A  A. r  e.  A  ( ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r  .\/  ( X  ./\  W ) )  =  X ) )  ->  ( ( C `  q )  .(+)  ( D `  ( X  ./\  W ) ) )  =  ( ( C `  r ) 
.(+)  ( D `  ( X  ./\  W ) ) ) )  <->  E. u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `  ( X  ./\  W ) ) ) ) ) )
6228, 61mpbid 210 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  E. u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q 
.\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `
 ( X  ./\  W ) ) ) ) )
63 reusv1 4594 . . . . 5  |-  ( E. q  e.  A  ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  -> 
( E! u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `  ( X  ./\  W ) ) ) )  <->  E. u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `  ( X  ./\  W ) ) ) ) ) )
6429, 63syl 17 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( E! u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `  ( X  ./\  W ) ) ) )  <->  E. u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `  ( X  ./\  W ) ) ) ) ) )
6562, 64mpbird 232 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  E! u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q 
.\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `
 ( X  ./\  W ) ) ) ) )
66 riotacl 6254 . . 3  |-  ( E! u  e.  S  A. q  e.  A  (
( -.  q  .<_  W  /\  ( q  .\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q
)  .(+)  ( D `  ( X  ./\  W ) ) ) )  -> 
( iota_ u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q 
.\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `
 ( X  ./\  W ) ) ) ) )  e.  S )
6765, 66syl 17 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( iota_ u  e.  S  A. q  e.  A  ( ( -.  q  .<_  W  /\  ( q 
.\/  ( X  ./\  W ) )  =  X )  ->  u  =  ( ( C `  q )  .(+)  ( D `
 ( X  ./\  W ) ) ) ) )  e.  S )
6813, 67eqeltrd 2490 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  -> 
( I `  X
)  e.  S )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 367    /\ w3a 974    = wceq 1405    e. wcel 1842   A.wral 2754   E.wrex 2755   E!wreu 2756   class class class wbr 4395   ` cfv 5569   iota_crio 6239  (class class class)co 6278   Basecbs 14841   lecple 14916   joincjn 15897   meetcmee 15898   Latclat 15999   LSSumclsm 16978   LModclmod 17832   LSubSpclss 17898   Atomscatm 32281   HLchlt 32368   LHypclh 33001   DVecHcdvh 34098   DIsoBcdib 34158   DIsoCcdic 34192   DIsoHcdih 34248
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1639  ax-4 1652  ax-5 1725  ax-6 1771  ax-7 1814  ax-8 1844  ax-9 1846  ax-10 1861  ax-11 1866  ax-12 1878  ax-13 2026  ax-ext 2380  ax-rep 4507  ax-sep 4517  ax-nul 4525  ax-pow 4572  ax-pr 4630  ax-un 6574  ax-cnex 9578  ax-resscn 9579  ax-1cn 9580  ax-icn 9581  ax-addcl 9582  ax-addrcl 9583  ax-mulcl 9584  ax-mulrcl 9585  ax-mulcom 9586  ax-addass 9587  ax-mulass 9588  ax-distr 9589  ax-i2m1 9590  ax-1ne0 9591  ax-1rid 9592  ax-rnegex 9593  ax-rrecex 9594  ax-cnre 9595  ax-pre-lttri 9596  ax-pre-lttrn 9597  ax-pre-ltadd 9598  ax-pre-mulgt0 9599  ax-riotaBAD 31977
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 975  df-3an 976  df-tru 1408  df-fal 1411  df-ex 1634  df-nf 1638  df-sb 1764  df-eu 2242  df-mo 2243  df-clab 2388  df-cleq 2394  df-clel 2397  df-nfc 2552  df-ne 2600  df-nel 2601  df-ral 2759  df-rex 2760  df-reu 2761  df-rmo 2762  df-rab 2763  df-v 3061  df-sbc 3278  df-csb 3374  df-dif 3417  df-un 3419  df-in 3421  df-ss 3428  df-pss 3430  df-nul 3739  df-if 3886  df-pw 3957  df-sn 3973  df-pr 3975  df-tp 3977  df-op 3979  df-uni 4192  df-int 4228  df-iun 4273  df-iin 4274  df-br 4396  df-opab 4454  df-mpt 4455  df-tr 4490  df-eprel 4734  df-id 4738  df-po 4744  df-so 4745  df-fr 4782  df-we 4784  df-xp 4829  df-rel 4830  df-cnv 4831  df-co 4832  df-dm 4833  df-rn 4834  df-res 4835  df-ima 4836  df-pred 5367  df-ord 5413  df-on 5414  df-lim 5415  df-suc 5416  df-iota 5533  df-fun 5571  df-fn 5572  df-f 5573  df-f1 5574  df-fo 5575  df-f1o 5576  df-fv 5577  df-riota 6240  df-ov 6281  df-oprab 6282  df-mpt2 6283  df-om 6684  df-1st 6784  df-2nd 6785  df-tpos 6958  df-undef 7005  df-wrecs 7013  df-recs 7075  df-rdg 7113  df-1o 7167  df-oadd 7171  df-er 7348  df-map 7459  df-en 7555  df-dom 7556  df-sdom 7557  df-fin 7558  df-pnf 9660  df-mnf 9661  df-xr 9662  df-ltxr 9663  df-le 9664  df-sub 9843  df-neg 9844  df-nn 10577  df-2 10635  df-3 10636  df-4 10637  df-5 10638  df-6 10639  df-n0 10837  df-z 10906  df-uz 11128  df-fz 11727  df-struct 14843  df-ndx 14844  df-slot 14845  df-base 14846  df-sets 14847  df-ress 14848  df-plusg 14922  df-mulr 14923  df-sca 14925  df-vsca 14926  df-0g 15056  df-preset 15881  df-poset 15899  df-plt 15912  df-lub 15928  df-glb 15929  df-join 15930  df-meet 15931  df-p0 15993  df-p1 15994  df-lat 16000  df-clat 16062  df-mgm 16196  df-sgrp 16235  df-mnd 16245  df-submnd 16291  df-grp 16381  df-minusg 16382  df-sbg 16383  df-subg 16522  df-cntz 16679  df-lsm 16980  df-cmn 17124  df-abl 17125  df-mgp 17462  df-ur 17474  df-ring 17520  df-oppr 17592  df-dvdsr 17610  df-unit 17611  df-invr 17641  df-dvr 17652  df-drng 17718  df-lmod 17834  df-lss 17899  df-lsp 17938  df-lvec 18069  df-oposet 32194  df-ol 32196  df-oml 32197  df-covers 32284  df-ats 32285  df-atl 32316  df-cvlat 32340  df-hlat 32369  df-llines 32515  df-lplanes 32516  df-lvols 32517  df-lines 32518  df-psubsp 32520  df-pmap 32521  df-padd 32813  df-lhyp 33005  df-laut 33006  df-ldil 33121  df-ltrn 33122  df-trl 33177  df-tendo 33774  df-edring 33776  df-disoa 34049  df-dvech 34099  df-dib 34159  df-dic 34193  df-dih 34249
This theorem is referenced by:  dihvalcqpre  34255  dihlss  34270
  Copyright terms: Public domain W3C validator