"Source: Text/Algebra/AlgLie.text";
"Line: 942";
"Date: Thu Nov  7 07:18:13 2019";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Algebra/AlgLie.text, line: 942
// Example: H107E11 ()
print "Example: H107E11";
ei := GetEchoInput();
SetEchoInput(true);
QQ := Rationals();
L := ExtremalLieAlgebra(QQ, BipartiteGraph(2,2));
Ngens(L), CoefficientRing(L);
G := CommutatorGraph(L); G;
L := ExtremalLieAlgebra(QQ, 4 : CommGens := [<1,2>,<3,4>]);
Ngens(L), CoefficientRing(L);
G := CommutatorGraph(L); G;
SetEchoInput(ei);
