small amendments.
This commit is contained in:
parent
03d80d9acb
commit
1cf79a02c3
@ -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",
|
||||
|
@ -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 ) ) )
|
||||
);
|
||||
|
||||
#############################################################################
|
||||
|
Loading…
Reference in New Issue
Block a user