reserve a for set,
  i for Nat;

theorem
  (*-->a).3 = <*a,a,a*>
proof
  thus (*-->a).3 = 3 |-> a by FINSEQ_2:def 6
    .= <*a,a,a*> by FINSEQ_2:62;
end;
