add external constructors for SAut i SL
This commit is contained in:
parent
8ee8eebd9e
commit
b45adc2e00
@ -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)"
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user