2018-08-08 00:17:44 +02:00
|
|
|
module PropertyTGroups
|
|
|
|
|
|
|
|
using AbstractAlgebra
|
|
|
|
using Nemo
|
|
|
|
using Groups
|
|
|
|
|
2018-08-15 17:19:28 +02:00
|
|
|
export PropertyTGroup, SymmetrizedGroup, GAPGroup
|
2018-08-08 00:17:44 +02:00
|
|
|
|
|
|
|
abstract type PropertyTGroup end
|
|
|
|
|
2018-08-15 17:19:28 +02:00
|
|
|
abstract type SymmetrizedGroup <: PropertyTGroup end
|
2018-08-08 00:17:44 +02:00
|
|
|
|
|
|
|
abstract type GAPGroup <: PropertyTGroup end
|
|
|
|
|
|
|
|
include("autfreegroup.jl")
|
|
|
|
include("speciallinear.jl")
|
|
|
|
|
|
|
|
Comm(x,y) = x*y*x^-1*y^-1
|
|
|
|
|
|
|
|
generatingset(G::GAPGroup) = gens(group(G))
|
|
|
|
|
|
|
|
include("mappingclassgroup.jl")
|
|
|
|
include("higman.jl")
|
|
|
|
include("caprace.jl")
|
|
|
|
|
|
|
|
end # of module PropertyTGroups
|