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

Theorem dihord5b 31746
Description: Part of proof that isomorphism H is order-preserving. TODO: eliminate 3ad2ant1; combine w/ other way to have one lhpmcvr2 (Contributed by NM, 7-Mar-2014.)
Hypotheses
Ref Expression
dihord3.b  |-  B  =  ( Base `  K
)
dihord3.l  |-  .<_  =  ( le `  K )
dihord3.h  |-  H  =  ( LHyp `  K
)
dihord3.i  |-  I  =  ( ( DIsoH `  K
) `  W )
Assertion
Ref Expression
dihord5b  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  ( I `  X )  C_  (
I `  Y )
)

Proof of Theorem dihord5b
Dummy variable  r is distinct from all other variables.
StepHypRef Expression
1 simpl1 960 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  ( K  e.  HL  /\  W  e.  H ) )
2 simpl3 962 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  ( Y  e.  B  /\  -.  Y  .<_  W ) )
3 dihord3.b . . . 4  |-  B  =  ( Base `  K
)
4 dihord3.l . . . 4  |-  .<_  =  ( le `  K )
5 eqid 2408 . . . 4  |-  ( join `  K )  =  (
join `  K )
6 eqid 2408 . . . 4  |-  ( meet `  K )  =  (
meet `  K )
7 eqid 2408 . . . 4  |-  ( Atoms `  K )  =  (
Atoms `  K )
8 dihord3.h . . . 4  |-  H  =  ( LHyp `  K
)
93, 4, 5, 6, 7, 8lhpmcvr2 30510 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  ->  E. r  e.  ( Atoms `  K ) ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) )
101, 2, 9syl2anc 643 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  E. r  e.  ( Atoms `  K )
( -.  r  .<_  W  /\  ( r (
join `  K )
( Y ( meet `  K ) W ) )  =  Y ) )
11 simp1r 982 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  X  .<_  Y )
12 simpl2r 1011 . . . . . . . . . . 11  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  X  .<_  W )
13123ad2ant1 978 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  X  .<_  W )
14 simpl1l 1008 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  K  e.  HL )
15143ad2ant1 978 . . . . . . . . . . . 12  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  K  e.  HL )
16 hllat 29850 . . . . . . . . . . . 12  |-  ( K  e.  HL  ->  K  e.  Lat )
1715, 16syl 16 . . . . . . . . . . 11  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  K  e.  Lat )
18 simpl2l 1010 . . . . . . . . . . . 12  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  X  e.  B )
19183ad2ant1 978 . . . . . . . . . . 11  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  X  e.  B )
20 simpl3l 1012 . . . . . . . . . . . 12  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  Y  e.  B )
21203ad2ant1 978 . . . . . . . . . . 11  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  Y  e.  B )
22 simpl1r 1009 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  W  e.  H )
23223ad2ant1 978 . . . . . . . . . . . 12  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  W  e.  H )
243, 8lhpbase 30484 . . . . . . . . . . . 12  |-  ( W  e.  H  ->  W  e.  B )
2523, 24syl 16 . . . . . . . . . . 11  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  W  e.  B )
263, 4, 6latlem12 14466 . . . . . . . . . . 11  |-  ( ( K  e.  Lat  /\  ( X  e.  B  /\  Y  e.  B  /\  W  e.  B
) )  ->  (
( X  .<_  Y  /\  X  .<_  W )  <->  X  .<_  ( Y ( meet `  K
) W ) ) )
2717, 19, 21, 25, 26syl13anc 1186 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
( X  .<_  Y  /\  X  .<_  W )  <->  X  .<_  ( Y ( meet `  K
) W ) ) )
2811, 13, 27mpbi2and 888 . . . . . . . . 9  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  X  .<_  ( Y ( meet `  K ) W ) )
29 simp1l1 1050 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  ( K  e.  HL  /\  W  e.  H ) )
30 simp1l2 1051 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  ( X  e.  B  /\  X  .<_  W ) )
313, 6latmcl 14439 . . . . . . . . . . 11  |-  ( ( K  e.  Lat  /\  Y  e.  B  /\  W  e.  B )  ->  ( Y ( meet `  K ) W )  e.  B )
3217, 21, 25, 31syl3anc 1184 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  ( Y ( meet `  K
) W )  e.  B )
333, 4, 6latmle2 14465 . . . . . . . . . . 11  |-  ( ( K  e.  Lat  /\  Y  e.  B  /\  W  e.  B )  ->  ( Y ( meet `  K ) W ) 
.<_  W )
3417, 21, 25, 33syl3anc 1184 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  ( Y ( meet `  K
) W )  .<_  W )
35 eqid 2408 . . . . . . . . . . 11  |-  ( (
DIsoB `  K ) `  W )  =  ( ( DIsoB `  K ) `  W )
363, 4, 8, 35dibord 31646 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( ( Y ( meet `  K
) W )  e.  B  /\  ( Y ( meet `  K
) W )  .<_  W ) )  -> 
( ( ( (
DIsoB `  K ) `  W ) `  X
)  C_  ( (
( DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) )  <-> 
X  .<_  ( Y (
meet `  K ) W ) ) )
3729, 30, 32, 34, 36syl112anc 1188 . . . . . . . . 9  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
( ( ( DIsoB `  K ) `  W
) `  X )  C_  ( ( ( DIsoB `  K ) `  W
) `  ( Y
( meet `  K ) W ) )  <->  X  .<_  ( Y ( meet `  K
) W ) ) )
3828, 37mpbird 224 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
( ( DIsoB `  K
) `  W ) `  X )  C_  (
( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) ) )
39 eqid 2408 . . . . . . . . . . . 12  |-  ( (
DVecH `  K ) `  W )  =  ( ( DVecH `  K ) `  W )
408, 39, 29dvhlmod 31597 . . . . . . . . . . 11  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
( DVecH `  K ) `  W )  e.  LMod )
41 eqid 2408 . . . . . . . . . . . 12  |-  ( LSubSp `  ( ( DVecH `  K
) `  W )
)  =  ( LSubSp `  ( ( DVecH `  K
) `  W )
)
4241lsssssubg 15993 . . . . . . . . . . 11  |-  ( ( ( DVecH `  K ) `  W )  e.  LMod  -> 
( LSubSp `  ( ( DVecH `  K ) `  W ) )  C_  (SubGrp `  ( ( DVecH `  K ) `  W
) ) )
4340, 42syl 16 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  ( LSubSp `
 ( ( DVecH `  K ) `  W
) )  C_  (SubGrp `  ( ( DVecH `  K
) `  W )
) )
44 simp2 958 . . . . . . . . . . 11  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
r  e.  ( Atoms `  K )  /\  -.  r  .<_  W ) )
45 eqid 2408 . . . . . . . . . . . 12  |-  ( (
DIsoC `  K ) `  W )  =  ( ( DIsoC `  K ) `  W )
464, 7, 8, 39, 45, 41diclss 31680 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( r  e.  ( Atoms `  K )  /\  -.  r  .<_  W ) )  ->  ( (
( DIsoC `  K ) `  W ) `  r
)  e.  ( LSubSp `  ( ( DVecH `  K
) `  W )
) )
4729, 44, 46syl2anc 643 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
( ( DIsoC `  K
) `  W ) `  r )  e.  (
LSubSp `  ( ( DVecH `  K ) `  W
) ) )
4843, 47sseldd 3313 . . . . . . . . 9  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
( ( DIsoC `  K
) `  W ) `  r )  e.  (SubGrp `  ( ( DVecH `  K
) `  W )
) )
493, 4, 8, 39, 35, 41diblss 31657 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( Y ( meet `  K
) W )  e.  B  /\  ( Y ( meet `  K
) W )  .<_  W ) )  -> 
( ( ( DIsoB `  K ) `  W
) `  ( Y
( meet `  K ) W ) )  e.  ( LSubSp `  ( ( DVecH `  K ) `  W ) ) )
5029, 32, 34, 49syl12anc 1182 . . . . . . . . . 10  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) )  e.  ( LSubSp `  ( ( DVecH `  K
) `  W )
) )
5143, 50sseldd 3313 . . . . . . . . 9  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) )  e.  (SubGrp `  ( ( DVecH `  K
) `  W )
) )
52 eqid 2408 . . . . . . . . . 10  |-  ( LSSum `  ( ( DVecH `  K
) `  W )
)  =  ( LSSum `  ( ( DVecH `  K
) `  W )
)
5352lsmub2 15250 . . . . . . . . 9  |-  ( ( ( ( ( DIsoC `  K ) `  W
) `  r )  e.  (SubGrp `  ( ( DVecH `  K ) `  W ) )  /\  ( ( ( DIsoB `  K ) `  W
) `  ( Y
( meet `  K ) W ) )  e.  (SubGrp `  ( ( DVecH `  K ) `  W ) ) )  ->  ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) 
C_  ( ( ( ( DIsoC `  K ) `  W ) `  r
) ( LSSum `  (
( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) ) ) )
5448, 51, 53syl2anc 643 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )
5538, 54sstrd 3322 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
( ( DIsoB `  K
) `  W ) `  X )  C_  (
( ( ( DIsoC `  K ) `  W
) `  r )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) ) ) )
56 dihord3.i . . . . . . . . 9  |-  I  =  ( ( DIsoH `  K
) `  W )
573, 4, 8, 56, 35dihvalb 31724 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W ) )  ->  (
I `  X )  =  ( ( (
DIsoB `  K ) `  W ) `  X
) )
5829, 30, 57syl2anc 643 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
I `  X )  =  ( ( (
DIsoB `  K ) `  W ) `  X
) )
59 simp1l3 1052 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  ( Y  e.  B  /\  -.  Y  .<_  W ) )
60 simp3 959 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )
613, 4, 5, 6, 7, 8, 56, 35, 45, 39, 52dihvalcq 31723 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( Y  e.  B  /\  -.  Y  .<_  W )  /\  (
( r  e.  (
Atoms `  K )  /\  -.  r  .<_  W )  /\  ( r (
join `  K )
( Y ( meet `  K ) W ) )  =  Y ) )  ->  ( I `  Y )  =  ( ( ( ( DIsoC `  K ) `  W
) `  r )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) ) ) )
6229, 59, 44, 60, 61syl112anc 1188 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
I `  Y )  =  ( ( ( ( DIsoC `  K ) `  W ) `  r
) ( LSSum `  (
( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) ) ) )
6355, 58, 623sstr4d 3355 . . . . . 6  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  /\  ( r  e.  ( Atoms `  K
)  /\  -.  r  .<_  W )  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
I `  X )  C_  ( I `  Y
) )
64633exp 1152 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  ( (
r  e.  ( Atoms `  K )  /\  -.  r  .<_  W )  -> 
( ( r (
join `  K )
( Y ( meet `  K ) W ) )  =  Y  -> 
( I `  X
)  C_  ( I `  Y ) ) ) )
6564exp3a 426 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  ( r  e.  ( Atoms `  K )  ->  ( -.  r  .<_  W  ->  ( ( r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y  ->  ( I `  X )  C_  (
I `  Y )
) ) ) )
6665imp4a 573 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  ( r  e.  ( Atoms `  K )  ->  ( ( -.  r  .<_  W  /\  ( r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )  ->  (
I `  X )  C_  ( I `  Y
) ) ) )
6766rexlimdv 2793 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  ( E. r  e.  ( Atoms `  K ) ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y )  -> 
( I `  X
)  C_  ( I `  Y ) ) )
6810, 67mpd 15 1  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  ( I `  X )  C_  (
I `  Y )
)
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 177    /\ wa 359    /\ w3a 936    = wceq 1649    e. wcel 1721   E.wrex 2671    C_ wss 3284   class class class wbr 4176   ` cfv 5417  (class class class)co 6044   Basecbs 13428   lecple 13495   joincjn 14360   meetcmee 14361   Latclat 14433  SubGrpcsubg 14897   LSSumclsm 15227   LModclmod 15909   LSubSpclss 15967   Atomscatm 29750   HLchlt 29837   LHypclh 30470   DVecHcdvh 31565   DIsoBcdib 31625   DIsoCcdic 31659   DIsoHcdih 31715
This theorem is referenced by:  dihord  31751
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1662  ax-8 1683  ax-13 1723  ax-14 1725  ax-6 1740  ax-7 1745  ax-11 1757  ax-12 1946  ax-ext 2389  ax-rep 4284  ax-sep 4294  ax-nul 4302  ax-pow 4341  ax-pr 4367  ax-un 4664  ax-cnex 9006  ax-resscn 9007  ax-1cn 9008  ax-icn 9009  ax-addcl 9010  ax-addrcl 9011  ax-mulcl 9012  ax-mulrcl 9013  ax-mulcom 9014  ax-addass 9015  ax-mulass 9016  ax-distr 9017  ax-i2m1 9018  ax-1ne0 9019  ax-1rid 9020  ax-rnegex 9021  ax-rrecex 9022  ax-cnre 9023  ax-pre-lttri 9024  ax-pre-lttrn 9025  ax-pre-ltadd 9026  ax-pre-mulgt0 9027
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-fal 1326  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2262  df-mo 2263  df-clab 2395  df-cleq 2401  df-clel 2404  df-nfc 2533  df-ne 2573  df-nel 2574  df-ral 2675  df-rex 2676  df-reu 2677  df-rmo 2678  df-rab 2679  df-v 2922  df-sbc 3126  df-csb 3216  df-dif 3287  df-un 3289  df-in 3291  df-ss 3298  df-pss 3300  df-nul 3593  df-if 3704  df-pw 3765  df-sn 3784  df-pr 3785  df-tp 3786  df-op 3787  df-uni 3980  df-int 4015  df-iun 4059  df-iin 4060  df-br 4177  df-opab 4231  df-mpt 4232  df-tr 4267  df-eprel 4458  df-id 4462  df-po 4467  df-so 4468  df-fr 4505  df-we 4507  df-ord 4548  df-on 4549  df-lim 4550  df-suc 4551  df-om 4809  df-xp 4847  df-rel 4848  df-cnv 4849  df-co 4850  df-dm 4851  df-rn 4852  df-res 4853  df-ima 4854  df-iota 5381  df-fun 5419  df-fn 5420  df-f 5421  df-f1 5422  df-fo 5423  df-f1o 5424  df-fv 5425  df-ov 6047  df-oprab 6048  df-mpt2 6049  df-1st 6312  df-2nd 6313  df-tpos 6442  df-undef 6506  df-riota 6512  df-recs 6596  df-rdg 6631  df-1o 6687  df-oadd 6691  df-er 6868  df-map 6983  df-en 7073  df-dom 7074  df-sdom 7075  df-fin 7076  df-pnf 9082  df-mnf 9083  df-xr 9084  df-ltxr 9085  df-le 9086  df-sub 9253  df-neg 9254  df-nn 9961  df-2 10018  df-3 10019  df-4 10020  df-5 10021  df-6 10022  df-n0 10182  df-z 10243  df-uz 10449  df-fz 11004  df-struct 13430  df-ndx 13431  df-slot 13432  df-base 13433  df-sets 13434  df-ress 13435  df-plusg 13501  df-mulr 13502  df-sca 13504  df-vsca 13505  df-0g 13686  df-poset 14362  df-plt 14374  df-lub 14390  df-glb 14391  df-join 14392  df-meet 14393  df-p0 14427  df-p1 14428  df-lat 14434  df-clat 14496  df-mnd 14649  df-submnd 14698  df-grp 14771  df-minusg 14772  df-sbg 14773  df-subg 14900  df-cntz 15075  df-lsm 15229  df-cmn 15373  df-abl 15374  df-mgp 15608  df-rng 15622  df-ur 15624  df-oppr 15687  df-dvdsr 15705  df-unit 15706  df-invr 15736  df-dvr 15747  df-drng 15796  df-lmod 15911  df-lss 15968  df-lsp 16007  df-lvec 16134  df-oposet 29663  df-ol 29665  df-oml 29666  df-covers 29753  df-ats 29754  df-atl 29785  df-cvlat 29809  df-hlat 29838  df-llines 29984  df-lplanes 29985  df-lvols 29986  df-lines 29987  df-psubsp 29989  df-pmap 29990  df-padd 30282  df-lhyp 30474  df-laut 30475  df-ldil 30590  df-ltrn 30591  df-trl 30645  df-tendo 31241  df-edring 31243  df-disoa 31516  df-dvech 31566  df-dib 31626  df-dic 31660  df-dih 31716
  Copyright terms: Public domain W3C validator