theorem Th11:
  -seq = (-1)*seq
proof
  let n be Element of NAT;
  thus ((-1)*seq).n=(-1)*seq.n by Th5
    .=-seq.n by RLVECT_1:16
    .=(-seq).n by Th6;
end;
