"Source: Text/Ring/FldFunG.text";
"Line: 3563";
"Date: Fri Sep 26 13:15:42 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Ring/FldFunG.text, line: 3563
// Example: H46E27 ()
print "Example: H46E27";
ei := GetEchoInput();
SetEchoInput(true);
PR<x> := PolynomialRing(Rationals());
P<y> := PolynomialRing(PR);
FR1<a> := FunctionField(y^3 - x*y + 1);
P<y> := PolynomialRing(FR1);
FR2<c> := FunctionField(y^2 - a^5*x^3*y + 1);
EFR2F := EquationOrderFinite(FR2);
cf := hom<FR1 -> EFR2F | a + 1>;
h := hom<FR2 -> EFR2F | cf, c + 1>;
h(c) eq c + 1;
assert $1;
h(a*c) eq a*c + a + c + 1;
assert $1;
SetEchoInput(ei);
