let X be finite set ; :: thesis: card { F where F is Function of X,X : F is Permutation of X } = (card X) !
set F1 = { F where F is Function of X,X : F is one-to-one } ;
set F2 = { F where F is Function of X,X : F is Permutation of X } ;
A1:
{ F where F is Function of X,X : F is one-to-one } c= { F where F is Function of X,X : F is Permutation of X }
{ F where F is Function of X,X : F is Permutation of X } c= { F where F is Function of X,X : F is one-to-one }
then A5:
{ F where F is Function of X,X : F is one-to-one } = { F where F is Function of X,X : F is Permutation of X }
by A1, XBOOLE_0:def 10;
((card X) -' (card X)) ! = 1
by NEWTON:18, XREAL_1:234;
then
((card X) ! ) / (((card X) -' (card X)) ! ) = (card X) !
;
hence
card { F where F is Function of X,X : F is Permutation of X } = (card X) !
by A5, Th7; :: thesis: verum