"Source: Text/Ring/FldAC.text";
"Line: 972";
"Date: Tue Apr 21 07:11:34 2020";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Ring/FldAC.text, line: 972
// Example: H43E4 ()
print "Example: H43E4";
ei := GetEchoInput();
SetEchoInput(true);
A := AlgebraicClosure();  
x := Sqrt(A!2) + Sqrt(A!-3);  
y := Sqrt(A ! (-1 + 2*Sqrt(A!-6)));  
A;
x;
y;
x eq y; // depends on choice of square roots
Conjugates(x);
y in Conjugates(x);
assert $1;
P<z> := PolynomialRing(RationalField());
MinimalPolynomial(x);
MinimalPolynomial(y);
assert $1 eq $2;
SetEchoInput(ei);
