
theorem
  for r be Real holds |.[**r,0**].| = |.r.|;
