match requirements for distributivity tests

2017-10-20 15:30:44 +02:00 · 2017-10-20 15:30:44 +02:00 · 32a272fab9
commit 32a272fab9
parent 7f53975ebc
1 changed files with 2 additions and 2 deletions
--- a/gap/bytable.gi
+++ b/gap/bytable.gi
@ -198,12 +198,12 @@ end);

 ## Distributivity/idempotence checkers for when need be
 InstallMethod(IsLSelfDistributive, "for collections with multiplication tables",
-              [HasMultiplicationTable],
+              [IsMultiplicativeElementCollection and HasMultiplicationTable],
              M -> IsLeftSelfDistributiveTable(MultiplicationTable(M))
 );

 InstallMethod(IsRSelfDistributive, "for collections with multiplication table",
-              [HasMultiplicationTable],
+              [IsMultiplicativeElementCollection and HasMultiplicationTable],
              M -> IsRightSelfDistributiveTable(MultiplicationTable(M))
 );