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

theorem Th15:
  |.f.| = 1 implies {f} is R-normal by TARSKI:def 1;
