let
equal v v' = (node_type_id !v) = (node_type_id !v')