theorem Th4:
  for X being set holds card id X = card X
proof
  let X be set;
  id X in Funcs(X,X) by FUNCT_2:9;
  hence thesis by CARD_2:3;
end;
