reserve x,x1,x2,x3 for Real;

theorem
  (cos(x))^2=(1+cos(2*x))/2
proof
  (1+cos(2*x))/2=(1+(2*(cos(x))^2-1))/2 by Th7
    .=(cos(x))^2*2/2;
  hence thesis;
end;
