reserve a for set,
  i for Nat;

theorem Th1:
  (*-->a).0 = {}
proof
  thus (*-->a).0 = 0 |-> a by FINSEQ_2:def 6
    .= {};
end;
