reserve a, b for Real;
reserve RNS for RealNormSpace;
reserve x, y, z, g, g1, g2 for Point of RNS;

theorem Th6:
  ||.x - y.|| = 0 iff x = y
proof
  ||.x - y.|| = 0 iff x - y = 09(RNS) by NORMSP_0:def 5;
  hence thesis by RLVECT_1:15,21;
end;
