theorem Th2:
  |.r-s.| = 0 iff r = s
proof
  hereby
    assume |.r-s.| = 0;
    then r - s = 0 by ABSVALUE:2;
    hence r = s;
  end;
  assume r = s;
  hence thesis by ABSVALUE:2;
end;
