diff --git a/gap/structure.gi b/gap/structure.gi index e98fddc..193ba75 100644 --- a/gap/structure.gi +++ b/gap/structure.gi @@ -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