//Standard generators of L2(31) are a and b where a has order 2, b has order 3
//and ab has order 31.
//Standard generators of the double cover 2.L2(31) = SL2(31) are preimages A and
//B where B has order 3 and AB has order 31.
_LR := rec < recformat< F: GrpFP, AI: SeqEnum, G: GrpMat > |
      F := FreeGroup(2) >;
_LR`AI := [ [a^-1, b^-1] ]
             where a is (_LR`F).1 where b is (_LR`F).2;
//two constituents interchanged by _LR`AI[1][1]
_LR`G :=
MatrixGroup<16, ext<K|Polynomial(K, [8, -1, 1])> where K is RationalField() |
[[0,0],[1,0],[
0,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[-1,0],[
0,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[-1,0],[
0,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[1,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[1,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[-1,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[-1,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[-1,0],[
0,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[1,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[1,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[1,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
1,0],[0,0],[
-513/965,309/965],[1407/965,-1/965],[
-1847/965,-129/965],[-80/193,29/193
],[21/965,72/965],[-418/193,
-27/193],[663/965,481/965],[
-1693/965,399/965],[-851/965,253/965],[
-621/965,628/965],[-166/965,258/965
],[-68/965,-371/965],[614/965,
313/965],[-21/193,121/193],[
-85/193,67/193],[-649/965,532/965],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
-1,0],[0,0],[
0,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[
-1,0],[0,0],[0,0],[
0,0],[0,0],[
-353/965,-521/965],[-1323/965,289/965],[
1103/965,-354/965],[153/193,-82/193
],[-279/965,422/965],[177/193,
-110/193],[-1502/965,-49/965],[
-943/965,-476/965],[-136/965,223/965],[
-21/965,-72/965],[689/965,-257/965
],[1317/965,104/965],[-851/965,
253/965],[-300/193,-36/193],[
54/193,-63/193],[-614/965,-313/965]],
[[0,0],[0,0],[
1,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[-1,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[
-1,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[-1,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[-1,0],[
0,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
-1,0],[0,0],[
0,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[1,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[1,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[1,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[-1,0],[
0,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[-1,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[-1,0],[
-135/386,61/386],[-97/386,81/386],[
16/193,-83/193],[-12/193,14/193],[
18/193,-21/193],[-82/193,-33/193],
[-49/386,25/386],[-45/193,-44/193
],[-163/386,-35/386],[-229/193,
42/193],[-32/193,-27/193],[
-89/386,-57/386],[-133/386,123/386],[
-373/386,17/386],[-61/193,39/193],
[-313/386,-53/386],[-47/386,87/386
],[-151/386,-49/386],[7/193,
24/193],[43/193,-18/193],[32/193,
27/193],[-60/193,70/193],[63/386,
23/386],[113/193,29/193],[
375/386,45/386],[129/193,-54/193],[
-14/193,-48/193],[-51/386,-37/386],[
171/386,-103/386],[259/386,-77/386
],[-87/193,5/193],[237/386,13/386
],[1467/1930,-71/1930],[-773/1930,
-31/1930],[-161/965,413/965],[
111/193,-33/193],[-157/965,151/965],[
83/193,64/193],[1253/1930,-529/1930
],[296/965,-88/965],[639/1930,
123/1930],[507/965,84/965],[
322/965,139/965],[787/1930,79/1930],[
699/1930,53/1930],[121/386,-109/386
],[130/193,-23/193],[1111/1930,
87/1930],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0],[0,0],[
0,0],[-1,0],[
0,0],[0,0],[0,0],[
0,0],[0,0],[0,
0],[0,0]]>;

return _LR;
