reserve X for non empty UNITSTR;
reserve a, b for Real;
reserve x, y for Point of X;
reserve X for RealUnitarySpace;
reserve x, y, z, u, v for Point of X;

theorem Th14:
  (0.X) .|. x = 0
proof
  09(X) .|. x = (x + (-x)) .|. x by RLVECT_1:5
    .= x .|. x + (-x) .|. x by Def2
    .= x .|. x + ( - x .|. x ) by Th8;
  hence thesis;
end;
