reserve i, j, n for Element of NAT,
  f, g, h, k for FinSequence of REAL,
  M, N for non empty MetrSpace;

theorem Th8:
  len f = len sqr f & dom f = dom sqr f by RVSUM_1:143;
