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

Theorem paddasslem15 33200
Description: Lemma for paddass 33204. Use elpaddn0 33166 to eliminate  y and  z from paddasslem14 33199. (Contributed by NM, 11-Jan-2012.)
Hypotheses
Ref Expression
paddasslem.l  |-  .<_  =  ( le `  K )
paddasslem.j  |-  .\/  =  ( join `  K )
paddasslem.a  |-  A  =  ( Atoms `  K )
paddasslem.p  |-  .+  =  ( +P `  K
)
Assertion
Ref Expression
paddasslem15  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  p  e.  ( ( X  .+  Y )  .+  Z
) )

Proof of Theorem paddasslem15
Dummy variables  y 
z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpr2r 1043 . . 3  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  r  e.  ( Y  .+  Z ) )
2 simpl1 986 . . . . 5  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  K  e.  HL )
3 hllat 32730 . . . . 5  |-  ( K  e.  HL  ->  K  e.  Lat )
42, 3syl 16 . . . 4  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  K  e.  Lat )
5 simpl22 1062 . . . 4  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  Y  C_  A
)
6 simpl23 1063 . . . 4  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  Z  C_  A
)
7 simpl3 988 . . . 4  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )
8 paddasslem.l . . . . 5  |-  .<_  =  ( le `  K )
9 paddasslem.j . . . . 5  |-  .\/  =  ( join `  K )
10 paddasslem.a . . . . 5  |-  A  =  ( Atoms `  K )
11 paddasslem.p . . . . 5  |-  .+  =  ( +P `  K
)
128, 9, 10, 11elpaddn0 33166 . . . 4  |-  ( ( ( K  e.  Lat  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  -> 
( r  e.  ( Y  .+  Z )  <-> 
( r  e.  A  /\  E. y  e.  Y  E. z  e.  Z  r  .<_  ( y  .\/  z ) ) ) )
134, 5, 6, 7, 12syl31anc 1216 . . 3  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  ( r  e.  ( Y  .+  Z
)  <->  ( r  e.  A  /\  E. y  e.  Y  E. z  e.  Z  r  .<_  ( y  .\/  z ) ) ) )
141, 13mpbid 210 . 2  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  ( r  e.  A  /\  E. y  e.  Y  E. z  e.  Z  r  .<_  ( y  .\/  z ) ) )
15 simp11 1013 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  ->  K  e.  HL )
16 simp12 1014 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  -> 
( X  C_  A  /\  Y  C_  A  /\  Z  C_  A ) )
17 simp21 1016 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  ->  p  e.  A )
18 simp31 1019 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  -> 
r  e.  A )
1917, 18jca 529 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  -> 
( p  e.  A  /\  r  e.  A
) )
20 simp22l 1102 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  ->  x  e.  X )
21 simp32l 1108 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  -> 
y  e.  Y )
22 simp32r 1109 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  -> 
z  e.  Z )
2320, 21, 223jca 1163 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  -> 
( x  e.  X  /\  y  e.  Y  /\  z  e.  Z
) )
24 simp23 1018 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  ->  p  .<_  ( x  .\/  r ) )
25 simp33 1021 . . . . . . . . 9  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  -> 
r  .<_  ( y  .\/  z ) )
2624, 25jca 529 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  -> 
( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) )
278, 9, 10, 11paddasslem14 33199 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( p  e.  A  /\  r  e.  A
) )  /\  (
( x  e.  X  /\  y  e.  Y  /\  z  e.  Z
)  /\  ( p  .<_  ( x  .\/  r
)  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  p  e.  ( ( X  .+  Y )  .+  Z ) )
2815, 16, 19, 23, 26, 27syl32anc 1221 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) )  /\  ( r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z )  /\  r  .<_  ( y  .\/  z
) ) )  ->  p  e.  ( ( X  .+  Y )  .+  Z ) )
29283expia 1184 . . . . . 6  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  ( (
r  e.  A  /\  ( y  e.  Y  /\  z  e.  Z
)  /\  r  .<_  ( y  .\/  z ) )  ->  p  e.  ( ( X  .+  Y )  .+  Z
) ) )
30293expd 1199 . . . . 5  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  ( r  e.  A  ->  ( ( y  e.  Y  /\  z  e.  Z )  ->  ( r  .<_  ( y 
.\/  z )  ->  p  e.  ( ( X  .+  Y )  .+  Z ) ) ) ) )
3130imp 429 . . . 4  |-  ( ( ( ( K  e.  HL  /\  ( X 
C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  (
p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  /\  r  e.  A )  ->  (
( y  e.  Y  /\  z  e.  Z
)  ->  ( r  .<_  ( y  .\/  z
)  ->  p  e.  ( ( X  .+  Y )  .+  Z
) ) ) )
3231rexlimdvv 2845 . . 3  |-  ( ( ( ( K  e.  HL  /\  ( X 
C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  (
p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  /\  r  e.  A )  ->  ( E. y  e.  Y  E. z  e.  Z  r  .<_  ( y  .\/  z )  ->  p  e.  ( ( X  .+  Y )  .+  Z
) ) )
3332expimpd 600 . 2  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  ( (
r  e.  A  /\  E. y  e.  Y  E. z  e.  Z  r  .<_  ( y  .\/  z
) )  ->  p  e.  ( ( X  .+  Y )  .+  Z
) ) )
3414, 33mpd 15 1  |-  ( ( ( K  e.  HL  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  ( Y  =/=  (/)  /\  Z  =/=  (/) ) )  /\  ( p  e.  A  /\  ( x  e.  X  /\  r  e.  ( Y  .+  Z ) )  /\  p  .<_  ( x 
.\/  r ) ) )  ->  p  e.  ( ( X  .+  Y )  .+  Z
) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 960    = wceq 1364    e. wcel 1761    =/= wne 2604   E.wrex 2714    C_ wss 3325   (/)c0 3634   class class class wbr 4289   ` cfv 5415  (class class class)co 6090   lecple 14241   joincjn 15110   Latclat 15211   Atomscatm 32630   HLchlt 32717   +Pcpadd 33161
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1596  ax-4 1607  ax-5 1675  ax-6 1713  ax-7 1733  ax-8 1763  ax-9 1765  ax-10 1780  ax-11 1785  ax-12 1797  ax-13 1948  ax-ext 2422  ax-rep 4400  ax-sep 4410  ax-nul 4418  ax-pow 4467  ax-pr 4528  ax-un 6371
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3an 962  df-tru 1367  df-ex 1592  df-nf 1595  df-sb 1706  df-eu 2261  df-mo 2262  df-clab 2428  df-cleq 2434  df-clel 2437  df-nfc 2566  df-ne 2606  df-ral 2718  df-rex 2719  df-reu 2720  df-rab 2722  df-v 2972  df-sbc 3184  df-csb 3286  df-dif 3328  df-un 3330  df-in 3332  df-ss 3339  df-nul 3635  df-if 3789  df-pw 3859  df-sn 3875  df-pr 3877  df-op 3881  df-uni 4089  df-iun 4170  df-br 4290  df-opab 4348  df-mpt 4349  df-id 4632  df-xp 4842  df-rel 4843  df-cnv 4844  df-co 4845  df-dm 4846  df-rn 4847  df-res 4848  df-ima 4849  df-iota 5378  df-fun 5417  df-fn 5418  df-f 5419  df-f1 5420  df-fo 5421  df-f1o 5422  df-fv 5423  df-riota 6049  df-ov 6093  df-oprab 6094  df-mpt2 6095  df-1st 6576  df-2nd 6577  df-poset 15112  df-plt 15124  df-lub 15140  df-glb 15141  df-join 15142  df-meet 15143  df-p0 15205  df-lat 15212  df-clat 15274  df-oposet 32543  df-ol 32545  df-oml 32546  df-covers 32633  df-ats 32634  df-atl 32665  df-cvlat 32689  df-hlat 32718  df-padd 33162
This theorem is referenced by:  paddasslem16  33201
  Copyright terms: Public domain W3C validator