let X be non empty TopSpace; :: thesis: for f1 being Function of X,R^1
for a being real number st f1 is continuous holds
ex g being Function of X,R^1 st
( ( for p being Point of X
for r1 being real number st f1 . p = r1 holds
g . p = a - r1 ) & g is continuous )

let f1 be Function of X,R^1 ; :: thesis: for a being real number st f1 is continuous holds
ex g being Function of X,R^1 st
( ( for p being Point of X
for r1 being real number st f1 . p = r1 holds
g . p = a - r1 ) & g is continuous )

let a be real number ; :: thesis: ( f1 is continuous implies ex g being Function of X,R^1 st
( ( for p being Point of X
for r1 being real number st f1 . p = r1 holds
g . p = a - r1 ) & g is continuous ) )

assume f1 is continuous ; :: thesis: ex g being Function of X,R^1 st
( ( for p being Point of X
for r1 being real number st f1 . p = r1 holds
g . p = a - r1 ) & g is continuous )

then consider g1 being Function of X,R^1 such that
A1: ( ( for p being Point of X
for r1 being real number st f1 . p = r1 holds
g1 . p = r1 - a ) & g1 is continuous ) by Th15;
consider g2 being Function of X,R^1 such that
A2: ( ( for p being Point of X
for r1 being real number st g1 . p = r1 holds
g2 . p = - r1 ) & g2 is continuous ) by A1, JGRAPH_4:13;
for p being Point of X
for r1 being real number st f1 . p = r1 holds
g2 . p = a - r1
proof
let p be Point of X; :: thesis: for r1 being real number st f1 . p = r1 holds
g2 . p = a - r1

let r1 be real number ; :: thesis: ( f1 . p = r1 implies g2 . p = a - r1 )
assume f1 . p = r1 ; :: thesis: g2 . p = a - r1
then g1 . p = r1 - a by A1;
then g2 . p = - (r1 - a) by A2
.= a - r1 ;
hence g2 . p = a - r1 ; :: thesis: verum
end;
hence ex g being Function of X,R^1 st
( ( for p being Point of X
for r1 being real number st f1 . p = r1 holds
g . p = a - r1 ) & g is continuous ) by A2; :: thesis: verum