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

theorem Th32:
  for x being FinSequence of REAL holds mlt((len x|->1),x) = x
proof
  let x be FinSequence of REAL;
  reconsider y=x as Element of (len x)-tuples_on REAL by FINSEQ_2:92;
  mlt(len x|->1,y) = y by Th31;
  hence thesis;
end;
