 reserve n,m,i,p for Nat,
         h,k,r,r1,r2,x,x0,x1,x2,x3 for Real;
 reserve f,f1,f2,g for Function of REAL,REAL;

theorem
  cdif(f,h).(n+1).x = cdif(f,h).n.(x+h/2)-cdif(f,h).n.(x-h/2)
proof
  defpred X[Nat] means
  cdif(f,h).($1+1).x = cdif(f,h).$1.(x+h/2)-cdif(f,h).$1.(x-h/2);
A1: for i st X[i] holds X[i+1]
    proof
      let i;
      assume
      cdif(f,h).(i+1).x = cdif(f,h).i.(x+h/2)-cdif(f,h).i.(x-h/2);
A2:   cdif(f,h).(i+1) is Function of REAL,REAL by DIFF_1:19;
      cdif(f,h).(i+2).x = cdif(f,h).(i+1+1).x
        .= cD(cdif(f,h).(i+1),h).x by DIFF_1:def 8
        .= cdif(f,h).(i+1).(x+h/2)-cdif(f,h).(i+1).(x-h/2) by A2,DIFF_1:5;
      hence thesis;
    end;
A3:X[0] by Th54;
  for n holds X[n] from NAT_1:sch 2(A3,A1);
  hence thesis;
end;
