reserve a for set,
  i for Nat;

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