val tag_pool : t -> Tag.pool
val string : t -> string
val descr : t -> descr
+ val is_node : t -> bool
val left : t -> t
val right : t -> t
+ val first_child : t -> t
+ val next_sibling : t -> t
val parent : t -> t
val id : t -> int
val tag : t -> Tag.t
let compare = (-) end)
end
+ let is_node = function { node=Node(_) } -> true | _ -> false
let get_string t (i:string_content) = Text.get_text t.doc i
open Tree
let node_of_t t = { doc= t;