"Source: Text/Algebra/AlgLie.text";
"Line: 320";
"Date: Thu Nov  7 07:18:13 2019";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgLie.text, line: 320
// Example: H107E2 ()
print "Example: H107E2";
ei := GetEchoInput();
SetEchoInput(true);
L:= MatrixLieAlgebra( Rationals(), 2 );
a:= L!Matrix( [[1,0],[0,0]] );
b:= L!Matrix( [[0,0],[1,0]] );
c:= L!Matrix( [[0,0],[0,1]] );
K:= sub< L | [ a, b, c ] >;
Dimension(K);
assert $1 eq 3;
IsSolvable(K);
assert $1;
IsNilpotent(K);
assert not $1;
SetEchoInput(ei);
