let
treebox =
new
Ocvs_tree
.box (tb :>
Ocvs_types
.cvs_info
Ocvs_behav
.tree_behaviour)