reserve x,x1,x2,x3 for Real;

theorem
  cot(x) = 1/tan(x) by XCMPLX_1:57;
