theorem Th13:
  euc2cpx(-p)= -euc2cpx(p)
proof
  -euc2cpx(p) = -(p`1)+(-(p`2))*<i>;
  hence thesis by Th12;
end;
