for x, y being set holds <:(root-tree x),(root-tree y):> = root-tree [x,y]