reserve a,b,c,d for Real;

theorem Th1:
  a^2 + b^2 = 0 implies a = 0
proof
  0 <= a^2 & 0 <= b^2 by XREAL_1:63;
  hence thesis;
end;
