Disallow the transitive group of degree 1, as it is not clear whether…

… it is of degree 1 or 0. This fixes gap-system#797
hulpke · May 31, 2016 · 5bde204 · 5bde204
1 parent caf0757
commit 5bde204
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/trans/trans.grp b/trans/trans.grp
@@ -328,6 +328,9 @@ local l;
 end);
 
 InstallGlobalFunction(NrTransitiveGroups, function(deg)
+  if deg=1 then
+    return 0;
+  fi;
   if not(deg in [1..TRANSDEGREES]) then
     return fail;
   fi;
@@ -342,6 +345,9 @@ InstallGlobalFunction( TransitiveGroup, function(deg,num)
   if not(deg in [1..TRANSDEGREES]) then
     Error("degree must be in [1..",TRANSDEGREES,"]");
   fi;
+  if deg=1 then
+    return fail;
+  fi;
   if not IsBound(TRANSLENGTHS[deg]) then
     TransGrpLoad(deg,num);
   fi;