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

View File

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