mirror of
https://github.com/kalmarek/Groups.jl.git
synced 2024-12-26 18:30:29 +01:00
16 lines
320 B
Julia
16 lines
320 B
Julia
|
@testset "FPGroups definitions" begin
|
||
|
|
F = FreeGroup(["a", "b", "c"])
|
||
|
|
a,b,c = gens(F)
|
||
|
|
R = [a^2, a*b*a, c*b*a]
|
||
|
|
@test F/R isa FPGroup
|
||
|
|
@test F isa FreeGroup
|
||
|
|
G = F/R
|
||
|
|
A,B,C = gens(G)
|
||
|
|
|
||
|
|
@test A^2 == one(G)
|
||
|
|
@test A*B*A*A == A
|
||
|
|
@test A*A*B*A == B*A
|
||
|
|
|
||
|
|
@test G/[B^2, C*B*C] isa FPGroup
|
||
|
|
end
|