theorem Th22:
  i in dom -p & a = p.i implies (-p).i = -a
proof
  assume i in dom -p & a = p.i;
  then (-p).i = (comp K).a by FUNCT_1:12;
  hence thesis by VECTSP_1:def 13;
end;
