let
get_parent (tree :
'
a tree) (n :
'
a tree) :
'
a tree =
find (
fun
_ l
->
List
.mem n l) tree