(< clone : 'a; node : 'Pxp_document.node;
   set_node : 'Pxp_document.node -> unit; .. >
 as 'a) ->
['a] Pxp_document.node