theorem Th17:
  -(-seq) = seq
proof
  thus -(-seq)=(-1)*(-seq) by Th11
    .=(-1)*((-1)*seq) by Th11
    .=((-1)*(-1))*seq by Th13
    .=seq by Th16;
end;
