REBASE csetperm.gi

hulpke · Mar 27, 2024 · 9225514 · 9225514
1 parent 79d8c82
commit 9225514
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/csetperm.gi b/lib/csetperm.gi
@@ -262,7 +262,14 @@ InstallGlobalFunction( AddCosetInfoStabChain, function( G, U, maxmoved )
               vert:=List(t1,x->x^-1);
               # inverses of transversal, stored compact
               # TODO: Instead of `Position`, use translabels entry
-              transinv:=List(G.transversal,x->vert[Position(t1,x)]);
+              #transinv:=List(G.transversal,x->vert[Position(t1,x)]);
+              transinv:=[];
+              for i in [1..Length(G.transversal)] do
+                if IsBound(G.transversal[i]) then
+                  t:=Position(t1,G.transversal[i]);
+                  transinv[i]:=vert[t];
+                fi;
+              od;
               # Position in orbit
               gorpo:=[];
               for i in [1..Length(G.orbit)] do