fix: Aut(G)-isomorphism

thofma · Aug 28, 2024 · 08ce8b5 · 08ce8b5
1 parent c8604b9
commit 08ce8b5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/AlgAssAbsOrd/PIP.jl b/src/AlgAssAbsOrd/PIP.jl
@@ -129,7 +129,7 @@ function _isisomorphic_generic_right(X, Y; strategy = :default)
       @assert alpha * X == Y
     end
   elseif strategy == :s1
-    fl = __isprincipal_s1(Gamma, CIint, :right)::Bool
+    fl = _is_principal(CIint, Gamma; side = :right)::Bool
     alpha = zero(algebra(order(X)))
   else
     error("strategy :$strategy not valid")