reserve i, j, m, n for Nat,
  z, B0 for set,
  f, x0 for real-valued FinSequence;

theorem
  for u,v being Element of REAL n holds (Euclid_scalar n).(u,v) = |(u,v
  )| by REAL_NS1:def 5;
