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

Theorem isatl 39281
Description: The predicate "is an atomic lattice." Every nonzero element is less than or equal to an atom. (Contributed by NM, 18-Sep-2011.) (Revised by NM, 14-Sep-2018.)
Hypotheses
Ref Expression
isatlat.b 𝐵 = (Base‘𝐾)
isatlat.g 𝐺 = (glb‘𝐾)
isatlat.l = (le‘𝐾)
isatlat.z 0 = (0.‘𝐾)
isatlat.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
isatl (𝐾 ∈ AtLat ↔ (𝐾 ∈ Lat ∧ 𝐵 ∈ dom 𝐺 ∧ ∀𝑥𝐵 (𝑥0 → ∃𝑦𝐴 𝑦 𝑥)))
Distinct variable groups:   𝑦,𝐴   𝑥,𝐵   𝑥,𝑦,𝐾
Allowed substitution hints:   𝐴(𝑥)   𝐵(𝑦)   𝐺(𝑥,𝑦)   (𝑥,𝑦)   0 (𝑥,𝑦)

Proof of Theorem isatl
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 fveq2 6907 . . . . . 6 (𝑘 = 𝐾 → (Base‘𝑘) = (Base‘𝐾))
2 isatlat.b . . . . . 6 𝐵 = (Base‘𝐾)
31, 2eqtr4di 2793 . . . . 5 (𝑘 = 𝐾 → (Base‘𝑘) = 𝐵)
4 fveq2 6907 . . . . . . 7 (𝑘 = 𝐾 → (glb‘𝑘) = (glb‘𝐾))
5 isatlat.g . . . . . . 7 𝐺 = (glb‘𝐾)
64, 5eqtr4di 2793 . . . . . 6 (𝑘 = 𝐾 → (glb‘𝑘) = 𝐺)
76dmeqd 5919 . . . . 5 (𝑘 = 𝐾 → dom (glb‘𝑘) = dom 𝐺)
83, 7eleq12d 2833 . . . 4 (𝑘 = 𝐾 → ((Base‘𝑘) ∈ dom (glb‘𝑘) ↔ 𝐵 ∈ dom 𝐺))
9 fveq2 6907 . . . . . . . 8 (𝑘 = 𝐾 → (0.‘𝑘) = (0.‘𝐾))
10 isatlat.z . . . . . . . 8 0 = (0.‘𝐾)
119, 10eqtr4di 2793 . . . . . . 7 (𝑘 = 𝐾 → (0.‘𝑘) = 0 )
1211neeq2d 2999 . . . . . 6 (𝑘 = 𝐾 → (𝑥 ≠ (0.‘𝑘) ↔ 𝑥0 ))
13 fveq2 6907 . . . . . . . 8 (𝑘 = 𝐾 → (Atoms‘𝑘) = (Atoms‘𝐾))
14 isatlat.a . . . . . . . 8 𝐴 = (Atoms‘𝐾)
1513, 14eqtr4di 2793 . . . . . . 7 (𝑘 = 𝐾 → (Atoms‘𝑘) = 𝐴)
16 fveq2 6907 . . . . . . . . 9 (𝑘 = 𝐾 → (le‘𝑘) = (le‘𝐾))
17 isatlat.l . . . . . . . . 9 = (le‘𝐾)
1816, 17eqtr4di 2793 . . . . . . . 8 (𝑘 = 𝐾 → (le‘𝑘) = )
1918breqd 5159 . . . . . . 7 (𝑘 = 𝐾 → (𝑦(le‘𝑘)𝑥𝑦 𝑥))
2015, 19rexeqbidv 3345 . . . . . 6 (𝑘 = 𝐾 → (∃𝑦 ∈ (Atoms‘𝑘)𝑦(le‘𝑘)𝑥 ↔ ∃𝑦𝐴 𝑦 𝑥))
2112, 20imbi12d 344 . . . . 5 (𝑘 = 𝐾 → ((𝑥 ≠ (0.‘𝑘) → ∃𝑦 ∈ (Atoms‘𝑘)𝑦(le‘𝑘)𝑥) ↔ (𝑥0 → ∃𝑦𝐴 𝑦 𝑥)))
223, 21raleqbidv 3344 . . . 4 (𝑘 = 𝐾 → (∀𝑥 ∈ (Base‘𝑘)(𝑥 ≠ (0.‘𝑘) → ∃𝑦 ∈ (Atoms‘𝑘)𝑦(le‘𝑘)𝑥) ↔ ∀𝑥𝐵 (𝑥0 → ∃𝑦𝐴 𝑦 𝑥)))
238, 22anbi12d 632 . . 3 (𝑘 = 𝐾 → (((Base‘𝑘) ∈ dom (glb‘𝑘) ∧ ∀𝑥 ∈ (Base‘𝑘)(𝑥 ≠ (0.‘𝑘) → ∃𝑦 ∈ (Atoms‘𝑘)𝑦(le‘𝑘)𝑥)) ↔ (𝐵 ∈ dom 𝐺 ∧ ∀𝑥𝐵 (𝑥0 → ∃𝑦𝐴 𝑦 𝑥))))
24 df-atl 39280 . . 3 AtLat = {𝑘 ∈ Lat ∣ ((Base‘𝑘) ∈ dom (glb‘𝑘) ∧ ∀𝑥 ∈ (Base‘𝑘)(𝑥 ≠ (0.‘𝑘) → ∃𝑦 ∈ (Atoms‘𝑘)𝑦(le‘𝑘)𝑥))}
2523, 24elrab2 3698 . 2 (𝐾 ∈ AtLat ↔ (𝐾 ∈ Lat ∧ (𝐵 ∈ dom 𝐺 ∧ ∀𝑥𝐵 (𝑥0 → ∃𝑦𝐴 𝑦 𝑥))))
26 3anass 1094 . 2 ((𝐾 ∈ Lat ∧ 𝐵 ∈ dom 𝐺 ∧ ∀𝑥𝐵 (𝑥0 → ∃𝑦𝐴 𝑦 𝑥)) ↔ (𝐾 ∈ Lat ∧ (𝐵 ∈ dom 𝐺 ∧ ∀𝑥𝐵 (𝑥0 → ∃𝑦𝐴 𝑦 𝑥))))
2725, 26bitr4i 278 1 (𝐾 ∈ AtLat ↔ (𝐾 ∈ Lat ∧ 𝐵 ∈ dom 𝐺 ∧ ∀𝑥𝐵 (𝑥0 → ∃𝑦𝐴 𝑦 𝑥)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1086   = wceq 1537  wcel 2106  wne 2938  wral 3059  wrex 3068   class class class wbr 5148  dom cdm 5689  cfv 6563  Basecbs 17245  lecple 17305  glbcglb 18368  0.cp0 18481  Latclat 18489  Atomscatm 39245  AtLatcal 39246
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-ext 2706
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-sb 2063  df-clab 2713  df-cleq 2727  df-clel 2814  df-ne 2939  df-ral 3060  df-rex 3069  df-rab 3434  df-v 3480  df-dif 3966  df-un 3968  df-ss 3980  df-nul 4340  df-if 4532  df-sn 4632  df-pr 4634  df-op 4638  df-uni 4913  df-br 5149  df-dm 5699  df-iota 6516  df-fv 6571  df-atl 39280
This theorem is referenced by:  atllat  39282  atl0dm  39284  atlex  39298
  Copyright terms: Public domain W3C validator