Print methods for quasigroup/loop elms jsut for this specific representation

This commit is contained in:
Glen Whitney 2017-10-29 15:12:01 -04:00
parent 71672eeb9c
commit fb39c9e02e
1 changed files with 3 additions and 3 deletions

View File

@ -12,8 +12,8 @@
## DISPLAYING AND COMPARING ELEMENTS
## -------------------------------------------------------------------------
InstallMethod( PrintObj, "for a quasigroup element",
[ IsQuasigroupElement ],
InstallMethod( PrintObj, "for a default quasigroup element",
[ IsQuasigroupElmRep ],
function( obj )
local F;
F := FamilyObj( obj );
@ -21,7 +21,7 @@ function( obj )
end );
InstallMethod( PrintObj, "for a loop element",
[ IsLoopElement ],
[ IsLoopElmRep ],
function( obj )
local F;
F := FamilyObj( obj );