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

Theorem dalemcea 33667
Description: Lemma for dath 33743. Frequently-used utility lemma. Here we show that  C must be an atom. This is an assumption in most presentations of Desargue's theorem; instead, we assume only the  C is a lattice element, in order to make later substitutions for  C easier. (Contributed by NM, 23-Sep-2012.)
Hypotheses
Ref Expression
dalema.ph  |-  ( ph  <->  ( ( ( K  e.  HL  /\  C  e.  ( Base `  K
) )  /\  ( P  e.  A  /\  Q  e.  A  /\  R  e.  A )  /\  ( S  e.  A  /\  T  e.  A  /\  U  e.  A
) )  /\  ( Y  e.  O  /\  Z  e.  O )  /\  ( ( -.  C  .<_  ( P  .\/  Q
)  /\  -.  C  .<_  ( Q  .\/  R
)  /\  -.  C  .<_  ( R  .\/  P
) )  /\  ( -.  C  .<_  ( S 
.\/  T )  /\  -.  C  .<_  ( T 
.\/  U )  /\  -.  C  .<_  ( U 
.\/  S ) )  /\  ( C  .<_  ( P  .\/  S )  /\  C  .<_  ( Q 
.\/  T )  /\  C  .<_  ( R  .\/  U ) ) ) ) )
dalemc.l  |-  .<_  =  ( le `  K )
dalemc.j  |-  .\/  =  ( join `  K )
dalemc.a  |-  A  =  ( Atoms `  K )
dalem1.o  |-  O  =  ( LPlanes `  K )
dalem1.y  |-  Y  =  ( ( P  .\/  Q )  .\/  R )
Assertion
Ref Expression
dalemcea  |-  ( ph  ->  C  e.  A )

Proof of Theorem dalemcea
StepHypRef Expression
1 dalema.ph . . . 4  |-  ( ph  <->  ( ( ( K  e.  HL  /\  C  e.  ( Base `  K
) )  /\  ( P  e.  A  /\  Q  e.  A  /\  R  e.  A )  /\  ( S  e.  A  /\  T  e.  A  /\  U  e.  A
) )  /\  ( Y  e.  O  /\  Z  e.  O )  /\  ( ( -.  C  .<_  ( P  .\/  Q
)  /\  -.  C  .<_  ( Q  .\/  R
)  /\  -.  C  .<_  ( R  .\/  P
) )  /\  ( -.  C  .<_  ( S 
.\/  T )  /\  -.  C  .<_  ( T 
.\/  U )  /\  -.  C  .<_  ( U 
.\/  S ) )  /\  ( C  .<_  ( P  .\/  S )  /\  C  .<_  ( Q 
.\/  T )  /\  C  .<_  ( R  .\/  U ) ) ) ) )
21dalemkeop 33632 . . 3  |-  ( ph  ->  K  e.  OP )
3 dalemc.a . . . 4  |-  A  =  ( Atoms `  K )
41, 3dalemceb 33645 . . 3  |-  ( ph  ->  C  e.  ( Base `  K ) )
51dalemkehl 33630 . . . 4  |-  ( ph  ->  K  e.  HL )
6 dalemc.l . . . . 5  |-  .<_  =  ( le `  K )
7 dalemc.j . . . . 5  |-  .\/  =  ( join `  K )
8 dalem1.o . . . . 5  |-  O  =  ( LPlanes `  K )
9 dalem1.y . . . . 5  |-  Y  =  ( ( P  .\/  Q )  .\/  R )
101, 6, 7, 3, 8, 9dalempjsen 33660 . . . 4  |-  ( ph  ->  ( P  .\/  S
)  e.  ( LLines `  K ) )
111dalemqea 33634 . . . . 5  |-  ( ph  ->  Q  e.  A )
121dalemtea 33637 . . . . 5  |-  ( ph  ->  T  e.  A )
131, 6, 7, 3, 8, 9dalemqnet 33659 . . . . 5  |-  ( ph  ->  Q  =/=  T )
14 eqid 2454 . . . . . 6  |-  ( LLines `  K )  =  (
LLines `  K )
157, 3, 14llni2 33519 . . . . 5  |-  ( ( ( K  e.  HL  /\  Q  e.  A  /\  T  e.  A )  /\  Q  =/=  T
)  ->  ( Q  .\/  T )  e.  (
LLines `  K ) )
165, 11, 12, 13, 15syl31anc 1222 . . . 4  |-  ( ph  ->  ( Q  .\/  T
)  e.  ( LLines `  K ) )
171, 6, 7, 3, 8, 9dalem1 33666 . . . 4  |-  ( ph  ->  ( P  .\/  S
)  =/=  ( Q 
.\/  T ) )
181dalem-clpjq 33644 . . . . . . . 8  |-  ( ph  ->  -.  C  .<_  ( P 
.\/  Q ) )
191, 7, 3dalempjqeb 33652 . . . . . . . . . . 11  |-  ( ph  ->  ( P  .\/  Q
)  e.  ( Base `  K ) )
20 eqid 2454 . . . . . . . . . . . 12  |-  ( Base `  K )  =  (
Base `  K )
21 eqid 2454 . . . . . . . . . . . 12  |-  ( 0.
`  K )  =  ( 0. `  K
)
2220, 6, 21op0le 33194 . . . . . . . . . . 11  |-  ( ( K  e.  OP  /\  ( P  .\/  Q )  e.  ( Base `  K
) )  ->  ( 0. `  K )  .<_  ( P  .\/  Q ) )
232, 19, 22syl2anc 661 . . . . . . . . . 10  |-  ( ph  ->  ( 0. `  K
)  .<_  ( P  .\/  Q ) )
24 breq1 4406 . . . . . . . . . 10  |-  ( C  =  ( 0. `  K )  ->  ( C  .<_  ( P  .\/  Q )  <->  ( 0. `  K )  .<_  ( P 
.\/  Q ) ) )
2523, 24syl5ibrcom 222 . . . . . . . . 9  |-  ( ph  ->  ( C  =  ( 0. `  K )  ->  C  .<_  ( P 
.\/  Q ) ) )
2625necon3bd 2664 . . . . . . . 8  |-  ( ph  ->  ( -.  C  .<_  ( P  .\/  Q )  ->  C  =/=  ( 0. `  K ) ) )
2718, 26mpd 15 . . . . . . 7  |-  ( ph  ->  C  =/=  ( 0.
`  K ) )
28 eqid 2454 . . . . . . . . 9  |-  ( lt
`  K )  =  ( lt `  K
)
2920, 28, 21opltn0 33198 . . . . . . . 8  |-  ( ( K  e.  OP  /\  C  e.  ( Base `  K ) )  -> 
( ( 0. `  K ) ( lt
`  K ) C  <-> 
C  =/=  ( 0.
`  K ) ) )
302, 4, 29syl2anc 661 . . . . . . 7  |-  ( ph  ->  ( ( 0. `  K ) ( lt
`  K ) C  <-> 
C  =/=  ( 0.
`  K ) ) )
3127, 30mpbird 232 . . . . . 6  |-  ( ph  ->  ( 0. `  K
) ( lt `  K ) C )
321dalemclpjs 33641 . . . . . . 7  |-  ( ph  ->  C  .<_  ( P  .\/  S ) )
331dalemclqjt 33642 . . . . . . 7  |-  ( ph  ->  C  .<_  ( Q  .\/  T ) )
341dalemkelat 33631 . . . . . . . 8  |-  ( ph  ->  K  e.  Lat )
351dalempea 33633 . . . . . . . . 9  |-  ( ph  ->  P  e.  A )
361dalemsea 33636 . . . . . . . . 9  |-  ( ph  ->  S  e.  A )
3720, 7, 3hlatjcl 33374 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  P  e.  A  /\  S  e.  A )  ->  ( P  .\/  S
)  e.  ( Base `  K ) )
385, 35, 36, 37syl3anc 1219 . . . . . . . 8  |-  ( ph  ->  ( P  .\/  S
)  e.  ( Base `  K ) )
3920, 7, 3hlatjcl 33374 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  Q  e.  A  /\  T  e.  A )  ->  ( Q  .\/  T
)  e.  ( Base `  K ) )
405, 11, 12, 39syl3anc 1219 . . . . . . . 8  |-  ( ph  ->  ( Q  .\/  T
)  e.  ( Base `  K ) )
41 eqid 2454 . . . . . . . . 9  |-  ( meet `  K )  =  (
meet `  K )
4220, 6, 41latlem12 15371 . . . . . . . 8  |-  ( ( K  e.  Lat  /\  ( C  e.  ( Base `  K )  /\  ( P  .\/  S )  e.  ( Base `  K
)  /\  ( Q  .\/  T )  e.  (
Base `  K )
) )  ->  (
( C  .<_  ( P 
.\/  S )  /\  C  .<_  ( Q  .\/  T ) )  <->  C  .<_  ( ( P  .\/  S
) ( meet `  K
) ( Q  .\/  T ) ) ) )
4334, 4, 38, 40, 42syl13anc 1221 . . . . . . 7  |-  ( ph  ->  ( ( C  .<_  ( P  .\/  S )  /\  C  .<_  ( Q 
.\/  T ) )  <-> 
C  .<_  ( ( P 
.\/  S ) (
meet `  K )
( Q  .\/  T
) ) ) )
4432, 33, 43mpbi2and 912 . . . . . 6  |-  ( ph  ->  C  .<_  ( ( P  .\/  S ) (
meet `  K )
( Q  .\/  T
) ) )
45 opposet 33189 . . . . . . . 8  |-  ( K  e.  OP  ->  K  e.  Poset )
462, 45syl 16 . . . . . . 7  |-  ( ph  ->  K  e.  Poset )
4720, 21op0cl 33192 . . . . . . . 8  |-  ( K  e.  OP  ->  ( 0. `  K )  e.  ( Base `  K
) )
482, 47syl 16 . . . . . . 7  |-  ( ph  ->  ( 0. `  K
)  e.  ( Base `  K ) )
4920, 41latmcl 15345 . . . . . . . 8  |-  ( ( K  e.  Lat  /\  ( P  .\/  S )  e.  ( Base `  K
)  /\  ( Q  .\/  T )  e.  (
Base `  K )
)  ->  ( ( P  .\/  S ) (
meet `  K )
( Q  .\/  T
) )  e.  (
Base `  K )
)
5034, 38, 40, 49syl3anc 1219 . . . . . . 7  |-  ( ph  ->  ( ( P  .\/  S ) ( meet `  K
) ( Q  .\/  T ) )  e.  (
Base `  K )
)
5120, 6, 28pltletr 15264 . . . . . . 7  |-  ( ( K  e.  Poset  /\  (
( 0. `  K
)  e.  ( Base `  K )  /\  C  e.  ( Base `  K
)  /\  ( ( P  .\/  S ) (
meet `  K )
( Q  .\/  T
) )  e.  (
Base `  K )
) )  ->  (
( ( 0. `  K ) ( lt
`  K ) C  /\  C  .<_  ( ( P  .\/  S ) ( meet `  K
) ( Q  .\/  T ) ) )  -> 
( 0. `  K
) ( lt `  K ) ( ( P  .\/  S ) ( meet `  K
) ( Q  .\/  T ) ) ) )
5246, 48, 4, 50, 51syl13anc 1221 . . . . . 6  |-  ( ph  ->  ( ( ( 0.
`  K ) ( lt `  K ) C  /\  C  .<_  ( ( P  .\/  S
) ( meet `  K
) ( Q  .\/  T ) ) )  -> 
( 0. `  K
) ( lt `  K ) ( ( P  .\/  S ) ( meet `  K
) ( Q  .\/  T ) ) ) )
5331, 44, 52mp2and 679 . . . . 5  |-  ( ph  ->  ( 0. `  K
) ( lt `  K ) ( ( P  .\/  S ) ( meet `  K
) ( Q  .\/  T ) ) )
5420, 28, 21opltn0 33198 . . . . . 6  |-  ( ( K  e.  OP  /\  ( ( P  .\/  S ) ( meet `  K
) ( Q  .\/  T ) )  e.  (
Base `  K )
)  ->  ( ( 0. `  K ) ( lt `  K ) ( ( P  .\/  S ) ( meet `  K
) ( Q  .\/  T ) )  <->  ( ( P  .\/  S ) (
meet `  K )
( Q  .\/  T
) )  =/=  ( 0. `  K ) ) )
552, 50, 54syl2anc 661 . . . . 5  |-  ( ph  ->  ( ( 0. `  K ) ( lt
`  K ) ( ( P  .\/  S
) ( meet `  K
) ( Q  .\/  T ) )  <->  ( ( P  .\/  S ) (
meet `  K )
( Q  .\/  T
) )  =/=  ( 0. `  K ) ) )
5653, 55mpbid 210 . . . 4  |-  ( ph  ->  ( ( P  .\/  S ) ( meet `  K
) ( Q  .\/  T ) )  =/=  ( 0. `  K ) )
5741, 21, 3, 142llnmat 33531 . . . 4  |-  ( ( ( K  e.  HL  /\  ( P  .\/  S
)  e.  ( LLines `  K )  /\  ( Q  .\/  T )  e.  ( LLines `  K )
)  /\  ( ( P  .\/  S )  =/=  ( Q  .\/  T
)  /\  ( ( P  .\/  S ) (
meet `  K )
( Q  .\/  T
) )  =/=  ( 0. `  K ) ) )  ->  ( ( P  .\/  S ) (
meet `  K )
( Q  .\/  T
) )  e.  A
)
585, 10, 16, 17, 56, 57syl32anc 1227 . . 3  |-  ( ph  ->  ( ( P  .\/  S ) ( meet `  K
) ( Q  .\/  T ) )  e.  A
)
5920, 6, 21, 3leat2 33302 . . 3  |-  ( ( ( K  e.  OP  /\  C  e.  ( Base `  K )  /\  (
( P  .\/  S
) ( meet `  K
) ( Q  .\/  T ) )  e.  A
)  /\  ( C  =/=  ( 0. `  K
)  /\  C  .<_  ( ( P  .\/  S
) ( meet `  K
) ( Q  .\/  T ) ) ) )  ->  C  =  ( ( P  .\/  S
) ( meet `  K
) ( Q  .\/  T ) ) )
602, 4, 58, 27, 44, 59syl32anc 1227 . 2  |-  ( ph  ->  C  =  ( ( P  .\/  S ) ( meet `  K
) ( Q  .\/  T ) ) )
6160, 58eqeltrd 2542 1  |-  ( ph  ->  C  e.  A )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    /\ w3a 965    = wceq 1370    e. wcel 1758    =/= wne 2648   class class class wbr 4403   ` cfv 5529  (class class class)co 6203   Basecbs 14296   lecple 14368   Posetcpo 15233   ltcplt 15234   joincjn 15237   meetcmee 15238   0.cp0 15330   Latclat 15338   OPcops 33180   Atomscatm 33271   HLchlt 33358   LLinesclln 33498   LPlanesclpl 33499
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-poset 15239  df-plt 15251  df-lub 15267  df-glb 15268  df-join 15269  df-meet 15270  df-p0 15332  df-lat 15339  df-clat 15401  df-oposet 33184  df-ol 33186  df-oml 33187  df-covers 33274  df-ats 33275  df-atl 33306  df-cvlat 33330  df-hlat 33359  df-llines 33505  df-lplanes 33506
This theorem is referenced by:  dalem2  33668  dalem5  33674  dalem-cly  33678  dalem9  33679  dalem19  33689  dalem21  33701  dalem25  33705
  Copyright terms: Public domain W3C validator