"Source: Text/Ring/FldFunG.text";
"Line: 3517";
"Date: Thu Jun 16 15:04:46 2022";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Ring/FldFunG.text, line: 3517
// Example: H45E27 ()
print "Example: H45E27";
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);
