"Source: Text/Ring/FldFunG.text";
"Line: 4704";
"Date: Fri Sep 26 13:15:42 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Ring/FldFunG.text, line: 4704
// Example: H46E31 ()
print "Example: H46E31";
ei := GetEchoInput();
SetEchoInput(true);
PR<x> := PolynomialRing(Rationals());
P<y> := PolynomialRing(PR);
FR1<a> := FunctionField(y^3 - x);
P<y> := PolynomialRing(FR1);
FR2<c> := FunctionField(y^2 - a);
MFR1F := MaximalOrderFinite(FR1);
m, f := Module([c, c + a], MFR1F);
f(m.1);
assert $1 eq 1;
f(m.2);
m, f := Module([c, c + a], FR1);
f(m.1);
f(m.2);
assert $1 eq 1;
m;
Relations([c, c + a], FR1, 1);
SetEchoInput(ei);
