reserve i,j,k,n,m,l,s,t for Nat;
reserve a,b for Real;
reserve F for real-valued FinSequence;

theorem Th2:
  len (a*F) = len F
proof
  dom(a*F) = dom F by VALUED_1:def 5;
  hence thesis by FINSEQ_3:29;
end;
