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;
