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;
