reserve a,b,s,t,u,lambda for Real,
  n for Nat;
reserve x,x1,x2,x3,y1,y2 for Element of REAL n;

theorem :: EUCLID_2:18
  for x being Element of REAL n holds |(0*n,x)| = 0 by Th18;
