FreeGroup utility function

This commit is contained in:
kalmar 2017-05-11 18:26:37 +02:00
parent 8dd4d96b6f
commit 0c699894fa
1 changed files with 2 additions and 0 deletions

View File

@ -90,8 +90,10 @@ end
FreeGroup(n::Int, f::String=f) = FPGroup(["$f$i" for i in 1:n])
inv(s::FPSymbol) = change_pow(s, -s.pow)
FreeGroup(a::Vector{String}) = FPGroup(a)
function add_rel!{T<:FPSymbol}(G::FPGroup, w::GWord{T})
if !(w in G.rels)
push!(G.rels, w)