-- -*- M2-comint -*- hash: 12574630117716121661

i1 : g=simpleLieAlgebra("D",4)

o1 = g

o1 : simple LieAlgebra

i2 : h=subLieAlgebra(g,{2,{1,0,1,1}})

o2 = h

o2 : simple LieAlgebra, subalgebra of g

i3 : isIsomorphic(h,simpleLieAlgebra("G",2))

o3 = true

i4 : 
