Metamath Proof Explorer


Theorem omlsii

Description: Subspace inference form of orthomodular law in the Hilbert lattice. (Contributed by NM, 14-Oct-1999) (Revised by Mario Carneiro, 15-May-2014) (New usage is discouraged.)

Ref Expression
Hypotheses omlsi.1 ⊢ A ∈ C ℋ
omlsi.2 ⊢ B ∈ S ℋ
omlsi.3 ⊢ A ⊆ B
omlsi.4 ⊢ B ∩ ⊥ ⁡ A = 0 ℋ
Assertion omlsii ⊢ A = B

Proof

Step Hyp Ref Expression
1 omlsi.1 ⊢ A ∈ C ℋ
2 omlsi.2 ⊢ B ∈ S ℋ
3 omlsi.3 ⊢ A ⊆ B
4 omlsi.4 ⊢ B ∩ ⊥ ⁡ A = 0 ℋ
5 2 sheli ⊢ x ∈ B → x ∈ ℋ
6 1 5 pjhthlem2 ⊢ x ∈ B → ∃ y ∈ A ∃ z ∈ ⊥ ⁡ A x = y + ℎ z
7 eqeq1 ⊢ x = if x ∈ B x 0 ℎ → x = y + ℎ z ↔ if x ∈ B x 0 ℎ = y + ℎ z
8 eleq1 ⊢ x = if x ∈ B x 0 ℎ → x ∈ A ↔ if x ∈ B x 0 ℎ ∈ A
9 7 8 imbi12d ⊢ x = if x ∈ B x 0 ℎ → x = y + ℎ z → x ∈ A ↔ if x ∈ B x 0 ℎ = y + ℎ z → if x ∈ B x 0 ℎ ∈ A
10 oveq1 ⊢ y = if y ∈ A y 0 ℎ → y + ℎ z = if y ∈ A y 0 ℎ + ℎ z
11 10 eqeq2d ⊢ y = if y ∈ A y 0 ℎ → if x ∈ B x 0 ℎ = y + ℎ z ↔ if x ∈ B x 0 ℎ = if y ∈ A y 0 ℎ + ℎ z
12 11 imbi1d ⊢ y = if y ∈ A y 0 ℎ → if x ∈ B x 0 ℎ = y + ℎ z → if x ∈ B x 0 ℎ ∈ A ↔ if x ∈ B x 0 ℎ = if y ∈ A y 0 ℎ + ℎ z → if x ∈ B x 0 ℎ ∈ A
13 oveq2 ⊢ z = if z ∈ ⊥ ⁡ A z 0 ℎ → if y ∈ A y 0 ℎ + ℎ z = if y ∈ A y 0 ℎ + ℎ if z ∈ ⊥ ⁡ A z 0 ℎ
14 13 eqeq2d ⊢ z = if z ∈ ⊥ ⁡ A z 0 ℎ → if x ∈ B x 0 ℎ = if y ∈ A y 0 ℎ + ℎ z ↔ if x ∈ B x 0 ℎ = if y ∈ A y 0 ℎ + ℎ if z ∈ ⊥ ⁡ A z 0 ℎ
15 14 imbi1d ⊢ z = if z ∈ ⊥ ⁡ A z 0 ℎ → if x ∈ B x 0 ℎ = if y ∈ A y 0 ℎ + ℎ z → if x ∈ B x 0 ℎ ∈ A ↔ if x ∈ B x 0 ℎ = if y ∈ A y 0 ℎ + ℎ if z ∈ ⊥ ⁡ A z 0 ℎ → if x ∈ B x 0 ℎ ∈ A
16 1 chshii ⊢ A ∈ S ℋ
17 sh0 ⊢ B ∈ S ℋ → 0 ℎ ∈ B
18 2 17 ax-mp ⊢ 0 ℎ ∈ B
19 18 elimel ⊢ if x ∈ B x 0 ℎ ∈ B
20 ch0 ⊢ A ∈ C ℋ → 0 ℎ ∈ A
21 1 20 ax-mp ⊢ 0 ℎ ∈ A
22 21 elimel ⊢ if y ∈ A y 0 ℎ ∈ A
23 shocsh ⊢ A ∈ S ℋ → ⊥ ⁡ A ∈ S ℋ
24 16 23 ax-mp ⊢ ⊥ ⁡ A ∈ S ℋ
25 sh0 ⊢ ⊥ ⁡ A ∈ S ℋ → 0 ℎ ∈ ⊥ ⁡ A
26 24 25 ax-mp ⊢ 0 ℎ ∈ ⊥ ⁡ A
27 26 elimel ⊢ if z ∈ ⊥ ⁡ A z 0 ℎ ∈ ⊥ ⁡ A
28 16 2 3 4 19 22 27 omlsilem ⊢ if x ∈ B x 0 ℎ = if y ∈ A y 0 ℎ + ℎ if z ∈ ⊥ ⁡ A z 0 ℎ → if x ∈ B x 0 ℎ ∈ A
29 9 12 15 28 dedth3h ⊢ x ∈ B ∧ y ∈ A ∧ z ∈ ⊥ ⁡ A → x = y + ℎ z → x ∈ A
30 29 3expia ⊢ x ∈ B ∧ y ∈ A → z ∈ ⊥ ⁡ A → x = y + ℎ z → x ∈ A
31 30 rexlimdv ⊢ x ∈ B ∧ y ∈ A → ∃ z ∈ ⊥ ⁡ A x = y + ℎ z → x ∈ A
32 31 rexlimdva ⊢ x ∈ B → ∃ y ∈ A ∃ z ∈ ⊥ ⁡ A x = y + ℎ z → x ∈ A
33 6 32 mpd ⊢ x ∈ B → x ∈ A
34 33 ssriv ⊢ B ⊆ A
35 3 34 eqssi ⊢ A = B