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

Theorem dihord2cN 30562
Description: Part of proof after Lemma N of [Crawley] p. 122. Reverse ordering property. TODO: needed? shorten other proof with it? (Contributed by NM, 3-Mar-2014.) (New usage is discouraged.)
Hypotheses
Ref Expression
dihjust.b  |-  B  =  ( Base `  K
)
dihjust.l  |-  .<_  =  ( le `  K )
dihjust.j  |-  .\/  =  ( join `  K )
dihjust.m  |-  ./\  =  ( meet `  K )
dihjust.a  |-  A  =  ( Atoms `  K )
dihjust.h  |-  H  =  ( LHyp `  K
)
dihjust.i  |-  I  =  ( ( DIsoB `  K
) `  W )
dihjust.J  |-  J  =  ( ( DIsoC `  K
) `  W )
dihjust.u  |-  U  =  ( ( DVecH `  K
) `  W )
dihjust.s  |-  .(+)  =  (
LSSum `  U )
dihord2c.t  |-  T  =  ( ( LTrn `  K
) `  W )
dihord2c.r  |-  R  =  ( ( trL `  K
) `  W )
dihord2c.o  |-  O  =  ( h  e.  T  |->  (  _I  |`  B ) )
Assertion
Ref Expression
dihord2cN  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  ->  <. f ,  O >.  e.  ( I `  ( X  ./\  W ) ) )
Distinct variable groups:    .\/ , f    ./\ , f    .(+) ,
f    f, h, A    f, I    f, J    R, f    B, f, h    f, H, h    f, K, h    .<_ , f, h    T, f, h    f, W, h   
f, X
Allowed substitution hints:    .(+) ( h)    R( h)    U( f, h)    I( h)    J( h)    .\/ ( h)    ./\ ( h)    O( f, h)    X( h)

Proof of Theorem dihord2cN
StepHypRef Expression
1 simp3 962 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  -> 
( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )
2 eqidd 2257 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  ->  O  =  O )
3 simp1 960 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  -> 
( K  e.  HL  /\  W  e.  H ) )
4 simp1l 984 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  ->  K  e.  HL )
5 hllat 28704 . . . . 5  |-  ( K  e.  HL  ->  K  e.  Lat )
64, 5syl 17 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  ->  K  e.  Lat )
7 simp2 961 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  ->  X  e.  B )
8 simp1r 985 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  ->  W  e.  H )
9 dihjust.b . . . . . 6  |-  B  =  ( Base `  K
)
10 dihjust.h . . . . . 6  |-  H  =  ( LHyp `  K
)
119, 10lhpbase 29338 . . . . 5  |-  ( W  e.  H  ->  W  e.  B )
128, 11syl 17 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  ->  W  e.  B )
13 dihjust.m . . . . 5  |-  ./\  =  ( meet `  K )
149, 13latmcl 14105 . . . 4  |-  ( ( K  e.  Lat  /\  X  e.  B  /\  W  e.  B )  ->  ( X  ./\  W
)  e.  B )
156, 7, 12, 14syl3anc 1187 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  -> 
( X  ./\  W
)  e.  B )
16 dihjust.l . . . . 5  |-  .<_  =  ( le `  K )
179, 16, 13latmle2 14131 . . . 4  |-  ( ( K  e.  Lat  /\  X  e.  B  /\  W  e.  B )  ->  ( X  ./\  W
)  .<_  W )
186, 7, 12, 17syl3anc 1187 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  -> 
( X  ./\  W
)  .<_  W )
19 dihord2c.t . . . 4  |-  T  =  ( ( LTrn `  K
) `  W )
20 dihord2c.r . . . 4  |-  R  =  ( ( trL `  K
) `  W )
21 dihord2c.o . . . 4  |-  O  =  ( h  e.  T  |->  (  _I  |`  B ) )
22 dihjust.i . . . 4  |-  I  =  ( ( DIsoB `  K
) `  W )
239, 16, 10, 19, 20, 21, 22dibopelval3 30489 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( X 
./\  W )  e.  B  /\  ( X 
./\  W )  .<_  W ) )  -> 
( <. f ,  O >.  e.  ( I `  ( X  ./\  W ) )  <->  ( ( f  e.  T  /\  ( R `  f )  .<_  ( X  ./\  W
) )  /\  O  =  O ) ) )
243, 15, 18, 23syl12anc 1185 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  -> 
( <. f ,  O >.  e.  ( I `  ( X  ./\  W ) )  <->  ( ( f  e.  T  /\  ( R `  f )  .<_  ( X  ./\  W
) )  /\  O  =  O ) ) )
251, 2, 24mpbir2and 893 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  ( f  e.  T  /\  ( R `  f
)  .<_  ( X  ./\  W ) ) )  ->  <. f ,  O >.  e.  ( I `  ( X  ./\  W ) ) )
Colors of variables: wff set class
Syntax hints:    -> wi 6    <-> wb 178    /\ wa 360    /\ w3a 939    = wceq 1619    e. wcel 1621   <.cop 3603   class class class wbr 3983    e. cmpt 4037    _I cid 4262    |` cres 4649   ` cfv 4659  (class class class)co 5778   Basecbs 13096   lecple 13163   joincjn 14026   meetcmee 14027   Latclat 14099   LSSumclsm 14893   Atomscatm 28604   HLchlt 28691   LHypclh 29324   LTrncltrn 29441   trLctrl 29498   DVecHcdvh 30419   DIsoBcdib 30479   DIsoCcdic 30513
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-5 1533  ax-6 1534  ax-7 1535  ax-gen 1536  ax-8 1623  ax-11 1624  ax-13 1625  ax-14 1626  ax-17 1628  ax-12o 1664  ax-10 1678  ax-9 1684  ax-4 1692  ax-16 1927  ax-ext 2237  ax-rep 4091  ax-sep 4101  ax-nul 4109  ax-pow 4146  ax-pr 4172  ax-un 4470
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3an 941  df-tru 1315  df-ex 1538  df-nf 1540  df-sb 1884  df-eu 2121  df-mo 2122  df-clab 2243  df-cleq 2249  df-clel 2252  df-nfc 2381  df-ne 2421  df-nel 2422  df-ral 2521  df-rex 2522  df-reu 2523  df-rab 2525  df-v 2759  df-sbc 2953  df-csb 3043  df-dif 3116  df-un 3118  df-in 3120  df-ss 3127  df-nul 3417  df-if 3526  df-pw 3587  df-sn 3606  df-pr 3607  df-op 3609  df-uni 3788  df-iun 3867  df-br 3984  df-opab 4038  df-mpt 4039  df-id 4267  df-xp 4661  df-rel 4662  df-cnv 4663  df-co 4664  df-dm 4665  df-rn 4666  df-res 4667  df-ima 4668  df-fun 4669  df-fn 4670  df-f 4671  df-f1 4672  df-fo 4673  df-f1o 4674  df-fv 4675  df-ov 5781  df-oprab 5782  df-mpt2 5783  df-1st 6042  df-2nd 6043  df-iota 6211  df-undef 6250  df-riota 6258  df-glb 14057  df-meet 14059  df-lat 14100  df-atl 28639  df-cvlat 28663  df-hlat 28692  df-lhyp 29328  df-disoa 30370  df-dib 30480
  Copyright terms: Public domain W3C validator