let T, S be non trivial RealNormSpace; :: thesis: for R1, R2 being REST of S,T holds
( R1 + R2 is REST of S,T & R1 - R2 is REST of S,T )

let R1, R2 be REST of S,T; :: thesis: ( R1 + R2 is REST of S,T & R1 - R2 is REST of S,T )
A1: ( R1 is total & R2 is total ) by Def5;
A2: now
let h be convergent_to_0 sequence of S; :: thesis: ( (||.h.|| ") (#) ((R1 + R2) /* h) is convergent & lim ((||.h.|| ") (#) ((R1 + R2) /* h)) = 0. T )
A3: ( (||.h.|| ") (#) (R1 /* h) is convergent & (||.h.|| ") (#) (R2 /* h) is convergent ) by Def5;
A4: (||.h.|| ") (#) ((R1 + R2) /* h) = (||.h.|| ") (#) ((R1 /* h) + (R2 /* h)) by A1, Th30
.= ((||.h.|| ") (#) (R1 /* h)) + ((||.h.|| ") (#) (R2 /* h)) by Th9 ;
hence (||.h.|| ") (#) ((R1 + R2) /* h) is convergent by A3, NORMSP_1:19; :: thesis: lim ((||.h.|| ") (#) ((R1 + R2) /* h)) = 0. T
( lim ((||.h.|| ") (#) (R1 /* h)) = 0. T & lim ((||.h.|| ") (#) (R2 /* h)) = 0. T ) by Def5;
hence lim ((||.h.|| ") (#) ((R1 + R2) /* h)) = (0. T) + (0. T) by A3, A4, NORMSP_1:25
.= 0. T by RLVECT_1:4 ;
:: thesis: verum
end;
A5: now
let h be convergent_to_0 sequence of S; :: thesis: ( (||.h.|| ") (#) ((R1 - R2) /* h) is convergent & lim ((||.h.|| ") (#) ((R1 - R2) /* h)) = 0. T )
A6: ( (||.h.|| ") (#) (R1 /* h) is convergent & (||.h.|| ") (#) (R2 /* h) is convergent ) by Def5;
A7: (||.h.|| ") (#) ((R1 - R2) /* h) = (||.h.|| ") (#) ((R1 /* h) - (R2 /* h)) by A1, Th30
.= ((||.h.|| ") (#) (R1 /* h)) - ((||.h.|| ") (#) (R2 /* h)) by Th12 ;
hence (||.h.|| ") (#) ((R1 - R2) /* h) is convergent by A6, NORMSP_1:20; :: thesis: lim ((||.h.|| ") (#) ((R1 - R2) /* h)) = 0. T
( lim ((||.h.|| ") (#) (R1 /* h)) = 0. T & lim ((||.h.|| ") (#) (R2 /* h)) = 0. T ) by Def5;
hence lim ((||.h.|| ") (#) ((R1 - R2) /* h)) = (0. T) - (0. T) by A6, A7, NORMSP_1:26
.= 0. T by RLVECT_1:13 ;
:: thesis: verum
end;
R1 + R2 is total by A1, VFUNCT_1:32;
hence R1 + R2 is REST of S,T by A2, Def5; :: thesis: R1 - R2 is REST of S,T
R1 - R2 is total by A1, VFUNCT_1:32;
hence R1 - R2 is REST of S,T by A5, Def5; :: thesis: verum