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