Metamath Proof Explorer


Theorem shjshsi

Description: Hilbert lattice join equals the double orthocomplement of subspace sum. (Contributed by NM, 27-Nov-2004) (New usage is discouraged.)

Ref Expression
Hypotheses shjshs.1 ⊢ A ∈ S ℋ
shjshs.2 ⊢ B ∈ S ℋ
Assertion shjshsi ⊢ A ∨ ℋ B = ⊥ ⁡ ⊥ ⁡ A + ℋ B

Proof

Step Hyp Ref Expression
1 shjshs.1 ⊢ A ∈ S ℋ
2 shjshs.2 ⊢ B ∈ S ℋ
3 shjval ⊢ A ∈ S ℋ ∧ B ∈ S ℋ → A ∨ ℋ B = ⊥ ⁡ ⊥ ⁡ A ∪ B
4 1 2 3 mp2an ⊢ A ∨ ℋ B = ⊥ ⁡ ⊥ ⁡ A ∪ B
5 1 2 shunssi ⊢ A ∪ B ⊆ A + ℋ B
6 1 shssii ⊢ A ⊆ ℋ
7 2 shssii ⊢ B ⊆ ℋ
8 6 7 unssi ⊢ A ∪ B ⊆ ℋ
9 1 2 shscli ⊢ A + ℋ B ∈ S ℋ
10 9 shssii ⊢ A + ℋ B ⊆ ℋ
11 8 10 occon2i ⊢ A ∪ B ⊆ A + ℋ B → ⊥ ⁡ ⊥ ⁡ A ∪ B ⊆ ⊥ ⁡ ⊥ ⁡ A + ℋ B
12 5 11 ax-mp ⊢ ⊥ ⁡ ⊥ ⁡ A ∪ B ⊆ ⊥ ⁡ ⊥ ⁡ A + ℋ B
13 4 12 eqsstri ⊢ A ∨ ℋ B ⊆ ⊥ ⁡ ⊥ ⁡ A + ℋ B
14 1 2 shsleji ⊢ A + ℋ B ⊆ A ∨ ℋ B
15 1 2 shjcli ⊢ A ∨ ℋ B ∈ C ℋ
16 15 chssii ⊢ A ∨ ℋ B ⊆ ℋ
17 occon ⊢ A + ℋ B ⊆ ℋ ∧ A ∨ ℋ B ⊆ ℋ → A + ℋ B ⊆ A ∨ ℋ B → ⊥ ⁡ A ∨ ℋ B ⊆ ⊥ ⁡ A + ℋ B
18 10 16 17 mp2an ⊢ A + ℋ B ⊆ A ∨ ℋ B → ⊥ ⁡ A ∨ ℋ B ⊆ ⊥ ⁡ A + ℋ B
19 14 18 ax-mp ⊢ ⊥ ⁡ A ∨ ℋ B ⊆ ⊥ ⁡ A + ℋ B
20 occl ⊢ A + ℋ B ⊆ ℋ → ⊥ ⁡ A + ℋ B ∈ C ℋ
21 10 20 ax-mp ⊢ ⊥ ⁡ A + ℋ B ∈ C ℋ
22 15 21 chsscon1i ⊢ ⊥ ⁡ A ∨ ℋ B ⊆ ⊥ ⁡ A + ℋ B ↔ ⊥ ⁡ ⊥ ⁡ A + ℋ B ⊆ A ∨ ℋ B
23 19 22 mpbi ⊢ ⊥ ⁡ ⊥ ⁡ A + ℋ B ⊆ A ∨ ℋ B
24 13 23 eqssi ⊢ A ∨ ℋ B = ⊥ ⁡ ⊥ ⁡ A + ℋ B