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

Theorem hlrelat2 40218
Description: A consequence of relative atomicity. (chrelat2i 32754 analog.) (Contributed by NM, 5-Feb-2012.)
Hypotheses
Ref Expression
hlrelat2.b 𝐵 = (Base‘𝐾)
hlrelat2.l = (le‘𝐾)
hlrelat2.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
hlrelat2 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (¬ 𝑋 𝑌 ↔ ∃𝑝𝐴 (𝑝 𝑋 ∧ ¬ 𝑝 𝑌)))
Distinct variable groups:   𝐴,𝑝   𝐵,𝑝   𝐾,𝑝   ,𝑝   𝑋,𝑝   𝑌,𝑝

Proof of Theorem hlrelat2
StepHypRef Expression
1 hllat 40178 . . . 4 (𝐾 ∈ HL → 𝐾 ∈ Lat)
2 hlrelat2.b . . . . 5 𝐵 = (Base‘𝐾)
3 hlrelat2.l . . . . 5 = (le‘𝐾)
4 eqid 2766 . . . . 5 (lt‘𝐾) = (lt‘𝐾)
5 eqid 2766 . . . . 5 (meet‘𝐾) = (meet‘𝐾)
62, 3, 4, 5latnlemlt 18553 . . . 4 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑌𝐵) → (¬ 𝑋 𝑌 ↔ (𝑋(meet‘𝐾)𝑌)(lt‘𝐾)𝑋))
71, 6syl3an1 1181 . . 3 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (¬ 𝑋 𝑌 ↔ (𝑋(meet‘𝐾)𝑌)(lt‘𝐾)𝑋))
8 simp1 1154 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → 𝐾 ∈ HL)
92, 5latmcl 18521 . . . . . 6 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑌𝐵) → (𝑋(meet‘𝐾)𝑌) ∈ 𝐵)
101, 9syl3an1 1181 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (𝑋(meet‘𝐾)𝑌) ∈ 𝐵)
11 simp2 1155 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → 𝑋𝐵)
12 eqid 2766 . . . . . . 7 (join‘𝐾) = (join‘𝐾)
13 hlrelat2.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
142, 3, 4, 12, 13hlrelat 40217 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋(meet‘𝐾)𝑌) ∈ 𝐵𝑋𝐵) ∧ (𝑋(meet‘𝐾)𝑌)(lt‘𝐾)𝑋) → ∃𝑝𝐴 ((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) ∧ ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋))
1514ex 418 . . . . 5 ((𝐾 ∈ HL ∧ (𝑋(meet‘𝐾)𝑌) ∈ 𝐵𝑋𝐵) → ((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)𝑋 → ∃𝑝𝐴 ((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) ∧ ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋)))
168, 10, 11, 15syl3anc 1398 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → ((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)𝑋 → ∃𝑝𝐴 ((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) ∧ ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋)))
17 simpl1 1210 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝐾 ∈ HL)
1817hllatd 40179 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝐾 ∈ Lat)
1910adantr 486 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (𝑋(meet‘𝐾)𝑌) ∈ 𝐵)
202, 13atbase 40104 . . . . . . . . . 10 (𝑝𝐴𝑝𝐵)
2120adantl 487 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝑝𝐵)
22 simpl2 1211 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝑋𝐵)
232, 3, 12latjle12 18531 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ ((𝑋(meet‘𝐾)𝑌) ∈ 𝐵𝑝𝐵𝑋𝐵)) → (((𝑋(meet‘𝐾)𝑌) 𝑋𝑝 𝑋) ↔ ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋))
2418, 19, 21, 22, 23syl13anc 1399 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (((𝑋(meet‘𝐾)𝑌) 𝑋𝑝 𝑋) ↔ ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋))
25 simpr 490 . . . . . . . 8 (((𝑋(meet‘𝐾)𝑌) 𝑋𝑝 𝑋) → 𝑝 𝑋)
2624, 25biimtrrdi 257 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋𝑝 𝑋))
2726adantld 496 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) ∧ ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋) → 𝑝 𝑋))
28 simpl3 1212 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → 𝑌𝐵)
292, 3, 5latlem12 18547 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ (𝑝𝐵𝑋𝐵𝑌𝐵)) → ((𝑝 𝑋𝑝 𝑌) ↔ 𝑝 (𝑋(meet‘𝐾)𝑌)))
3018, 21, 22, 28, 29syl13anc 1399 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → ((𝑝 𝑋𝑝 𝑌) ↔ 𝑝 (𝑋(meet‘𝐾)𝑌)))
3130notbid 321 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (¬ (𝑝 𝑋𝑝 𝑌) ↔ ¬ 𝑝 (𝑋(meet‘𝐾)𝑌)))
322, 3, 4, 12latnle 18554 . . . . . . . . . 10 ((𝐾 ∈ Lat ∧ (𝑋(meet‘𝐾)𝑌) ∈ 𝐵𝑝𝐵) → (¬ 𝑝 (𝑋(meet‘𝐾)𝑌) ↔ (𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝)))
3318, 19, 21, 32syl3anc 1398 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (¬ 𝑝 (𝑋(meet‘𝐾)𝑌) ↔ (𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝)))
3431, 33bitrd 282 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (¬ (𝑝 𝑋𝑝 𝑌) ↔ (𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝)))
3534, 24anbi12d 644 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → ((¬ (𝑝 𝑋𝑝 𝑌) ∧ ((𝑋(meet‘𝐾)𝑌) 𝑋𝑝 𝑋)) ↔ ((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) ∧ ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋)))
36 pm3.21 477 . . . . . . . . . 10 (𝑝 𝑌 → (𝑝 𝑋 → (𝑝 𝑋𝑝 𝑌)))
37 orcom 884 . . . . . . . . . . 11 (((𝑝 𝑋𝑝 𝑌) ∨ ¬ 𝑝 𝑋) ↔ (¬ 𝑝 𝑋 ∨ (𝑝 𝑋𝑝 𝑌)))
38 pm4.55 1003 . . . . . . . . . . 11 (¬ (¬ (𝑝 𝑋𝑝 𝑌) ∧ 𝑝 𝑋) ↔ ((𝑝 𝑋𝑝 𝑌) ∨ ¬ 𝑝 𝑋))
39 imor 867 . . . . . . . . . . 11 ((𝑝 𝑋 → (𝑝 𝑋𝑝 𝑌)) ↔ (¬ 𝑝 𝑋 ∨ (𝑝 𝑋𝑝 𝑌)))
4037, 38, 393bitr4ri 307 . . . . . . . . . 10 ((𝑝 𝑋 → (𝑝 𝑋𝑝 𝑌)) ↔ ¬ (¬ (𝑝 𝑋𝑝 𝑌) ∧ 𝑝 𝑋))
4136, 40sylib 221 . . . . . . . . 9 (𝑝 𝑌 → ¬ (¬ (𝑝 𝑋𝑝 𝑌) ∧ 𝑝 𝑋))
4241con2i 140 . . . . . . . 8 ((¬ (𝑝 𝑋𝑝 𝑌) ∧ 𝑝 𝑋) → ¬ 𝑝 𝑌)
4342adantrl 729 . . . . . . 7 ((¬ (𝑝 𝑋𝑝 𝑌) ∧ ((𝑋(meet‘𝐾)𝑌) 𝑋𝑝 𝑋)) → ¬ 𝑝 𝑌)
4435, 43biimtrrdi 257 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) ∧ ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋) → ¬ 𝑝 𝑌))
4527, 44jcad 522 . . . . 5 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → (((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) ∧ ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋) → (𝑝 𝑋 ∧ ¬ 𝑝 𝑌)))
4645reximdva 3181 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (∃𝑝𝐴 ((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) ∧ ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)𝑝) 𝑋) → ∃𝑝𝐴 (𝑝 𝑋 ∧ ¬ 𝑝 𝑌)))
4716, 46syld 48 . . 3 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → ((𝑋(meet‘𝐾)𝑌)(lt‘𝐾)𝑋 → ∃𝑝𝐴 (𝑝 𝑋 ∧ ¬ 𝑝 𝑌)))
487, 47sylbid 243 . 2 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (¬ 𝑋 𝑌 → ∃𝑝𝐴 (𝑝 𝑋 ∧ ¬ 𝑝 𝑌)))
492, 3lattr 18525 . . . . . . . . 9 ((𝐾 ∈ Lat ∧ (𝑝𝐵𝑋𝐵𝑌𝐵)) → ((𝑝 𝑋𝑋 𝑌) → 𝑝 𝑌))
5018, 21, 22, 28, 49syl13anc 1399 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) ∧ 𝑝𝐴) → ((𝑝 𝑋𝑋 𝑌) → 𝑝 𝑌))
5150exp4b 436 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (𝑝𝐴 → (𝑝 𝑋 → (𝑋 𝑌𝑝 𝑌))))
5251com34 92 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (𝑝𝐴 → (𝑋 𝑌 → (𝑝 𝑋𝑝 𝑌))))
5352com23 87 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (𝑋 𝑌 → (𝑝𝐴 → (𝑝 𝑋𝑝 𝑌))))
5453ralrimdv 3166 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (𝑋 𝑌 → ∀𝑝𝐴 (𝑝 𝑋𝑝 𝑌)))
55 iman 407 . . . . . 6 ((𝑝 𝑋𝑝 𝑌) ↔ ¬ (𝑝 𝑋 ∧ ¬ 𝑝 𝑌))
5655ralbii 3114 . . . . 5 (∀𝑝𝐴 (𝑝 𝑋𝑝 𝑌) ↔ ∀𝑝𝐴 ¬ (𝑝 𝑋 ∧ ¬ 𝑝 𝑌))
57 ralnex 3094 . . . . 5 (∀𝑝𝐴 ¬ (𝑝 𝑋 ∧ ¬ 𝑝 𝑌) ↔ ¬ ∃𝑝𝐴 (𝑝 𝑋 ∧ ¬ 𝑝 𝑌))
5856, 57bitri 278 . . . 4 (∀𝑝𝐴 (𝑝 𝑋𝑝 𝑌) ↔ ¬ ∃𝑝𝐴 (𝑝 𝑋 ∧ ¬ 𝑝 𝑌))
5954, 58imbitrdi 254 . . 3 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (𝑋 𝑌 → ¬ ∃𝑝𝐴 (𝑝 𝑋 ∧ ¬ 𝑝 𝑌)))
6059con2d 135 . 2 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (∃𝑝𝐴 (𝑝 𝑋 ∧ ¬ 𝑝 𝑌) → ¬ 𝑋 𝑌))
6148, 60impbid 215 1 ((𝐾 ∈ HL ∧ 𝑋𝐵𝑌𝐵) → (¬ 𝑋 𝑌 ↔ ∃𝑝𝐴 (𝑝 𝑋 ∧ ¬ 𝑝 𝑌)))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  wo 861  w3a 1103   = wceq 1570  wcel 2146  wral 3082  wrex 3092   class class class wbr 5114  cfv 6543  (class class class)co 7423  Basecbs 17294  lecple 17342  ltcplt 18389  joincjn 18392  meetcmee 18393  Latclat 18512  Atomscatm 40078  HLchlt 40165
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-id 5561  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-proset 18375  df-poset 18394  df-plt 18409  df-lub 18425  df-glb 18426  df-join 18427  df-meet 18428  df-p0 18504  df-lat 18513  df-clat 18580  df-oposet 39991  df-ol 39993  df-oml 39994  df-covers 40081  df-ats 40082  df-atl 40113  df-cvlat 40137  df-hlat 40166
This theorem is used by:  lhpj1  40837
  Copyright terms: Public domain W3C validator