scalarProduct(R,i,j)
i1 : R=rootSystemA(2) o1 = RootSystem{...8...} o1 : RootSystem
i2 : scalarProduct(R,1,1) 1 o2 = - 3 o2 : QQ
i3 : scalarProduct(R,1,2) 1 o3 = - 6 o3 : QQ
i4 : scalarProduct(R,2,2) 1 o4 = - 3 o4 : QQ