theorem
  <* d1,d2,d3 *>/.1 = d1 & <* d1,d2,d3 *>/.2 = d2 & <* d1,d2,d3 *>/.3 = d3
proof
  set s = <* d1,d2,d3 *>;
A1: s.2 = d2 & s.3 = d3;
A2: 1 in {1,2,3} & 2 in {1,2,3} by FINSEQ_3:1;
A3: 3 in {1,2,3} by FINSEQ_3:1;
  dom s = {1,2,3} & s.1 = d1 by FINSEQ_1:89,FINSEQ_3:1;
  hence thesis by A1,A2,A3,PARTFUN1:def 6;
end;
