"Source: Text/Lat/GLat.text";
"Line: 1533";
"Date: Fri Sep 26 12:10:10 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Lat/GLat.text, line: 1533
// Example: H33E8 ()
print "Example: H33E8";
ei := GetEchoInput();
SetEchoInput(true);
G:= AutomorphismGroup(Lattice("A", 5));
FactoredOrder(G);
#SublatticeLattice(G, 5);
assert $1 eq 1;
V:= SublatticeLattice(G, {2,3}); #V;
M:= MaximalSublattices(V ! 1); M;
V ! 2 meet V ! 3;
F:= PositiveDefiniteForm(G);
L:= Dual(Lattice(BasisMatrix(V ! 2), F) : Rescale:= false);
V ! L;
(V ! 2) + (V ! (6*L));
SetEchoInput(ei);
