theorem
  -<*a*> = <*-a*>
proof
  thus -<*a*> = <*(comp K).a*> by FINSEQ_2:35
    .= <*-a*> by VECTSP_1:def 13;
end;
