mirror of
https://github.com/kalmarek/Groups.jl.git
synced 2024-12-26 02:20:30 +01:00
19 lines
461 B
Julia
19 lines
461 B
Julia
@testset "FPGroups definitions" begin
|
|
F = FreeGroup(["a", "b", "c"])
|
|
a,b,c = Groups.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 = Groups.gens(G)
|
|
|
|
@test Groups.reduce!(A^2) == one(G)
|
|
@test Groups.reduce!(A*B*A*A) == A
|
|
@test Groups.reduce!(A*A*B*A) == A
|
|
|
|
@test Groups.freepreimage(G) == F
|
|
@test Groups.freepreimage(B^2) == b^2
|
|
|
|
@test G/[B^2, C*B*C] isa FPGroup
|
|
end
|