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

Theorem dihmeetlem11N 31804
Description: Lemma for isomorphism H of a lattice meet. (Contributed by NM, 6-Apr-2014.) (New usage is discouraged.)
Hypotheses
Ref Expression
dihmeetlem9.b  |-  B  =  ( Base `  K
)
dihmeetlem9.l  |-  .<_  =  ( le `  K )
dihmeetlem9.h  |-  H  =  ( LHyp `  K
)
dihmeetlem9.j  |-  .\/  =  ( join `  K )
dihmeetlem9.m  |-  ./\  =  ( meet `  K )
dihmeetlem9.a  |-  A  =  ( Atoms `  K )
dihmeetlem9.u  |-  U  =  ( ( DVecH `  K
) `  W )
dihmeetlem9.s  |-  .(+)  =  (
LSSum `  U )
dihmeetlem9.i  |-  I  =  ( ( DIsoH `  K
) `  W )
Assertion
Ref Expression
dihmeetlem11N  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( (
I `  ( ( X  ./\  Y )  .\/  p ) )  i^i  ( I `  Y
) )  =  ( ( I `  X
)  i^i  ( I `  Y ) ) )

Proof of Theorem dihmeetlem11N
StepHypRef Expression
1 dihmeetlem9.b . . . 4  |-  B  =  ( Base `  K
)
2 dihmeetlem9.l . . . 4  |-  .<_  =  ( le `  K )
3 dihmeetlem9.h . . . 4  |-  H  =  ( LHyp `  K
)
4 dihmeetlem9.j . . . 4  |-  .\/  =  ( join `  K )
5 dihmeetlem9.m . . . 4  |-  ./\  =  ( meet `  K )
6 dihmeetlem9.a . . . 4  |-  A  =  ( Atoms `  K )
7 dihmeetlem9.u . . . 4  |-  U  =  ( ( DVecH `  K
) `  W )
8 dihmeetlem9.s . . . 4  |-  .(+)  =  (
LSSum `  U )
9 dihmeetlem9.i . . . 4  |-  I  =  ( ( DIsoH `  K
) `  W )
101, 2, 3, 4, 5, 6, 7, 8, 9dihmeetlem10N 31803 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( I `  ( ( X  ./\  Y )  .\/  p ) )  =  ( ( I `  X )  i^i  ( I `  ( Y  .\/  p ) ) ) )
1110ineq1d 3505 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( (
I `  ( ( X  ./\  Y )  .\/  p ) )  i^i  ( I `  Y
) )  =  ( ( ( I `  X )  i^i  (
I `  ( Y  .\/  p ) ) )  i^i  ( I `  Y ) ) )
12 inass 3515 . . 3  |-  ( ( ( I `  X
)  i^i  ( I `  ( Y  .\/  p
) ) )  i^i  ( I `  Y
) )  =  ( ( I `  X
)  i^i  ( (
I `  ( Y  .\/  p ) )  i^i  ( I `  Y
) ) )
13 simpl1l 1008 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  K  e.  HL )
14 hllat 29850 . . . . . . . 8  |-  ( K  e.  HL  ->  K  e.  Lat )
1513, 14syl 16 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  K  e.  Lat )
16 simpl3 962 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  Y  e.  B )
17 simprll 739 . . . . . . . 8  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  p  e.  A )
181, 6atbase 29776 . . . . . . . 8  |-  ( p  e.  A  ->  p  e.  B )
1917, 18syl 16 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  p  e.  B )
201, 2, 4latlej1 14448 . . . . . . 7  |-  ( ( K  e.  Lat  /\  Y  e.  B  /\  p  e.  B )  ->  Y  .<_  ( Y  .\/  p ) )
2115, 16, 19, 20syl3anc 1184 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  Y  .<_  ( Y  .\/  p ) )
22 simpl1 960 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
231, 4latjcl 14438 . . . . . . . 8  |-  ( ( K  e.  Lat  /\  Y  e.  B  /\  p  e.  B )  ->  ( Y  .\/  p
)  e.  B )
2415, 16, 19, 23syl3anc 1184 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( Y  .\/  p )  e.  B
)
251, 2, 3, 9dihord 31751 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  Y  e.  B  /\  ( Y  .\/  p
)  e.  B )  ->  ( ( I `
 Y )  C_  ( I `  ( Y  .\/  p ) )  <-> 
Y  .<_  ( Y  .\/  p ) ) )
2622, 16, 24, 25syl3anc 1184 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( (
I `  Y )  C_  ( I `  ( Y  .\/  p ) )  <-> 
Y  .<_  ( Y  .\/  p ) ) )
2721, 26mpbird 224 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( I `  Y )  C_  (
I `  ( Y  .\/  p ) ) )
28 sseqin2 3524 . . . . 5  |-  ( ( I `  Y ) 
C_  ( I `  ( Y  .\/  p ) )  <->  ( ( I `
 ( Y  .\/  p ) )  i^i  ( I `  Y
) )  =  ( I `  Y ) )
2927, 28sylib 189 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( (
I `  ( Y  .\/  p ) )  i^i  ( I `  Y
) )  =  ( I `  Y ) )
3029ineq2d 3506 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( (
I `  X )  i^i  ( ( I `  ( Y  .\/  p ) )  i^i  ( I `
 Y ) ) )  =  ( ( I `  X )  i^i  ( I `  Y ) ) )
3112, 30syl5eq 2452 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( (
( I `  X
)  i^i  ( I `  ( Y  .\/  p
) ) )  i^i  ( I `  Y
) )  =  ( ( I `  X
)  i^i  ( I `  Y ) ) )
3211, 31eqtrd 2440 1  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  X  e.  B  /\  Y  e.  B )  /\  (
( p  e.  A  /\  -.  p  .<_  W )  /\  p  .<_  X ) )  ->  ( (
I `  ( ( X  ./\  Y )  .\/  p ) )  i^i  ( I `  Y
) )  =  ( ( I `  X
)  i^i  ( 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    i^i cin 3283    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   LSSumclsm 15227   Atomscatm 29750   HLchlt 29837   LHypclh 30470   DVecHcdvh 31565   DIsoHcdih 31715
This theorem is referenced by:  dihmeetlem12N  31805
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