theorem
  for a,b being Real holds (a-b)^2 = (b-a)^2;
