Theorem omllaw 38624

Description: The orthomodular law. (Contributed by NM, 18-Sep-2011.)

Hypotheses

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

Assertion

Ref	Expression
omllaw	⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ≤ 𝑌 → 𝑌 = (𝑋 ∨ (𝑌 ∧ ( ⊥ ‘𝑋)))))

Proof of Theorem omllaw

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		omllaw.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐾)
2		omllaw.l	. . . . 5 ⊢ ≤ = (le‘𝐾)
3		omllaw.j	. . . . 5 ⊢ ∨ = (join‘𝐾)
4		omllaw.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
5		omllaw.o	. . . . 5 ⊢ ⊥ = (oc‘𝐾)
6	1, 2, 3, 4, 5	isoml 38619	. . . 4 ⊢ (𝐾 ∈ OML ↔ (𝐾 ∈ OL ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))))))
7	6	simprbi 496	. . 3 ⊢ (𝐾 ∈ OML → ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥)))))
8		breq1 5144	. . . . 5 ⊢ (𝑥 = 𝑋 → (𝑥 ≤ 𝑦 ↔ 𝑋 ≤ 𝑦))
9		id 22	. . . . . . 7 ⊢ (𝑥 = 𝑋 → 𝑥 = 𝑋)
10		fveq2 6884	. . . . . . . 8 ⊢ (𝑥 = 𝑋 → ( ⊥ ‘𝑥) = ( ⊥ ‘𝑋))
11	10	oveq2d 7420	. . . . . . 7 ⊢ (𝑥 = 𝑋 → (𝑦 ∧ ( ⊥ ‘𝑥)) = (𝑦 ∧ ( ⊥ ‘𝑋)))
12	9, 11	oveq12d 7422	. . . . . 6 ⊢ (𝑥 = 𝑋 → (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))) = (𝑋 ∨ (𝑦 ∧ ( ⊥ ‘𝑋))))
13	12	eqeq2d 2737	. . . . 5 ⊢ (𝑥 = 𝑋 → (𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥))) ↔ 𝑦 = (𝑋 ∨ (𝑦 ∧ ( ⊥ ‘𝑋)))))
14	8, 13	imbi12d 344	. . . 4 ⊢ (𝑥 = 𝑋 → ((𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥)))) ↔ (𝑋 ≤ 𝑦 → 𝑦 = (𝑋 ∨ (𝑦 ∧ ( ⊥ ‘𝑋))))))
15		breq2 5145	. . . . 5 ⊢ (𝑦 = 𝑌 → (𝑋 ≤ 𝑦 ↔ 𝑋 ≤ 𝑌))
16		id 22	. . . . . 6 ⊢ (𝑦 = 𝑌 → 𝑦 = 𝑌)
17		oveq1 7411	. . . . . . 7 ⊢ (𝑦 = 𝑌 → (𝑦 ∧ ( ⊥ ‘𝑋)) = (𝑌 ∧ ( ⊥ ‘𝑋)))
18	17	oveq2d 7420	. . . . . 6 ⊢ (𝑦 = 𝑌 → (𝑋 ∨ (𝑦 ∧ ( ⊥ ‘𝑋))) = (𝑋 ∨ (𝑌 ∧ ( ⊥ ‘𝑋))))
19	16, 18	eqeq12d 2742	. . . . 5 ⊢ (𝑦 = 𝑌 → (𝑦 = (𝑋 ∨ (𝑦 ∧ ( ⊥ ‘𝑋))) ↔ 𝑌 = (𝑋 ∨ (𝑌 ∧ ( ⊥ ‘𝑋)))))
20	15, 19	imbi12d 344	. . . 4 ⊢ (𝑦 = 𝑌 → ((𝑋 ≤ 𝑦 → 𝑦 = (𝑋 ∨ (𝑦 ∧ ( ⊥ ‘𝑋)))) ↔ (𝑋 ≤ 𝑌 → 𝑌 = (𝑋 ∨ (𝑌 ∧ ( ⊥ ‘𝑋))))))
21	14, 20	rspc2v 3617	. . 3 ⊢ ((𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐵 (𝑥 ≤ 𝑦 → 𝑦 = (𝑥 ∨ (𝑦 ∧ ( ⊥ ‘𝑥)))) → (𝑋 ≤ 𝑌 → 𝑌 = (𝑋 ∨ (𝑌 ∧ ( ⊥ ‘𝑋))))))
22	7, 21	syl5com 31	. 2 ⊢ (𝐾 ∈ OML → ((𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ≤ 𝑌 → 𝑌 = (𝑋 ∨ (𝑌 ∧ ( ⊥ ‘𝑋))))))
23	22	3impib 1113	1 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 ≤ 𝑌 → 𝑌 = (𝑋 ∨ (𝑌 ∧ ( ⊥ ‘𝑋)))))

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098  ∀wral 3055   class class class wbr 5141  ‘cfv 6536  (class class class)co 7404  Basecbs 17151  lecple 17211  occoc 17212  joincjn 18274  meetcmee 18275  OLcol 38555  OMLcoml 38556

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-ext 2697

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-sb 2060  df-clab 2704  df-cleq 2718  df-clel 2804  df-ral 3056  df-rab 3427  df-v 3470  df-dif 3946  df-un 3948  df-in 3950  df-ss 3960  df-nul 4318  df-if 4524  df-sn 4624  df-pr 4626  df-op 4630  df-uni 4903  df-br 5142  df-iota 6488  df-fv 6544  df-ov 7407  df-oml 38560

This theorem is referenced by:  omllaw2N  38625  omllaw3  38626  omllaw4  38627