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

Theorem dihffval 31346
Description: The isomorphism H for a lattice  K. Definition of isomorphism map in [Crawley] p. 122 line 3. (Contributed by NM, 28-Jan-2014.)
Hypotheses
Ref Expression
dihval.b  |-  B  =  ( Base `  K
)
dihval.l  |-  .<_  =  ( le `  K )
dihval.j  |-  .\/  =  ( join `  K )
dihval.m  |-  ./\  =  ( meet `  K )
dihval.a  |-  A  =  ( Atoms `  K )
dihval.h  |-  H  =  ( LHyp `  K
)
Assertion
Ref Expression
dihffval  |-  ( K  e.  V  ->  ( DIsoH `  K )  =  ( w  e.  H  |->  ( x  e.  B  |->  if ( x  .<_  w ,  ( ( (
DIsoB `  K ) `  w ) `  x
) ,  ( iota_ u  e.  ( LSubSp `  (
( DVecH `  K ) `  w ) ) A. q  e.  A  (
( -.  q  .<_  w  /\  ( q  .\/  ( x  ./\  w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) ) ) ) ) )
Distinct variable groups:    A, q    w, H    u, q, w, x, K
Allowed substitution hints:    A( x, w, u)    B( x, w, u, q)    H( x, u, q)    .\/ ( x, w, u, q)    .<_ ( x, w, u, q)    ./\ (
x, w, u, q)    V( x, w, u, q)

Proof of Theorem dihffval
Dummy variable  k is distinct from all other variables.
StepHypRef Expression
1 elex 2908 . 2  |-  ( K  e.  V  ->  K  e.  _V )
2 fveq2 5669 . . . . 5  |-  ( k  =  K  ->  ( LHyp `  k )  =  ( LHyp `  K
) )
3 dihval.h . . . . 5  |-  H  =  ( LHyp `  K
)
42, 3syl6eqr 2438 . . . 4  |-  ( k  =  K  ->  ( LHyp `  k )  =  H )
5 fveq2 5669 . . . . . 6  |-  ( k  =  K  ->  ( Base `  k )  =  ( Base `  K
) )
6 dihval.b . . . . . 6  |-  B  =  ( Base `  K
)
75, 6syl6eqr 2438 . . . . 5  |-  ( k  =  K  ->  ( Base `  k )  =  B )
8 fveq2 5669 . . . . . . . 8  |-  ( k  =  K  ->  ( le `  k )  =  ( le `  K
) )
9 dihval.l . . . . . . . 8  |-  .<_  =  ( le `  K )
108, 9syl6eqr 2438 . . . . . . 7  |-  ( k  =  K  ->  ( le `  k )  = 
.<_  )
1110breqd 4165 . . . . . 6  |-  ( k  =  K  ->  (
x ( le `  k ) w  <->  x  .<_  w ) )
12 fveq2 5669 . . . . . . . 8  |-  ( k  =  K  ->  ( DIsoB `  k )  =  ( DIsoB `  K )
)
1312fveq1d 5671 . . . . . . 7  |-  ( k  =  K  ->  (
( DIsoB `  k ) `  w )  =  ( ( DIsoB `  K ) `  w ) )
1413fveq1d 5671 . . . . . 6  |-  ( k  =  K  ->  (
( ( DIsoB `  k
) `  w ) `  x )  =  ( ( ( DIsoB `  K
) `  w ) `  x ) )
15 fveq2 5669 . . . . . . . . 9  |-  ( k  =  K  ->  ( DVecH `  k )  =  ( DVecH `  K )
)
1615fveq1d 5671 . . . . . . . 8  |-  ( k  =  K  ->  (
( DVecH `  k ) `  w )  =  ( ( DVecH `  K ) `  w ) )
1716fveq2d 5673 . . . . . . 7  |-  ( k  =  K  ->  ( LSubSp `
 ( ( DVecH `  k ) `  w
) )  =  (
LSubSp `  ( ( DVecH `  K ) `  w
) ) )
18 fveq2 5669 . . . . . . . . 9  |-  ( k  =  K  ->  ( Atoms `  k )  =  ( Atoms `  K )
)
19 dihval.a . . . . . . . . 9  |-  A  =  ( Atoms `  K )
2018, 19syl6eqr 2438 . . . . . . . 8  |-  ( k  =  K  ->  ( Atoms `  k )  =  A )
2110breqd 4165 . . . . . . . . . . 11  |-  ( k  =  K  ->  (
q ( le `  k ) w  <->  q  .<_  w ) )
2221notbid 286 . . . . . . . . . 10  |-  ( k  =  K  ->  ( -.  q ( le `  k ) w  <->  -.  q  .<_  w ) )
23 fveq2 5669 . . . . . . . . . . . . 13  |-  ( k  =  K  ->  ( join `  k )  =  ( join `  K
) )
24 dihval.j . . . . . . . . . . . . 13  |-  .\/  =  ( join `  K )
2523, 24syl6eqr 2438 . . . . . . . . . . . 12  |-  ( k  =  K  ->  ( join `  k )  = 
.\/  )
26 eqidd 2389 . . . . . . . . . . . 12  |-  ( k  =  K  ->  q  =  q )
27 fveq2 5669 . . . . . . . . . . . . . 14  |-  ( k  =  K  ->  ( meet `  k )  =  ( meet `  K
) )
28 dihval.m . . . . . . . . . . . . . 14  |-  ./\  =  ( meet `  K )
2927, 28syl6eqr 2438 . . . . . . . . . . . . 13  |-  ( k  =  K  ->  ( meet `  k )  = 
./\  )
3029oveqd 6038 . . . . . . . . . . . 12  |-  ( k  =  K  ->  (
x ( meet `  k
) w )  =  ( x  ./\  w
) )
3125, 26, 30oveq123d 6042 . . . . . . . . . . 11  |-  ( k  =  K  ->  (
q ( join `  k
) ( x (
meet `  k )
w ) )  =  ( q  .\/  (
x  ./\  w )
) )
3231eqeq1d 2396 . . . . . . . . . 10  |-  ( k  =  K  ->  (
( q ( join `  k ) ( x ( meet `  k
) w ) )  =  x  <->  ( q  .\/  ( x  ./\  w
) )  =  x ) )
3322, 32anbi12d 692 . . . . . . . . 9  |-  ( k  =  K  ->  (
( -.  q ( le `  k ) w  /\  ( q ( join `  k
) ( x (
meet `  k )
w ) )  =  x )  <->  ( -.  q  .<_  w  /\  (
q  .\/  ( x  ./\  w ) )  =  x ) ) )
3416fveq2d 5673 . . . . . . . . . . 11  |-  ( k  =  K  ->  ( LSSum `  ( ( DVecH `  k ) `  w
) )  =  (
LSSum `  ( ( DVecH `  K ) `  w
) ) )
35 fveq2 5669 . . . . . . . . . . . . 13  |-  ( k  =  K  ->  ( DIsoC `  k )  =  ( DIsoC `  K )
)
3635fveq1d 5671 . . . . . . . . . . . 12  |-  ( k  =  K  ->  (
( DIsoC `  k ) `  w )  =  ( ( DIsoC `  K ) `  w ) )
3736fveq1d 5671 . . . . . . . . . . 11  |-  ( k  =  K  ->  (
( ( DIsoC `  k
) `  w ) `  q )  =  ( ( ( DIsoC `  K
) `  w ) `  q ) )
3813, 30fveq12d 5675 . . . . . . . . . . 11  |-  ( k  =  K  ->  (
( ( DIsoB `  k
) `  w ) `  ( x ( meet `  k ) w ) )  =  ( ( ( DIsoB `  K ) `  w ) `  (
x  ./\  w )
) )
3934, 37, 38oveq123d 6042 . . . . . . . . . 10  |-  ( k  =  K  ->  (
( ( ( DIsoC `  k ) `  w
) `  q )
( LSSum `  ( ( DVecH `  k ) `  w ) ) ( ( ( DIsoB `  k
) `  w ) `  ( x ( meet `  k ) w ) ) )  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) )
4039eqeq2d 2399 . . . . . . . . 9  |-  ( k  =  K  ->  (
u  =  ( ( ( ( DIsoC `  k
) `  w ) `  q ) ( LSSum `  ( ( DVecH `  k
) `  w )
) ( ( (
DIsoB `  k ) `  w ) `  (
x ( meet `  k
) w ) ) )  <->  u  =  (
( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) )
4133, 40imbi12d 312 . . . . . . . 8  |-  ( k  =  K  ->  (
( ( -.  q
( le `  k
) w  /\  (
q ( join `  k
) ( x (
meet `  k )
w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  k ) `  w ) `  q
) ( LSSum `  (
( DVecH `  k ) `  w ) ) ( ( ( DIsoB `  k
) `  w ) `  ( x ( meet `  k ) w ) ) ) )  <->  ( ( -.  q  .<_  w  /\  ( q  .\/  (
x  ./\  w )
)  =  x )  ->  u  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) ) )
4220, 41raleqbidv 2860 . . . . . . 7  |-  ( k  =  K  ->  ( A. q  e.  ( Atoms `  k ) ( ( -.  q ( le `  k ) w  /\  ( q ( join `  k
) ( x (
meet `  k )
w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  k ) `  w ) `  q
) ( LSSum `  (
( DVecH `  k ) `  w ) ) ( ( ( DIsoB `  k
) `  w ) `  ( x ( meet `  k ) w ) ) ) )  <->  A. q  e.  A  ( ( -.  q  .<_  w  /\  ( q  .\/  (
x  ./\  w )
)  =  x )  ->  u  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) ) )
4317, 42riotaeqbidv 6489 . . . . . 6  |-  ( k  =  K  ->  ( iota_ u  e.  ( LSubSp `  ( ( DVecH `  k
) `  w )
) A. q  e.  ( Atoms `  k )
( ( -.  q
( le `  k
) w  /\  (
q ( join `  k
) ( x (
meet `  k )
w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  k ) `  w ) `  q
) ( LSSum `  (
( DVecH `  k ) `  w ) ) ( ( ( DIsoB `  k
) `  w ) `  ( x ( meet `  k ) w ) ) ) ) )  =  ( iota_ u  e.  ( LSubSp `  ( ( DVecH `  K ) `  w ) ) A. q  e.  A  (
( -.  q  .<_  w  /\  ( q  .\/  ( x  ./\  w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) ) )
4411, 14, 43ifbieq12d 3705 . . . . 5  |-  ( k  =  K  ->  if ( x ( le
`  k ) w ,  ( ( (
DIsoB `  k ) `  w ) `  x
) ,  ( iota_ u  e.  ( LSubSp `  (
( DVecH `  k ) `  w ) ) A. q  e.  ( Atoms `  k ) ( ( -.  q ( le
`  k ) w  /\  ( q (
join `  k )
( x ( meet `  k ) w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  k ) `  w
) `  q )
( LSSum `  ( ( DVecH `  k ) `  w ) ) ( ( ( DIsoB `  k
) `  w ) `  ( x ( meet `  k ) w ) ) ) ) ) )  =  if ( x  .<_  w , 
( ( ( DIsoB `  K ) `  w
) `  x ) ,  ( iota_ u  e.  ( LSubSp `  ( ( DVecH `  K ) `  w ) ) A. q  e.  A  (
( -.  q  .<_  w  /\  ( q  .\/  ( x  ./\  w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) ) ) )
457, 44mpteq12dv 4229 . . . 4  |-  ( k  =  K  ->  (
x  e.  ( Base `  k )  |->  if ( x ( le `  k ) w ,  ( ( ( DIsoB `  k ) `  w
) `  x ) ,  ( iota_ u  e.  ( LSubSp `  ( ( DVecH `  k ) `  w ) ) A. q  e.  ( Atoms `  k ) ( ( -.  q ( le
`  k ) w  /\  ( q (
join `  k )
( x ( meet `  k ) w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  k ) `  w
) `  q )
( LSSum `  ( ( DVecH `  k ) `  w ) ) ( ( ( DIsoB `  k
) `  w ) `  ( x ( meet `  k ) w ) ) ) ) ) ) )  =  ( x  e.  B  |->  if ( x  .<_  w ,  ( ( ( DIsoB `  K ) `  w
) `  x ) ,  ( iota_ u  e.  ( LSubSp `  ( ( DVecH `  K ) `  w ) ) A. q  e.  A  (
( -.  q  .<_  w  /\  ( q  .\/  ( x  ./\  w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) ) ) ) )
464, 45mpteq12dv 4229 . . 3  |-  ( k  =  K  ->  (
w  e.  ( LHyp `  k )  |->  ( x  e.  ( Base `  k
)  |->  if ( x ( le `  k
) w ,  ( ( ( DIsoB `  k
) `  w ) `  x ) ,  (
iota_ u  e.  ( LSubSp `
 ( ( DVecH `  k ) `  w
) ) A. q  e.  ( Atoms `  k )
( ( -.  q
( le `  k
) w  /\  (
q ( join `  k
) ( x (
meet `  k )
w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  k ) `  w ) `  q
) ( LSSum `  (
( DVecH `  k ) `  w ) ) ( ( ( DIsoB `  k
) `  w ) `  ( x ( meet `  k ) w ) ) ) ) ) ) ) )  =  ( w  e.  H  |->  ( x  e.  B  |->  if ( x  .<_  w ,  ( ( (
DIsoB `  K ) `  w ) `  x
) ,  ( iota_ u  e.  ( LSubSp `  (
( DVecH `  K ) `  w ) ) A. q  e.  A  (
( -.  q  .<_  w  /\  ( q  .\/  ( x  ./\  w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) ) ) ) ) )
47 df-dih 31345 . . 3  |-  DIsoH  =  ( k  e.  _V  |->  ( w  e.  ( LHyp `  k )  |->  ( x  e.  ( Base `  k
)  |->  if ( x ( le `  k
) w ,  ( ( ( DIsoB `  k
) `  w ) `  x ) ,  (
iota_ u  e.  ( LSubSp `
 ( ( DVecH `  k ) `  w
) ) A. q  e.  ( Atoms `  k )
( ( -.  q
( le `  k
) w  /\  (
q ( join `  k
) ( x (
meet `  k )
w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  k ) `  w ) `  q
) ( LSSum `  (
( DVecH `  k ) `  w ) ) ( ( ( DIsoB `  k
) `  w ) `  ( x ( meet `  k ) w ) ) ) ) ) ) ) ) )
48 fvex 5683 . . . . 5  |-  ( LHyp `  K )  e.  _V
493, 48eqeltri 2458 . . . 4  |-  H  e. 
_V
5049mptex 5906 . . 3  |-  ( w  e.  H  |->  ( x  e.  B  |->  if ( x  .<_  w , 
( ( ( DIsoB `  K ) `  w
) `  x ) ,  ( iota_ u  e.  ( LSubSp `  ( ( DVecH `  K ) `  w ) ) A. q  e.  A  (
( -.  q  .<_  w  /\  ( q  .\/  ( x  ./\  w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) ) ) ) )  e.  _V
5146, 47, 50fvmpt 5746 . 2  |-  ( K  e.  _V  ->  ( DIsoH `  K )  =  ( w  e.  H  |->  ( x  e.  B  |->  if ( x  .<_  w ,  ( ( (
DIsoB `  K ) `  w ) `  x
) ,  ( iota_ u  e.  ( LSubSp `  (
( DVecH `  K ) `  w ) ) A. q  e.  A  (
( -.  q  .<_  w  /\  ( q  .\/  ( x  ./\  w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) ) ) ) ) )
521, 51syl 16 1  |-  ( K  e.  V  ->  ( DIsoH `  K )  =  ( w  e.  H  |->  ( x  e.  B  |->  if ( x  .<_  w ,  ( ( (
DIsoB `  K ) `  w ) `  x
) ,  ( iota_ u  e.  ( LSubSp `  (
( DVecH `  K ) `  w ) ) A. q  e.  A  (
( -.  q  .<_  w  /\  ( q  .\/  ( x  ./\  w ) )  =  x )  ->  u  =  ( ( ( ( DIsoC `  K ) `  w
) `  q )
( LSSum `  ( ( DVecH `  K ) `  w ) ) ( ( ( DIsoB `  K
) `  w ) `  ( x  ./\  w
) ) ) ) ) ) ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 359    = wceq 1649    e. wcel 1717   A.wral 2650   _Vcvv 2900   ifcif 3683   class class class wbr 4154    e. cmpt 4208   ` cfv 5395  (class class class)co 6021   iota_crio 6479   Basecbs 13397   lecple 13464   joincjn 14329   meetcmee 14330   LSSumclsm 15196   LSubSpclss 15936   Atomscatm 29379   LHypclh 30099   DVecHcdvh 31194   DIsoBcdib 31254   DIsoCcdic 31288   DIsoHcdih 31344
This theorem is referenced by:  dihfval  31347
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 1661  ax-8 1682  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2369  ax-rep 4262  ax-sep 4272  ax-nul 4280  ax-pr 4345
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2243  df-mo 2244  df-clab 2375  df-cleq 2381  df-clel 2384  df-nfc 2513  df-ne 2553  df-ral 2655  df-rex 2656  df-reu 2657  df-rab 2659  df-v 2902  df-sbc 3106  df-csb 3196  df-dif 3267  df-un 3269  df-in 3271  df-ss 3278  df-nul 3573  df-if 3684  df-sn 3764  df-pr 3765  df-op 3767  df-uni 3959  df-iun 4038  df-br 4155  df-opab 4209  df-mpt 4210  df-id 4440  df-xp 4825  df-rel 4826  df-cnv 4827  df-co 4828  df-dm 4829  df-rn 4830  df-res 4831  df-ima 4832  df-iota 5359  df-fun 5397  df-fn 5398  df-f 5399  df-f1 5400  df-fo 5401  df-f1o 5402  df-fv 5403  df-ov 6024  df-riota 6486  df-dih 31345
  Copyright terms: Public domain W3C validator