(* Algebra of 2x2 traceless matrices *)

SetDirectory[NotebookDirectory[]];

<< "SymboLie.wl"

e1={{1,0},{0,-1}};

e2={{0,1},{0,0}};

e3={{0,0},{1,0}};

cs=StructureConstants[{e1,e2,e3},{}]

ct=CommutatorTable[cs];ct//MatrixForm

Timing[alg1=SubAlgebra[cs,{{},{}},1];]

Timing[alg2=SubAlgebra[cs,{{},{}},2];]

PrintOptimal[alg1]

PrintGraph[alg1,1]

PrintOptimal[alg2]

PrintGraph[alg2,1]

alg = {alg1,alg2}

SessionTime[]