1
0
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:
kalmar 2017-05-15 17:23:23 +02:00
parent 18ae84d9cd
commit 9606a14743

View File

@ -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