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

theorem Th8:
  ||.x.|| - ||.y.|| <= ||.x - y.||
proof
  (x - y) + y = x - (y - y) by RLVECT_1:29
    .= x - 09(RNS) by RLVECT_1:15
    .= x;
  then ||.x.|| <= ||.x - y.|| + ||.y.|| by Def1;
  hence thesis by XREAL_1:20;
end;
