Theorem isatl 40073

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.

Step	Hyp	Ref	Expression
1		fveq2 6881	. . . . . 6 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = (Base‘𝐾))
2		isatlat.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
3	1, 2	eqtr4di 2816	. . . . 5 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = 𝐵)
4		fveq2 6881	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (glb‘𝑘) = (glb‘𝐾))
5		isatlat.g	. . . . . . 7 ⊢ 𝐺 = (glb‘𝐾)
6	4, 5	eqtr4di 2816	. . . . . 6 ⊢ (𝑘 = 𝐾 → (glb‘𝑘) = 𝐺)
7	6	dmeqd 5895	. . . . 5 ⊢ (𝑘 = 𝐾 → dom (glb‘𝑘) = dom 𝐺)
8	3, 7	eleq12d 2857	. . . 4 ⊢ (𝑘 = 𝐾 → ((Base‘𝑘) ∈ dom (glb‘𝑘) ↔ 𝐵 ∈ dom 𝐺))
9		fveq2 6881	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (0.‘𝑘) = (0.‘𝐾))
10		isatlat.z	. . . . . . . 8 ⊢ 0 = (0.‘𝐾)
11	9, 10	eqtr4di 2816	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (0.‘𝑘) = 0 )
12	11	neeq2d 3018	. . . . . 6 ⊢ (𝑘 = 𝐾 → (𝑥 ≠ (0.‘𝑘) ↔ 𝑥 ≠ 0 ))
13		fveq2 6881	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = (Atoms‘𝐾))
14		isatlat.a	. . . . . . . 8 ⊢ 𝐴 = (Atoms‘𝐾)
15	13, 14	eqtr4di 2816	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = 𝐴)
16		fveq2 6881	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = (le‘𝐾))
17		isatlat.l	. . . . . . . . 9 ⊢ ≤ = (le‘𝐾)
18	16, 17	eqtr4di 2816	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = ≤ )
19	18	breqd 5120	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (𝑦(le‘𝑘)𝑥 ↔ 𝑦 ≤ 𝑥))
20	15, 19	rexeqbidv 3339	. . . . . 6 ⊢ (𝑘 = 𝐾 → (∃𝑦 ∈ (Atoms‘𝑘)𝑦(le‘𝑘)𝑥 ↔ ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥))
21	12, 20	imbi12d 347	. . . . 5 ⊢ (𝑘 = 𝐾 → ((𝑥 ≠ (0.‘𝑘) → ∃𝑦 ∈ (Atoms‘𝑘)𝑦(le‘𝑘)𝑥) ↔ (𝑥 ≠ 0 → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)))
22	3, 21	raleqbidv 3338	. . . 4 ⊢ (𝑘 = 𝐾 → (∀𝑥 ∈ (Base‘𝑘)(𝑥 ≠ (0.‘𝑘) → ∃𝑦 ∈ (Atoms‘𝑘)𝑦(le‘𝑘)𝑥) ↔ ∀𝑥 ∈ 𝐵 (𝑥 ≠ 0 → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)))
23	8, 22	anbi12d 643	. . 3 ⊢ (𝑘 = 𝐾 → (((Base‘𝑘) ∈ dom (glb‘𝑘) ∧ ∀𝑥 ∈ (Base‘𝑘)(𝑥 ≠ (0.‘𝑘) → ∃𝑦 ∈ (Atoms‘𝑘)𝑦(le‘𝑘)𝑥)) ↔ (𝐵 ∈ dom 𝐺 ∧ ∀𝑥 ∈ 𝐵 (𝑥 ≠ 0 → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥))))
24		df-atl 40072	. . 3 ⊢ AtLat = {𝑘 ∈ Lat ∣ ((Base‘𝑘) ∈ dom (glb‘𝑘) ∧ ∀𝑥 ∈ (Base‘𝑘)(𝑥 ≠ (0.‘𝑘) → ∃𝑦 ∈ (Atoms‘𝑘)𝑦(le‘𝑘)𝑥))}
25	23, 24	elrab2 3654	. 2 ⊢ (𝐾 ∈ AtLat ↔ (𝐾 ∈ Lat ∧ (𝐵 ∈ dom 𝐺 ∧ ∀𝑥 ∈ 𝐵 (𝑥 ≠ 0 → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥))))
26		3anass 1111	. 2 ⊢ ((𝐾 ∈ Lat ∧ 𝐵 ∈ dom 𝐺 ∧ ∀𝑥 ∈ 𝐵 (𝑥 ≠ 0 → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)) ↔ (𝐾 ∈ Lat ∧ (𝐵 ∈ dom 𝐺 ∧ ∀𝑥 ∈ 𝐵 (𝑥 ≠ 0 → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥))))
27	25, 26	bitr4i 281	1 ⊢ (𝐾 ∈ AtLat ↔ (𝐾 ∈ Lat ∧ 𝐵 ∈ dom 𝐺 ∧ ∀𝑥 ∈ 𝐵 (𝑥 ≠ 0 → ∃𝑦 ∈ 𝐴 𝑦 ≤ 𝑥)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1103   = wceq 1570   ∈ wcel 2143   ≠ wne 2958  ∀wral 3079  ∃wrex 3089   class class class wbr 5109  dom cdm 5661  ‘cfv 6536  Basecbs 17264  lecple 17312  glbcglb 18361  0.cp0 18472  Latclat 18482  Atomscatm 40037  AtLatcal 40038

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-ext 2735

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-sb 2097  df-clab 2742  df-cleq 2755  df-clel 2838  df-ne 2959  df-ral 3080  df-rex 3090  df-rab 3417  df-v 3457  df-dif 3908  df-un 3910  df-ss 3922  df-nul 4287  df-if 4488  df-sn 4590  df-pr 4592  df-op 4596  df-uni 4873  df-br 5110  df-dm 5671  df-iota 6492  df-fv 6544  df-atl 40072

This theorem is referenced by:  atllat  40074  atl0dm  40076  atlex  40090