have to map indices back into the family

This commit is contained in:
Glen Whitney 2017-10-18 13:36:38 +02:00
parent d278a47beb
commit 1c8d3fbe52
1 changed files with 4 additions and 1 deletions

View File

@ -106,7 +106,10 @@ InstallOtherMethod(LeftQuotient,
IsIdenticalObj,
[IsLeftQuotientElement, IsMagmaByMultiplicationTableObj],
function (l,r)
return LeftDivisionTable(FamilyObj(l))[l![1],r![1]];
local fam, ix;
fam := FamilyObj(l);
ix := LeftDivisionTable(fam)[l![1],r![1]];
return fam!.set[ix];
end);
## Create division tables as needed