let X be non empty set ; :: thesis: for Y being RealNormSpace
for f being bounded Function of X,the carrier of Y holds (BoundedFunctionsNorm X,Y) . f = sup (PreNorms f)

let Y be RealNormSpace; :: thesis: for f being bounded Function of X,the carrier of Y holds (BoundedFunctionsNorm X,Y) . f = sup (PreNorms f)
let f be bounded Function of X,the carrier of Y; :: thesis: (BoundedFunctionsNorm X,Y) . f = sup (PreNorms f)
A1: f in BoundedFunctions X,Y by Def5;
reconsider f' = f as set ;
thus (BoundedFunctionsNorm X,Y) . f = sup (PreNorms (modetrans f',X,Y)) by A1, Def9
.= sup (PreNorms f) by Th16 ; :: thesis: verum