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

Theorem dihord5b 35212
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 991 . . 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 993 . . 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 2451 . . . 4  |-  ( join `  K )  =  (
join `  K )
6 eqid 2451 . . . 4  |-  ( meet `  K )  =  (
meet `  K )
7 eqid 2451 . . . 4  |-  ( Atoms `  K )  =  (
Atoms `  K )
8 dihord3.h . . . 4  |-  H  =  ( LHyp `  K
)
93, 4, 5, 6, 7, 8lhpmcvr2 33976 . . 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 661 . 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 1013 . . . . . . . . . 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 1042 . . . . . . . . . . 11  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  X  .<_  W )
13123ad2ant1 1009 . . . . . . . . . 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 1039 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  K  e.  HL )
15143ad2ant1 1009 . . . . . . . . . . . 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 33316 . . . . . . . . . . . 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 1041 . . . . . . . . . . . 12  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  X  e.  B )
19183ad2ant1 1009 . . . . . . . . . . 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 1043 . . . . . . . . . . . 12  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  Y  e.  B )
21203ad2ant1 1009 . . . . . . . . . . 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 1040 . . . . . . . . . . . . 13  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  X  .<_  Y )  ->  W  e.  H )
23223ad2ant1 1009 . . . . . . . . . . . 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 33950 . . . . . . . . . . . 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 15352 . . . . . . . . . . 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 1221 . . . . . . . . . 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 912 . . . . . . . . 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 1081 . . . . . . . . . 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 1082 . . . . . . . . . 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 15326 . . . . . . . . . . 11  |-  ( ( K  e.  Lat  /\  Y  e.  B  /\  W  e.  B )  ->  ( Y ( meet `  K ) W )  e.  B )
3217, 21, 25, 31syl3anc 1219 . . . . . . . . . 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 15351 . . . . . . . . . . 11  |-  ( ( K  e.  Lat  /\  Y  e.  B  /\  W  e.  B )  ->  ( Y ( meet `  K ) W ) 
.<_  W )
3417, 21, 25, 33syl3anc 1219 . . . . . . . . . 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 2451 . . . . . . . . . . 11  |-  ( (
DIsoB `  K ) `  W )  =  ( ( DIsoB `  K ) `  W )
363, 4, 8, 35dibord 35112 . . . . . . . . . 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 1223 . . . . . . . . 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 232 . . . . . . . 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 2451 . . . . . . . . . . . 12  |-  ( (
DVecH `  K ) `  W )  =  ( ( DVecH `  K ) `  W )
408, 39, 29dvhlmod 35063 . . . . . . . . . . 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 2451 . . . . . . . . . . . 12  |-  ( LSubSp `  ( ( DVecH `  K
) `  W )
)  =  ( LSubSp `  ( ( DVecH `  K
) `  W )
)
4241lsssssubg 17147 . . . . . . . . . . 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 989 . . . . . . . . . . 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 2451 . . . . . . . . . . . 12  |-  ( (
DIsoC `  K ) `  W )  =  ( ( DIsoC `  K ) `  W )
464, 7, 8, 39, 45, 41diclss 35146 . . . . . . . . . . 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 661 . . . . . . . . . 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 3457 . . . . . . . . 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 35123 . . . . . . . . . . 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 1217 . . . . . . . . . 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 3457 . . . . . . . . 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 2451 . . . . . . . . . 10  |-  ( LSSum `  ( ( DVecH `  K
) `  W )
)  =  ( LSSum `  ( ( DVecH `  K
) `  W )
)
5352lsmub2 16262 . . . . . . . . 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 661 . . . . . . . 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 3466 . . . . . . 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 35190 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  X  .<_  W ) )  ->  (
I `  X )  =  ( ( (
DIsoB `  K ) `  W ) `  X
) )
5829, 30, 57syl2anc 661 . . . . . . 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 1083 . . . . . . . 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 990 . . . . . . . 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 35189 . . . . . . . 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 1223 . . . . . . 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 3499 . . . . . 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 1187 . . . . 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 ) ) ) )
6564expd 436 . . . 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 589 . . 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 2938 . 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 setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 965    = wceq 1370    e. wcel 1758   E.wrex 2796    C_ wss 3428   class class class wbr 4392   ` cfv 5518  (class class class)co 6192   Basecbs 14278   lecple 14349   joincjn 15218   meetcmee 15219   Latclat 15319  SubGrpcsubg 15779   LSSumclsm 16239   LModclmod 17056   LSubSpclss 17121   Atomscatm 33216   HLchlt 33303   LHypclh 33936   DVecHcdvh 35031   DIsoBcdib 35091   DIsoCcdic 35125   DIsoHcdih 35181
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1592  ax-4 1603  ax-5 1671  ax-6 1710  ax-7 1730  ax-8 1760  ax-9 1762  ax-10 1777  ax-11 1782  ax-12 1794  ax-13 1952  ax-ext 2430  ax-rep 4503  ax-sep 4513  ax-nul 4521  ax-pow 4570  ax-pr 4631  ax-un 6474  ax-cnex 9441  ax-resscn 9442  ax-1cn 9443  ax-icn 9444  ax-addcl 9445  ax-addrcl 9446  ax-mulcl 9447  ax-mulrcl 9448  ax-mulcom 9449  ax-addass 9450  ax-mulass 9451  ax-distr 9452  ax-i2m1 9453  ax-1ne0 9454  ax-1rid 9455  ax-rnegex 9456  ax-rrecex 9457  ax-cnre 9458  ax-pre-lttri 9459  ax-pre-lttrn 9460  ax-pre-ltadd 9461  ax-pre-mulgt0 9462  ax-riotaBAD 32912
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1373  df-fal 1376  df-ex 1588  df-nf 1591  df-sb 1703  df-eu 2264  df-mo 2265  df-clab 2437  df-cleq 2443  df-clel 2446  df-nfc 2601  df-ne 2646  df-nel 2647  df-ral 2800  df-rex 2801  df-reu 2802  df-rmo 2803  df-rab 2804  df-v 3072  df-sbc 3287  df-csb 3389  df-dif 3431  df-un 3433  df-in 3435  df-ss 3442  df-pss 3444  df-nul 3738  df-if 3892  df-pw 3962  df-sn 3978  df-pr 3980  df-tp 3982  df-op 3984  df-uni 4192  df-int 4229  df-iun 4273  df-iin 4274  df-br 4393  df-opab 4451  df-mpt 4452  df-tr 4486  df-eprel 4732  df-id 4736  df-po 4741  df-so 4742  df-fr 4779  df-we 4781  df-ord 4822  df-on 4823  df-lim 4824  df-suc 4825  df-xp 4946  df-rel 4947  df-cnv 4948  df-co 4949  df-dm 4950  df-rn 4951  df-res 4952  df-ima 4953  df-iota 5481  df-fun 5520  df-fn 5521  df-f 5522  df-f1 5523  df-fo 5524  df-f1o 5525  df-fv 5526  df-riota 6153  df-ov 6195  df-oprab 6196  df-mpt2 6197  df-om 6579  df-1st 6679  df-2nd 6680  df-tpos 6847  df-undef 6894  df-recs 6934  df-rdg 6968  df-1o 7022  df-oadd 7026  df-er 7203  df-map 7318  df-en 7413  df-dom 7414  df-sdom 7415  df-fin 7416  df-pnf 9523  df-mnf 9524  df-xr 9525  df-ltxr 9526  df-le 9527  df-sub 9700  df-neg 9701  df-nn 10426  df-2 10483  df-3 10484  df-4 10485  df-5 10486  df-6 10487  df-n0 10683  df-z 10750  df-uz 10965  df-fz 11541  df-struct 14280  df-ndx 14281  df-slot 14282  df-base 14283  df-sets 14284  df-ress 14285  df-plusg 14355  df-mulr 14356  df-sca 14358  df-vsca 14359  df-0g 14484  df-poset 15220  df-plt 15232  df-lub 15248  df-glb 15249  df-join 15250  df-meet 15251  df-p0 15313  df-p1 15314  df-lat 15320  df-clat 15382  df-mnd 15519  df-submnd 15569  df-grp 15649  df-minusg 15650  df-sbg 15651  df-subg 15782  df-cntz 15939  df-lsm 16241  df-cmn 16385  df-abl 16386  df-mgp 16699  df-ur 16711  df-rng 16755  df-oppr 16823  df-dvdsr 16841  df-unit 16842  df-invr 16872  df-dvr 16883  df-drng 16942  df-lmod 17058  df-lss 17122  df-lsp 17161  df-lvec 17292  df-oposet 33129  df-ol 33131  df-oml 33132  df-covers 33219  df-ats 33220  df-atl 33251  df-cvlat 33275  df-hlat 33304  df-llines 33450  df-lplanes 33451  df-lvols 33452  df-lines 33453  df-psubsp 33455  df-pmap 33456  df-padd 33748  df-lhyp 33940  df-laut 33941  df-ldil 34056  df-ltrn 34057  df-trl 34111  df-tendo 34707  df-edring 34709  df-disoa 34982  df-dvech 35032  df-dib 35092  df-dic 35126  df-dih 35182
This theorem is referenced by:  dihord  35217
  Copyright terms: Public domain W3C validator