theorem
  |.<*r*>.| = |.r.|
  proof
    set f = <*r*>;
    sqr f = <*r^2*> by RVSUM_1:55;
    then Sum sqr f = r^2 by RVSUM_1:73;
    hence thesis by COMPLEX1:72;
  end;
