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
  (fdif(f,h).(2*n+1)).x = (cdif(f,h).(2*n+1)).(x+n*h+h/2)
proof
  defpred X[Nat] means
for x holds (fdif(f,h).(2*$1+1)).x = (cdif(f
  ,h).(2*$1+1)).(x+$1*h+h/2);
A1: for k st X[k] holds X[k+1]
  proof
    let k;
    assume
A2: for x holds (fdif(f,h).(2*k+1)).x = (cdif(f,h).(2*k+1)).(x+k*h+h/2);
    let x;
A3: fdif(f,h).(2*k+1).(x+h+h) = cdif(f,h).(2*k+1).(x+h+h+k*h+h/2) by A2
      .= cdif(f,h).(2*k+1).(x+(k+2)*h+h/2);
A4: fdif(f,h).(2*k+1).(x+h) = cdif(f,h).(2*k+1).(x+h+k*h+h/2) by A2
      .= cdif(f,h).(2*k+1).(x+(k+1)*h+h/2);
    set r3 = cdif(f,h).(2*k+1).(x+k*h+h/2);
    set r2 = cdif(f,h).(2*k+1).(x+(k+1)*h+h/2);
    set r1 = cdif(f,h).(2*k+1).(x+(k+2)*h+h/2);
A5: fdif(f,h).(2*(k+1)) is Function of REAL,REAL by Th2;
A6: cdif(f,h).(2*k+1) is Function of REAL,REAL by Th19;
A7: cdif(f,h).(2*(k+1)) is Function of REAL,REAL by Th19;
A8: fdif(f,h).(2*k+1) is Function of REAL,REAL by Th2;
A9: cdif(f,h).(2*(k+1)).(x+(k+1)*h) = cdif(f,h).(2*k+1+1).(x+(k+1)*h)
      .= cD(cdif(f,h).(2*k+1),h).(x+(k+1)*h) by Def8
      .= cdif(f,h).(2*k+1).(x+(k+1)*h+h/2) - cdif(f,h).(2*k+1).(x+(k+1)*h-h/
    2) by A6,Th5
      .= cdif(f,h).(2*k+1).(x+(k+1)*h+h/2) - cdif(f,h).(2*k+1).(x+k*h+h/2);
A10: cdif(f,h).(2*(k+1)).(x+(k+2)*h) = cdif(f,h).(2*k+1+1).(x+(k+2)*h)
      .= cD(cdif(f,h).(2*k+1),h).(x+(k+2)*h) by Def8
      .= cdif(f,h).(2*k+1).(x+(k+2)*h+h/2) - cdif(f,h).(2*k+1).(x+(k+2)*h-h/
    2) by A6,Th5
      .= cdif(f,h).(2*k+1).(x+(k+2)*h+h/2) - cdif(f,h).(2*k+1).(x+(k+1)*h+h/
    2);
A11: cdif(f,h).(2*(k+1)+1).(x+(k+1)*h+h/2) = cD(cdif(f,h).(2*(k+1)),h).(x+
    (k+1)*h+h/2) by Def8
      .= cdif(f,h).(2*(k+1)).(x+(k+1)*h+h/2+h/2) - cdif(f,h).(2*(k+1)).(x+(k
    +1)*h+h/2-h/2) by A7,Th5
      .= (r1 - r2) - (r2 - r3) by A10,A9;
    fdif(f,h).(2*(k+1)+1).x = fD(fdif(f,h).(2*(k+1)),h).x by Def6
      .= fdif(f,h).(2*(k+1)).(x+h) - fdif(f,h).(2*(k+1)).x by A5,Th3
      .= fD(fdif(f,h).(2*k+1),h).(x+h) - fdif(f,h).((2*k+1)+1).x by Def6
      .= fD(fdif(f,h).(2*k+1),h).(x+h) - fD(fdif(f,h).(2*k+1),h).x by Def6
      .= (fdif(f,h).(2*k+1).(x+h+h) - fdif(f,h).(2*k+1).(x+h)) - fD(fdif(f,h
    ).(2*k+1),h).x by A8,Th3
      .= (fdif(f,h).(2*k+1).(x+h+h) - fdif(f,h).(2*k+1).(x+h)) - (fdif(f,h).
    (2*k+1).(x+h) - fdif(f,h).(2*k+1).x) by A8,Th3
      .= (r1 - r2) - (r2 - r3) by A2,A3,A4;
    hence thesis by A11;
  end;
A12: X[0]
  proof
    let x;
    (fdif(f,h).(2*0+1)).x = fD(fdif(f,h).0,h).x by Def6
      .= fD(f,h).x by Def6
      .= f.(x+h) - f.x by Th3
      .= f.(x+h/2+h/2) - f.(x+h/2-h/2)
      .= cD(f,h).(x+h/2) by Th5
      .= cD(cdif(f,h).0,h).(x+h/2) by Def8
      .= (cdif(f,h).(2*0+1)).(x+0*h+h/2) by Def8;
    hence thesis;
  end;
  for n holds X[n] from NAT_1:sch 2(A12,A1);
  hence thesis;
end;
