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
  <* d1,d2 *>/.1 = d1 & <* d1,d2 *>/.2 = d2
proof
  set s = <* d1,d2 *>;
A1: s.2 = d2 & 1 in {1,2} by FINSEQ_1:2;
A2: 2 in {1,2} by FINSEQ_1:2;
  dom s = {1,2} & s.1 = d1 by FINSEQ_1:2,89;
  hence thesis by A1,A2,PARTFUN1:def 6;
end;
