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

Theorem 2atlt 37015
 Description: Given an atom less than an element, there is another atom less than the element. (Contributed by NM, 6-May-2012.)
Hypotheses
Ref Expression
2atomslt.b 𝐵 = (Base‘𝐾)
2atomslt.s < = (lt‘𝐾)
2atomslt.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
2atlt (((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) → ∃𝑞𝐴 (𝑞𝑃𝑞 < 𝑋))
Distinct variable groups:   𝐴,𝑞   𝐵,𝑞   𝐾,𝑞   𝑃,𝑞   < ,𝑞   𝑋,𝑞

Proof of Theorem 2atlt
StepHypRef Expression
1 2atomslt.b . . . 4 𝐵 = (Base‘𝐾)
2 2atomslt.a . . . 4 𝐴 = (Atoms‘𝐾)
31, 2atbase 36865 . . 3 (𝑃𝐴𝑃𝐵)
4 eqid 2758 . . . 4 (le‘𝐾) = (le‘𝐾)
5 2atomslt.s . . . 4 < = (lt‘𝐾)
6 eqid 2758 . . . 4 (join‘𝐾) = (join‘𝐾)
71, 4, 5, 6, 2hlrelat 36978 . . 3 (((𝐾 ∈ HL ∧ 𝑃𝐵𝑋𝐵) ∧ 𝑃 < 𝑋) → ∃𝑞𝐴 (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋))
83, 7syl3anl2 1410 . 2 (((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) → ∃𝑞𝐴 (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋))
9 simp3l 1198 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑃 < (𝑃(join‘𝐾)𝑞))
10 simp1l1 1263 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝐾 ∈ HL)
11 simp1l2 1264 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑃𝐴)
12 simp2 1134 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑞𝐴)
13 eqid 2758 . . . . . . . . . 10 ( ⋖ ‘𝐾) = ( ⋖ ‘𝐾)
145, 6, 2, 13atltcvr 37011 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑃𝐴𝑃𝐴𝑞𝐴)) → (𝑃 < (𝑃(join‘𝐾)𝑞) ↔ 𝑃( ⋖ ‘𝐾)(𝑃(join‘𝐾)𝑞)))
1510, 11, 11, 12, 14syl13anc 1369 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → (𝑃 < (𝑃(join‘𝐾)𝑞) ↔ 𝑃( ⋖ ‘𝐾)(𝑃(join‘𝐾)𝑞)))
169, 15mpbid 235 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑃( ⋖ ‘𝐾)(𝑃(join‘𝐾)𝑞))
176, 13, 2atcvr1 36993 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑞𝐴) → (𝑃𝑞𝑃( ⋖ ‘𝐾)(𝑃(join‘𝐾)𝑞)))
1810, 11, 12, 17syl3anc 1368 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → (𝑃𝑞𝑃( ⋖ ‘𝐾)(𝑃(join‘𝐾)𝑞)))
1916, 18mpbird 260 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑃𝑞)
2019necomd 3006 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑞𝑃)
215, 6, 2atlt 37013 . . . . . . . . 9 ((𝐾 ∈ HL ∧ 𝑞𝐴𝑃𝐴) → (𝑞 < (𝑞(join‘𝐾)𝑃) ↔ 𝑞𝑃))
2210, 12, 11, 21syl3anc 1368 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → (𝑞 < (𝑞(join‘𝐾)𝑃) ↔ 𝑞𝑃))
2320, 22mpbird 260 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑞 < (𝑞(join‘𝐾)𝑃))
2410hllatd 36940 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝐾 ∈ Lat)
2511, 3syl 17 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑃𝐵)
261, 2atbase 36865 . . . . . . . . 9 (𝑞𝐴𝑞𝐵)
27263ad2ant2 1131 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑞𝐵)
281, 6latjcom 17735 . . . . . . . 8 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑞𝐵) → (𝑃(join‘𝐾)𝑞) = (𝑞(join‘𝐾)𝑃))
2924, 25, 27, 28syl3anc 1368 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → (𝑃(join‘𝐾)𝑞) = (𝑞(join‘𝐾)𝑃))
3023, 29breqtrrd 5060 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑞 < (𝑃(join‘𝐾)𝑞))
31 simp3r 1199 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)
32 hlpos 36942 . . . . . . . 8 (𝐾 ∈ HL → 𝐾 ∈ Poset)
3310, 32syl 17 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝐾 ∈ Poset)
341, 6latjcl 17727 . . . . . . . 8 ((𝐾 ∈ Lat ∧ 𝑃𝐵𝑞𝐵) → (𝑃(join‘𝐾)𝑞) ∈ 𝐵)
3524, 25, 27, 34syl3anc 1368 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → (𝑃(join‘𝐾)𝑞) ∈ 𝐵)
36 simp1l3 1265 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑋𝐵)
371, 4, 5pltletr 17647 . . . . . . 7 ((𝐾 ∈ Poset ∧ (𝑞𝐵 ∧ (𝑃(join‘𝐾)𝑞) ∈ 𝐵𝑋𝐵)) → ((𝑞 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑞 < 𝑋))
3833, 27, 35, 36, 37syl13anc 1369 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → ((𝑞 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋) → 𝑞 < 𝑋))
3930, 31, 38mp2and 698 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → 𝑞 < 𝑋)
4020, 39jca 515 . . . 4 ((((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) ∧ 𝑞𝐴 ∧ (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋)) → (𝑞𝑃𝑞 < 𝑋))
41403exp 1116 . . 3 (((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) → (𝑞𝐴 → ((𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋) → (𝑞𝑃𝑞 < 𝑋))))
4241reximdvai 3196 . 2 (((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) → (∃𝑞𝐴 (𝑃 < (𝑃(join‘𝐾)𝑞) ∧ (𝑃(join‘𝐾)𝑞)(le‘𝐾)𝑋) → ∃𝑞𝐴 (𝑞𝑃𝑞 < 𝑋)))
438, 42mpd 15 1 (((𝐾 ∈ HL ∧ 𝑃𝐴𝑋𝐵) ∧ 𝑃 < 𝑋) → ∃𝑞𝐴 (𝑞𝑃𝑞 < 𝑋))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111   ≠ wne 2951  ∃wrex 3071   class class class wbr 5032  ‘cfv 6335  (class class class)co 7150  Basecbs 16541  lecple 16630  Posetcpo 17616  ltcplt 17617  joincjn 17620  Latclat 17721   ⋖ ccvr 36838  Atomscatm 36839  HLchlt 36926 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2729  ax-rep 5156  ax-sep 5169  ax-nul 5176  ax-pow 5234  ax-pr 5298  ax-un 7459 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2557  df-eu 2588  df-clab 2736  df-cleq 2750  df-clel 2830  df-nfc 2901  df-ne 2952  df-ral 3075  df-rex 3076  df-reu 3077  df-rab 3079  df-v 3411  df-sbc 3697  df-csb 3806  df-dif 3861  df-un 3863  df-in 3865  df-ss 3875  df-nul 4226  df-if 4421  df-pw 4496  df-sn 4523  df-pr 4525  df-op 4529  df-uni 4799  df-iun 4885  df-br 5033  df-opab 5095  df-mpt 5113  df-id 5430  df-xp 5530  df-rel 5531  df-cnv 5532  df-co 5533  df-dm 5534  df-rn 5535  df-res 5536  df-ima 5537  df-iota 6294  df-fun 6337  df-fn 6338  df-f 6339  df-f1 6340  df-fo 6341  df-f1o 6342  df-fv 6343  df-riota 7108  df-ov 7153  df-oprab 7154  df-proset 17604  df-poset 17622  df-plt 17634  df-lub 17650  df-glb 17651  df-join 17652  df-meet 17653  df-p0 17715  df-lat 17722  df-clat 17784  df-oposet 36752  df-ol 36754  df-oml 36755  df-covers 36842  df-ats 36843  df-atl 36874  df-cvlat 36898  df-hlat 36927 This theorem is referenced by:  cdlemb  37370  lhpexle1  37584
 Copyright terms: Public domain W3C validator