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 ) ) |