positiveRoots(R,P)
i1 : R=rootSystemA(4) o1 = RootSystem{...8...} o1 : RootSystem
i2 : P=parabolic(R,set{1,2}) o2 = set {1, 2} o2 : Parabolic
i3 : positiveRoots(R,P) o3 = set {| 1 |, | 2 |, | -1 |} | 1 | | -1 | | 2 | | -1 | | 0 | | -1 | | 0 | | 0 | | 0 | o3 : Set