Quelle  a14wrs5mat.g   Sprache: unbekannt

# This is A14 mod 3 dim 13 wreath S5:
LoadPackage("cvec");
gens := AtlasGenerators("A14",11).generators;
l := [];
Add(l,CVEC_GlueMatrices([gens[1],gens[1]^0,gens[1]^0,gens[1]^0,gens[1]^0]));
Add(l,CVEC_GlueMatrices([gens[2],gens[1]^0,gens[1]^0,gens[1]^0,gens[1]^0]));
Add(l,KroneckerProduct(PermutationMat((1,2,3,4,5),5,GF(3)),gens[1]^0));
Add(l,KroneckerProduct(PermutationMat((1,2),5,GF(3)),gens[1]^0));
g := Group(l);