-val next_node_before : t -> node -> node -> node
-val tagged_following_sibling : t -> node -> Tag.t -> node
-val select_following_sibling : t -> node -> unordered_set -> node
+val tagged_sibling : t -> node -> Tag.t -> node
+val select_sibling : t -> node -> unordered_set -> node