theorem
  for p st p<>0.TOP-REAL 2 holds (Arg(p)<PI implies Arg(-p)=Arg(p)+PI)&
  (Arg(p)>=PI implies Arg(-p)=Arg(p)-PI)
proof
  let p;
  assume p<>0.TOP-REAL 2;
  then
A1: euc2cpx(p)<>0c by Th2,Th16;
  Arg(-p)=Arg(-euc2cpx(p)) by Th13;
  hence thesis by A1,COMPLEX2:13;
end;
