"Source: Text/Ring/FldFunG.text";
"Line: 476";
"Date: Fri Sep 26 13:15:42 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Ring/FldFunG.text, line: 476
// Example: H46E5 ()
print "Example: H46E5";
ei := GetEchoInput();
SetEchoInput(true);
PR<x> := PolynomialRing(Rationals());
P<y> := PolynomialRing(PR);
FR1<a> := FunctionField(y^3 - x*y^2 + y + x^4);
P<y> := PolynomialRing(FR1);
FR2<c> := FunctionField(y^2 + y - a/x^5);
EFR1F := EquationOrderFinite(FR1);
MFR1F := MaximalOrderFinite(FR1);
EFR1I := EquationOrderInfinite(FR1);
MFR1I := MaximalOrderInfinite(FR1);
EFR2F := EquationOrderFinite(FR2);
MFR2F := MaximalOrderFinite(FR2);
EFR2I := EquationOrderInfinite(FR2);
MFR2I := MaximalOrderInfinite(FR2);
MFR2I;
P<y> := PolynomialRing(FR1);
MaximalOrder(ext<MFR1F | y^2 + y - a*x^5>); MFR2F;
MaximalOrder(ext<MFR1I | y^2 - 1/a>);
SetEchoInput(ei);
