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

Theorem dihord4 34922
Description: The isomorphism H for a lattice  K is order-preserving in the region not under co-atom  W. TODO: reformat q e. A /\ -. q .<_ W to eliminate adant*. (Contributed by NM, 6-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
dihord4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  ->  ( (
I `  X )  C_  ( I `  Y
)  <->  X  .<_  Y ) )

Proof of Theorem dihord4
Dummy variables  r 
q are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dihord3.b . . . . 5  |-  B  =  ( Base `  K
)
2 dihord3.l . . . . 5  |-  .<_  =  ( le `  K )
3 eqid 2443 . . . . 5  |-  ( join `  K )  =  (
join `  K )
4 eqid 2443 . . . . 5  |-  ( meet `  K )  =  (
meet `  K )
5 eqid 2443 . . . . 5  |-  ( Atoms `  K )  =  (
Atoms `  K )
6 dihord3.h . . . . 5  |-  H  =  ( LHyp `  K
)
71, 2, 3, 4, 5, 6lhpmcvr2 33687 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W ) )  ->  E. q  e.  ( Atoms `  K ) ( -.  q  .<_  W  /\  ( q ( join `  K ) ( X ( meet `  K
) W ) )  =  X ) )
873adant3 1008 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  ->  E. q  e.  ( Atoms `  K )
( -.  q  .<_  W  /\  ( q (
join `  K )
( X ( meet `  K ) W ) )  =  X ) )
91, 2, 3, 4, 5, 6lhpmcvr2 33687 . . . 4  |-  ( ( ( 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 ) )
1093adant2 1007 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  ->  E. r  e.  ( Atoms `  K )
( -.  r  .<_  W  /\  ( r (
join `  K )
( Y ( meet `  K ) W ) )  =  Y ) )
11 reeanv 2903 . . 3  |-  ( E. q  e.  ( Atoms `  K ) E. r  e.  ( Atoms `  K )
( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) )  <-> 
( E. q  e.  ( Atoms `  K )
( -.  q  .<_  W  /\  ( q (
join `  K )
( X ( meet `  K ) W ) )  =  X )  /\  E. r  e.  ( Atoms `  K )
( -.  r  .<_  W  /\  ( r (
join `  K )
( Y ( meet `  K ) W ) )  =  Y ) ) )
128, 10, 11sylanbrc 664 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  ->  E. q  e.  ( Atoms `  K ) E. r  e.  ( Atoms `  K ) ( ( -.  q  .<_  W  /\  ( q (
join `  K )
( X ( meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y ) ) )
13 simp11 1018 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
14 simp12 1019 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( X  e.  B  /\  -.  X  .<_  W ) )
15 simp2l 1014 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  q  e.  ( Atoms `  K )
)
16 simp3ll 1059 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  -.  q  .<_  W )
1715, 16jca 532 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( q  e.  ( Atoms `  K )  /\  -.  q  .<_  W ) )
18 simp3lr 1060 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( q
( join `  K )
( X ( meet `  K ) W ) )  =  X )
19 dihord3.i . . . . . . . 8  |-  I  =  ( ( DIsoH `  K
) `  W )
20 eqid 2443 . . . . . . . 8  |-  ( (
DIsoB `  K ) `  W )  =  ( ( DIsoB `  K ) `  W )
21 eqid 2443 . . . . . . . 8  |-  ( (
DIsoC `  K ) `  W )  =  ( ( DIsoC `  K ) `  W )
22 eqid 2443 . . . . . . . 8  |-  ( (
DVecH `  K ) `  W )  =  ( ( DVecH `  K ) `  W )
23 eqid 2443 . . . . . . . 8  |-  ( LSSum `  ( ( DVecH `  K
) `  W )
)  =  ( LSSum `  ( ( DVecH `  K
) `  W )
)
241, 2, 3, 4, 5, 6, 19, 20, 21, 22, 23dihvalcq 34900 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  (
( q  e.  (
Atoms `  K )  /\  -.  q  .<_  W )  /\  ( q (
join `  K )
( X ( meet `  K ) W ) )  =  X ) )  ->  ( I `  X )  =  ( ( ( ( DIsoC `  K ) `  W
) `  q )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( X ( meet `  K ) W ) ) ) )
2513, 14, 17, 18, 24syl112anc 1222 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( I `  X )  =  ( ( ( ( DIsoC `  K ) `  W
) `  q )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( X ( meet `  K ) W ) ) ) )
26 simp13 1020 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( Y  e.  B  /\  -.  Y  .<_  W ) )
27 simp2r 1015 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  r  e.  ( Atoms `  K )
)
28 simp3rl 1061 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  -.  r  .<_  W )
2927, 28jca 532 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( r  e.  ( Atoms `  K )  /\  -.  r  .<_  W ) )
30 simp3rr 1062 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( r
( join `  K )
( Y ( meet `  K ) W ) )  =  Y )
311, 2, 3, 4, 5, 6, 19, 20, 21, 22, 23dihvalcq 34900 . . . . . . 7  |-  ( ( ( 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 ) ) ) )
3213, 26, 29, 30, 31syl112anc 1222 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  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 ) ) ) )
3325, 32sseq12d 3400 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( (
I `  X )  C_  ( I `  Y
)  <->  ( ( ( ( DIsoC `  K ) `  W ) `  q
) ( LSSum `  (
( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( X ( meet `  K ) W ) ) )  C_  (
( ( ( DIsoC `  K ) `  W
) `  r )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) ) ) ) )
34 simpl11 1063 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
35 simpl2l 1041 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  q  e.  ( Atoms `  K )
)
3616adantr 465 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  -.  q  .<_  W )
3735, 36jca 532 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  (
q  e.  ( Atoms `  K )  /\  -.  q  .<_  W ) )
38 simpl2r 1042 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  r  e.  ( Atoms `  K )
)
3928adantr 465 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  -.  r  .<_  W )
4038, 39jca 532 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  (
r  e.  ( Atoms `  K )  /\  -.  r  .<_  W ) )
41 simp12l 1101 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  X  e.  B )
4241adantr 465 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  X  e.  B )
43 simp13l 1103 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  Y  e.  B )
4443adantr 465 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  Y  e.  B )
4518adantr 465 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  (
q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )
4630adantr 465 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y )
47 simpr 461 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  (
( ( ( DIsoC `  K ) `  W
) `  q )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( X ( meet `  K ) W ) ) )  C_  (
( ( ( DIsoC `  K ) `  W
) `  r )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) ) ) )
481, 2, 3, 4, 5, 6, 20, 21, 22, 23dihord2 34891 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
q  e.  ( Atoms `  K )  /\  -.  q  .<_  W )  /\  ( r  e.  (
Atoms `  K )  /\  -.  r  .<_  W ) )  /\  ( X  e.  B  /\  Y  e.  B )  /\  (
( q ( join `  K ) ( X ( meet `  K
) W ) )  =  X  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) ) )  ->  X  .<_  Y )
4934, 37, 40, 42, 44, 45, 46, 47, 48syl323anc 1248 . . . . . 6  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  ( ( ( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )  ->  X  .<_  Y )
50 simpl11 1063 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  ( K  e.  HL  /\  W  e.  H ) )
51 simpl2l 1041 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  q  e.  ( Atoms `  K )
)
5216adantr 465 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  -.  q  .<_  W )
5351, 52jca 532 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  ( q  e.  ( Atoms `  K )  /\  -.  q  .<_  W ) )
54 simpl2r 1042 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  r  e.  ( Atoms `  K )
)
5528adantr 465 . . . . . . . 8  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  -.  r  .<_  W )
5654, 55jca 532 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  ( r  e.  ( Atoms `  K )  /\  -.  r  .<_  W ) )
5741adantr 465 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  X  e.  B )
5843adantr 465 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  Y  e.  B )
5918adantr 465 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  ( q
( join `  K )
( X ( meet `  K ) W ) )  =  X )
6030adantr 465 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  ( r
( join `  K )
( Y ( meet `  K ) W ) )  =  Y )
61 simpr 461 . . . . . . 7  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  X  .<_  Y )
621, 2, 3, 4, 5, 6, 20, 21, 22, 23dihord1 34882 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  (
q  e.  ( Atoms `  K )  /\  -.  q  .<_  W )  /\  ( r  e.  (
Atoms `  K )  /\  -.  r  .<_  W ) )  /\  ( X  e.  B  /\  Y  e.  B )  /\  (
( q ( join `  K ) ( X ( meet `  K
) W ) )  =  X  /\  (
r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y  /\  X  .<_  Y ) )  ->  (
( ( ( DIsoC `  K ) `  W
) `  q )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( X ( meet `  K ) W ) ) )  C_  (
( ( ( DIsoC `  K ) `  W
) `  r )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) ) ) )
6350, 53, 56, 57, 58, 59, 60, 61, 62syl323anc 1248 . . . . . 6  |-  ( ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  /\  X  .<_  Y )  ->  ( (
( ( DIsoC `  K
) `  W ) `  q ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( X ( meet `  K
) W ) ) )  C_  ( (
( ( DIsoC `  K
) `  W ) `  r ) ( LSSum `  ( ( DVecH `  K
) `  W )
) ( ( (
DIsoB `  K ) `  W ) `  ( Y ( meet `  K
) W ) ) ) )
6449, 63impbida 828 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( (
( ( ( DIsoC `  K ) `  W
) `  q )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( X ( meet `  K ) W ) ) )  C_  (
( ( ( DIsoC `  K ) `  W
) `  r )
( LSSum `  ( ( DVecH `  K ) `  W ) ) ( ( ( DIsoB `  K
) `  W ) `  ( Y ( meet `  K ) W ) ) )  <->  X  .<_  Y ) )
6533, 64bitrd 253 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  /\  ( q  e.  (
Atoms `  K )  /\  r  e.  ( Atoms `  K ) )  /\  ( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) ) )  ->  ( (
I `  X )  C_  ( I `  Y
)  <->  X  .<_  Y ) )
66653exp 1186 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  ->  ( (
q  e.  ( Atoms `  K )  /\  r  e.  ( Atoms `  K )
)  ->  ( (
( -.  q  .<_  W  /\  ( q (
join `  K )
( X ( meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K
) ( Y (
meet `  K ) W ) )  =  Y ) )  -> 
( ( I `  X )  C_  (
I `  Y )  <->  X 
.<_  Y ) ) ) )
6766rexlimdvv 2862 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  ->  ( E. q  e.  ( Atoms `  K ) E. r  e.  ( Atoms `  K )
( ( -.  q  .<_  W  /\  ( q ( join `  K
) ( X (
meet `  K ) W ) )  =  X )  /\  ( -.  r  .<_  W  /\  ( r ( join `  K ) ( Y ( meet `  K
) W ) )  =  Y ) )  ->  ( ( I `
 X )  C_  ( I `  Y
)  <->  X  .<_  Y ) ) )
6812, 67mpd 15 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( X  e.  B  /\  -.  X  .<_  W )  /\  ( Y  e.  B  /\  -.  Y  .<_  W ) )  ->  ( (
I `  X )  C_  ( I `  Y
)  <->  X  .<_  Y ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 965    = wceq 1369    e. wcel 1756   E.wrex 2731    C_ wss 3343   class class class wbr 4307   ` cfv 5433  (class class class)co 6106   Basecbs 14189   lecple 14260   joincjn 15129   meetcmee 15130   LSSumclsm 16148   Atomscatm 32927   HLchlt 33014   LHypclh 33647   DVecHcdvh 34742   DIsoBcdib 34802   DIsoCcdic 34836   DIsoHcdih 34892
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2423  ax-rep 4418  ax-sep 4428  ax-nul 4436  ax-pow 4485  ax-pr 4546  ax-un 6387  ax-cnex 9353  ax-resscn 9354  ax-1cn 9355  ax-icn 9356  ax-addcl 9357  ax-addrcl 9358  ax-mulcl 9359  ax-mulrcl 9360  ax-mulcom 9361  ax-addass 9362  ax-mulass 9363  ax-distr 9364  ax-i2m1 9365  ax-1ne0 9366  ax-1rid 9367  ax-rnegex 9368  ax-rrecex 9369  ax-cnre 9370  ax-pre-lttri 9371  ax-pre-lttrn 9372  ax-pre-ltadd 9373  ax-pre-mulgt0 9374  ax-riotaBAD 32623
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-fal 1375  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2257  df-mo 2258  df-clab 2430  df-cleq 2436  df-clel 2439  df-nfc 2577  df-ne 2622  df-nel 2623  df-ral 2735  df-rex 2736  df-reu 2737  df-rmo 2738  df-rab 2739  df-v 2989  df-sbc 3202  df-csb 3304  df-dif 3346  df-un 3348  df-in 3350  df-ss 3357  df-pss 3359  df-nul 3653  df-if 3807  df-pw 3877  df-sn 3893  df-pr 3895  df-tp 3897  df-op 3899  df-uni 4107  df-int 4144  df-iun 4188  df-iin 4189  df-br 4308  df-opab 4366  df-mpt 4367  df-tr 4401  df-eprel 4647  df-id 4651  df-po 4656  df-so 4657  df-fr 4694  df-we 4696  df-ord 4737  df-on 4738  df-lim 4739  df-suc 4740  df-xp 4861  df-rel 4862  df-cnv 4863  df-co 4864  df-dm 4865  df-rn 4866  df-res 4867  df-ima 4868  df-iota 5396  df-fun 5435  df-fn 5436  df-f 5437  df-f1 5438  df-fo 5439  df-f1o 5440  df-fv 5441  df-riota 6067  df-ov 6109  df-oprab 6110  df-mpt2 6111  df-om 6492  df-1st 6592  df-2nd 6593  df-tpos 6760  df-undef 6807  df-recs 6847  df-rdg 6881  df-1o 6935  df-oadd 6939  df-er 7116  df-map 7231  df-en 7326  df-dom 7327  df-sdom 7328  df-fin 7329  df-pnf 9435  df-mnf 9436  df-xr 9437  df-ltxr 9438  df-le 9439  df-sub 9612  df-neg 9613  df-nn 10338  df-2 10395  df-3 10396  df-4 10397  df-5 10398  df-6 10399  df-n0 10595  df-z 10662  df-uz 10877  df-fz 11453  df-struct 14191  df-ndx 14192  df-slot 14193  df-base 14194  df-sets 14195  df-ress 14196  df-plusg 14266  df-mulr 14267  df-sca 14269  df-vsca 14270  df-0g 14395  df-poset 15131  df-plt 15143  df-lub 15159  df-glb 15160  df-join 15161  df-meet 15162  df-p0 15224  df-p1 15225  df-lat 15231  df-clat 15293  df-mnd 15430  df-submnd 15480  df-grp 15560  df-minusg 15561  df-sbg 15562  df-subg 15693  df-cntz 15850  df-lsm 16150  df-cmn 16294  df-abl 16295  df-mgp 16607  df-ur 16619  df-rng 16662  df-oppr 16730  df-dvdsr 16748  df-unit 16749  df-invr 16779  df-dvr 16790  df-drng 16849  df-lmod 16965  df-lss 17029  df-lsp 17068  df-lvec 17199  df-oposet 32840  df-ol 32842  df-oml 32843  df-covers 32930  df-ats 32931  df-atl 32962  df-cvlat 32986  df-hlat 33015  df-llines 33161  df-lplanes 33162  df-lvols 33163  df-lines 33164  df-psubsp 33166  df-pmap 33167  df-padd 33459  df-lhyp 33651  df-laut 33652  df-ldil 33767  df-ltrn 33768  df-trl 33822  df-tendo 34418  df-edring 34420  df-disoa 34693  df-dvech 34743  df-dib 34803  df-dic 34837  df-dih 34893
This theorem is referenced by:  dihord5apre  34926  dihord  34928
  Copyright terms: Public domain W3C validator