let Y be set ; :: thesis: for C being non empty set
for V being RealNormSpace
for f being PartFunc of C,the carrier of V st f | Y is V8() holds
( ||.f.|| | Y is V8() & (- f) | Y is V8() )
let C be non empty set ; :: thesis: for V being RealNormSpace
for f being PartFunc of C,the carrier of V st f | Y is V8() holds
( ||.f.|| | Y is V8() & (- f) | Y is V8() )
let V be RealNormSpace; :: thesis: for f being PartFunc of C,the carrier of V st f | Y is V8() holds
( ||.f.|| | Y is V8() & (- f) | Y is V8() )
let f be PartFunc of C,the carrier of V; :: thesis: ( f | Y is V8() implies ( ||.f.|| | Y is V8() & (- f) | Y is V8() ) )
assume f | Y is V8() ; :: thesis: ( ||.f.|| | Y is V8() & (- f) | Y is V8() )
then consider r being VECTOR of V such that
A1: for c being Element of C st c in Y /\ (dom f) holds
f /. c = r by PARTFUN2:54;

now

let c be Element of C; :: thesis: ( c in Y /\ (dom ||.f.||) implies ||.f.|| . c = ||.r.|| )
assume c in Y /\ (dom ||.f.||) ; :: thesis: ||.f.|| . c = ||.r.||
then A2: ( c in dom ||.f.|| & c in Y ) by XBOOLE_0:def 4;
then c in dom f by Def5;
then A3: c in Y /\ (dom f) by A2, XBOOLE_0:def 4;
thus ||.f.|| . c = ||.(f /. c).|| by A2, Def5
.= ||.r.|| by A1, A3 ; :: thesis: verum

end;

hence ||.f.|| | Y is V8() by PARTFUN2:76; :: thesis: (- f) | Y is V8()

now

take p = - r; :: thesis: for c being Element of C st c in Y /\ (dom (- f)) holds
(- f) /. c = p
let c be Element of C; :: thesis: ( c in Y /\ (dom (- f)) implies (- f) /. c = p )
assume A4: c in Y /\ (dom (- f)) ; :: thesis: (- f) /. c = p
then c in Y /\ (dom f) by Def6;
then A5: - (f /. c) = p by A1;
c in dom (- f) by A4, XBOOLE_0:def 4;
hence (- f) /. c = p by A5, Def6; :: thesis: verum

end;

hence (- f) | Y is V8() by PARTFUN2:54; :: thesis: verum