is_subsymbol function

2017-01-25 10:57:48 +01:00 · 2017-01-25 10:57:48 +01:00 · c7e3c0b403
parent 6b87bf44a3
commit c7e3c0b403
1 changed files with 3 additions and 0 deletions
--- a/src/Groups.jl
+++ b/src/Groups.jl
@ -173,6 +173,9 @@ end
 (^)(x::GWord, n::Integer) = power_by_squaring(x,n)
 (^){T<:GSymbol}(x::T, n::Integer) = GWord(x)^n

+is_subsymbol(s::GSymbol, t::GSymbol) =
+    s.gen == t.gen && (0 ≤ s.pow ≤ t.pow || 0 ≥ s.pow ≥ t.pow)
+
 include("free_groups.jl")
 include("automorphism_groups.jl")