Metamath Proof Explorer


Theorem dochss

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

Ref Expression
Hypotheses dochss.h H=LHypK
dochss.u U=DVecHKW
dochss.v V=BaseU
dochss.o ˙=ocHKW
Assertion dochss KHLWHYVXY˙Y˙X

Proof

Step Hyp Ref Expression
1 dochss.h H=LHypK
2 dochss.u U=DVecHKW
3 dochss.v V=BaseU
4 dochss.o ˙=ocHKW
5 simp1l KHLWHYVXYKHL
6 hlclat KHLKCLat
7 5 6 syl KHLWHYVXYKCLat
8 ssrab2 zBaseK|XDIsoHKWzBaseK
9 8 a1i KHLWHYVXYzBaseK|XDIsoHKWzBaseK
10 simpll3 KHLWHYVXYzBaseKYDIsoHKWzXY
11 simpr KHLWHYVXYzBaseKYDIsoHKWzYDIsoHKWz
12 10 11 sstrd KHLWHYVXYzBaseKYDIsoHKWzXDIsoHKWz
13 12 ex KHLWHYVXYzBaseKYDIsoHKWzXDIsoHKWz
14 13 ss2rabdv KHLWHYVXYzBaseK|YDIsoHKWzzBaseK|XDIsoHKWz
15 eqid BaseK=BaseK
16 eqid K=K
17 eqid glbK=glbK
18 15 16 17 clatglbss KCLatzBaseK|XDIsoHKWzBaseKzBaseK|YDIsoHKWzzBaseK|XDIsoHKWzglbKzBaseK|XDIsoHKWzKglbKzBaseK|YDIsoHKWz
19 7 9 14 18 syl3anc KHLWHYVXYglbKzBaseK|XDIsoHKWzKglbKzBaseK|YDIsoHKWz
20 hlop KHLKOP
21 5 20 syl KHLWHYVXYKOP
22 15 17 clatglbcl KCLatzBaseK|XDIsoHKWzBaseKglbKzBaseK|XDIsoHKWzBaseK
23 7 8 22 sylancl KHLWHYVXYglbKzBaseK|XDIsoHKWzBaseK
24 ssrab2 zBaseK|YDIsoHKWzBaseK
25 15 17 clatglbcl KCLatzBaseK|YDIsoHKWzBaseKglbKzBaseK|YDIsoHKWzBaseK
26 7 24 25 sylancl KHLWHYVXYglbKzBaseK|YDIsoHKWzBaseK
27 eqid ocK=ocK
28 15 16 27 oplecon3b KOPglbKzBaseK|XDIsoHKWzBaseKglbKzBaseK|YDIsoHKWzBaseKglbKzBaseK|XDIsoHKWzKglbKzBaseK|YDIsoHKWzocKglbKzBaseK|YDIsoHKWzKocKglbKzBaseK|XDIsoHKWz
29 21 23 26 28 syl3anc KHLWHYVXYglbKzBaseK|XDIsoHKWzKglbKzBaseK|YDIsoHKWzocKglbKzBaseK|YDIsoHKWzKocKglbKzBaseK|XDIsoHKWz
30 19 29 mpbid KHLWHYVXYocKglbKzBaseK|YDIsoHKWzKocKglbKzBaseK|XDIsoHKWz
31 simp1 KHLWHYVXYKHLWH
32 15 27 opoccl KOPglbKzBaseK|YDIsoHKWzBaseKocKglbKzBaseK|YDIsoHKWzBaseK
33 21 26 32 syl2anc KHLWHYVXYocKglbKzBaseK|YDIsoHKWzBaseK
34 15 27 opoccl KOPglbKzBaseK|XDIsoHKWzBaseKocKglbKzBaseK|XDIsoHKWzBaseK
35 21 23 34 syl2anc KHLWHYVXYocKglbKzBaseK|XDIsoHKWzBaseK
36 eqid DIsoHKW=DIsoHKW
37 15 16 1 36 dihord KHLWHocKglbKzBaseK|YDIsoHKWzBaseKocKglbKzBaseK|XDIsoHKWzBaseKDIsoHKWocKglbKzBaseK|YDIsoHKWzDIsoHKWocKglbKzBaseK|XDIsoHKWzocKglbKzBaseK|YDIsoHKWzKocKglbKzBaseK|XDIsoHKWz
38 31 33 35 37 syl3anc KHLWHYVXYDIsoHKWocKglbKzBaseK|YDIsoHKWzDIsoHKWocKglbKzBaseK|XDIsoHKWzocKglbKzBaseK|YDIsoHKWzKocKglbKzBaseK|XDIsoHKWz
39 30 38 mpbird KHLWHYVXYDIsoHKWocKglbKzBaseK|YDIsoHKWzDIsoHKWocKglbKzBaseK|XDIsoHKWz
40 15 17 27 1 36 2 3 4 dochval KHLWHYV˙Y=DIsoHKWocKglbKzBaseK|YDIsoHKWz
41 40 3adant3 KHLWHYVXY˙Y=DIsoHKWocKglbKzBaseK|YDIsoHKWz
42 simp3 KHLWHYVXYXY
43 simp2 KHLWHYVXYYV
44 42 43 sstrd KHLWHYVXYXV
45 15 17 27 1 36 2 3 4 dochval KHLWHXV˙X=DIsoHKWocKglbKzBaseK|XDIsoHKWz
46 31 44 45 syl2anc KHLWHYVXY˙X=DIsoHKWocKglbKzBaseK|XDIsoHKWz
47 39 41 46 3sstr4d KHLWHYVXY˙Y˙X