theorem Th45:
  for r being Real st r <> 0 holds [\ r / r /] = 1
proof
  let r be Real;
  assume r <> 0;
  hence [\ r / r /] = [\ 1 /] by XCMPLX_1:60
    .= 1;
end;
