reserve m,n,i,i2,j for Nat,
  r,r1,r2,s,t for Real,
  x,y,z for object;
reserve p,p1,p2,p3,q,q1,q2,q3,q4 for Point of TOP-REAL n;
reserve u for Point of Euclid n;
reserve R for Subset of TOP-REAL n;
reserve P,Q for Subset of TOP-REAL n;
reserve D for non vertical non horizontal non empty compact Subset of TOP-REAL
  2;
reserve f for clockwise_oriented non constant standard
  special_circular_sequence;
reserve p for Point of TOP-REAL 2;

theorem
 for n being Nat, r being Real st r > 0
 for x,y,z being Element of Euclid n st x = 0*n
 for p being Element of TOP-REAL n st p = y & r*p = z
 holds r*dist(x,y) = dist(x,z) by Lm1;
