Lines Matching refs:h
64 | h :: tl when h.Node.key = key -> node :: tl
65 | h :: tl -> h :: aux tl
72 | h :: tl when h.Node.key = key -> tl
73 | h :: tl -> h :: aux tl
106 | h::t ->
107 if mem_node tree h
109 let node = find_node tree h in
126 | h::t ->
127 mem_node tree h
128 && (let node = find_node tree h in
136 | h::l ->
137 if mem_node tree h
139 let node = find_node tree h in
155 | h::t ->
156 if mem_node tree h
158 let node = find_node tree h in
159 replace_node tree h (set_node node t value)
161 let node = Node.empty h in
167 | h::t ->
168 if mem_node tree h
170 let node = find_node tree h in
174 then Node.set_children (Node.empty h) children
178 then remove_node tree h
179 else replace_node tree h new_node