theorem Th5:
  cpx2euc(x1+x2*<i>)= |[x1,x2]|
proof
  Re (x1+x2*<i>)=x1 by COMPLEX1:12;
  hence thesis by COMPLEX1:12;
end;
