two more typos
This commit is contained in:
parent
aed92b7793
commit
ab35761b24
|
@ -541,7 +541,7 @@ InstallOtherMethod(DirectProductOp, "for a list and non-quasigroup magma",
|
||||||
elif Length(list) = 1 then
|
elif Length(list) = 1 then
|
||||||
return list[1];
|
return list[1];
|
||||||
fi;
|
fi;
|
||||||
jof := RoughJoinOfFilters(list, first);
|
jof := RoughJoinOfFilters@(list, first);
|
||||||
|
|
||||||
# The dispatch below is somewhat ad-hoc, but covers the major existing cases
|
# 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 i in [1..Length(list)] do
|
||||||
for g in GeneratorsOfMagmaWithOne(list[i]) do
|
for g in GeneratorsOfMagmaWithOne(list[i]) do
|
||||||
current := ShallowCopy(ids);
|
current := ShallowCopy(ids);
|
||||||
current[i] = g;
|
current[i] := g;
|
||||||
Add(gens, DirectProductElement(current));
|
Add(gens, DirectProductElement(current));
|
||||||
od;
|
od;
|
||||||
od;
|
od;
|
||||||
|
|
Loading…
Reference in New Issue