Article RSSPACE4, MML version 4.99.1005
:: RSSPACE4:funcnot 1 => RSSPACE4:func 1
definition
func the_set_of_BoundedRealSequences -> Element of bool the carrier of Linear_Space_of_RealSequences means
for b1 being set holds
b1 in it
iff
b1 in the_set_of_RealSequences & seq_id b1 is bounded;
end;
:: RSSPACE4:def 1
theorem
for b1 being Element of bool the carrier of Linear_Space_of_RealSequences holds
b1 = the_set_of_BoundedRealSequences
iff
for b2 being set holds
b2 in b1
iff
b2 in the_set_of_RealSequences & seq_id b2 is bounded;
:: RSSPACE4:funcreg 1
registration
cluster the_set_of_BoundedRealSequences -> non empty;
end;
:: RSSPACE4:funcreg 2
registration
cluster the_set_of_BoundedRealSequences -> linearly-closed;
end;
:: RSSPACE4:funcreg 3
registration
cluster RLSStruct(#the_set_of_BoundedRealSequences,Zero_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),Add_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),Mult_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences)#) -> right_complementable strict Abelian add-associative right_zeroed RealLinearSpace-like;
end;
:: RSSPACE4:funcnot 2 => RSSPACE4:func 2
definition
func linfty_norm -> Function-like quasi_total Relation of the_set_of_BoundedRealSequences,REAL means
for b1 being set
st b1 in the_set_of_BoundedRealSequences
holds it . b1 = sup rng abs seq_id b1;
end;
:: RSSPACE4:def 2
theorem
for b1 being Function-like quasi_total Relation of the_set_of_BoundedRealSequences,REAL holds
b1 = linfty_norm
iff
for b2 being set
st b2 in the_set_of_BoundedRealSequences
holds b1 . b2 = sup rng abs seq_id b2;
:: RSSPACE4:th 2
theorem
for b1 being Function-like quasi_total Relation of NAT,REAL holds
b1 is bounded & sup rng abs b1 = 0
iff
for b2 being Element of NAT holds
b1 . b2 = 0;
:: RSSPACE4:funcreg 4
registration
cluster NORMSTR(#the_set_of_BoundedRealSequences,Zero_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),Add_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),Mult_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),linfty_norm#) -> right_complementable Abelian add-associative right_zeroed RealLinearSpace-like strict;
end;
:: RSSPACE4:funcnot 3 => RSSPACE4:func 3
definition
func linfty_Space -> non empty NORMSTR equals
NORMSTR(#the_set_of_BoundedRealSequences,Zero_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),Add_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),Mult_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),linfty_norm#);
end;
:: RSSPACE4:def 3
theorem
linfty_Space = NORMSTR(#the_set_of_BoundedRealSequences,Zero_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),Add_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),Mult_(the_set_of_BoundedRealSequences,Linear_Space_of_RealSequences),linfty_norm#);
:: RSSPACE4:th 3
theorem
the carrier of linfty_Space = the_set_of_BoundedRealSequences &
(for b1 being set holds
b1 is Element of the carrier of linfty_Space
iff
b1 is Function-like quasi_total Relation of NAT,REAL & seq_id b1 is bounded) &
0. linfty_Space = Zeroseq &
(for b1 being Element of the carrier of linfty_Space holds
b1 = seq_id b1) &
(for b1, b2 being Element of the carrier of linfty_Space holds
b1 + b2 = (seq_id b1) + seq_id b2) &
(for b1 being Element of REAL
for b2 being Element of the carrier of linfty_Space holds
b1 * b2 = b1 (#) seq_id b2) &
(for b1 being Element of the carrier of linfty_Space holds
- b1 = - seq_id b1 & seq_id - b1 = - seq_id b1) &
(for b1, b2 being Element of the carrier of linfty_Space holds
b1 - b2 = (seq_id b1) - seq_id b2) &
(for b1 being Element of the carrier of linfty_Space holds
seq_id b1 is bounded) &
(for b1 being Element of the carrier of linfty_Space holds
||.b1.|| = sup rng abs seq_id b1);
:: RSSPACE4:th 4
theorem
for b1, b2 being Element of the carrier of linfty_Space
for b3 being Element of REAL holds
(||.b1.|| = 0 implies b1 = 0. linfty_Space) &
(b1 = 0. linfty_Space implies ||.b1.|| = 0) &
0 <= ||.b1.|| &
||.b1 + b2.|| <= ||.b1.|| + ||.b2.|| &
||.b3 * b1.|| = (abs b3) * ||.b1.||;
:: RSSPACE4:funcreg 5
registration
cluster linfty_Space -> non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like;
end;
:: RSSPACE4:th 5
theorem
for b1 being Function-like quasi_total Relation of NAT,the carrier of linfty_Space
st b1 is CCauchy(linfty_Space)
holds b1 is convergent(linfty_Space);
:: RSSPACE4:attrnot 1 => RSSPACE4:attr 1
definition
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
let a3 be Function-like quasi_total Relation of a1,the carrier of a2;
attr a3 is bounded means
ex b1 being Element of REAL st
0 <= b1 &
(for b2 being Element of a1 holds
||.a3 . b2.|| <= b1);
end;
:: RSSPACE4:dfs 4
definiens
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
let a3 be Function-like quasi_total Relation of a1,the carrier of a2;
To prove
a3 is bounded
it is sufficient to prove
thus ex b1 being Element of REAL st
0 <= b1 &
(for b2 being Element of a1 holds
||.a3 . b2.|| <= b1);
:: RSSPACE4:def 4
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Function-like quasi_total Relation of b1,the carrier of b2 holds
b3 is bounded(b1, b2)
iff
ex b4 being Element of REAL st
0 <= b4 &
(for b5 being Element of b1 holds
||.b3 . b5.|| <= b4);
:: RSSPACE4:th 6
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Function-like quasi_total Relation of b1,the carrier of b2
st for b4 being Element of b1 holds
b3 . b4 = 0. b2
holds b3 is bounded(b1, b2);
:: RSSPACE4:exreg 1
registration
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
cluster Relation-like Function-like non empty total quasi_total bounded Relation of a1,the carrier of a2;
end;
:: RSSPACE4:funcnot 4 => RSSPACE4:func 4
definition
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
func BoundedFunctions(A1,A2) -> Element of bool the carrier of RealVectSpace(a1,a2) means
for b1 being set holds
b1 in it
iff
b1 is Function-like quasi_total bounded Relation of a1,the carrier of a2;
end;
:: RSSPACE4:def 5
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Element of bool the carrier of RealVectSpace(b1,b2) holds
b3 = BoundedFunctions(b1,b2)
iff
for b4 being set holds
b4 in b3
iff
b4 is Function-like quasi_total bounded Relation of b1,the carrier of b2;
:: RSSPACE4:funcreg 6
registration
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
cluster BoundedFunctions(a1,a2) -> non empty;
end;
:: RSSPACE4:th 7
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR holds
BoundedFunctions(b1,b2) is linearly-closed(RealVectSpace(b1,b2));
:: RSSPACE4:th 8
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR holds
RLSStruct(#BoundedFunctions(b1,b2),Zero_(BoundedFunctions(b1,b2),RealVectSpace(b1,b2)),Add_(BoundedFunctions(b1,b2),RealVectSpace(b1,b2)),Mult_(BoundedFunctions(b1,b2),RealVectSpace(b1,b2))#) is Subspace of RealVectSpace(b1,b2);
:: RSSPACE4:funcreg 7
registration
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
cluster RLSStruct(#BoundedFunctions(a1,a2),Zero_(BoundedFunctions(a1,a2),RealVectSpace(a1,a2)),Add_(BoundedFunctions(a1,a2),RealVectSpace(a1,a2)),Mult_(BoundedFunctions(a1,a2),RealVectSpace(a1,a2))#) -> right_complementable strict Abelian add-associative right_zeroed RealLinearSpace-like;
end;
:: RSSPACE4:funcnot 5 => RSSPACE4:func 5
definition
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
func R_VectorSpace_of_BoundedFunctions(A1,A2) -> non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RLSStruct equals
RLSStruct(#BoundedFunctions(a1,a2),Zero_(BoundedFunctions(a1,a2),RealVectSpace(a1,a2)),Add_(BoundedFunctions(a1,a2),RealVectSpace(a1,a2)),Mult_(BoundedFunctions(a1,a2),RealVectSpace(a1,a2))#);
end;
:: RSSPACE4:def 6
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR holds
R_VectorSpace_of_BoundedFunctions(b1,b2) = RLSStruct(#BoundedFunctions(b1,b2),Zero_(BoundedFunctions(b1,b2),RealVectSpace(b1,b2)),Add_(BoundedFunctions(b1,b2),RealVectSpace(b1,b2)),Mult_(BoundedFunctions(b1,b2),RealVectSpace(b1,b2))#);
:: RSSPACE4:funcreg 8
registration
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
cluster R_VectorSpace_of_BoundedFunctions(a1,a2) -> non empty right_complementable strict Abelian add-associative right_zeroed RealLinearSpace-like;
end;
:: RSSPACE4:th 10
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3, b4, b5 being Element of the carrier of R_VectorSpace_of_BoundedFunctions(b1,b2)
for b6, b7, b8 being Function-like quasi_total bounded Relation of b1,the carrier of b2
st b6 = b3 & b7 = b4 & b8 = b5
holds b5 = b3 + b4
iff
for b9 being Element of b1 holds
b8 . b9 = (b6 . b9) + (b7 . b9);
:: RSSPACE4:th 11
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3, b4 being Element of the carrier of R_VectorSpace_of_BoundedFunctions(b1,b2)
for b5, b6 being Function-like quasi_total bounded Relation of b1,the carrier of b2
st b5 = b3 & b6 = b4
for b7 being Element of REAL holds
b4 = b7 * b3
iff
for b8 being Element of b1 holds
b6 . b8 = b7 * (b5 . b8);
:: RSSPACE4:th 12
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR holds
0. R_VectorSpace_of_BoundedFunctions(b1,b2) = b1 --> 0. b2;
:: RSSPACE4:funcnot 6 => RSSPACE4:func 6
definition
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
let a3 be set;
assume a3 in BoundedFunctions(a1,a2);
func modetrans(A3,A1,A2) -> Function-like quasi_total bounded Relation of a1,the carrier of a2 equals
a3;
end;
:: RSSPACE4:def 7
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being set
st b3 in BoundedFunctions(b1,b2)
holds modetrans(b3,b1,b2) = b3;
:: RSSPACE4:funcnot 7 => RSSPACE4:func 7
definition
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
let a3 be Function-like quasi_total Relation of a1,the carrier of a2;
func PreNorms A3 -> non empty Element of bool REAL equals
{||.a3 . b1.|| where b1 is Element of a1: TRUE};
end;
:: RSSPACE4:def 8
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Function-like quasi_total Relation of b1,the carrier of b2 holds
PreNorms b3 = {||.b3 . b4.|| where b4 is Element of b1: TRUE};
:: RSSPACE4:th 13
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Function-like quasi_total bounded Relation of b1,the carrier of b2 holds
PreNorms b3 is not empty & PreNorms b3 is bounded_above;
:: RSSPACE4:th 14
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Function-like quasi_total Relation of b1,the carrier of b2 holds
b3 is bounded(b1, b2)
iff
PreNorms b3 is bounded_above;
:: RSSPACE4:th 15
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR holds
ex b3 being Function-like quasi_total Relation of BoundedFunctions(b1,b2),REAL st
for b4 being set
st b4 in BoundedFunctions(b1,b2)
holds b3 . b4 = sup PreNorms modetrans(b4,b1,b2);
:: RSSPACE4:funcnot 8 => RSSPACE4:func 8
definition
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
func BoundedFunctionsNorm(A1,A2) -> Function-like quasi_total Relation of BoundedFunctions(a1,a2),REAL means
for b1 being set
st b1 in BoundedFunctions(a1,a2)
holds it . b1 = sup PreNorms modetrans(b1,a1,a2);
end;
:: RSSPACE4:def 9
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Function-like quasi_total Relation of BoundedFunctions(b1,b2),REAL holds
b3 = BoundedFunctionsNorm(b1,b2)
iff
for b4 being set
st b4 in BoundedFunctions(b1,b2)
holds b3 . b4 = sup PreNorms modetrans(b4,b1,b2);
:: RSSPACE4:th 16
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Function-like quasi_total bounded Relation of b1,the carrier of b2 holds
modetrans(b3,b1,b2) = b3;
:: RSSPACE4:th 17
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Function-like quasi_total bounded Relation of b1,the carrier of b2 holds
(BoundedFunctionsNorm(b1,b2)) . b3 = sup PreNorms b3;
:: RSSPACE4:funcnot 9 => RSSPACE4:func 9
definition
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
func R_NormSpace_of_BoundedFunctions(A1,A2) -> non empty NORMSTR equals
NORMSTR(#BoundedFunctions(a1,a2),Zero_(BoundedFunctions(a1,a2),RealVectSpace(a1,a2)),Add_(BoundedFunctions(a1,a2),RealVectSpace(a1,a2)),Mult_(BoundedFunctions(a1,a2),RealVectSpace(a1,a2)),BoundedFunctionsNorm(a1,a2)#);
end;
:: RSSPACE4:def 10
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR holds
R_NormSpace_of_BoundedFunctions(b1,b2) = NORMSTR(#BoundedFunctions(b1,b2),Zero_(BoundedFunctions(b1,b2),RealVectSpace(b1,b2)),Add_(BoundedFunctions(b1,b2),RealVectSpace(b1,b2)),Mult_(BoundedFunctions(b1,b2),RealVectSpace(b1,b2)),BoundedFunctionsNorm(b1,b2)#);
:: RSSPACE4:th 18
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR holds
b1 --> 0. b2 = 0. R_NormSpace_of_BoundedFunctions(b1,b2);
:: RSSPACE4:th 19
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Element of the carrier of R_NormSpace_of_BoundedFunctions(b1,b2)
for b4 being Function-like quasi_total bounded Relation of b1,the carrier of b2
st b4 = b3
for b5 being Element of b1 holds
||.b4 . b5.|| <= ||.b3.||;
:: RSSPACE4:th 20
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Element of the carrier of R_NormSpace_of_BoundedFunctions(b1,b2) holds
0 <= ||.b3.||;
:: RSSPACE4:th 21
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3 being Element of the carrier of R_NormSpace_of_BoundedFunctions(b1,b2)
st b3 = 0. R_NormSpace_of_BoundedFunctions(b1,b2)
holds 0 = ||.b3.||;
:: RSSPACE4:th 22
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3, b4, b5 being Element of the carrier of R_NormSpace_of_BoundedFunctions(b1,b2)
for b6, b7, b8 being Function-like quasi_total bounded Relation of b1,the carrier of b2
st b6 = b3 & b7 = b4 & b8 = b5
holds b5 = b3 + b4
iff
for b9 being Element of b1 holds
b8 . b9 = (b6 . b9) + (b7 . b9);
:: RSSPACE4:th 23
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3, b4 being Element of the carrier of R_NormSpace_of_BoundedFunctions(b1,b2)
for b5, b6 being Function-like quasi_total bounded Relation of b1,the carrier of b2
st b5 = b3 & b6 = b4
for b7 being Element of REAL holds
b4 = b7 * b3
iff
for b8 being Element of b1 holds
b6 . b8 = b7 * (b5 . b8);
:: RSSPACE4:th 24
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3, b4 being Element of the carrier of R_NormSpace_of_BoundedFunctions(b1,b2)
for b5 being Element of REAL holds
(||.b3.|| = 0 implies b3 = 0. R_NormSpace_of_BoundedFunctions(b1,b2)) &
(b3 = 0. R_NormSpace_of_BoundedFunctions(b1,b2) implies ||.b3.|| = 0) &
||.b5 * b3.|| = (abs b5) * ||.b3.|| &
||.b3 + b4.|| <= ||.b3.|| + ||.b4.||;
:: RSSPACE4:th 25
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR holds
R_NormSpace_of_BoundedFunctions(b1,b2) is RealNormSpace-like;
:: RSSPACE4:th 26
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR holds
R_NormSpace_of_BoundedFunctions(b1,b2) is non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
:: RSSPACE4:funcreg 9
registration
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR;
cluster R_NormSpace_of_BoundedFunctions(a1,a2) -> non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like;
end;
:: RSSPACE4:th 27
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
for b3, b4, b5 being Element of the carrier of R_NormSpace_of_BoundedFunctions(b1,b2)
for b6, b7, b8 being Function-like quasi_total bounded Relation of b1,the carrier of b2
st b6 = b3 & b7 = b4 & b8 = b5
holds b5 = b3 - b4
iff
for b9 being Element of b1 holds
b8 . b9 = (b6 . b9) - (b7 . b9);
:: RSSPACE4:th 28
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like NORMSTR
st b2 is complete
for b3 being Function-like quasi_total Relation of NAT,the carrier of R_NormSpace_of_BoundedFunctions(b1,b2)
st b3 is CCauchy(R_NormSpace_of_BoundedFunctions(b1,b2))
holds b3 is convergent(R_NormSpace_of_BoundedFunctions(b1,b2));
:: RSSPACE4:th 29
theorem
for b1 being non empty set
for b2 being non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like complete NORMSTR holds
R_NormSpace_of_BoundedFunctions(b1,b2) is non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like complete NORMSTR;
:: RSSPACE4:funcreg 10
registration
let a1 be non empty set;
let a2 be non empty right_complementable Abelian add-associative right_zeroed RealLinearSpace-like RealNormSpace-like complete NORMSTR;
cluster R_NormSpace_of_BoundedFunctions(a1,a2) -> non empty complete;
end;