theorem
  uReal.r == 0_No implies r=0
proof
  assume uReal.r == 0_No;
  then 0 <= r <= 0 by SURREALN:51,47;
  hence thesis;
end;
