"Source: Text/Geometry/Scheme.text";
"Line: 1192";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Scheme.text, line: 1192
// Example: H122E9 ()
print "Example: H122E9";
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);
