Theorem isoml 39276

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 6822	. . . 4 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = (Base‘𝐾))
2		isoml.b	. . . 4 ⊢ 𝐵 = (Base‘𝐾)
3	1, 2	eqtr4di 2784	. . 3 ⊢ (𝑘 = 𝐾 → (Base‘𝑘) = 𝐵)
4		fveq2 6822	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = (le‘𝐾))
5		isoml.l	. . . . . . 7 ⊢ ≤ = (le‘𝐾)
6	4, 5	eqtr4di 2784	. . . . . 6 ⊢ (𝑘 = 𝐾 → (le‘𝑘) = ≤ )
7	6	breqd 5102	. . . . 5 ⊢ (𝑘 = 𝐾 → (𝑥(le‘𝑘)𝑦 ↔ 𝑥 ≤ 𝑦))
8		fveq2 6822	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = (join‘𝐾))
9		isoml.j	. . . . . . . 8 ⊢ ∨ = (join‘𝐾)
10	8, 9	eqtr4di 2784	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (join‘𝑘) = ∨ )
11		eqidd 2732	. . . . . . 7 ⊢ (𝑘 = 𝐾 → 𝑥 = 𝑥)
12		fveq2 6822	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (meet‘𝑘) = (meet‘𝐾))
13		isoml.m	. . . . . . . . 9 ⊢ ∧ = (meet‘𝐾)
14	12, 13	eqtr4di 2784	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → (meet‘𝑘) = ∧ )
15		eqidd 2732	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → 𝑦 = 𝑦)
16		fveq2 6822	. . . . . . . . . 10 ⊢ (𝑘 = 𝐾 → (oc‘𝑘) = (oc‘𝐾))
17		isoml.o	. . . . . . . . . 10 ⊢ ⊥ = (oc‘𝐾)
18	16, 17	eqtr4di 2784	. . . . . . . . 9 ⊢ (𝑘 = 𝐾 → (oc‘𝑘) = ⊥ )
19	18	fveq1d 6824	. . . . . . . 8 ⊢ (𝑘 = 𝐾 → ((oc‘𝑘)‘𝑥) = ( ⊥ ‘𝑥))
20	14, 15, 19	oveq123d 7367	. . . . . . 7 ⊢ (𝑘 = 𝐾 → (𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥)) = (𝑦 ∧ ( ⊥ ‘𝑥)))
21	10, 11, 20	oveq123d 7367	. . . . . 6 ⊢ (𝑘 = 𝐾 → (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥))) = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))
22	21	eqeq2d 2742	. . . . 5 ⊢ (𝑘 = 𝐾 → (𝑦 = (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥))) ↔ 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥)))))
23	7, 22	imbi12d 344	. . . 4 ⊢ (𝑘 = 𝐾 → ((𝑥(le‘𝑘)𝑦 → 𝑦 = (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥)))) ↔ (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))))
24	3, 23	raleqbidv 3312	. . 3 ⊢ (𝑘 = 𝐾 → (∀𝑦 ∈ (Base‘𝑘)(𝑥(le‘𝑘)𝑦 → 𝑦 = (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥)))) ↔ ∀𝑦 ∈ 𝐵 (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))))
25	3, 24	raleqbidv 3312	. 2 ⊢ (𝑘 = 𝐾 → (∀𝑥 ∈ (Base‘𝑘)∀𝑦 ∈ (Base‘𝑘)(𝑥(le‘𝑘)𝑦 → 𝑦 = (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥)))) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))))
26		df-oml 39217	. 2 ⊢ OML = {𝑘 ∈ OL ∣ ∀𝑥 ∈ (Base‘𝑘)∀𝑦 ∈ (Base‘𝑘)(𝑥(le‘𝑘)𝑦 → 𝑦 = (𝑥(join‘𝑘)(𝑦(meet‘𝑘)((oc‘𝑘)‘𝑥))))}
27	25, 26	elrab2 3650	1 ⊢ (𝐾 ∈ OML ↔ (𝐾 ∈ OL ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1541   ∈ wcel 2111  ∀wral 3047   class class class wbr 5091  ‘cfv 6481  (class class class)co 7346  Basecbs 17117  lecple 17165  occoc 17166  joincjn 18214  meetcmee 18215  OLcol 39212  OMLcoml 39213

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2113  ax-9 2121  ax-ext 2703

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-sb 2068  df-clab 2710  df-cleq 2723  df-clel 2806  df-ral 3048  df-rab 3396  df-v 3438  df-dif 3905  df-un 3907  df-ss 3919  df-nul 4284  df-if 4476  df-sn 4577  df-pr 4579  df-op 4583  df-uni 4860  df-br 5092  df-iota 6437  df-fv 6489  df-ov 7349  df-oml 39217

This theorem is referenced by:  isomliN  39277  omlol  39278  omllaw  39281