theorem Th31:
  for p st p<>0.TOP-REAL 2 holds (Arg(p)<PI iff 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:16;
end;
