reserve f for Function;
reserve p,q for FinSequence;
reserve A,B,C for set,x,x1,x2,y,z for object;
reserve k,l,m,n for Nat;
reserve a for Nat;
reserve D for non empty set;
reserve d,d1,d2,d3 for Element of D;

theorem
  <* d *>/.1 = d
proof
A1: 1 in {1} by FINSEQ_1:2;
  dom<* d *> = {1} & <* d *>.1 = d by FINSEQ_1:2,def 8;
  hence thesis by A1,PARTFUN1:def 6;
end;
