theorem Th21:
  |.euc2cpx(p).|=sqrt ((p`1)^2+(p`2)^2)
proof
  Re euc2cpx(p)=p`1 by COMPLEX1:12;
  hence thesis by COMPLEX1:12;
end;
