add external constructors for SAut i SL

This commit is contained in:
kalmarek 2018-09-16 17:53:10 +02:00
parent 8ee8eebd9e
commit b45adc2e00
2 changed files with 15 additions and 14 deletions

View File

@ -1,9 +1,10 @@
struct SpecialAutomorphismGroup{N} <: SymmetrizedGroup
group::AutGroup
end
function SpecialAutomorphismGroup(args::Dict)
return new{args["SAut"]}(AutGroup(FreeGroup(N), special=true))
end
N = args["SAut"]
return SpecialAutomorphismGroup{N}(AutGroup(FreeGroup(N), special=true))
end
name(G::SpecialAutomorphismGroup{N}) where N = "SAutF$(N)"

View File

@ -2,6 +2,7 @@ struct SpecialLinearGroup{N} <: SymmetrizedGroup
group::AbstractAlgebra.Group
p::Int
X::Bool
end
function SpecialLinearGroup(args::Dict)
N = args["SL"]
@ -14,8 +15,7 @@ struct SpecialLinearGroup{N} <: SymmetrizedGroup
R = Nemo.NmodRing(UInt(p))
G = MatrixSpace(R, N, N)
end
return new{N}(G, p, X)
end
return SpecialLinearGroup{N}(G, p, X)
end
function name(G::SpecialLinearGroup{N}) where N