kalmar/PropertyT.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/PropertyT.jl.git synced 2024-12-25 18:25:30 +01:00
Code Issues Releases Wiki Activity

(==) and hash functions for AutGroups

Browse Source
This commit is contained in:
kalmar 2017-01-21 17:17:45 +01:00
parent bfa1ad73ef
commit cb47c62f5d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
AutGroups.jl
View File

@ -4,6 +4,7 @@ using Groups
using Permutations
import Base: inv
import Groups: IdSymbol, change_pow, GWord, ==, hash, reduce!
export IDSymbol, AutSymbol, AutWord
export rmul_AutSymbol, lmul_AutSymbol, flip_AutSymbol, symmetric_AutSymbol
@ -14,6 +15,8 @@ immutable AutSymbol <: GSymbol
ex::Expr
end
(==)(s::AutSymbol, t::AutSymbol) = s.gen == t.gen && s.pow == t.pow
hash(s::AutSymbol, h::UInt) = hash(s.gen, hash(s.pow, hash(:AutSymbol, h)))
IDSymbol(::Type{AutSymbol}) = AutSymbol("(id)", 0, :(IDAutomorphism(N)))
change_pow(s::AutSymbol, n::Int) = reduce(AutSymbol(s.gen, n, s.ex))