let compare v v' = Pervasives.compare (node_type_id !v) (node_type_id !v')