reserve z,z1,z2 for Complex;
reserve r,x1,x2 for Real;
reserve p0,p,p1,p2,p3,q for Point of TOP-REAL 2;

theorem
  euc2cpx(r*p)= r*euc2cpx(p)
proof
  r*p = |[r*p`1,r*p`2]| by EUCLID:57;
  then (r*p)`1=r*p`1 & (r*p)`2=r*p`2 by EUCLID:52;
  hence thesis;
end;
