"Source: Text/Geometry/ModAbVar.text";
"Line: 3999";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/ModAbVar.text, line: 3999
// Example: H148E64 ()
print "Example: H148E64";
ei := GetEchoInput();
SetEchoInput(true);
phi := HeckeOperator(JZero(65),2)-1;
HasFiniteKernel(phi);
assert $1;
IsEndomorphism(phi);
assert $1;
IsHeckeOperator(phi);
IsInjective(phi);
assert not $1;
IsInteger(phi);
assert not $1;
IsIsogeny(phi);
assert $1;
IsIsomorphism(phi);
assert not $1;
IsMorphism(phi);
assert $1;
IsMorphism(1/2*phi);
assert not $1;
IsSurjective(phi);
assert $1;
IsZero(phi);
assert not $1;
OnlyUpToIsogeny(phi);
assert not $1;
2 eq phi;
assert not $1;
phi eq 2;
assert not $1;
2 eq nIsogeny(JZero(65),2);
assert $1;
phi eq nIsogeny(JZero(65),2);
assert not $1;
phi in [* phi, nIsogeny(JZero(65),2) *];
assert $1;
IsIsomorphism(NaturalMap(JZero(11),JOne(11)));
assert not $1;
IsIsomorphism(NaturalMap(JZero(11)^2,JZero(22)));
assert not $1;
IsIsomorphism(NaturalMap(JZero(11),JZero(11)));
assert $1;
SetEchoInput(ei);
