reserve n,m for Element of NAT;
reserve h,k,r,r1,r2,x,x0,x1,x2,x3 for Real;
reserve f,f1,f2 for Function of REAL,REAL;
reserve S for Seq_Sequence;

theorem
  (for x holds f.x = (cot(#)cos).x) & x+h/2 in dom cot & x-h/2 in dom cot
  implies cD(f,h).x = 1/sin(x+h/2)-sin(x+h/2)-1/sin(x-h/2)+sin(x-h/2)
proof
  assume that
A1:for x holds f.x = (cot(#)cos).x and
A2:x+h/2 in dom cot & x-h/2 in dom cot;
  cD(f,h).x = f.(x+h/2) - f.(x-h/2) by DIFF_1:5
    .= (cot(#)cos).(x+h/2) - f.(x-h/2) by A1
    .= (cot(#)cos).(x+h/2) - (cot(#)cos).(x-h/2) by A1
    .= (cot.(x+h/2))*(cos.(x+h/2)) - (cot(#)cos).(x-h/2) by VALUED_1:5
    .= (cot.(x+h/2))*(cos.(x+h/2)) - (cot.(x-h/2))*(cos.(x-h/2)) by VALUED_1:5
    .= (cos.(x+h/2)*(sin.(x+h/2))")*(cos.(x+h/2))-(cot.(x-h/2))*(cos.(x-h/2))
                                                     by A2,RFUNCT_1:def 1
    .= cos(x+h/2)/sin(x+h/2)*cos(x+h/2)-cos(x-h/2)/sin(x-h/2)*cos(x-h/2)
                                                       by A2,RFUNCT_1:def 1
    .= cos(x+h/2)/(sin(x+h/2)/cos(x+h/2))-cos(x-h/2)/sin(x-h/2)*cos(x-h/2)
                                                            by XCMPLX_1:82
    .= cos(x+h/2)/(sin(x+h/2)/cos(x+h/2))-cos(x-h/2)/(sin(x-h/2)/cos(x-h/2))
                                                            by XCMPLX_1:82
    .= (cos(x+h/2)*cos(x+h/2))/sin(x+h/2)-cos(x-h/2)/(sin(x-h/2)/cos(x-h/2))
                                                       by XCMPLX_1:77
    .= (cos(x+h/2)*cos(x+h/2))/sin(x+h/2)-(cos(x-h/2)*cos(x-h/2))/sin(x-h/2)
                                                       by XCMPLX_1:77
    .= (1-sin(x+h/2)*sin(x+h/2))/sin(x+h/2)-(cos(x-h/2)*cos(x-h/2))/sin(x-h/2)
                                                       by SIN_COS4:5
    .= (1/sin(x+h/2)-sin(x+h/2)*sin(x+h/2)/sin(x+h/2))
       -(1-sin(x-h/2)*sin(x-h/2))/sin(x-h/2) by SIN_COS4:5
    .= (1/sin(x+h/2)-sin(x+h/2))
       -(1/sin(x-h/2)-sin(x-h/2)*sin(x-h/2)/sin(x-h/2))
                                                 by A2,FDIFF_8:2,XCMPLX_1:89
    .= (1/sin(x+h/2)-sin(x+h/2))-(1/sin(x-h/2)-sin(x-h/2))
                                                 by A2,FDIFF_8:2,XCMPLX_1:89
    .= 1/sin(x+h/2)-sin(x+h/2)-1/sin(x-h/2)+sin(x-h/2);
  hence thesis;
end;
