"Source: Text/Algebra/AlgLie.text";
"Line: 3621";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgLie.text, line: 3621
// Example: H110E40 ()
print "Example: H110E40";
ei := GetEchoInput();
SetEchoInput(true);
k := GF(3, 3);
L, phi := TwistedLieAlgebra(TwistedRootDatum("D4" : Twist := 3), k);
H := SplitToralSubalgebra(L);
H;
IsSplitToralSubalgebra(L, H);
assert $1;
C := Centraliser(L,H); C;
IsToralSubalgebra(L,C), IsSplitToralSubalgebra(L, C);
LK := Codomain(phi);       
LK;
CK := sub<LK | [ phi(b) : b in Basis(C) ]>;
IsSplitToralSubalgebra(LK, CK);
assert $1;
SetEchoInput(ei);
