HasIsLeftRack didn't work, so just call IsLeftRack

This commit is contained in:
Glen Whitney 2017-10-19 01:18:58 +02:00
parent f065049281
commit 5668076b83

View File

@ -249,12 +249,12 @@ InstallMethod(IsRSelfDistributive, "for magma",
## View and print and such
LeftObjString@ := function(Q)
if HasIsLeftRack(Q) and IsLeftRack(Q) then return "LeftRack"; fi;
if IsLeftRack(Q) then return "LeftRack"; fi;
return "LeftQuasigroup";
end;
RightObjString@ := function(Q)
if HasIsRightRack(Q) and IsRightRack(Q) then return "RightRack"; fi;
if IsRightRack(Q) then return "RightRack"; fi;
return "RightQuasigroup";
end;