"Source: Text/Geometry/ModAbVar.text";
"Line: 1776";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/ModAbVar.text, line: 1776
// Example: H148E33 ()
print "Example: H148E33";
ei := GetEchoInput();
SetEchoInput(true);
A := JZero(11);
x := A![1/10,0]; x;
Order(x);
assert $1 eq 10;
B,pi := A/Subgroup([x]);
B;
pi;
Matrix(pi);
IntegralMatrix(pi);
base := Basis(IntegralHomology(B)); base;
y := B![1/10,0]; y;
Order(y);
assert $1 eq 10;
z := B!base[1]; z;
SetEchoInput(ei);
