small amendments.

This commit is contained in:
Glen Whitney 2017-10-30 12:30:15 -04:00
parent 03d80d9acb
commit 1cf79a02c3
2 changed files with 5 additions and 5 deletions

View File

@ -32,14 +32,14 @@ InstallMethod( \=, "for two elements of a quasigroup",
IsIdenticalObj,
[ IsQuasigroupElmRep, IsQuasigroupElmRep ],
function( x, y )
return FamilyObj( x ) = FamilyObj( y ) and x![ 1 ] = y![ 1 ];
return x![ 1 ] = y![ 1 ];
end );
InstallMethod( \<, "for two elements of a quasigroup",
IsIdenticalObj,
[ IsQuasigroupElmRep, IsQuasigroupElmRep ],
function( x, y )
return FamilyObj( x ) = FamilyObj( y ) and x![ 1 ] < y![ 1 ];
return x![ 1 ] < y![ 1 ];
end );
InstallMethod( \., "for quasigroup and positive integer",

View File

@ -866,9 +866,9 @@ InstallMethod( Opposite, "for magma",
M -> ConstructorFromTable(M)( TransposedMat( MultiplicationTable( M ) ) )
);
InstallMethod( Opposite, "for magma",
[ IsMagma and HasCayleyTable], # mult table easy if Cayley table there
M -> ConstructorFromTable(M)( TransposedMat( MultiplicationTable( M ) ) )
InstallMethod( Opposite, "for quasigroup",
[ IsQuasigroup ], # Might not have a multiplication table
M -> ConstructorFromTable(M)( TransposedMat( CayleyTable( M ) ) )
);
#############################################################################