"Source: Text/Geometry/Scheme.text";
"Line: 1146";
"Date: Fri May 26 16:23:18 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Scheme.text, line: 1146
// Example: H119E9 ()
print "Example: H119E9";
ei := GetEchoInput();
SetEchoInput(true);
k<w> := FiniteField(3^2);
A := AffineSpace(k,2);
p := A ! [1,2];
K := ext< k | 2 >;
q := A(K) ! [1,2];
m := hom< k -> k | w^3 >;  // Frobenius
r := A(m) ! [1,2];
p eq q;
assert $1;
SetEchoInput(ei);
