HasIsLeftRack didn't work, so just call IsLeftRack
This commit is contained in:
parent
f065049281
commit
5668076b83
|
@ -249,12 +249,12 @@ InstallMethod(IsRSelfDistributive, "for magma",
|
||||||
|
|
||||||
## View and print and such
|
## View and print and such
|
||||||
LeftObjString@ := function(Q)
|
LeftObjString@ := function(Q)
|
||||||
if HasIsLeftRack(Q) and IsLeftRack(Q) then return "LeftRack"; fi;
|
if IsLeftRack(Q) then return "LeftRack"; fi;
|
||||||
return "LeftQuasigroup";
|
return "LeftQuasigroup";
|
||||||
end;
|
end;
|
||||||
|
|
||||||
RightObjString@ := function(Q)
|
RightObjString@ := function(Q)
|
||||||
if HasIsRightRack(Q) and IsRightRack(Q) then return "RightRack"; fi;
|
if IsRightRack(Q) then return "RightRack"; fi;
|
||||||
return "RightQuasigroup";
|
return "RightQuasigroup";
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue