Что-то туго идёт... Но есть такое предположение, что число искомых автоморфизмов столько же, сколько и перестановок множества
![$A$ $A$](https://dxdy-02.korotkov.co.uk/f/5/3/d/53d147e7f3fe6e47ee05b88b166bd3f682.png)
, т. е.
![$k!$ $k!$](https://dxdy-02.korotkov.co.uk/f/9/d/6/9d6c5e19ffd270ead9ea60bbae1902d082.png)
. Не знаю, как это строго объяснить, но идея такая: если мы будем учитывать порядок элементов в множествах (т. е. заменим множества на кортежи) и у нас имеется алгоритм, который будет из кортежа
![$A$ $A$](https://dxdy-02.korotkov.co.uk/f/5/3/d/53d147e7f3fe6e47ee05b88b166bd3f682.png)
делает кортеж
![$\mathcal P(A)$ $\mathcal P(A)$](https://dxdy-01.korotkov.co.uk/f/0/1/6/0161521a32b0861a2c69e36d22cee6c182.png)
, то если мы переставим элементы в
![$A$ $A$](https://dxdy-02.korotkov.co.uk/f/5/3/d/53d147e7f3fe6e47ee05b88b166bd3f682.png)
, то кортеж
![$\mathcal P(A)$ $\mathcal P(A)$](https://dxdy-01.korotkov.co.uk/f/0/1/6/0161521a32b0861a2c69e36d22cee6c182.png)
тоже изменится. Автоморфизм получается так: первый элемент исходного кортежа
![$\mathcal P(A)$ $\mathcal P(A)$](https://dxdy-01.korotkov.co.uk/f/0/1/6/0161521a32b0861a2c69e36d22cee6c182.png)
переводится в первый элемент "переставленного", второй элемент -- во второй элемент и т. д.
(Я плохо умею выражать свои мысли словами, поэтому пример)
Код:
Prelude> let p [] = [[]]; p (x:xs) = map (x:) (p xs) ++ p xs;
Prelude> p "abc"
["abc","ab","ac","a","bc","b","c",""]
Prelude> p "bca"
["bca","bc","ba","b","ca","c","a",""]
Т. е. перестановке
![$(a,b,c)\mapsto (b,c,a)$ $(a,b,c)\mapsto (b,c,a)$](https://dxdy-01.korotkov.co.uk/f/4/3/9/439e3139f6155dc619f31b34ad5c340b82.png)
соответсвует автоморфизм
![$\varphi$ $\varphi$](https://dxdy-01.korotkov.co.uk/f/4/1/7/417a5301693b60807fa658e5ef9f953582.png)
такой, что
![$$\begin{gathered}
\{a,b\}\mapsto \{b,c\};\quad \{a,c\}\mapsto \{a,b\};\quad \{b,c\}\mapsto \{a,c\};\\
\{a\}\mapsto \{b\};\quad \{b\}\mapsto \{c\};\quad \{c\}\mapsto \{a\};\\
\varnothing\mapsto \varnothing; \quad\{a,b,c\}\mapsto\{a,b,c\}.
\end{gathered}$$ $$\begin{gathered}
\{a,b\}\mapsto \{b,c\};\quad \{a,c\}\mapsto \{a,b\};\quad \{b,c\}\mapsto \{a,c\};\\
\{a\}\mapsto \{b\};\quad \{b\}\mapsto \{c\};\quad \{c\}\mapsto \{a\};\\
\varnothing\mapsto \varnothing; \quad\{a,b,c\}\mapsto\{a,b,c\}.
\end{gathered}$$](https://dxdy-04.korotkov.co.uk/f/7/7/a/77a5c08d05142774938c3d5e4d0da77582.png)