2018-08-08 00:17:44 +02:00
|
|
|
module PropertyTGroups
|
|
|
|
|
|
|
|
using AbstractAlgebra
|
|
|
|
using Nemo
|
|
|
|
using Groups
|
|
|
|
|
2018-08-20 03:22:16 +02:00
|
|
|
export PropertyTGroup, SymmetrizedGroup, GAPGroup, Naive, Symmetrize,
|
2018-08-20 03:28:09 +02:00
|
|
|
SpecialLinearGroup,
|
|
|
|
SpecialAutomorphismGroup,
|
|
|
|
HigmanGroup,
|
|
|
|
CapraceGroup,
|
|
|
|
MappingClassGroup
|
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
|
|
|
|
|
2018-08-20 03:22:16 +02:00
|
|
|
struct Symmetrize end
|
|
|
|
struct Naive end
|
|
|
|
|
2018-08-08 00:17:44 +02:00
|
|
|
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
|