"Source: Text/Lat/GLat.text";
"Line: 1511";
"Date: Thu Apr  1 10:52:23 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Lat/GLat.text, line: 1511
// 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);
