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

Theorem paddasslem12 33838
Description: Lemma for paddass 33845. The case when  x  =  y. (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
paddasslem12  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  p  e.  ( ( X  .+  Y )  .+  Z
) )

Proof of Theorem paddasslem12
StepHypRef Expression
1 simpl1l 1039 . . . 4  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  K  e.  HL )
2 simpl21 1066 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  X  C_  A
)
3 simpl22 1067 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  Y  C_  A
)
4 paddasslem.a . . . . . 6  |-  A  =  ( Atoms `  K )
5 paddasslem.p . . . . . 6  |-  .+  =  ( +P `  K
)
64, 5paddssat 33821 . . . . 5  |-  ( ( K  e.  HL  /\  X  C_  A  /\  Y  C_  A )  ->  ( X  .+  Y )  C_  A )
71, 2, 3, 6syl3anc 1219 . . . 4  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  ( X  .+  Y )  C_  A
)
8 simpl23 1068 . . . 4  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  Z  C_  A
)
91, 7, 83jca 1168 . . 3  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  ( K  e.  HL  /\  ( X 
.+  Y )  C_  A  /\  Z  C_  A
) )
104, 5sspadd2 33823 . . . 4  |-  ( ( K  e.  HL  /\  Y  C_  A  /\  X  C_  A )  ->  Y  C_  ( X  .+  Y
) )
111, 3, 2, 10syl3anc 1219 . . 3  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  Y  C_  ( X  .+  Y ) )
124, 5paddss1 33824 . . 3  |-  ( ( K  e.  HL  /\  ( X  .+  Y ) 
C_  A  /\  Z  C_  A )  ->  ( Y  C_  ( X  .+  Y )  ->  ( Y  .+  Z )  C_  ( ( X  .+  Y )  .+  Z
) ) )
139, 11, 12sylc 60 . 2  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  ( Y  .+  Z )  C_  (
( X  .+  Y
)  .+  Z )
)
14 hllat 33371 . . . 4  |-  ( K  e.  HL  ->  K  e.  Lat )
151, 14syl 16 . . 3  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  K  e.  Lat )
16 simprll 761 . . 3  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  y  e.  Y )
17 simprlr 762 . . 3  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  z  e.  Z )
18 simpl3l 1043 . . 3  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  p  e.  A )
19 eqid 2454 . . . 4  |-  ( Base `  K )  =  (
Base `  K )
20 paddasslem.l . . . 4  |-  .<_  =  ( le `  K )
2119, 4atbase 33297 . . . . 5  |-  ( p  e.  A  ->  p  e.  ( Base `  K
) )
2218, 21syl 16 . . . 4  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  p  e.  ( Base `  K )
)
233, 16sseldd 3468 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  y  e.  A )
2419, 4atbase 33297 . . . . . 6  |-  ( y  e.  A  ->  y  e.  ( Base `  K
) )
2523, 24syl 16 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  y  e.  ( Base `  K )
)
26 simpl3r 1044 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  r  e.  A )
2719, 4atbase 33297 . . . . . 6  |-  ( r  e.  A  ->  r  e.  ( Base `  K
) )
2826, 27syl 16 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  r  e.  ( Base `  K )
)
29 paddasslem.j . . . . . 6  |-  .\/  =  ( join `  K )
3019, 29latjcl 15344 . . . . 5  |-  ( ( K  e.  Lat  /\  y  e.  ( Base `  K )  /\  r  e.  ( Base `  K
) )  ->  (
y  .\/  r )  e.  ( Base `  K
) )
3115, 25, 28, 30syl3anc 1219 . . . 4  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  ( y  .\/  r )  e.  (
Base `  K )
)
328, 17sseldd 3468 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  z  e.  A )
3319, 4atbase 33297 . . . . . 6  |-  ( z  e.  A  ->  z  e.  ( Base `  K
) )
3432, 33syl 16 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  z  e.  ( Base `  K )
)
3519, 29latjcl 15344 . . . . 5  |-  ( ( K  e.  Lat  /\  y  e.  ( Base `  K )  /\  z  e.  ( Base `  K
) )  ->  (
y  .\/  z )  e.  ( Base `  K
) )
3615, 25, 34, 35syl3anc 1219 . . . 4  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  ( y  .\/  z )  e.  (
Base `  K )
)
37 simpl1r 1040 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  x  =  y )
38 simprrl 763 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  p  .<_  ( x  .\/  r ) )
39 oveq1 6210 . . . . . . 7  |-  ( x  =  y  ->  (
x  .\/  r )  =  ( y  .\/  r ) )
4039breq2d 4415 . . . . . 6  |-  ( x  =  y  ->  (
p  .<_  ( x  .\/  r )  <->  p  .<_  ( y  .\/  r ) ) )
4140biimpa 484 . . . . 5  |-  ( ( x  =  y  /\  p  .<_  ( x  .\/  r ) )  ->  p  .<_  ( y  .\/  r ) )
4237, 38, 41syl2anc 661 . . . 4  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  p  .<_  ( y  .\/  r ) )
4319, 20, 29latlej1 15353 . . . . . 6  |-  ( ( K  e.  Lat  /\  y  e.  ( Base `  K )  /\  z  e.  ( Base `  K
) )  ->  y  .<_  ( y  .\/  z
) )
4415, 25, 34, 43syl3anc 1219 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  y  .<_  ( y  .\/  z ) )
45 simprrr 764 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  r  .<_  ( y  .\/  z ) )
4619, 20, 29latjle12 15355 . . . . . 6  |-  ( ( K  e.  Lat  /\  ( y  e.  (
Base `  K )  /\  r  e.  ( Base `  K )  /\  ( y  .\/  z
)  e.  ( Base `  K ) ) )  ->  ( ( y 
.<_  ( y  .\/  z
)  /\  r  .<_  ( y  .\/  z ) )  <->  ( y  .\/  r )  .<_  ( y 
.\/  z ) ) )
4715, 25, 28, 36, 46syl13anc 1221 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  ( (
y  .<_  ( y  .\/  z )  /\  r  .<_  ( y  .\/  z
) )  <->  ( y  .\/  r )  .<_  ( y 
.\/  z ) ) )
4844, 45, 47mpbi2and 912 . . . 4  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  ( y  .\/  r )  .<_  ( y 
.\/  z ) )
4919, 20, 15, 22, 31, 36, 42, 48lattrd 15351 . . 3  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  p  .<_  ( y  .\/  z ) )
5020, 29, 4, 5elpaddri 33809 . . 3  |-  ( ( ( K  e.  Lat  /\  Y  C_  A  /\  Z  C_  A )  /\  ( y  e.  Y  /\  z  e.  Z
)  /\  ( p  e.  A  /\  p  .<_  ( y  .\/  z
) ) )  ->  p  e.  ( Y  .+  Z ) )
5115, 3, 8, 16, 17, 18, 49, 50syl322anc 1247 . 2  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  p  e.  ( Y  .+  Z ) )
5213, 51sseldd 3468 1  |-  ( ( ( ( K  e.  HL  /\  x  =  y )  /\  ( X  C_  A  /\  Y  C_  A  /\  Z  C_  A )  /\  (
p  e.  A  /\  r  e.  A )
)  /\  ( (
y  e.  Y  /\  z  e.  Z )  /\  ( p  .<_  ( x 
.\/  r )  /\  r  .<_  ( y  .\/  z ) ) ) )  ->  p  e.  ( ( X  .+  Y )  .+  Z
) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 965    = wceq 1370    e. wcel 1758    C_ wss 3439   class class class wbr 4403   ` cfv 5529  (class class class)co 6203   Basecbs 14296   lecple 14368   joincjn 15237   Latclat 15338   Atomscatm 33271   HLchlt 33358   +Pcpadd 33802
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1592  ax-4 1603  ax-5 1671  ax-6 1710  ax-7 1730  ax-8 1760  ax-9 1762  ax-10 1777  ax-11 1782  ax-12 1794  ax-13 1955  ax-ext 2432  ax-rep 4514  ax-sep 4524  ax-nul 4532  ax-pow 4581  ax-pr 4642  ax-un 6485
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3an 967  df-tru 1373  df-ex 1588  df-nf 1591  df-sb 1703  df-eu 2266  df-mo 2267  df-clab 2440  df-cleq 2446  df-clel 2449  df-nfc 2604  df-ne 2650  df-ral 2804  df-rex 2805  df-reu 2806  df-rab 2808  df-v 3080  df-sbc 3295  df-csb 3399  df-dif 3442  df-un 3444  df-in 3446  df-ss 3453  df-nul 3749  df-if 3903  df-pw 3973  df-sn 3989  df-pr 3991  df-op 3995  df-uni 4203  df-iun 4284  df-br 4404  df-opab 4462  df-mpt 4463  df-id 4747  df-xp 4957  df-rel 4958  df-cnv 4959  df-co 4960  df-dm 4961  df-rn 4962  df-res 4963  df-ima 4964  df-iota 5492  df-fun 5531  df-fn 5532  df-f 5533  df-f1 5534  df-fo 5535  df-f1o 5536  df-fv 5537  df-riota 6164  df-ov 6206  df-oprab 6207  df-mpt2 6208  df-1st 6690  df-2nd 6691  df-poset 15239  df-lub 15267  df-glb 15268  df-join 15269  df-meet 15270  df-lat 15339  df-ats 33275  df-atl 33306  df-cvlat 33330  df-hlat 33359  df-padd 33803
This theorem is referenced by:  paddasslem14  33840
  Copyright terms: Public domain W3C validator