Theorem iscvlat 37333

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.

Step	Hyp	Ref	Expression
1		fveq2 6771	. . . 4 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = (Atoms‘𝐾))
2		iscvlat.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
3	1, 2	eqtr4di 2798	. . 3 ⊢ (𝑘 = 𝐾 → (Atoms‘𝑘) = 𝐴)
4		fveq2 6771	. . . . . 6 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = (Base‘𝐾))
5		iscvlat.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
6	4, 5	eqtr4di 2798	. . . . 5 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = 𝐵)
7		fveq2 6771	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = (le‘𝐾))
8		iscvlat.l	. . . . . . . . . 10 ⊢ ≤ = (le‘𝐾)
9	7, 8	eqtr4di 2798	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = ≤ )
10	9	breqd 5090	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (𝑝(le‘𝑘)𝑥 ↔ 𝑝 ≤ 𝑥))
11	10	notbid 318	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (¬ 𝑝(le‘𝑘)𝑥 ↔ ¬ 𝑝 ≤ 𝑥))
12		eqidd 2741	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → 𝑝 = 𝑝)
13		fveq2 6771	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = (join‘𝐾))
14		iscvlat.j	. . . . . . . . . 10 ⊢ ∨ = (join‘𝐾)
15	13, 14	eqtr4di 2798	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = ∨ )
16	15	oveqd 7288	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (𝑥(join‘𝑘)𝑞) = (𝑥 ∨ 𝑞))
17	12, 9, 16	breq123d 5093	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞) ↔ 𝑝 ≤ (𝑥 ∨ 𝑞)))
18	11, 17	anbi12d 631	. . . . . 6 ⊢ (𝑘 = 𝐾 → ((¬ 𝑝(le‘𝑘)𝑥 ∧ 𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) ↔ (¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞))))
19		eqidd 2741	. . . . . . 7 ⊢ (𝑘 = 𝐾 → 𝑞 = 𝑞)
20	15	oveqd 7288	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (𝑥(join‘𝑘)𝑝) = (𝑥 ∨ 𝑝))
21	19, 9, 20	breq123d 5093	. . . . . 6 ⊢ (𝑘 = 𝐾 → (𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝) ↔ 𝑞 ≤ (𝑥 ∨ 𝑝)))
22	18, 21	imbi12d 345	. . . . 5 ⊢ (𝑘 = 𝐾 → (((¬ 𝑝(le‘𝑘)𝑥 ∧ 𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) → 𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝)) ↔ ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝))))
23	6, 22	raleqbidv 3335	. . . 4 ⊢ (𝑘 = 𝐾 → (∀𝑥 ∈ (Base‘𝑘)((¬ 𝑝(le‘𝑘)𝑥 ∧ 𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) → 𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝)) ↔ ∀𝑥 ∈ 𝐵 ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝))))
24	3, 23	raleqbidv 3335	. . 3 ⊢ (𝑘 = 𝐾 → (∀𝑞 ∈ (Atoms‘𝑘)∀𝑥 ∈ (Base‘𝑘)((¬ 𝑝(le‘𝑘)𝑥 ∧ 𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) → 𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝)) ↔ ∀𝑞 ∈ 𝐴 ∀𝑥 ∈ 𝐵 ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝))))
25	3, 24	raleqbidv 3335	. 2 ⊢ (𝑘 = 𝐾 → (∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)∀𝑥 ∈ (Base‘𝑘)((¬ 𝑝(le‘𝑘)𝑥 ∧ 𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) → 𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝)) ↔ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ∀𝑥 ∈ 𝐵 ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝))))
26		df-cvlat 37332	. 2 ⊢ CvLat = {𝑘 ∈ AtLat ∣ ∀𝑝 ∈ (Atoms‘𝑘)∀𝑞 ∈ (Atoms‘𝑘)∀𝑥 ∈ (Base‘𝑘)((¬ 𝑝(le‘𝑘)𝑥 ∧ 𝑝(le‘𝑘)(𝑥(join‘𝑘)𝑞)) → 𝑞(le‘𝑘)(𝑥(join‘𝑘)𝑝))}
27	25, 26	elrab2 3629	1 ⊢ (𝐾 ∈ CvLat ↔ (𝐾 ∈ AtLat ∧ ∀𝑝 ∈ 𝐴 ∀𝑞 ∈ 𝐴 ∀𝑥 ∈ 𝐵 ((¬ 𝑝 ≤ 𝑥 ∧ 𝑝 ≤ (𝑥 ∨ 𝑞)) → 𝑞 ≤ (𝑥 ∨ 𝑝))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1542   ∈ wcel 2110  ∀wral 3066   class class class wbr 5079  ‘cfv 6432  (class class class)co 7271  Basecbs 16910  lecple 16967  joincjn 18027  Atomscatm 37273  AtLatcal 37274  CvLatclc 37275

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-ext 2711

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-sb 2072  df-clab 2718  df-cleq 2732  df-clel 2818  df-ral 3071  df-rab 3075  df-v 3433  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-nul 4263  df-if 4466  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4846  df-br 5080  df-iota 6390  df-fv 6440  df-ov 7274  df-cvlat 37332

This theorem is referenced by:  iscvlat2N  37334  cvlatl  37335  cvlexch1  37338  ishlat2  37363