Update gap/attributes/attr.gi

Co-authored-by: James Mitchell <james-d-mitchell@users.noreply.github.com>
semigroups · Aug 7, 2024 · 1ec7731 · 1ec7731
1 parent 47a7653
commit 1ec7731
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/gap/attributes/attr.gi b/gap/attributes/attr.gi
@@ -1149,6 +1149,9 @@ function(S)
     func2 := MitschLeqSemigroup(S);
     out  := List([1 .. Size(S)], x -> []);
     regular := ListWithIdenticalEntries(Size(S), false);
+if IsRegularSemigroup(S) do
+  FlipBlist(regular);
+ else
     for D in RegularDClasses(S) do
         for a in D do
             i := PositionCanonical(S, a) ^ (p ^ -1);