glen
/
RAQ
1
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

magmawithinverseS

This commit is contained in:
Glen Whitney 2017-10-22 18:37:24 +02:00
parent 503562f7ab
commit cc19d81941
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gap/structure.gi
View File

@ -460,10 +460,10 @@ InstallMethod(Opposite, "for a finitely generated magma with one",
end);
InstallMethod(Opposite, "for a finitely generated magma with inverse",
[IsMagmaWithInverse and HasGeneratorsOfMagmaWithInverse],
[IsMagmaWithInverse and HasGeneratorsOfMagmaWithInverses],
function(M)
local fam, elts;
fam := CollectionsFamily(OppositeFamily(ElementsFamily(FamilyObj(M))));
elts := List(GeneratorsOfMagmaWithInverse(M), m -> OppositeObj(m));
return MagmaWithInverse(fam, elts);
elts := List(GeneratorsOfMagmaWithInverses(M), m -> OppositeObj(m));
return MagmaWithInverses(fam, elts);
end);