mirror of
https://github.com/kalmarek/Groups.jl.git
synced 2024-11-19 06:30:29 +01:00
finish reduce if both simplify_perms! and free_reduce! return true
This commit is contained in:
parent
18ae84d9cd
commit
9606a14743
@ -282,8 +282,7 @@ function reduce!(W::AutGroupElem)
|
||||
else
|
||||
reduced = false
|
||||
while !reduced
|
||||
reduced = simplify_perms!(W)
|
||||
reduced = join_free_symbols!(W)
|
||||
reduced = simplify_perms!(W) && free_reduce!(W)
|
||||
deleteat!(W.symbols, find(x -> x.pow == 0, W.symbols))
|
||||
end
|
||||
end
|
||||
|
Loading…
Reference in New Issue
Block a user