theorem Th25:
  -(i|->a) = i|->-a
proof
  thus -(i|->a) = i|->((comp K).a) by FINSEQOP:16
    .= i|->-a by VECTSP_1:def 13;
end;
