reserve D for non empty set,
  i,j,k for Nat,
  n,m for Nat,
  r for Real,
  e for real-valued FinSequence;

theorem
  for x being FinSequence of REAL holds |(x,(len x |-> 1))| = Sum x by Th32;
