theorem
  1r(#)seq=seq
proof
  now
    let n;
    thus (1r(#)seq).n=1r*seq.n by VALUED_1:6
      .=seq.n;
  end;
  hence thesis by FUNCT_2:63;
end;
