Blame gap-pkg-polycyclic-issinglevalued.patch

a4871e1
--- gap/basic/grphoms.gi.orig	2020-07-24 17:55:13.000000000 -0600
a4871e1
+++ gap/basic/grphoms.gi	2022-09-11 10:29:16.792073715 -0600
a4871e1
@@ -158,6 +158,10 @@ function( hom )
a4871e1
     gens := hom!.igs_gens_to_imgs[1];
a4871e1
     imgs := hom!.igs_gens_to_imgs[2];
a4871e1
 
a4871e1
+    if Length(gens) = 0 then
a4871e1
+        return true;
a4871e1
+    fi;
a4871e1
+
a4871e1
     # check relators
a4871e1
     for i in [1..Length( gens )] do
a4871e1
         if RelativeOrderPcp( gens[i] ) > 0 then
a4871e1
@@ -216,6 +220,10 @@ function( hom )
a4871e1
 
a4871e1
     C := TrivialSubgroup(Range(hom)); # the cokernel
a4871e1
 
a4871e1
+    if Length(gens) = 0 then
a4871e1
+        return C;
a4871e1
+    fi;
a4871e1
+
a4871e1
     # check relators
a4871e1
     for i in [1..Length( gens )] do
a4871e1
         if RelativeOrderPcp( gens[i] ) > 0 then