:: On the Lattice of Subspaces of Vector Space
:: by Andrzej Iwaniuk
::
:: Received May 23, 1995
:: Copyright (c) 1995-2021 Association of Mizar Users
definition
let
F
be
Field
;
let
VS
be
strict
VectSp
of
F
;
func
lattice
VS
->
strict
bounded
Lattice
equals
:: VECTSP_8:def 1
LattStr
(#
(
Subspaces
VS
)
,
(
SubJoin
VS
)
,
(
SubMeet
VS
)
#);
coherence
LattStr
(#
(
Subspaces
VS
)
,
(
SubJoin
VS
)
,
(
SubMeet
VS
)
#) is
strict
bounded
Lattice
by
VECTSP_5:60
;
end;
::
deftheorem
defines
lattice
VECTSP_8:def 1 :
for
F
being
Field
for
VS
being
strict
VectSp
of
F
holds
lattice
VS
=
LattStr
(#
(
Subspaces
VS
)
,
(
SubJoin
VS
)
,
(
SubMeet
VS
)
#);
definition
let
F
be
Field
;
let
VS
be
strict
VectSp
of
F
;
mode
SubVS-Family
of
VS
->
set
means
:
Def2
:
:: VECTSP_8:def 2
for
x
being
set
st
x
in
it
holds
x
is
Subspace
of
VS
;
existence
ex
b
1
being
set
st
for
x
being
set
st
x
in
b
1
holds
x
is
Subspace
of
VS
proof
end;
end;
::
deftheorem
Def2
defines
SubVS-Family
VECTSP_8:def 2 :
for
F
being
Field
for
VS
being
strict
VectSp
of
F
for
b
3
being
set
holds
(
b
3
is
SubVS-Family
of
VS
iff for
x
being
set
st
x
in
b
3
holds
x
is
Subspace
of
VS
);
registration
let
F
be
Field
;
let
VS
be
strict
VectSp
of
F
;
cluster
non
empty
for
SubVS-Family
of
VS
;
existence
not for
b
1
being
SubVS-Family
of
VS
holds
b
1
is
empty
proof
end;
end;
definition
let
F
be
Field
;
let
VS
be
strict
VectSp
of
F
;
:: original:
Subspaces
redefine
func
Subspaces
VS
->
non
empty
SubVS-Family
of
VS
;
coherence
Subspaces
VS
is non
empty
SubVS-Family
of
VS
proof
end;
let
X
be non
empty
SubVS-Family
of
VS
;
:: original:
Element
redefine
mode
Element
of
X
->
Subspace
of
VS
;
coherence
for
b
1
being
Element
of
X
holds
b
1
is
Subspace
of
VS
by
Def2
;
end;
definition
let
F
be
Field
;
let
VS
be
strict
VectSp
of
F
;
let
x
be
Element
of
Subspaces
VS
;
func
carr
x
->
Subset
of
VS
means
:
Def3
:
:: VECTSP_8:def 3
ex
X
being
Subspace
of
VS
st
(
x
=
X
&
it
=
the
carrier
of
X
);
existence
ex
b
1
being
Subset
of
VS
ex
X
being
Subspace
of
VS
st
(
x
=
X
&
b
1
=
the
carrier
of
X
)
proof
end;
uniqueness
for
b
1
,
b
2
being
Subset
of
VS
st ex
X
being
Subspace
of
VS
st
(
x
=
X
&
b
1
=
the
carrier
of
X
) & ex
X
being
Subspace
of
VS
st
(
x
=
X
&
b
2
=
the
carrier
of
X
) holds
b
1
=
b
2
;
end;
::
deftheorem
Def3
defines
carr
VECTSP_8:def 3 :
for
F
being
Field
for
VS
being
strict
VectSp
of
F
for
x
being
Element
of
Subspaces
VS
for
b
4
being
Subset
of
VS
holds
(
b
4
=
carr
x
iff ex
X
being
Subspace
of
VS
st
(
x
=
X
&
b
4
=
the
carrier
of
X
) );
definition
let
F
be
Field
;
let
VS
be
strict
VectSp
of
F
;
func
carr
VS
->
Function
of
(
Subspaces
VS
)
,
(
bool
the
carrier
of
VS
)
means
:
Def4
:
:: VECTSP_8:def 4
for
h
being
Element
of
Subspaces
VS
for
H
being
Subspace
of
VS
st
h
=
H
holds
it
.
h
=
the
carrier
of
H
;
existence
ex
b
1
being
Function
of
(
Subspaces
VS
)
,
(
bool
the
carrier
of
VS
)
st
for
h
being
Element
of
Subspaces
VS
for
H
being
Subspace
of
VS
st
h
=
H
holds
b
1
.
h
=
the
carrier
of
H
proof
end;
uniqueness
for
b
1
,
b
2
being
Function
of
(
Subspaces
VS
)
,
(
bool
the
carrier
of
VS
)
st ( for
h
being
Element
of
Subspaces
VS
for
H
being
Subspace
of
VS
st
h
=
H
holds
b
1
.
h
=
the
carrier
of
H
) & ( for
h
being
Element
of
Subspaces
VS
for
H
being
Subspace
of
VS
st
h
=
H
holds
b
2
.
h
=
the
carrier
of
H
) holds
b
1
=
b
2
proof
end;
end;
::
deftheorem
Def4
defines
carr
VECTSP_8:def 4 :
for
F
being
Field
for
VS
being
strict
VectSp
of
F
for
b
3
being
Function
of
(
Subspaces
VS
)
,
(
bool
the
carrier
of
VS
)
holds
(
b
3
=
carr
VS
iff for
h
being
Element
of
Subspaces
VS
for
H
being
Subspace
of
VS
st
h
=
H
holds
b
3
.
h
=
the
carrier
of
H
);
theorem
Th1
:
:: VECTSP_8:1
for
F
being
Field
for
VS
being
strict
VectSp
of
F
for
H
being non
empty
Subset
of
(
Subspaces
VS
)
holds not
(
carr
VS
)
.:
H
is
empty
proof
end;
theorem
:: VECTSP_8:2
for
F
being
Field
for
VS
being
strict
VectSp
of
F
for
H
being
strict
Subspace
of
VS
holds
0.
VS
in
(
carr
VS
)
.
H
proof
end;
definition
let
F
be
Field
;
let
VS
be
strict
VectSp
of
F
;
let
G
be non
empty
Subset
of
(
Subspaces
VS
)
;
func
meet
G
->
strict
Subspace
of
VS
means
:
Def5
:
:: VECTSP_8:def 5
the
carrier
of
it
=
meet
(
(
carr
VS
)
.:
G
)
;
existence
ex
b
1
being
strict
Subspace
of
VS
st the
carrier
of
b
1
=
meet
(
(
carr
VS
)
.:
G
)
proof
end;
uniqueness
for
b
1
,
b
2
being
strict
Subspace
of
VS
st the
carrier
of
b
1
=
meet
(
(
carr
VS
)
.:
G
)
& the
carrier
of
b
2
=
meet
(
(
carr
VS
)
.:
G
)
holds
b
1
=
b
2
by
VECTSP_4:29
;
end;
::
deftheorem
Def5
defines
meet
VECTSP_8:def 5 :
for
F
being
Field
for
VS
being
strict
VectSp
of
F
for
G
being non
empty
Subset
of
(
Subspaces
VS
)
for
b
4
being
strict
Subspace
of
VS
holds
(
b
4
=
meet
G
iff the
carrier
of
b
4
=
meet
(
(
carr
VS
)
.:
G
)
);
theorem
:: VECTSP_8:3
for
F
being
Field
for
VS
being
strict
VectSp
of
F
holds
Subspaces
VS
=
the
carrier
of
(
lattice
VS
)
;
theorem
:: VECTSP_8:4
for
F
being
Field
for
VS
being
strict
VectSp
of
F
holds the
L_meet
of
(
lattice
VS
)
=
SubMeet
VS
;
theorem
:: VECTSP_8:5
for
F
being
Field
for
VS
being
strict
VectSp
of
F
holds the
L_join
of
(
lattice
VS
)
=
SubJoin
VS
;
theorem
Th6
:
:: VECTSP_8:6
for
F
being
Field
for
VS
being
strict
VectSp
of
F
for
p
,
q
being
Element
of
(
lattice
VS
)
for
H1
,
H2
being
strict
Subspace
of
VS
st
p
=
H1
&
q
=
H2
holds
(
p
[=
q
iff the
carrier
of
H1
c=
the
carrier
of
H2
)
proof
end;
theorem
Th7
:
:: VECTSP_8:7
for
F
being
Field
for
VS
being
strict
VectSp
of
F
for
p
,
q
being
Element
of
(
lattice
VS
)
for
H1
,
H2
being
Subspace
of
VS
st
p
=
H1
&
q
=
H2
holds
p
"\/"
q
=
H1
+
H2
proof
end;
theorem
Th8
:
:: VECTSP_8:8
for
F
being
Field
for
VS
being
strict
VectSp
of
F
for
p
,
q
being
Element
of
(
lattice
VS
)
for
H1
,
H2
being
Subspace
of
VS
st
p
=
H1
&
q
=
H2
holds
p
"/\"
q
=
H1
/\
H2
proof
end;
definition
let
L
be non
empty
LattStr
;
redefine
attr
L
is
complete
means
:: VECTSP_8:def 6
for
X
being
Subset
of
L
ex
a
being
Element
of
L
st
(
a
is_less_than
X
& ( for
b
being
Element
of
L
st
b
is_less_than
X
holds
b
[=
a
) );
compatibility
(
L
is
complete
iff for
X
being
Subset
of
L
ex
a
being
Element
of
L
st
(
a
is_less_than
X
& ( for
b
being
Element
of
L
st
b
is_less_than
X
holds
b
[=
a
) ) )
proof
end;
end;
::
deftheorem
defines
complete
VECTSP_8:def 6 :
for
L
being non
empty
LattStr
holds
(
L
is
complete
iff for
X
being
Subset
of
L
ex
a
being
Element
of
L
st
(
a
is_less_than
X
& ( for
b
being
Element
of
L
st
b
is_less_than
X
holds
b
[=
a
) ) );
theorem
:: VECTSP_8:9
for
F
being
Field
for
VS
being
strict
VectSp
of
F
holds
lattice
VS
is
complete
proof
end;
theorem
Th10
:
:: VECTSP_8:10
for
F
being
Field
for
x
being
object
for
VS
being
strict
VectSp
of
F
for
S
being
Subset
of
VS
st not
S
is
empty
&
S
is
linearly-closed
&
x
in
Lin
S
holds
x
in
S
proof
end;
definition
let
F
be
Field
;
let
A
,
B
be
strict
VectSp
of
F
;
let
f
be
Function
of the
carrier
of
A
, the
carrier
of
B
;
func
FuncLatt
f
->
Function
of the
carrier
of
(
lattice
A
)
, the
carrier
of
(
lattice
B
)
means
:
Def7
:
:: VECTSP_8:def 7
for
S
being
strict
Subspace
of
A
for
B0
being
Subset
of
B
st
B0
=
f
.:
the
carrier
of
S
holds
it
.
S
=
Lin
B0
;
existence
ex
b
1
being
Function
of the
carrier
of
(
lattice
A
)
, the
carrier
of
(
lattice
B
)
st
for
S
being
strict
Subspace
of
A
for
B0
being
Subset
of
B
st
B0
=
f
.:
the
carrier
of
S
holds
b
1
.
S
=
Lin
B0
proof
end;
uniqueness
for
b
1
,
b
2
being
Function
of the
carrier
of
(
lattice
A
)
, the
carrier
of
(
lattice
B
)
st ( for
S
being
strict
Subspace
of
A
for
B0
being
Subset
of
B
st
B0
=
f
.:
the
carrier
of
S
holds
b
1
.
S
=
Lin
B0
) & ( for
S
being
strict
Subspace
of
A
for
B0
being
Subset
of
B
st
B0
=
f
.:
the
carrier
of
S
holds
b
2
.
S
=
Lin
B0
) holds
b
1
=
b
2
proof
end;
end;
::
deftheorem
Def7
defines
FuncLatt
VECTSP_8:def 7 :
for
F
being
Field
for
A
,
B
being
strict
VectSp
of
F
for
f
being
Function
of the
carrier
of
A
, the
carrier
of
B
for
b
5
being
Function
of the
carrier
of
(
lattice
A
)
, the
carrier
of
(
lattice
B
)
holds
(
b
5
=
FuncLatt
f
iff for
S
being
strict
Subspace
of
A
for
B0
being
Subset
of
B
st
B0
=
f
.:
the
carrier
of
S
holds
b
5
.
S
=
Lin
B0
);
definition
let
L1
,
L2
be
Lattice
;
mode
Semilattice-Homomorphism of
L1
,
L2
is
"/\"-preserving
Function
of
L1
,
L2
;
mode
sup-Semilattice-Homomorphism of
L1
,
L2
is
"\/"-preserving
Function
of
L1
,
L2
;
end;
theorem
:: VECTSP_8:11
for
L1
,
L2
being
Lattice
for
f
being
Function
of the
carrier
of
L1
, the
carrier
of
L2
holds
(
f
is
Homomorphism
of
L1
,
L2
iff (
f
is
sup-Semilattice-Homomorphism
of
L1
,
L2
&
f
is
Semilattice-Homomorphism
of
L1
,
L2
) ) ;
theorem
Th12
:
:: VECTSP_8:12
for
F
being
Field
for
A
,
B
being
strict
VectSp
of
F
for
f
being
Function
of
A
,
B
st
f
is
additive
&
f
is
homogeneous
holds
FuncLatt
f
is
sup-Semilattice-Homomorphism
of
(
lattice
A
)
,
(
lattice
B
)
proof
end;
theorem
:: VECTSP_8:13
for
F
being
Field
for
A
,
B
being
strict
VectSp
of
F
for
f
being
Function
of
A
,
B
st
f
is
one-to-one
&
f
is
additive
&
f
is
homogeneous
holds
FuncLatt
f
is
Homomorphism
of
(
lattice
A
)
,
(
lattice
B
)
proof
end;
theorem
:: VECTSP_8:14
for
F
being
Field
for
A
,
B
being
strict
VectSp
of
F
for
f
being
Function
of
A
,
B
st
f
is
additive
&
f
is
homogeneous
&
f
is
one-to-one
holds
FuncLatt
f
is
one-to-one
proof
end;
theorem
:: VECTSP_8:15
for
F
being
Field
for
A
being
strict
VectSp
of
F
holds
FuncLatt
(
id
the
carrier
of
A
)
=
id
the
carrier
of
(
lattice
A
)
proof
end;