Metamath Proof Explorer


Theorem dochss

Description: Subset law for orthocomplement. (Contributed by NM, 16-Apr-2014)

Ref Expression
Hypotheses dochss.h ⊢ H = LHyp ⁡ K
dochss.u ⊢ U = DVecH ⁡ K ⁡ W
dochss.v ⊢ V = Base U
dochss.o ⊢ ⊥ ˙ = ocH ⁡ K ⁡ W
Assertion dochss ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → ⊥ ˙ ⁡ Y ⊆ ⊥ ˙ ⁡ X

Proof

Step Hyp Ref Expression
1 dochss.h ⊢ H = LHyp ⁡ K
2 dochss.u ⊢ U = DVecH ⁡ K ⁡ W
3 dochss.v ⊢ V = Base U
4 dochss.o ⊢ ⊥ ˙ = ocH ⁡ K ⁡ W
5 simp1l ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → K ∈ HL
6 hlclat ⊢ K ∈ HL → K ∈ CLat
7 5 6 syl ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → K ∈ CLat
8 ssrab2 ⊢ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ Base K
9 8 a1i ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ Base K
10 simpll3 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y ∧ z ∈ Base K ∧ Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z → X ⊆ Y
11 simpr ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y ∧ z ∈ Base K ∧ Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z → Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z
12 10 11 sstrd ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y ∧ z ∈ Base K ∧ Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z → X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
13 12 ex ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y ∧ z ∈ Base K → Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z → X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
14 13 ss2rabdv ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
15 eqid ⊢ Base K = Base K
16 eqid ⊢ ≤ K = ≤ K
17 eqid ⊢ glb ⁡ K = glb ⁡ K
18 15 16 17 clatglbss ⊢ K ∈ CLat ∧ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ Base K ∧ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z → glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ≤ K glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z
19 7 9 14 18 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ≤ K glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z
20 hlop ⊢ K ∈ HL → K ∈ OP
21 5 20 syl ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → K ∈ OP
22 15 17 clatglbcl ⊢ K ∈ CLat ∧ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ Base K → glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K
23 7 8 22 sylancl ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K
24 ssrab2 ⊢ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ Base K
25 15 17 clatglbcl ⊢ K ∈ CLat ∧ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ Base K → glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K
26 7 24 25 sylancl ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K
27 eqid ⊢ oc ⁡ K = oc ⁡ K
28 15 16 27 oplecon3b ⊢ K ∈ OP ∧ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K ∧ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K → glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ≤ K glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ↔ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ≤ K oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
29 21 23 26 28 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ≤ K glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ↔ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ≤ K oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
30 19 29 mpbid ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ≤ K oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
31 simp1 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → K ∈ HL ∧ W ∈ H
32 15 27 opoccl ⊢ K ∈ OP ∧ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K → oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K
33 21 26 32 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K
34 15 27 opoccl ⊢ K ∈ OP ∧ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K → oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K
35 21 23 34 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K
36 eqid ⊢ DIsoH ⁡ K ⁡ W = DIsoH ⁡ K ⁡ W
37 15 16 1 36 dihord ⊢ K ∈ HL ∧ W ∈ H ∧ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K ∧ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ∈ Base K → DIsoH ⁡ K ⁡ W ⁡ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ DIsoH ⁡ K ⁡ W ⁡ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ↔ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ≤ K oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
38 31 33 35 37 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → DIsoH ⁡ K ⁡ W ⁡ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ DIsoH ⁡ K ⁡ W ⁡ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z ↔ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ≤ K oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
39 30 38 mpbird ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → DIsoH ⁡ K ⁡ W ⁡ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z ⊆ DIsoH ⁡ K ⁡ W ⁡ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
40 15 17 27 1 36 2 3 4 dochval ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V → ⊥ ˙ ⁡ Y = DIsoH ⁡ K ⁡ W ⁡ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z
41 40 3adant3 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → ⊥ ˙ ⁡ Y = DIsoH ⁡ K ⁡ W ⁡ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | Y ⊆ DIsoH ⁡ K ⁡ W ⁡ z
42 simp3 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → X ⊆ Y
43 simp2 ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → Y ⊆ V
44 42 43 sstrd ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → X ⊆ V
45 15 17 27 1 36 2 3 4 dochval ⊢ K ∈ HL ∧ W ∈ H ∧ X ⊆ V → ⊥ ˙ ⁡ X = DIsoH ⁡ K ⁡ W ⁡ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
46 31 44 45 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → ⊥ ˙ ⁡ X = DIsoH ⁡ K ⁡ W ⁡ oc ⁡ K ⁡ glb ⁡ K ⁡ z ∈ Base K | X ⊆ DIsoH ⁡ K ⁡ W ⁡ z
47 39 41 46 3sstr4d ⊢ K ∈ HL ∧ W ∈ H ∧ Y ⊆ V ∧ X ⊆ Y → ⊥ ˙ ⁡ Y ⊆ ⊥ ˙ ⁡ X