reserve n,m,k,i for Nat,
  h,r,r1,r2,x0,x1,x2,x for Real,
  S for Functional_Sequence of REAL,REAL,
  y for set;
reserve f,f1,f2 for Function of REAL,REAL;

theorem Th3:
  fD(f,h).x = f.(x+h) - f.x
proof
 reconsider xx=x as Element of REAL by XREAL_0:def 1;
  dom (Shift(f,h) - f) = REAL by FUNCT_2:def 1;
  hence fD(f,h).x = Shift(f,h).xx - f.xx by VALUED_1:13
    .= f.(x+h) - f.x by Def2;
end;
