Theorem isoml 40045

Description: The predicate "is an orthomodular lattice." (Contributed by NM, 18-Sep-2011.)

Hypotheses

Ref	Expression
isoml.b	⊢ 𝐵 = (Base‘𝐾)
isoml.l	⊢ ≤ = (le‘𝐾)
isoml.j	⊢ ∨ = (join‘𝐾)
isoml.m	⊢ ∧ = (meet‘𝐾)
isoml.o	⊢ ⊥ = (oc‘𝐾)

Assertion

Ref	Expression
isoml	⊢ (𝐾 ∈ OML ↔ (𝐾 ∈ OL ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))))

Distinct variable groups:   𝑥,𝑦,𝐵   𝑥,𝐾,𝑦

Allowed substitution hints:   ∨ (𝑥, 𝑦)   ≤ (𝑥, 𝑦)   ∧ (𝑥, 𝑦)   ⊥ (𝑥, 𝑦)

Proof of Theorem isoml

Dummy variable 𝑘 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6885	. . . 4 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = (Base‘𝐾))
2		isoml.b	. . . 4 ⊢ 𝐵 = (Base‘𝐾)
3	1, 2	eqtr4di 2818	. . 3 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = 𝐵)
4		fveq2 6885	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = (le‘𝐾))
5		isoml.l	. . . . . . 7 ⊢ ≤ = (le‘𝐾)
6	4, 5	eqtr4di 2818	. . . . . 6 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = ≤ )
7	6	breqd 5122	. . . . 5 ⊢ (𝑘 = 𝐾 → (𝑥(le‘𝑘)𝑦 ↔ 𝑥 ≤ 𝑦))
8		fveq2 6885	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = (join‘𝐾))
9		isoml.j	. . . . . . . 8 ⊢ ∨ = (join‘𝐾)
10	8, 9	eqtr4di 2818	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = ∨ )
11		eqidd 2766	. . . . . . 7 ⊢ (𝑘 = 𝐾 → 𝑥 = 𝑥)
12		fveq2 6885	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (meet‘𝑘) = (meet‘𝐾))
13		isoml.m	. . . . . . . . 9 ⊢ ∧ = (meet‘𝐾)
14	12, 13	eqtr4di 2818	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (meet‘𝑘) = ∧ )
15		eqidd 2766	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → 𝑦 = 𝑦)
16		fveq2 6885	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (oc‘𝑘) = (oc‘𝐾))
17		isoml.o	. . . . . . . . . 10 ⊢ ⊥ = (oc‘𝐾)
18	16, 17	eqtr4di 2818	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (oc‘𝑘) = ⊥ )
19	18	fveq1d 6887	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → ((oc‘𝑘)‘𝑥) = ( ⊥ ‘𝑥))
20	14, 15, 19	oveq123d 7437	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥)) = (𝑦 ∧ ( ⊥ ‘𝑥)))
21	10, 11, 20	oveq123d 7437	. . . . . 6 ⊢ (𝑘 = 𝐾 → (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥))) = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))
22	21	eqeq2d 2776	. . . . 5 ⊢ (𝑘 = 𝐾 → (𝑦 = (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥))) ↔ 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥)))))
23	7, 22	imbi12d 347	. . . 4 ⊢ (𝑘 = 𝐾 → ((𝑥(le‘𝑘)𝑦 → 𝑦 = (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥)))) ↔ (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))))
24	3, 23	raleqbidv 3340	. . 3 ⊢ (𝑘 = 𝐾 → (∀𝑦 ∈ (Base‘𝑘)(𝑥(le‘𝑘)𝑦 → 𝑦 = (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥)))) ↔ ∀𝑦 ∈ 𝐵 (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))))
25	3, 24	raleqbidv 3340	. 2 ⊢ (𝑘 = 𝐾 → (∀𝑥 ∈ (Base‘𝑘)∀𝑦 ∈ (Base‘𝑘)(𝑥(le‘𝑘)𝑦 → 𝑦 = (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥)))) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))))
26		df-oml 39986	. 2 ⊢ OML = {𝑘 ∈ OL ∣ ∀𝑥 ∈ (Base‘𝑘)∀𝑦 ∈ (Base‘𝑘)(𝑥(le‘𝑘)𝑦 → 𝑦 = (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥))))}
27	25, 26	elrab2 3656	1 ⊢ (𝐾 ∈ OML ↔ (𝐾 ∈ OL ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∀wral 3081   class class class wbr 5111  ‘cfv 6540  (class class class)co 7416  Basecbs 17287  lecple 17335  occoc 17336  joincjn 18385  meetcmee 18386  OLcol 39981  OMLcoml 39982

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-ext 2737

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-sb 2100  df-clab 2744  df-cleq 2757  df-clel 2840  df-ral 3082  df-rab 3419  df-v 3459  df-dif 3909  df-un 3911  df-ss 3923  df-nul 4287  df-if 4490  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-br 5112  df-iota 6496  df-fv 6548  df-ov 7419  df-oml 39986

This theorem is used by:  isomliN  40046  omlol  40047  omllaw  40050