two more typos

This commit is contained in:
Glen Whitney 2017-10-25 16:35:17 +02:00
parent aed92b7793
commit ab35761b24

View File

@ -541,7 +541,7 @@ InstallOtherMethod(DirectProductOp, "for a list and non-quasigroup magma",
elif Length(list) = 1 then
return list[1];
fi;
jof := RoughJoinOfFilters(list, first);
jof := RoughJoinOfFilters@(list, first);
# The dispatch below is somewhat ad-hoc, but covers the major existing cases
@ -567,7 +567,7 @@ InstallOtherMethod(DirectProductOp, "for a list and non-quasigroup magma",
for i in [1..Length(list)] do
for g in GeneratorsOfMagmaWithOne(list[i]) do
current := ShallowCopy(ids);
current[i] = g;
current[i] := g;
Add(gens, DirectProductElement(current));
od;
od;