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