reserve a for set,
  i for Nat;

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