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

Theorem oposlem 34469
Description: Lemma for orthoposet properties. (Contributed by NM, 20-Oct-2011.)
Hypotheses
Ref Expression
oposlem.b  |-  B  =  ( Base `  K
)
oposlem.l  |-  .<_  =  ( le `  K )
oposlem.o  |-  ._|_  =  ( oc `  K )
oposlem.j  |-  .\/  =  ( join `  K )
oposlem.m  |-  ./\  =  ( meet `  K )
oposlem.f  |-  .0.  =  ( 0. `  K )
oposlem.u  |-  .1.  =  ( 1. `  K )
Assertion
Ref Expression
oposlem  |-  ( ( K  e.  OP  /\  X  e.  B  /\  Y  e.  B )  ->  ( ( (  ._|_  `  X )  e.  B  /\  (  ._|_  `  (  ._|_  `  X ) )  =  X  /\  ( X  .<_  Y  ->  (  ._|_  `  Y )  .<_  (  ._|_  `  X )
) )  /\  ( X  .\/  (  ._|_  `  X
) )  =  .1. 
/\  ( X  ./\  (  ._|_  `  X )
)  =  .0.  )
)

Proof of Theorem oposlem
Dummy variables  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oposlem.b . . . . 5  |-  B  =  ( Base `  K
)
2 eqid 2622 . . . . 5  |-  ( lub `  K )  =  ( lub `  K )
3 eqid 2622 . . . . 5  |-  ( glb `  K )  =  ( glb `  K )
4 oposlem.l . . . . 5  |-  .<_  =  ( le `  K )
5 oposlem.o . . . . 5  |-  ._|_  =  ( oc `  K )
6 oposlem.j . . . . 5  |-  .\/  =  ( join `  K )
7 oposlem.m . . . . 5  |-  ./\  =  ( meet `  K )
8 oposlem.f . . . . 5  |-  .0.  =  ( 0. `  K )
9 oposlem.u . . . . 5  |-  .1.  =  ( 1. `  K )
101, 2, 3, 4, 5, 6, 7, 8, 9isopos 34467 . . . 4  |-  ( K  e.  OP  <->  ( ( K  e.  Poset  /\  B  e.  dom  ( lub `  K
)  /\  B  e.  dom  ( glb `  K
) )  /\  A. x  e.  B  A. y  e.  B  (
( (  ._|_  `  x
)  e.  B  /\  (  ._|_  `  (  ._|_  `  x ) )  =  x  /\  ( x 
.<_  y  ->  (  ._|_  `  y )  .<_  (  ._|_  `  x ) ) )  /\  ( x  .\/  (  ._|_  `  x )
)  =  .1.  /\  ( x  ./\  (  ._|_  `  x ) )  =  .0.  ) ) )
1110simprbi 480 . . 3  |-  ( K  e.  OP  ->  A. x  e.  B  A. y  e.  B  ( (
(  ._|_  `  x )  e.  B  /\  (  ._|_  `  (  ._|_  `  x
) )  =  x  /\  ( x  .<_  y  ->  (  ._|_  `  y
)  .<_  (  ._|_  `  x
) ) )  /\  ( x  .\/  (  ._|_  `  x ) )  =  .1.  /\  ( x 
./\  (  ._|_  `  x
) )  =  .0.  ) )
12 fveq2 6191 . . . . . . 7  |-  ( x  =  X  ->  (  ._|_  `  x )  =  (  ._|_  `  X ) )
1312eleq1d 2686 . . . . . 6  |-  ( x  =  X  ->  (
(  ._|_  `  x )  e.  B  <->  (  ._|_  `  X
)  e.  B ) )
1412fveq2d 6195 . . . . . . 7  |-  ( x  =  X  ->  (  ._|_  `  (  ._|_  `  x
) )  =  ( 
._|_  `  (  ._|_  `  X
) ) )
15 id 22 . . . . . . 7  |-  ( x  =  X  ->  x  =  X )
1614, 15eqeq12d 2637 . . . . . 6  |-  ( x  =  X  ->  (
(  ._|_  `  (  ._|_  `  x ) )  =  x  <->  (  ._|_  `  (  ._|_  `  X ) )  =  X ) )
17 breq1 4656 . . . . . . 7  |-  ( x  =  X  ->  (
x  .<_  y  <->  X  .<_  y ) )
1812breq2d 4665 . . . . . . 7  |-  ( x  =  X  ->  (
(  ._|_  `  y )  .<_  (  ._|_  `  x )  <-> 
(  ._|_  `  y )  .<_  (  ._|_  `  X ) ) )
1917, 18imbi12d 334 . . . . . 6  |-  ( x  =  X  ->  (
( x  .<_  y  -> 
(  ._|_  `  y )  .<_  (  ._|_  `  x ) )  <->  ( X  .<_  y  ->  (  ._|_  `  y
)  .<_  (  ._|_  `  X
) ) ) )
2013, 16, 193anbi123d 1399 . . . . 5  |-  ( x  =  X  ->  (
( (  ._|_  `  x
)  e.  B  /\  (  ._|_  `  (  ._|_  `  x ) )  =  x  /\  ( x 
.<_  y  ->  (  ._|_  `  y )  .<_  (  ._|_  `  x ) ) )  <-> 
( (  ._|_  `  X
)  e.  B  /\  (  ._|_  `  (  ._|_  `  X ) )  =  X  /\  ( X 
.<_  y  ->  (  ._|_  `  y )  .<_  (  ._|_  `  X ) ) ) ) )
2115, 12oveq12d 6668 . . . . . 6  |-  ( x  =  X  ->  (
x  .\/  (  ._|_  `  x ) )  =  ( X  .\/  (  ._|_  `  X ) ) )
2221eqeq1d 2624 . . . . 5  |-  ( x  =  X  ->  (
( x  .\/  (  ._|_  `  x ) )  =  .1.  <->  ( X  .\/  (  ._|_  `  X
) )  =  .1.  ) )
2315, 12oveq12d 6668 . . . . . 6  |-  ( x  =  X  ->  (
x  ./\  (  ._|_  `  x ) )  =  ( X  ./\  (  ._|_  `  X ) ) )
2423eqeq1d 2624 . . . . 5  |-  ( x  =  X  ->  (
( x  ./\  (  ._|_  `  x ) )  =  .0.  <->  ( X  ./\  (  ._|_  `  X ) )  =  .0.  )
)
2520, 22, 243anbi123d 1399 . . . 4  |-  ( x  =  X  ->  (
( ( (  ._|_  `  x )  e.  B  /\  (  ._|_  `  (  ._|_  `  x ) )  =  x  /\  (
x  .<_  y  ->  (  ._|_  `  y )  .<_  (  ._|_  `  x )
) )  /\  (
x  .\/  (  ._|_  `  x ) )  =  .1.  /\  ( x 
./\  (  ._|_  `  x
) )  =  .0.  )  <->  ( ( ( 
._|_  `  X )  e.  B  /\  (  ._|_  `  (  ._|_  `  X ) )  =  X  /\  ( X  .<_  y  -> 
(  ._|_  `  y )  .<_  (  ._|_  `  X ) ) )  /\  ( X  .\/  (  ._|_  `  X
) )  =  .1. 
/\  ( X  ./\  (  ._|_  `  X )
)  =  .0.  )
) )
26 breq2 4657 . . . . . . 7  |-  ( y  =  Y  ->  ( X  .<_  y  <->  X  .<_  Y ) )
27 fveq2 6191 . . . . . . . 8  |-  ( y  =  Y  ->  (  ._|_  `  y )  =  (  ._|_  `  Y ) )
2827breq1d 4663 . . . . . . 7  |-  ( y  =  Y  ->  (
(  ._|_  `  y )  .<_  (  ._|_  `  X )  <-> 
(  ._|_  `  Y )  .<_  (  ._|_  `  X ) ) )
2926, 28imbi12d 334 . . . . . 6  |-  ( y  =  Y  ->  (
( X  .<_  y  -> 
(  ._|_  `  y )  .<_  (  ._|_  `  X ) )  <->  ( X  .<_  Y  ->  (  ._|_  `  Y
)  .<_  (  ._|_  `  X
) ) ) )
30293anbi3d 1405 . . . . 5  |-  ( y  =  Y  ->  (
( (  ._|_  `  X
)  e.  B  /\  (  ._|_  `  (  ._|_  `  X ) )  =  X  /\  ( X 
.<_  y  ->  (  ._|_  `  y )  .<_  (  ._|_  `  X ) ) )  <-> 
( (  ._|_  `  X
)  e.  B  /\  (  ._|_  `  (  ._|_  `  X ) )  =  X  /\  ( X 
.<_  Y  ->  (  ._|_  `  Y )  .<_  (  ._|_  `  X ) ) ) ) )
31303anbi1d 1403 . . . 4  |-  ( y  =  Y  ->  (
( ( (  ._|_  `  X )  e.  B  /\  (  ._|_  `  (  ._|_  `  X ) )  =  X  /\  ( X  .<_  y  ->  (  ._|_  `  y )  .<_  (  ._|_  `  X )
) )  /\  ( X  .\/  (  ._|_  `  X
) )  =  .1. 
/\  ( X  ./\  (  ._|_  `  X )
)  =  .0.  )  <->  ( ( (  ._|_  `  X
)  e.  B  /\  (  ._|_  `  (  ._|_  `  X ) )  =  X  /\  ( X 
.<_  Y  ->  (  ._|_  `  Y )  .<_  (  ._|_  `  X ) ) )  /\  ( X  .\/  (  ._|_  `  X )
)  =  .1.  /\  ( X  ./\  (  ._|_  `  X ) )  =  .0.  ) ) )
3225, 31rspc2v 3322 . . 3  |-  ( ( X  e.  B  /\  Y  e.  B )  ->  ( A. x  e.  B  A. y  e.  B  ( ( ( 
._|_  `  x )  e.  B  /\  (  ._|_  `  (  ._|_  `  x ) )  =  x  /\  ( x  .<_  y  -> 
(  ._|_  `  y )  .<_  (  ._|_  `  x ) ) )  /\  (
x  .\/  (  ._|_  `  x ) )  =  .1.  /\  ( x 
./\  (  ._|_  `  x
) )  =  .0.  )  ->  ( (
(  ._|_  `  X )  e.  B  /\  (  ._|_  `  (  ._|_  `  X
) )  =  X  /\  ( X  .<_  Y  ->  (  ._|_  `  Y
)  .<_  (  ._|_  `  X
) ) )  /\  ( X  .\/  (  ._|_  `  X ) )  =  .1.  /\  ( X 
./\  (  ._|_  `  X
) )  =  .0.  ) ) )
3311, 32mpan9 486 . 2  |-  ( ( K  e.  OP  /\  ( X  e.  B  /\  Y  e.  B
) )  ->  (
( (  ._|_  `  X
)  e.  B  /\  (  ._|_  `  (  ._|_  `  X ) )  =  X  /\  ( X 
.<_  Y  ->  (  ._|_  `  Y )  .<_  (  ._|_  `  X ) ) )  /\  ( X  .\/  (  ._|_  `  X )
)  =  .1.  /\  ( X  ./\  (  ._|_  `  X ) )  =  .0.  ) )
34333impb 1260 1  |-  ( ( K  e.  OP  /\  X  e.  B  /\  Y  e.  B )  ->  ( ( (  ._|_  `  X )  e.  B  /\  (  ._|_  `  (  ._|_  `  X ) )  =  X  /\  ( X  .<_  Y  ->  (  ._|_  `  Y )  .<_  (  ._|_  `  X )
) )  /\  ( X  .\/  (  ._|_  `  X
) )  =  .1. 
/\  ( X  ./\  (  ._|_  `  X )
)  =  .0.  )
)
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990   A.wral 2912   class class class wbr 4653   dom cdm 5114   ` cfv 5888  (class class class)co 6650   Basecbs 15857   lecple 15948   occoc 15949   Posetcpo 16940   lubclub 16942   glbcglb 16943   joincjn 16944   meetcmee 16945   0.cp0 17037   1.cp1 17038   OPcops 34459
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-nul 4789
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ral 2917  df-rex 2918  df-rab 2921  df-v 3202  df-sbc 3436  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-nul 3916  df-if 4087  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-br 4654  df-dm 5124  df-iota 5851  df-fv 5896  df-ov 6653  df-oposet 34463
This theorem is referenced by:  opoccl  34481  opococ  34482  oplecon3  34486  opexmid  34494  opnoncon  34495
  Copyright terms: Public domain W3C validator