Fall back to generators of domain

This commit is contained in:
Glen Whitney 2017-10-29 14:19:05 -04:00
parent 0b68afb47e
commit 8c939b4a91

View File

@ -600,6 +600,8 @@ InstallOtherMethod(DirectProductOp, "for a list and non-quasigroup magma",
genfunc := GeneratorsOfRightQuasigroup; genfunc := GeneratorsOfRightQuasigroup;
elif "HasGeneratorsOfMagma" in jof then elif "HasGeneratorsOfMagma" in jof then
genfunc := GeneratorsOfMagma; genfunc := GeneratorsOfMagma;
elif "HasGeneratorsOfDomain" in jof then
genfunc := GeneratorsOfDomain;
else else
Info(InfoRAQ,1, "RAQ: Unusual product, each of ", list, Info(InfoRAQ,1, "RAQ: Unusual product, each of ", list,
" has generators, but not sure what kind; trying next method."); " has generators, but not sure what kind; trying next method.");