reserve x,x1,x2,x3 for Real;

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