i1 : R = rootSystemB(4)
o1 = RootSystem{...8...}
o1 : RootSystem
|
i2 : p = halfSumOfRoots(R)
o2 = | 1 |
| 1 |
| 1 |
| 1 |
o2 : Weight
|
i3 : reflect(R,{1,2,3,4},p)
o3 = | -4 |
| 1 |
| 1 |
| 3 |
o3 : Weight
|