"Source: Text/Geometry/CrvEll.text";
"Line: 2819";
"Date: Wed Sep 19 23:00:01 2018";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvEll.text, line: 2819
// Example: H131E25 ()
print "Example: H131E25";
ei := GetEchoInput();
SetEchoInput(true);
E := EllipticCurve([GF(NextPrime(10^12)) | 1, 1]);
Order(E);
assert $1 eq 1000001795702;
FactoredOrder(E);
P := E ! [652834414164, 320964687531, 1];
P;
IsOrder(P, Order(E));
assert $1;
FactoredOrder(P);
FactoredOrder(3677 * 59 * P);
SetEchoInput(ei);
