theorem
  j in Seg i & a9 = R.j implies (a*R).j = a*a9
proof
  assume j in Seg i;
  then j in Seg len (a*R) by CARD_1:def 7;
  then j in dom (a*R) by FINSEQ_1:def 3;
  hence thesis by Th50;
end;
