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

Theorem iscvlat 38687
Description: The predicate "is an atomic lattice with the covering (or exchange) property". (Contributed by NM, 5-Nov-2012.)
Hypotheses
Ref Expression
iscvlat.b 𝐵 = (Base‘𝐾)
iscvlat.l = (le‘𝐾)
iscvlat.j = (join‘𝐾)
iscvlat.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
iscvlat (𝐾 ∈ CvLat ↔ (𝐾 ∈ AtLat ∧ ∀𝑝𝐴𝑞𝐴𝑥𝐵 ((¬ 𝑝 𝑥𝑝 (𝑥 𝑞)) → 𝑞 (𝑥 𝑝))))
Distinct variable groups:   𝑞,𝑝,𝐴   𝑥,𝐵   𝑥,𝑝,𝐾,𝑞
Allowed substitution hints:   𝐴(𝑥)   𝐵(𝑞,𝑝)   (𝑥,𝑞,𝑝)   (𝑥,𝑞,𝑝)

Proof of Theorem iscvlat
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 fveq2 6882 . . . 4 (𝑘 = 𝐾 → (Atoms‘𝑘) = (Atoms‘𝐾))
2 iscvlat.a . . . 4 𝐴 = (Atoms‘𝐾)
31, 2eqtr4di 2782 . . 3 (𝑘 = 𝐾 → (Atoms‘𝑘) = 𝐴)
4 fveq2 6882 . . . . . 6 (𝑘 = 𝐾 → (Base‘𝑘) = (Base‘𝐾))
5 iscvlat.b . . . . . 6 𝐵 = (Base‘𝐾)
64, 5eqtr4di 2782 . . . . 5 (𝑘 = 𝐾 → (Base‘𝑘) = 𝐵)
7 fveq2 6882 . . . . . . . . . 10 (𝑘 = 𝐾 → (le‘𝑘) = (le‘𝐾))
8 iscvlat.l . . . . . . . . . 10 = (le‘𝐾)
97, 8eqtr4di 2782 . . . . . . . . 9 (𝑘 = 𝐾 → (le‘𝑘) = )
109breqd 5150 . . . . . . . 8 (𝑘 = 𝐾 → (𝑝(le‘𝑘)𝑥𝑝 𝑥))
1110notbid 318 . . . . . . 7 (𝑘 = 𝐾 → (¬ 𝑝(le‘𝑘)𝑥 ↔ ¬ 𝑝 𝑥))
12 eqidd 2725 . . . . . . . 8 (𝑘 = 𝐾𝑝 = 𝑝)
13 fveq2 6882 . . . . . . . . . 10 (𝑘 = 𝐾 → (join‘𝑘) = (join‘𝐾))
14 iscvlat.j . . . . . . . . . 10 = (join‘𝐾)
1513, 14eqtr4di 2782 . . . . . . . . 9 (𝑘 = 𝐾 → (join‘𝑘) = )
1615oveqd 7419 . . . . . . . 8 (𝑘 = 𝐾 → (𝑥(join‘𝑘)𝑞) = (𝑥 𝑞))
1712, 9, 16breq123d 5153 . . . . . . 7 (𝑘 = 𝐾 → (𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞) ↔ 𝑝 (𝑥 𝑞)))
1811, 17anbi12d 630 . . . . . 6 (𝑘 = 𝐾 → ((¬ 𝑝(le‘𝑘)𝑥𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) ↔ (¬ 𝑝 𝑥𝑝 (𝑥 𝑞))))
19 eqidd 2725 . . . . . . 7 (𝑘 = 𝐾𝑞 = 𝑞)
2015oveqd 7419 . . . . . . 7 (𝑘 = 𝐾 → (𝑥(join‘𝑘)𝑝) = (𝑥 𝑝))
2119, 9, 20breq123d 5153 . . . . . 6 (𝑘 = 𝐾 → (𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝) ↔ 𝑞 (𝑥 𝑝)))
2218, 21imbi12d 344 . . . . 5 (𝑘 = 𝐾 → (((¬ 𝑝(le‘𝑘)𝑥𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) → 𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝)) ↔ ((¬ 𝑝 𝑥𝑝 (𝑥 𝑞)) → 𝑞 (𝑥 𝑝))))
236, 22raleqbidv 3334 . . . 4 (𝑘 = 𝐾 → (∀𝑥 ∈ (Base‘𝑘)((¬ 𝑝(le‘𝑘)𝑥𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) → 𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝)) ↔ ∀𝑥𝐵 ((¬ 𝑝 𝑥𝑝 (𝑥 𝑞)) → 𝑞 (𝑥 𝑝))))
243, 23raleqbidv 3334 . . 3 (𝑘 = 𝐾 → (∀𝑞 ∈ (Atoms‘𝑘)∀𝑥 ∈ (Base‘𝑘)((¬ 𝑝(le‘𝑘)𝑥𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) → 𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝)) ↔ ∀𝑞𝐴𝑥𝐵 ((¬ 𝑝 𝑥𝑝 (𝑥 𝑞)) → 𝑞 (𝑥 𝑝))))
253, 24raleqbidv 3334 . 2 (𝑘 = 𝐾 → (∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)∀𝑥 ∈ (Base‘𝑘)((¬ 𝑝(le‘𝑘)𝑥𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) → 𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝)) ↔ ∀𝑝𝐴𝑞𝐴𝑥𝐵 ((¬ 𝑝 𝑥𝑝 (𝑥 𝑞)) → 𝑞 (𝑥 𝑝))))
26 df-cvlat 38686 . 2 CvLat = {𝑘 ∈ AtLat ∣ ∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)∀𝑥 ∈ (Base‘𝑘)((¬ 𝑝(le‘𝑘)𝑥𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) → 𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝))}
2725, 26elrab2 3679 1 (𝐾 ∈ CvLat ↔ (𝐾 ∈ AtLat ∧ ∀𝑝𝐴𝑞𝐴𝑥𝐵 ((¬ 𝑝 𝑥𝑝 (𝑥 𝑞)) → 𝑞 (𝑥 𝑝))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 395   = wceq 1533  wcel 2098  wral 3053   class class class wbr 5139  cfv 6534  (class class class)co 7402  Basecbs 17145  lecple 17205  joincjn 18268  Atomscatm 38627  AtLatcal 38628  CvLatclc 38629
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-ext 2695
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-sb 2060  df-clab 2702  df-cleq 2716  df-clel 2802  df-ral 3054  df-rab 3425  df-v 3468  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-nul 4316  df-if 4522  df-sn 4622  df-pr 4624  df-op 4628  df-uni 4901  df-br 5140  df-iota 6486  df-fv 6542  df-ov 7405  df-cvlat 38686
This theorem is referenced by:  iscvlat2N  38688  cvlatl  38689  cvlexch1  38692  ishlat2  38717
  Copyright terms: Public domain W3C validator