reserve D for non empty set,
  f for FinSequence of D,
  p, p1, p2, p3, q for Element of D,
  i, j, k, l, n for Nat;

theorem
  Swap(<*p1, p2*>, 1, 2) = <*p2, p1*>
proof
  set f = <*p1,p2*>;
A1: len f = 2 by FINSEQ_1:44;
  then 1 in dom f by FINSEQ_3:25;
  then
A2: f/.1 = f.1 by PARTFUN1:def 6
    .= p1;
  2 in dom f by A1,FINSEQ_3:25;
  then
A3: f/.2 = f.2 by PARTFUN1:def 6
    .= p2;
  Swap(f,1,2) = Replace(Replace(f,1,f/.2),2,f/.1) by A1,Def2
    .= Replace(<*p2,p2*>,2,f/.1) by A3,Th13;
  hence thesis by A2,Th14;
end;
