#
# file:         6dim-sl2-heisenberg.gap (split from lielib.gap)
# created:      pasha jan 6 2005
# modified:     
# modification: 
#


# 6-dimensional Lie algebra (semidrect product of sl(2) and Heisenerg),
# as described by Rutwig; structure tensor 
# C_{12}^{2}=2, C_{13}^{3}=-2, C_{23}^{1}=1, C_{14}^{4}=-C_{15}^{5}=1, 
# C_{25}^{4}=1, C_{34}^{5}=1, C_{45}^{6}=1
T := EmptySCTable (6, 0, "antisymmetric");
SetEntrySCTable (T, 1, 2, [ 2, 2]);
SetEntrySCTable (T, 1, 3, [-2, 3]);
SetEntrySCTable (T, 2, 3, [ 1, 1]); 
SetEntrySCTable (T, 1, 4, [ 1, 4]);
SetEntrySCTable (T, 1, 5, [-1, 5]);
SetEntrySCTable (T, 2, 5, [ 1, 4]);
SetEntrySCTable (T, 3, 4, [ 1, 5]);
SetEntrySCTable (T, 4, 5, [ 1, 6]);
SemiSl2Heisenberg := LieAlgebraByStructureConstants (GroundField, T);
Unbind (T);


# end of 6dim-sl2-heisenberg.gap