code should work even if there is such a thing as an infinite table
This commit is contained in:
parent
ef55f230e3
commit
9af5d627d8
|
@ -40,11 +40,12 @@ end);
|
||||||
## And now create them from multiplication tables
|
## And now create them from multiplication tables
|
||||||
|
|
||||||
#First a helper function
|
#First a helper function
|
||||||
FiniteMagmaCreator@ := function(tbl, const, filts)
|
FiniteMagmaCreator@ := function(tbl, cnstr, filts)
|
||||||
local M;
|
local M;
|
||||||
M := MagmaByMultiplicationTableCreatorNC(
|
M := MagmaByMultiplicationTableCreatorNC(
|
||||||
tbl, const, filts and IsMagmaByMultiplicationTableObj);
|
tbl, cnstr, filts and IsMagmaByMultiplicationTableObj);
|
||||||
SetIsFinite(ElementsFamily(FamilyObject(M)));
|
# Is there such a thing as a non-finite table in GAP? Anyhow...
|
||||||
|
SetIsFinite(ElementsFamily(FamilyObj(M)), IsFinite(tbl));
|
||||||
return M;
|
return M;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue