add parent; move GWord constructor and GSymbol -> GWord conversion

This commit is contained in:
kalmar 2017-05-11 18:01:55 +02:00
parent 4718c40bd1
commit a3db7ab92c
1 changed files with 4 additions and 2 deletions

View File

@ -48,10 +48,12 @@ type GWord{T<:GSymbol} <: GroupElem
end
end
GWord{T<:GSymbol}(s::T) = GWord{T}([s])
convert{T<:GSymbol, W<:Word}(::Type{W}, s::T) = GWord{T}(s)
parent{T<:GSymbol}(w::GWord{T}) = w.parent
GWord{T<:GSymbol}(s::T) = GWord{T}(T[s])
convert{T<:GSymbol}(::Type{GWord{T}}, s::T) = GWord{T}(T[s])
function hash(W::GWord, h::UInt)