Theorem isoml 39238

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

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1540   ∈ wcel 2109  ∀wral 3045   class class class wbr 5110  ‘cfv 6514  (class class class)co 7390  Basecbs 17186  lecple 17234  occoc 17235  joincjn 18279  meetcmee 18280  OLcol 39174  OMLcoml 39175

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-ext 2702

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-sb 2066  df-clab 2709  df-cleq 2722  df-clel 2804  df-ral 3046  df-rab 3409  df-v 3452  df-dif 3920  df-un 3922  df-ss 3934  df-nul 4300  df-if 4492  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-br 5111  df-iota 6467  df-fv 6522  df-ov 7393  df-oml 39179

This theorem is referenced by:  isomliN  39239  omlol  39240  omllaw  39243