Refactor Code for AreCommuting

Co-authored-by: Sergio Siccha <siccha@mathematik.uni-kl.de>
gap-packages · Mar 31, 2021 · c0bc1c3 · c0bc1c3
1 parent 1f8b324
commit c0bc1c3
Showing 1 changed file with 2 additions and 10 deletions.
diff --git a/gap/base/recognition.gi b/gap/base/recognition.gi
@@ -162,16 +162,8 @@ InstallGlobalFunction( EmptyRecognitionInfoRecord,
     fi;
     Setarecommuting(ri, function(x,y)
       local a,b;
-      if IsObjWithMemory(x) then
-        a := StripMemory(x);
-      else
-        a := x;
-      fi;
-      if IsObjWithMemory(y) then
-        b := StripMemory(y);
-      else
-        b := y;
-      fi;
+      a := StripMemory(x);
+      b := StripMemory(y);
       return isequal(ri)(a*b, b*a);
     end);
     ri!.projective := projective;