This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.

Metamath Proof Explorer

Theorem dochshpsat

Description: A hyperplane is closed iff its orthocomplement is an atom. (Contributed by NM, 29-Oct-2014)

Ref Expression
Hypotheses dochshpsat.h 
|- H = ( LHyp ` K )
dochshpsat.o 
|- ._|_ = ( ( ocH ` K ) ` W )
dochshpsat.u 
|- U = ( ( DVecH ` K ) ` W )
dochshpsat.a 
|- A = ( LSAtoms ` U )
dochshpsat.y 
|- Y = ( LSHyp ` U )
dochshpsat.k 
|- ( ph -> ( K e. HL /\ W e. H ) )
dochshpsat.x 
|- ( ph -> X e. Y )
Assertion dochshpsat 
|- ( ph -> ( ( ._|_ ` ( ._|_ ` X ) ) = X <-> ( ._|_ ` X ) e. A ) )

Proof

Step Hyp Ref Expression
1 dochshpsat.h 
 |-  H = ( LHyp ` K )
2 dochshpsat.o 
 |-  ._|_ = ( ( ocH ` K ) ` W )
3 dochshpsat.u 
 |-  U = ( ( DVecH ` K ) ` W )
4 dochshpsat.a 
 |-  A = ( LSAtoms ` U )
5 dochshpsat.y 
 |-  Y = ( LSHyp ` U )
6 dochshpsat.k 
 |-  ( ph -> ( K e. HL /\ W e. H ) )
7 dochshpsat.x 
 |-  ( ph -> X e. Y )
8 simpr 
 |-  ( ( ph /\ ( ._|_ ` ( ._|_ ` X ) ) = X ) -> ( ._|_ ` ( ._|_ ` X ) ) = X )
9 7 adantr 
 |-  ( ( ph /\ ( ._|_ ` ( ._|_ ` X ) ) = X ) -> X e. Y )
10 8 9 eqeltrd 
 |-  ( ( ph /\ ( ._|_ ` ( ._|_ ` X ) ) = X ) -> ( ._|_ ` ( ._|_ ` X ) ) e. Y )
11 eqid 
 |-  ( LSubSp ` U ) = ( LSubSp ` U )
12 1 3 6 dvhlmod 
 |-  ( ph -> U e. LMod )
13 11 5 12 7 lshplss 
 |-  ( ph -> X e. ( LSubSp ` U ) )
14 eqid 
 |-  ( Base ` U ) = ( Base ` U )
15 14 11 lssss 
 |-  ( X e. ( LSubSp ` U ) -> X C_ ( Base ` U ) )
16 13 15 syl 
 |-  ( ph -> X C_ ( Base ` U ) )
17 1 3 14 11 2 dochlss 
 |-  ( ( ( K e. HL /\ W e. H ) /\ X C_ ( Base ` U ) ) -> ( ._|_ ` X ) e. ( LSubSp ` U ) )
18 6 16 17 syl2anc 
 |-  ( ph -> ( ._|_ ` X ) e. ( LSubSp ` U ) )
19 1 2 3 11 4 5 6 18 dochsatshpb 
 |-  ( ph -> ( ( ._|_ ` X ) e. A <-> ( ._|_ ` ( ._|_ ` X ) ) e. Y ) )
20 19 adantr 
 |-  ( ( ph /\ ( ._|_ ` ( ._|_ ` X ) ) = X ) -> ( ( ._|_ ` X ) e. A <-> ( ._|_ ` ( ._|_ ` X ) ) e. Y ) )
21 10 20 mpbird 
 |-  ( ( ph /\ ( ._|_ ` ( ._|_ ` X ) ) = X ) -> ( ._|_ ` X ) e. A )
22 eqid 
 |-  ( 0g ` U ) = ( 0g ` U )
23 12 adantr 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> U e. LMod )
24 simpr 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> ( ._|_ ` X ) e. A )
25 22 4 23 24 lsatn0 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> ( ._|_ ` X ) =/= { ( 0g ` U ) } )
26 25 neneqd 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> -. ( ._|_ ` X ) = { ( 0g ` U ) } )
27 6 adantr 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> ( K e. HL /\ W e. H ) )
28 1 3 2 14 22 doch0 
 |-  ( ( K e. HL /\ W e. H ) -> ( ._|_ ` { ( 0g ` U ) } ) = ( Base ` U ) )
29 27 28 syl 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> ( ._|_ ` { ( 0g ` U ) } ) = ( Base ` U ) )
30 29 eqeq2d 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> ( ( ._|_ ` ( ._|_ ` X ) ) = ( ._|_ ` { ( 0g ` U ) } ) <-> ( ._|_ ` ( ._|_ ` X ) ) = ( Base ` U ) ) )
31 eqid 
 |-  ( ( DIsoH ` K ) ` W ) = ( ( DIsoH ` K ) ` W )
32 1 31 3 14 2 dochcl 
 |-  ( ( ( K e. HL /\ W e. H ) /\ X C_ ( Base ` U ) ) -> ( ._|_ ` X ) e. ran ( ( DIsoH ` K ) ` W ) )
33 6 16 32 syl2anc 
 |-  ( ph -> ( ._|_ ` X ) e. ran ( ( DIsoH ` K ) ` W ) )
34 1 31 3 22 dih0rn 
 |-  ( ( K e. HL /\ W e. H ) -> { ( 0g ` U ) } e. ran ( ( DIsoH ` K ) ` W ) )
35 6 34 syl 
 |-  ( ph -> { ( 0g ` U ) } e. ran ( ( DIsoH ` K ) ` W ) )
36 1 31 2 6 33 35 doch11 
 |-  ( ph -> ( ( ._|_ ` ( ._|_ ` X ) ) = ( ._|_ ` { ( 0g ` U ) } ) <-> ( ._|_ ` X ) = { ( 0g ` U ) } ) )
37 36 adantr 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> ( ( ._|_ ` ( ._|_ ` X ) ) = ( ._|_ ` { ( 0g ` U ) } ) <-> ( ._|_ ` X ) = { ( 0g ` U ) } ) )
38 30 37 bitr3d 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> ( ( ._|_ ` ( ._|_ ` X ) ) = ( Base ` U ) <-> ( ._|_ ` X ) = { ( 0g ` U ) } ) )
39 26 38 mtbird 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> -. ( ._|_ ` ( ._|_ ` X ) ) = ( Base ` U ) )
40 1 2 3 14 5 6 7 dochshpncl 
 |-  ( ph -> ( ( ._|_ ` ( ._|_ ` X ) ) =/= X <-> ( ._|_ ` ( ._|_ ` X ) ) = ( Base ` U ) ) )
41 40 necon1bbid 
 |-  ( ph -> ( -. ( ._|_ ` ( ._|_ ` X ) ) = ( Base ` U ) <-> ( ._|_ ` ( ._|_ ` X ) ) = X ) )
42 41 adantr 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> ( -. ( ._|_ ` ( ._|_ ` X ) ) = ( Base ` U ) <-> ( ._|_ ` ( ._|_ ` X ) ) = X ) )
43 39 42 mpbid 
 |-  ( ( ph /\ ( ._|_ ` X ) e. A ) -> ( ._|_ ` ( ._|_ ` X ) ) = X )
44 21 43 impbida 
 |-  ( ph -> ( ( ._|_ ` ( ._|_ ` X ) ) = X <-> ( ._|_ ` X ) e. A ) )