theorem Th13:
  p *p"=idseq n & p"*p=idseq n
proof
  p is Permutation of Seg n by Def12;
  hence thesis by FUNCT_2:61;
end;
