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

Theorem cvrat4 28321
Description: A condition implying existence of an atom with the properties shown. Lemma 3.2.20 in [PtakPulmannova] p. 68. Also Lemma 9.2(delta) in [MaedaMaeda] p. 41. (atcvat4i 22807 analog.) (Contributed by NM, 30-Nov-2011.)
Hypotheses
Ref Expression
cvrat4.b  |-  B  =  ( Base `  K
)
cvrat4.l  |-  .<_  =  ( le `  K )
cvrat4.j  |-  .\/  =  ( join `  K )
cvrat4.z  |-  .0.  =  ( 0. `  K )
cvrat4.a  |-  A  =  ( Atoms `  K )
Assertion
Ref Expression
cvrat4  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( X  =/=  .0.  /\  P  .<_  ( X  .\/  Q ) )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) )
Distinct variable groups:    A, r    B, r    .\/ , r    K, r    .<_ , r    P, r    Q, r    X, r
Allowed substitution hint:    .0. ( r)

Proof of Theorem cvrat4
StepHypRef Expression
1 hlatl 28239 . . . . . . . . . 10  |-  ( K  e.  HL  ->  K  e.  AtLat )
21adantr 453 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  K  e.  AtLat )
3 simpr1 966 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  X  e.  B )
4 cvrat4.b . . . . . . . . . . 11  |-  B  =  ( Base `  K
)
5 cvrat4.l . . . . . . . . . . 11  |-  .<_  =  ( le `  K )
6 cvrat4.z . . . . . . . . . . 11  |-  .0.  =  ( 0. `  K )
7 cvrat4.a . . . . . . . . . . 11  |-  A  =  ( Atoms `  K )
84, 5, 6, 7atlex 28195 . . . . . . . . . 10  |-  ( ( K  e.  AtLat  /\  X  e.  B  /\  X  =/= 
.0.  )  ->  E. r  e.  A  r  .<_  X )
983exp 1155 . . . . . . . . 9  |-  ( K  e.  AtLat  ->  ( X  e.  B  ->  ( X  =/=  .0.  ->  E. r  e.  A  r  .<_  X ) ) )
102, 3, 9sylc 58 . . . . . . . 8  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( X  =/=  .0.  ->  E. r  e.  A  r  .<_  X ) )
1110adantr 453 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  P  =  Q )  ->  ( X  =/=  .0.  ->  E. r  e.  A  r  .<_  X ) )
12 simpll 733 . . . . . . . . . . . . . 14  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  r  e.  A )  ->  K  e.  HL )
13 simplr3 1004 . . . . . . . . . . . . . 14  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  r  e.  A )  ->  Q  e.  A )
14 simpr 449 . . . . . . . . . . . . . 14  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  r  e.  A )  ->  r  e.  A )
15 cvrat4.j . . . . . . . . . . . . . . 15  |-  .\/  =  ( join `  K )
165, 15, 7hlatlej1 28253 . . . . . . . . . . . . . 14  |-  ( ( K  e.  HL  /\  Q  e.  A  /\  r  e.  A )  ->  Q  .<_  ( Q  .\/  r ) )
1712, 13, 14, 16syl3anc 1187 . . . . . . . . . . . . 13  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  r  e.  A )  ->  Q  .<_  ( Q  .\/  r
) )
18 breq1 3923 . . . . . . . . . . . . 13  |-  ( P  =  Q  ->  ( P  .<_  ( Q  .\/  r )  <->  Q  .<_  ( Q  .\/  r ) ) )
1917, 18syl5ibr 214 . . . . . . . . . . . 12  |-  ( P  =  Q  ->  (
( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A ) )  /\  r  e.  A )  ->  P  .<_  ( Q  .\/  r ) ) )
2019exp3a 427 . . . . . . . . . . 11  |-  ( P  =  Q  ->  (
( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
r  e.  A  ->  P  .<_  ( Q  .\/  r ) ) ) )
2120impcom 421 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  P  =  Q )  ->  (
r  e.  A  ->  P  .<_  ( Q  .\/  r ) ) )
2221anim2d 550 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  P  =  Q )  ->  (
( r  .<_  X  /\  r  e.  A )  ->  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) )
2322exp3acom23 1368 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  P  =  Q )  ->  (
r  e.  A  -> 
( r  .<_  X  -> 
( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) ) )
2423reximdvai 2615 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  P  =  Q )  ->  ( E. r  e.  A  r  .<_  X  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) )
2511, 24syld 42 . . . . . 6  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  P  =  Q )  ->  ( X  =/=  .0.  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) )
2625ex 425 . . . . 5  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( P  =  Q  ->  ( X  =/=  .0.  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) ) )
2726a1i 12 . . . 4  |-  ( P 
.<_  ( X  .\/  Q
)  ->  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A )
)  ->  ( P  =  Q  ->  ( X  =/=  .0.  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) ) ) )
2827com4l 80 . . 3  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( P  =  Q  ->  ( X  =/=  .0.  ->  ( P  .<_  ( X  .\/  Q )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) ) ) )
2928imp4a 575 . 2  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( P  =  Q  ->  ( ( X  =/=  .0.  /\  P  .<_  ( X  .\/  Q ) )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) ) )
30 hllat 28242 . . . . . . . . . . . . . 14  |-  ( K  e.  HL  ->  K  e.  Lat )
3130adantr 453 . . . . . . . . . . . . 13  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  K  e.  Lat )
32 simpr3 968 . . . . . . . . . . . . . 14  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  Q  e.  A )
334, 7atbase 28168 . . . . . . . . . . . . . 14  |-  ( Q  e.  A  ->  Q  e.  B )
3432, 33syl 17 . . . . . . . . . . . . 13  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  Q  e.  B )
354, 5, 15latleeqj2 14014 . . . . . . . . . . . . 13  |-  ( ( K  e.  Lat  /\  Q  e.  B  /\  X  e.  B )  ->  ( Q  .<_  X  <->  ( X  .\/  Q )  =  X ) )
3631, 34, 3, 35syl3anc 1187 . . . . . . . . . . . 12  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( Q  .<_  X  <->  ( X  .\/  Q )  =  X ) )
3736biimpa 472 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  Q  .<_  X )  ->  ( X  .\/  Q )  =  X )
3837breq2d 3932 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  Q  .<_  X )  ->  ( P  .<_  ( X  .\/  Q )  <->  P  .<_  X ) )
3938biimpa 472 . . . . . . . . 9  |-  ( ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A ) )  /\  Q  .<_  X )  /\  P  .<_  ( X  .\/  Q ) )  ->  P  .<_  X )
4039expl 604 . . . . . . . 8  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( Q  .<_  X  /\  P  .<_  ( X  .\/  Q ) )  ->  P  .<_  X ) )
41 simpl 445 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  K  e.  HL )
42 simpr2 967 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  P  e.  A )
435, 15, 7hlatlej2 28254 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  Q  e.  A  /\  P  e.  A )  ->  P  .<_  ( Q  .\/  P ) )
4441, 32, 42, 43syl3anc 1187 . . . . . . . 8  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  P  .<_  ( Q  .\/  P
) )
4540, 44jctird 530 . . . . . . 7  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( Q  .<_  X  /\  P  .<_  ( X  .\/  Q ) )  ->  ( P  .<_  X  /\  P  .<_  ( Q  .\/  P
) ) ) )
4645, 42jctild 529 . . . . . 6  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( Q  .<_  X  /\  P  .<_  ( X  .\/  Q ) )  ->  ( P  e.  A  /\  ( P  .<_  X  /\  P  .<_  ( Q  .\/  P ) ) ) ) )
4746impl 606 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A ) )  /\  Q  .<_  X )  /\  P  .<_  ( X  .\/  Q ) )  ->  ( P  e.  A  /\  ( P  .<_  X  /\  P  .<_  ( Q  .\/  P ) ) ) )
48 breq1 3923 . . . . . . 7  |-  ( r  =  P  ->  (
r  .<_  X  <->  P  .<_  X ) )
49 oveq2 5718 . . . . . . . 8  |-  ( r  =  P  ->  ( Q  .\/  r )  =  ( Q  .\/  P
) )
5049breq2d 3932 . . . . . . 7  |-  ( r  =  P  ->  ( P  .<_  ( Q  .\/  r )  <->  P  .<_  ( Q  .\/  P ) ) )
5148, 50anbi12d 694 . . . . . 6  |-  ( r  =  P  ->  (
( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) )  <->  ( P  .<_  X  /\  P  .<_  ( Q  .\/  P ) ) ) )
5251rcla4ev 2821 . . . . 5  |-  ( ( P  e.  A  /\  ( P  .<_  X  /\  P  .<_  ( Q  .\/  P ) ) )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) )
5347, 52syl 17 . . . 4  |-  ( ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A ) )  /\  Q  .<_  X )  /\  P  .<_  ( X  .\/  Q ) )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) )
5453adantrl 699 . . 3  |-  ( ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A ) )  /\  Q  .<_  X )  /\  ( X  =/=  .0.  /\  P  .<_  ( X  .\/  Q ) ) )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) )
5554exp31 590 . 2  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( Q  .<_  X  ->  (
( X  =/=  .0.  /\  P  .<_  ( X  .\/  Q ) )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) ) )
56 simpr 449 . . 3  |-  ( ( X  =/=  .0.  /\  P  .<_  ( X  .\/  Q ) )  ->  P  .<_  ( X  .\/  Q
) )
57 ioran 478 . . . . 5  |-  ( -.  ( P  =  Q  \/  Q  .<_  X )  <-> 
( -.  P  =  Q  /\  -.  Q  .<_  X ) )
58 df-ne 2414 . . . . . 6  |-  ( P  =/=  Q  <->  -.  P  =  Q )
5958anbi1i 679 . . . . 5  |-  ( ( P  =/=  Q  /\  -.  Q  .<_  X )  <-> 
( -.  P  =  Q  /\  -.  Q  .<_  X ) )
6057, 59bitr4i 245 . . . 4  |-  ( -.  ( P  =  Q  \/  Q  .<_  X )  <-> 
( P  =/=  Q  /\  -.  Q  .<_  X ) )
61 eqid 2253 . . . . . . . . . 10  |-  ( meet `  K )  =  (
meet `  K )
624, 5, 15, 61, 7cvrat3 28320 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( P  =/=  Q  /\  -.  Q  .<_  X  /\  P  .<_  ( X  .\/  Q ) )  ->  ( X ( meet `  K
) ( P  .\/  Q ) )  e.  A
) )
63623expd 1173 . . . . . . . 8  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( P  =/=  Q  ->  ( -.  Q  .<_  X  -> 
( P  .<_  ( X 
.\/  Q )  -> 
( X ( meet `  K ) ( P 
.\/  Q ) )  e.  A ) ) ) )
6463imp4c 577 . . . . . . 7  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( ( P  =/= 
Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X  .\/  Q
) )  ->  ( X ( meet `  K
) ( P  .\/  Q ) )  e.  A
) )
654, 7atbase 28168 . . . . . . . . . . . . 13  |-  ( P  e.  A  ->  P  e.  B )
6642, 65syl 17 . . . . . . . . . . . 12  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  P  e.  B )
674, 15latjcl 14000 . . . . . . . . . . . 12  |-  ( ( K  e.  Lat  /\  P  e.  B  /\  Q  e.  B )  ->  ( P  .\/  Q
)  e.  B )
6831, 66, 34, 67syl3anc 1187 . . . . . . . . . . 11  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( P  .\/  Q )  e.  B )
694, 5, 61latmle1 14026 . . . . . . . . . . 11  |-  ( ( K  e.  Lat  /\  X  e.  B  /\  ( P  .\/  Q )  e.  B )  -> 
( X ( meet `  K ) ( P 
.\/  Q ) ) 
.<_  X )
7031, 3, 68, 69syl3anc 1187 . . . . . . . . . 10  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( X ( meet `  K
) ( P  .\/  Q ) )  .<_  X )
7170adantr 453 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  ( X
( meet `  K )
( P  .\/  Q
) )  .<_  X )
72 simpll 733 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  K  e.  HL )
7363imp44 582 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  ( X
( meet `  K )
( P  .\/  Q
) )  e.  A
)
74 simplr2 1003 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  P  e.  A )
7534adantr 453 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  Q  e.  B )
7673, 74, 753jca 1137 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  ( ( X ( meet `  K
) ( P  .\/  Q ) )  e.  A  /\  P  e.  A  /\  Q  e.  B
) )
7772, 76jca 520 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  ( K  e.  HL  /\  ( ( X ( meet `  K
) ( P  .\/  Q ) )  e.  A  /\  P  e.  A  /\  Q  e.  B
) ) )
784, 5, 61, 6, 7atnle 28196 . . . . . . . . . . . . . . . 16  |-  ( ( K  e.  AtLat  /\  Q  e.  A  /\  X  e.  B )  ->  ( -.  Q  .<_  X  <->  ( Q
( meet `  K ) X )  =  .0.  ) )
792, 32, 3, 78syl3anc 1187 . . . . . . . . . . . . . . 15  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( -.  Q  .<_  X  <->  ( Q
( meet `  K ) X )  =  .0.  ) )
804, 61latmcom 14025 . . . . . . . . . . . . . . . . 17  |-  ( ( K  e.  Lat  /\  Q  e.  B  /\  X  e.  B )  ->  ( Q ( meet `  K ) X )  =  ( X (
meet `  K ) Q ) )
8131, 34, 3, 80syl3anc 1187 . . . . . . . . . . . . . . . 16  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( Q ( meet `  K
) X )  =  ( X ( meet `  K ) Q ) )
8281eqeq1d 2261 . . . . . . . . . . . . . . 15  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( Q ( meet `  K ) X )  =  .0.  <->  ( X
( meet `  K ) Q )  =  .0.  ) )
8379, 82bitrd 246 . . . . . . . . . . . . . 14  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( -.  Q  .<_  X  <->  ( X
( meet `  K ) Q )  =  .0.  ) )
844, 61latmcl 14001 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( K  e.  Lat  /\  X  e.  B  /\  ( P  .\/  Q )  e.  B )  -> 
( X ( meet `  K ) ( P 
.\/  Q ) )  e.  B )
8531, 3, 68, 84syl3anc 1187 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( X ( meet `  K
) ( P  .\/  Q ) )  e.  B
)
8685, 3, 343jca 1137 . . . . . . . . . . . . . . . . . . 19  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( X ( meet `  K ) ( P 
.\/  Q ) )  e.  B  /\  X  e.  B  /\  Q  e.  B ) )
8731, 86jca 520 . . . . . . . . . . . . . . . . . 18  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( K  e.  Lat  /\  (
( X ( meet `  K ) ( P 
.\/  Q ) )  e.  B  /\  X  e.  B  /\  Q  e.  B ) ) )
884, 5, 61latmlem2 14032 . . . . . . . . . . . . . . . . . 18  |-  ( ( K  e.  Lat  /\  ( ( X (
meet `  K )
( P  .\/  Q
) )  e.  B  /\  X  e.  B  /\  Q  e.  B
) )  ->  (
( X ( meet `  K ) ( P 
.\/  Q ) ) 
.<_  X  ->  ( Q
( meet `  K )
( X ( meet `  K ) ( P 
.\/  Q ) ) )  .<_  ( Q
( meet `  K ) X ) ) )
8987, 70, 88sylc 58 . . . . . . . . . . . . . . . . 17  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( Q ( meet `  K
) ( X (
meet `  K )
( P  .\/  Q
) ) )  .<_  ( Q ( meet `  K
) X ) )
9089, 81breqtrd 3944 . . . . . . . . . . . . . . . 16  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( Q ( meet `  K
) ( X (
meet `  K )
( P  .\/  Q
) ) )  .<_  ( X ( meet `  K
) Q ) )
91 breq2 3924 . . . . . . . . . . . . . . . 16  |-  ( ( X ( meet `  K
) Q )  =  .0.  ->  ( ( Q ( meet `  K
) ( X (
meet `  K )
( P  .\/  Q
) ) )  .<_  ( X ( meet `  K
) Q )  <->  ( Q
( meet `  K )
( X ( meet `  K ) ( P 
.\/  Q ) ) )  .<_  .0.  )
)
9290, 91syl5ibcom 213 . . . . . . . . . . . . . . 15  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( X ( meet `  K ) Q )  =  .0.  ->  ( Q ( meet `  K
) ( X (
meet `  K )
( P  .\/  Q
) ) )  .<_  .0.  ) )
93 hlop 28241 . . . . . . . . . . . . . . . . 17  |-  ( K  e.  HL  ->  K  e.  OP )
9493adantr 453 . . . . . . . . . . . . . . . 16  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  K  e.  OP )
954, 61latmcl 14001 . . . . . . . . . . . . . . . . 17  |-  ( ( K  e.  Lat  /\  Q  e.  B  /\  ( X ( meet `  K
) ( P  .\/  Q ) )  e.  B
)  ->  ( Q
( meet `  K )
( X ( meet `  K ) ( P 
.\/  Q ) ) )  e.  B )
9631, 34, 85, 95syl3anc 1187 . . . . . . . . . . . . . . . 16  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( Q ( meet `  K
) ( X (
meet `  K )
( P  .\/  Q
) ) )  e.  B )
974, 5, 6ople0 28066 . . . . . . . . . . . . . . . 16  |-  ( ( K  e.  OP  /\  ( Q ( meet `  K
) ( X (
meet `  K )
( P  .\/  Q
) ) )  e.  B )  ->  (
( Q ( meet `  K ) ( X ( meet `  K
) ( P  .\/  Q ) ) )  .<_  .0. 
<->  ( Q ( meet `  K ) ( X ( meet `  K
) ( P  .\/  Q ) ) )  =  .0.  ) )
9894, 96, 97syl2anc 645 . . . . . . . . . . . . . . 15  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( Q ( meet `  K ) ( X ( meet `  K
) ( P  .\/  Q ) ) )  .<_  .0. 
<->  ( Q ( meet `  K ) ( X ( meet `  K
) ( P  .\/  Q ) ) )  =  .0.  ) )
9992, 98sylibd 207 . . . . . . . . . . . . . 14  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( X ( meet `  K ) Q )  =  .0.  ->  ( Q ( meet `  K
) ( X (
meet `  K )
( P  .\/  Q
) ) )  =  .0.  ) )
10083, 99sylbid 208 . . . . . . . . . . . . 13  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( -.  Q  .<_  X  -> 
( Q ( meet `  K ) ( X ( meet `  K
) ( P  .\/  Q ) ) )  =  .0.  ) )
101100imp 420 . . . . . . . . . . . 12  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  -.  Q  .<_  X )  -> 
( Q ( meet `  K ) ( X ( meet `  K
) ( P  .\/  Q ) ) )  =  .0.  )
102101adantrl 699 . . . . . . . . . . 11  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  ( P  =/=  Q  /\  -.  Q  .<_  X ) )  ->  ( Q (
meet `  K )
( X ( meet `  K ) ( P 
.\/  Q ) ) )  =  .0.  )
103102adantrr 700 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  ( Q
( meet `  K )
( X ( meet `  K ) ( P 
.\/  Q ) ) )  =  .0.  )
1044, 5, 61latmle2 14027 . . . . . . . . . . . . 13  |-  ( ( K  e.  Lat  /\  X  e.  B  /\  ( P  .\/  Q )  e.  B )  -> 
( X ( meet `  K ) ( P 
.\/  Q ) ) 
.<_  ( P  .\/  Q
) )
10531, 3, 68, 104syl3anc 1187 . . . . . . . . . . . 12  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( X ( meet `  K
) ( P  .\/  Q ) )  .<_  ( P 
.\/  Q ) )
1064, 15latjcom 14009 . . . . . . . . . . . . 13  |-  ( ( K  e.  Lat  /\  P  e.  B  /\  Q  e.  B )  ->  ( P  .\/  Q
)  =  ( Q 
.\/  P ) )
10731, 66, 34, 106syl3anc 1187 . . . . . . . . . . . 12  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( P  .\/  Q )  =  ( Q  .\/  P
) )
108105, 107breqtrd 3944 . . . . . . . . . . 11  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( X ( meet `  K
) ( P  .\/  Q ) )  .<_  ( Q 
.\/  P ) )
109108adantr 453 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  ( X
( meet `  K )
( P  .\/  Q
) )  .<_  ( Q 
.\/  P ) )
11030adantr 453 . . . . . . . . . . . . 13  |-  ( ( K  e.  HL  /\  ( ( X (
meet `  K )
( P  .\/  Q
) )  e.  A  /\  P  e.  A  /\  Q  e.  B
) )  ->  K  e.  Lat )
111 simpr3 968 . . . . . . . . . . . . 13  |-  ( ( K  e.  HL  /\  ( ( X (
meet `  K )
( P  .\/  Q
) )  e.  A  /\  P  e.  A  /\  Q  e.  B
) )  ->  Q  e.  B )
112 simpr1 966 . . . . . . . . . . . . . 14  |-  ( ( K  e.  HL  /\  ( ( X (
meet `  K )
( P  .\/  Q
) )  e.  A  /\  P  e.  A  /\  Q  e.  B
) )  ->  ( X ( meet `  K
) ( P  .\/  Q ) )  e.  A
)
1134, 7atbase 28168 . . . . . . . . . . . . . 14  |-  ( ( X ( meet `  K
) ( P  .\/  Q ) )  e.  A  ->  ( X ( meet `  K ) ( P 
.\/  Q ) )  e.  B )
114112, 113syl 17 . . . . . . . . . . . . 13  |-  ( ( K  e.  HL  /\  ( ( X (
meet `  K )
( P  .\/  Q
) )  e.  A  /\  P  e.  A  /\  Q  e.  B
) )  ->  ( X ( meet `  K
) ( P  .\/  Q ) )  e.  B
)
1154, 61latmcom 14025 . . . . . . . . . . . . 13  |-  ( ( K  e.  Lat  /\  Q  e.  B  /\  ( X ( meet `  K
) ( P  .\/  Q ) )  e.  B
)  ->  ( Q
( meet `  K )
( X ( meet `  K ) ( P 
.\/  Q ) ) )  =  ( ( X ( meet `  K
) ( P  .\/  Q ) ) ( meet `  K ) Q ) )
116110, 111, 114, 115syl3anc 1187 . . . . . . . . . . . 12  |-  ( ( K  e.  HL  /\  ( ( X (
meet `  K )
( P  .\/  Q
) )  e.  A  /\  P  e.  A  /\  Q  e.  B
) )  ->  ( Q ( meet `  K
) ( X (
meet `  K )
( P  .\/  Q
) ) )  =  ( ( X (
meet `  K )
( P  .\/  Q
) ) ( meet `  K ) Q ) )
117116eqeq1d 2261 . . . . . . . . . . 11  |-  ( ( K  e.  HL  /\  ( ( X (
meet `  K )
( P  .\/  Q
) )  e.  A  /\  P  e.  A  /\  Q  e.  B
) )  ->  (
( Q ( meet `  K ) ( X ( meet `  K
) ( P  .\/  Q ) ) )  =  .0.  <->  ( ( X ( meet `  K
) ( P  .\/  Q ) ) ( meet `  K ) Q )  =  .0.  ) )
1184, 5, 15, 61, 6, 7hlexch3 28269 . . . . . . . . . . . 12  |-  ( ( K  e.  HL  /\  ( ( X (
meet `  K )
( P  .\/  Q
) )  e.  A  /\  P  e.  A  /\  Q  e.  B
)  /\  ( ( X ( meet `  K
) ( P  .\/  Q ) ) ( meet `  K ) Q )  =  .0.  )  -> 
( ( X (
meet `  K )
( P  .\/  Q
) )  .<_  ( Q 
.\/  P )  ->  P  .<_  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) ) )
1191183expia 1158 . . . . . . . . . . 11  |-  ( ( K  e.  HL  /\  ( ( X (
meet `  K )
( P  .\/  Q
) )  e.  A  /\  P  e.  A  /\  Q  e.  B
) )  ->  (
( ( X (
meet `  K )
( P  .\/  Q
) ) ( meet `  K ) Q )  =  .0.  ->  (
( X ( meet `  K ) ( P 
.\/  Q ) ) 
.<_  ( Q  .\/  P
)  ->  P  .<_  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) ) ) )
120117, 119sylbid 208 . . . . . . . . . 10  |-  ( ( K  e.  HL  /\  ( ( X (
meet `  K )
( P  .\/  Q
) )  e.  A  /\  P  e.  A  /\  Q  e.  B
) )  ->  (
( Q ( meet `  K ) ( X ( meet `  K
) ( P  .\/  Q ) ) )  =  .0.  ->  ( ( X ( meet `  K
) ( P  .\/  Q ) )  .<_  ( Q 
.\/  P )  ->  P  .<_  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) ) ) )
12177, 103, 109, 120syl3c 59 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  P  .<_  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) )
12271, 121jca 520 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  /\  (
( P  =/=  Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X 
.\/  Q ) ) )  ->  ( ( X ( meet `  K
) ( P  .\/  Q ) )  .<_  X  /\  P  .<_  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) ) )
123122ex 425 . . . . . . 7  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( ( P  =/= 
Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X  .\/  Q
) )  ->  (
( X ( meet `  K ) ( P 
.\/  Q ) ) 
.<_  X  /\  P  .<_  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) ) ) )
12464, 123jcad 521 . . . . . 6  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( ( P  =/= 
Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X  .\/  Q
) )  ->  (
( X ( meet `  K ) ( P 
.\/  Q ) )  e.  A  /\  (
( X ( meet `  K ) ( P 
.\/  Q ) ) 
.<_  X  /\  P  .<_  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) ) ) ) )
125 breq1 3923 . . . . . . . 8  |-  ( r  =  ( X (
meet `  K )
( P  .\/  Q
) )  ->  (
r  .<_  X  <->  ( X
( meet `  K )
( P  .\/  Q
) )  .<_  X ) )
126 oveq2 5718 . . . . . . . . 9  |-  ( r  =  ( X (
meet `  K )
( P  .\/  Q
) )  ->  ( Q  .\/  r )  =  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) )
127126breq2d 3932 . . . . . . . 8  |-  ( r  =  ( X (
meet `  K )
( P  .\/  Q
) )  ->  ( P  .<_  ( Q  .\/  r )  <->  P  .<_  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) ) )
128125, 127anbi12d 694 . . . . . . 7  |-  ( r  =  ( X (
meet `  K )
( P  .\/  Q
) )  ->  (
( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) )  <->  ( ( X ( meet `  K
) ( P  .\/  Q ) )  .<_  X  /\  P  .<_  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) ) ) )
129128rcla4ev 2821 . . . . . 6  |-  ( ( ( X ( meet `  K ) ( P 
.\/  Q ) )  e.  A  /\  (
( X ( meet `  K ) ( P 
.\/  Q ) ) 
.<_  X  /\  P  .<_  ( Q  .\/  ( X ( meet `  K
) ( P  .\/  Q ) ) ) ) )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) )
130124, 129syl6 31 . . . . 5  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( ( P  =/= 
Q  /\  -.  Q  .<_  X )  /\  P  .<_  ( X  .\/  Q
) )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) )
131130exp3a 427 . . . 4  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( P  =/=  Q  /\  -.  Q  .<_  X )  ->  ( P  .<_  ( X  .\/  Q )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) ) )
13260, 131syl5bi 210 . . 3  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( -.  ( P  =  Q  \/  Q  .<_  X )  ->  ( P  .<_  ( X  .\/  Q )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) ) )
13356, 132syl7 65 . 2  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  ( -.  ( P  =  Q  \/  Q  .<_  X )  ->  ( ( X  =/=  .0.  /\  P  .<_  ( X  .\/  Q
) )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) ) )
13429, 55, 133ecase3d 914 1  |-  ( ( K  e.  HL  /\  ( X  e.  B  /\  P  e.  A  /\  Q  e.  A
) )  ->  (
( X  =/=  .0.  /\  P  .<_  ( X  .\/  Q ) )  ->  E. r  e.  A  ( r  .<_  X  /\  P  .<_  ( Q  .\/  r ) ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 5    -> wi 6    <-> wb 178    \/ wo 359    /\ wa 360    /\ w3a 939    = wceq 1619    e. wcel 1621    =/= wne 2412   E.wrex 2510   class class class wbr 3920   ` cfv 4592  (class class class)co 5710   Basecbs 13022   lecple 13089   joincjn 13922   meetcmee 13923   0.cp0 13987   Latclat 13995   OPcops 28051   Atomscatm 28142   AtLatcal 28143   HLchlt 28229
This theorem is referenced by:  cvrat42  28322  ps-2  28356
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 1926  ax-ext 2234  ax-rep 4028  ax-sep 4038  ax-nul 4046  ax-pow 4082  ax-pr 4108  ax-un 4403
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 1883  df-eu 2118  df-mo 2119  df-clab 2240  df-cleq 2246  df-clel 2249  df-nfc 2374  df-ne 2414  df-nel 2415  df-ral 2513  df-rex 2514  df-reu 2515  df-rab 2516  df-v 2729  df-sbc 2922  df-csb 3010  df-dif 3081  df-un 3083  df-in 3085  df-ss 3089  df-nul 3363  df-if 3471  df-pw 3532  df-sn 3550  df-pr 3551  df-op 3553  df-uni 3728  df-iun 3805  df-br 3921  df-opab 3975  df-mpt 3976  df-id 4202  df-xp 4594  df-rel 4595  df-cnv 4596  df-co 4597  df-dm 4598  df-rn 4599  df-res 4600  df-ima 4601  df-fun 4602  df-fn 4603  df-f 4604  df-f1 4605  df-fo 4606  df-f1o 4607  df-fv 4608  df-ov 5713  df-oprab 5714  df-mpt2 5715  df-1st 5974  df-2nd 5975  df-iota 6143  df-undef 6182  df-riota 6190  df-poset 13924  df-plt 13936  df-lub 13952  df-glb 13953  df-join 13954  df-meet 13955  df-p0 13989  df-lat 13996  df-clat 14058  df-oposet 28055  df-ol 28057  df-oml 28058  df-covers 28145  df-ats 28146  df-atl 28177  df-cvlat 28201  df-hlat 28230
  Copyright terms: Public domain W3C validator