"Source: Text/Algebra/AlgLie.text";
"Line: 5246";
"Date: Thu Sep 25 14:47:46 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Algebra/AlgLie.text, line: 5246
// Example: H110E55 ()
print "Example: H110E55";
ei := GetEchoInput();
SetEchoInput(true);
F<a>:= RationalFunctionField( Rationals() );
T:= [ <1,2,2,1>, <1,2,3,a>, <1,4,4,a>, <2,1,2,-1>, <2,1,3,-a>, <4,1,4,-a> ]; 
L:= LieAlgebra< F, 4 | T >;
s,p,f:= IdDataSLAC( L );
s;
p;
MatrixOfIsomorphism( f );
a:= 1;
T:= [ <1,2,2,1>, <1,2,3,a>, <1,4,4,a>, <2,1,2,-1>, <2,1,3,-a>, <4,1,4,-a> ]; 
L:= LieAlgebra< Rationals(), 4 | T >;
s,p,f:= IdDataSLAC( L );
s;
MatrixOfIsomorphism( f );
a:= -1;
T:= [ <1,2,2,1>, <1,2,3,a>, <1,4,4,a>, <2,1,2,-1>, <2,1,3,-a>, <4,1,4,-a> ]; 
L:= LieAlgebra< Rationals(), 4 | T >;
s,p,f:= IdDataSLAC( L );
s;
MatrixOfIsomorphism( f );
a:= 0;
T:= [ <1,2,2,1>, <1,2,3,a>, <1,4,4,a>, <2,1,2,-1>, <2,1,3,-a>, <4,1,4,-a> ]; 
L:= LieAlgebra< Rationals(), 4 | T >;
s,p,f:= IdDataSLAC( L );
s;
MatrixOfIsomorphism( f );
SetEchoInput(ei);
