"Source: Text/Ring/FldFunG.text";
"Line: 1704";
"Date: Thu Jun 16 15:04:46 2022";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Ring/FldFunG.text, line: 1704
// Example: H45E13 ()
print "Example: H45E13";
ei := GetEchoInput();
SetEchoInput(true);
k<t>:= FunctionField(Rationals());
R<x>:= PolynomialRing(k);
f:= x^15 + (-1875*t^2 - 125)*x^3 + (4500*t^2 + 300)*x^2 + 
    (-3600*t^2 - 240)*x + 960*t^2+ 64;
G, r, S:= GaloisGroup(f);
TransitiveGroupDescription(G);
A := Universe(r);
AssignNames(~A,  ["t"]);
A;
r[1];
S;
TransitiveGroupIdentification(G);
SetEchoInput(ei);
