theorem Th13:
  r(#)(seq1(#)seq2)=seq1(#)(r(#)seq2)
proof
  now
    let n;
    thus (r(#)(seq1(#)seq2)).n=r*(seq1(#)seq2).n by VALUED_1:6
      .=r*(seq1.n*seq2.n) by VALUED_1:5
      .=seq1.n*(r*seq2.n)
      .=seq1.n*(r(#)seq2).n by VALUED_1:6
      .=(seq1(#)(r(#)seq2)).n by VALUED_1:5;
  end;
  hence thesis by FUNCT_2:63;
end;
