reserve a,b,c for set;

theorem
  for D being non empty set,f being FinSequence of D st f=<*a*> holds a in D
proof
  let D be non empty set,f be FinSequence of D;
A1: f is Function of dom f,D by FINSEQ_2:26;
  assume
A2: f=<*a*>;
  then 1<=len f by FINSEQ_1:40;
  then
A3: 1 in dom f by FINSEQ_3:25;
  f.1=a by A2;
  hence thesis by A3,A1,FUNCT_2:5;
end;
