
theorem Th5:
  for x,y be Real holds -[**x,y**] = [**-x,-y**]
proof
  let x,y be Real;
  thus -[**x,y**] = -(x+y*<i>) by COMPLFLD:2
    .= [**-x,-y**];
end;
