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

theorem Th30:
  for x,y being FinSequence of REAL st len x = len y holds
  len mlt (x,y) = len x by FINSEQ_2:72;
