theorem Th12:
  Double (-x) = -Double x
proof
  0.G = Double 0.G by RLVECT_1:def 4
    .= Double (x+-x) by RLVECT_1:def 10
    .= Double x + Double (-x) by Th10;
  hence thesis by RLVECT_1:6;
end;
