let n be Element of NAT ; :: thesis: for x0 being Real
for f being PartFunc of REAL,(REAL n) st x0 in dom f & f is_continuous_in x0 holds
- f is_continuous_in x0

let x0 be Real; :: thesis: for f being PartFunc of REAL,(REAL n) st x0 in dom f & f is_continuous_in x0 holds
- f is_continuous_in x0

let f be PartFunc of REAL,(REAL n); :: thesis: ( x0 in dom f & f is_continuous_in x0 implies - f is_continuous_in x0 )
assume A1: ( x0 in dom f & f is_continuous_in x0 ) ; :: thesis: - f is_continuous_in x0
reconsider g = f as PartFunc of REAL,(REAL-NS n) by REAL_NS1:def 4;
g is_continuous_in x0 by A1;
then A2: - g is_continuous_in x0 by NFCONT_3:14;
- g = - f by Th8;
hence - f is_continuous_in x0 by A2; :: thesis: verum