always forgetting to go down to the underlying

This commit is contained in:
Glen Whitney 2017-10-22 00:51:37 +02:00
parent 070ad81eba
commit ccf0e6f8e3

View File

@ -90,7 +90,7 @@ InstallMethod(GeneratorsOfMagma,
# idea: ^g^-1: * ^h: = ^g: \ ^h:, so the generators of the quasigroup
# together with their inverses generate the quandle as a magma.
gens := GeneratorsOfLeftQuasigroup(Q);
invgens := Set(gens, g -> Inverse(g));
invgens := Set(gens, g -> ConjugatorObj(Inverse(g![1])));
UniteSet(invgens, gens);
return invgens;
end);