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

Theorem lncvrelatN 38021
Description: A lattice element covered by a line is an atom. (Contributed by NM, 28-Apr-2012.) (New usage is discouraged.)
Hypotheses
Ref Expression
lncvrelat.b 𝐵 = (Base‘𝐾)
lncvrelat.c 𝐶 = ( ⋖ ‘𝐾)
lncvrelat.a 𝐴 = (Atoms‘𝐾)
lncvrelat.n 𝑁 = (Lines‘𝐾)
lncvrelat.m 𝑀 = (pmap‘𝐾)
Assertion
Ref Expression
lncvrelatN (((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ ((𝑀𝑋) ∈ 𝑁𝑃𝐶𝑋)) → 𝑃𝐴)

Proof of Theorem lncvrelatN
Dummy variables 𝑟 𝑞 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 hllat 37602 . . . . 5 (𝐾 ∈ HL → 𝐾 ∈ Lat)
213ad2ant1 1132 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) → 𝐾 ∈ Lat)
3 eqid 2736 . . . . 5 (join‘𝐾) = (join‘𝐾)
4 lncvrelat.a . . . . 5 𝐴 = (Atoms‘𝐾)
5 lncvrelat.n . . . . 5 𝑁 = (Lines‘𝐾)
6 lncvrelat.m . . . . 5 𝑀 = (pmap‘𝐾)
73, 4, 5, 6isline2 38014 . . . 4 (𝐾 ∈ Lat → ((𝑀𝑋) ∈ 𝑁 ↔ ∃𝑞𝐴𝑟𝐴 (𝑞𝑟 ∧ (𝑀𝑋) = (𝑀‘(𝑞(join‘𝐾)𝑟)))))
82, 7syl 17 . . 3 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) → ((𝑀𝑋) ∈ 𝑁 ↔ ∃𝑞𝐴𝑟𝐴 (𝑞𝑟 ∧ (𝑀𝑋) = (𝑀‘(𝑞(join‘𝐾)𝑟)))))
9 simpll1 1211 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → 𝐾 ∈ HL)
10 simpll2 1212 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → 𝑋𝐵)
119, 1syl 17 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → 𝐾 ∈ Lat)
12 simplrl 774 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → 𝑞𝐴)
13 lncvrelat.b . . . . . . . . . 10 𝐵 = (Base‘𝐾)
1413, 4atbase 37528 . . . . . . . . 9 (𝑞𝐴𝑞𝐵)
1512, 14syl 17 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → 𝑞𝐵)
16 simplrr 775 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → 𝑟𝐴)
1713, 4atbase 37528 . . . . . . . . 9 (𝑟𝐴𝑟𝐵)
1816, 17syl 17 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → 𝑟𝐵)
1913, 3latjcl 18231 . . . . . . . 8 ((𝐾 ∈ Lat ∧ 𝑞𝐵𝑟𝐵) → (𝑞(join‘𝐾)𝑟) ∈ 𝐵)
2011, 15, 18, 19syl3anc 1370 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → (𝑞(join‘𝐾)𝑟) ∈ 𝐵)
2113, 6pmap11 38002 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋𝐵 ∧ (𝑞(join‘𝐾)𝑟) ∈ 𝐵) → ((𝑀𝑋) = (𝑀‘(𝑞(join‘𝐾)𝑟)) ↔ 𝑋 = (𝑞(join‘𝐾)𝑟)))
229, 10, 20, 21syl3anc 1370 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → ((𝑀𝑋) = (𝑀‘(𝑞(join‘𝐾)𝑟)) ↔ 𝑋 = (𝑞(join‘𝐾)𝑟)))
23 breq2 5090 . . . . . . . 8 (𝑋 = (𝑞(join‘𝐾)𝑟) → (𝑃𝐶𝑋𝑃𝐶(𝑞(join‘𝐾)𝑟)))
2423biimpd 228 . . . . . . 7 (𝑋 = (𝑞(join‘𝐾)𝑟) → (𝑃𝐶𝑋𝑃𝐶(𝑞(join‘𝐾)𝑟)))
259adantr 481 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) ∧ 𝑃𝐶(𝑞(join‘𝐾)𝑟)) → 𝐾 ∈ HL)
26 simpll3 1213 . . . . . . . . . . 11 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → 𝑃𝐵)
2726, 12, 163jca 1127 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → (𝑃𝐵𝑞𝐴𝑟𝐴))
2827adantr 481 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) ∧ 𝑃𝐶(𝑞(join‘𝐾)𝑟)) → (𝑃𝐵𝑞𝐴𝑟𝐴))
29 simplr 766 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) ∧ 𝑃𝐶(𝑞(join‘𝐾)𝑟)) → 𝑞𝑟)
30 simpr 485 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) ∧ 𝑃𝐶(𝑞(join‘𝐾)𝑟)) → 𝑃𝐶(𝑞(join‘𝐾)𝑟))
31 lncvrelat.c . . . . . . . . . 10 𝐶 = ( ⋖ ‘𝐾)
3213, 3, 31, 4cvrat2 37669 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑃𝐵𝑞𝐴𝑟𝐴) ∧ (𝑞𝑟𝑃𝐶(𝑞(join‘𝐾)𝑟))) → 𝑃𝐴)
3325, 28, 29, 30, 32syl112anc 1373 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) ∧ 𝑃𝐶(𝑞(join‘𝐾)𝑟)) → 𝑃𝐴)
3433ex 413 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → (𝑃𝐶(𝑞(join‘𝐾)𝑟) → 𝑃𝐴))
3524, 34syl9r 78 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → (𝑋 = (𝑞(join‘𝐾)𝑟) → (𝑃𝐶𝑋𝑃𝐴)))
3622, 35sylbid 239 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) ∧ 𝑞𝑟) → ((𝑀𝑋) = (𝑀‘(𝑞(join‘𝐾)𝑟)) → (𝑃𝐶𝑋𝑃𝐴)))
3736expimpd 454 . . . 4 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ (𝑞𝐴𝑟𝐴)) → ((𝑞𝑟 ∧ (𝑀𝑋) = (𝑀‘(𝑞(join‘𝐾)𝑟))) → (𝑃𝐶𝑋𝑃𝐴)))
3837rexlimdvva 3201 . . 3 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) → (∃𝑞𝐴𝑟𝐴 (𝑞𝑟 ∧ (𝑀𝑋) = (𝑀‘(𝑞(join‘𝐾)𝑟))) → (𝑃𝐶𝑋𝑃𝐴)))
398, 38sylbid 239 . 2 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) → ((𝑀𝑋) ∈ 𝑁 → (𝑃𝐶𝑋𝑃𝐴)))
4039imp32 419 1 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑃𝐵) ∧ ((𝑀𝑋) ∈ 𝑁𝑃𝐶𝑋)) → 𝑃𝐴)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  w3a 1086   = wceq 1540  wcel 2105  wne 2940  wrex 3070   class class class wbr 5086  cfv 6465  (class class class)co 7316  Basecbs 16986  joincjn 18103  Latclat 18223  ccvr 37501  Atomscatm 37502  HLchlt 37589  Linesclines 37734  pmapcpmap 37737
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-rep 5223  ax-sep 5237  ax-nul 5244  ax-pow 5302  ax-pr 5366  ax-un 7629
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-ral 3062  df-rex 3071  df-reu 3350  df-rab 3404  df-v 3442  df-sbc 3726  df-csb 3842  df-dif 3899  df-un 3901  df-in 3903  df-ss 3913  df-nul 4267  df-if 4471  df-pw 4546  df-sn 4571  df-pr 4573  df-op 4577  df-uni 4850  df-iun 4938  df-br 5087  df-opab 5149  df-mpt 5170  df-id 5506  df-xp 5613  df-rel 5614  df-cnv 5615  df-co 5616  df-dm 5617  df-rn 5618  df-res 5619  df-ima 5620  df-iota 6417  df-fun 6467  df-fn 6468  df-f 6469  df-f1 6470  df-fo 6471  df-f1o 6472  df-fv 6473  df-riota 7273  df-ov 7319  df-oprab 7320  df-proset 18087  df-poset 18105  df-plt 18122  df-lub 18138  df-glb 18139  df-join 18140  df-meet 18141  df-p0 18217  df-lat 18224  df-clat 18291  df-oposet 37415  df-ol 37417  df-oml 37418  df-covers 37505  df-ats 37506  df-atl 37537  df-cvlat 37561  df-hlat 37590  df-lines 37741  df-pmap 37744
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator