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