theorem
  1r * seq = seq
proof
  now
    let n be Element of NAT;
    thus (1r * seq).n = 1r * seq.n by CLVECT_1:def 14
      .= seq.n by CLVECT_1:def 5;
  end;
  hence thesis by FUNCT_2:63;
end;
