Skip to content

Commit

Permalink
MinimalGeneratingSet for groups
Browse files Browse the repository at this point in the history
Broader test of quotients.
  • Loading branch information
hulpke authored and fingolfin committed Dec 5, 2022
1 parent 94f6eac commit 55da583
Showing 1 changed file with 8 additions and 3 deletions.
11 changes: 8 additions & 3 deletions lib/grp.gi
Original file line number Diff line number Diff line change
Expand Up @@ -168,11 +168,16 @@ local r,i,j,u,f,q,n,lim,sel,nat,ok,mi;
od;
f:=FreeGroup(r);
ok:=false;
if IsPerfectGroup(g) then
if not IsSolvableGroup(g) then
if n=false then
n:=ShallowCopy(NormalSubgroups(g));
# all perfect groups of order <15360 *are* 2-generated
lim:=15360;
if IsPerfectGroup(g) then
# all perfect groups of order <15360 *are* 2-generated
lim:=15360;
else
# all groups of order <8 *are* 2-generated
lim:=8;
fi;
n:=Filtered(n,x->IndexNC(g,x)>=lim and Size(x)>1);
SortBy(n,x->-Size(x));
mi:=MinimalInclusionsGroups(n);
Expand Down

0 comments on commit 55da583

Please sign in to comment.