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