# Module Core_map.Poly.Tree

    module Tree: sig .. end

    type ('k, 'v) t = ('k, 'v, Comparator.Poly.comparator_witness) Core_map.Tree.t

    include Creators_and_accessors2

    val t_of_sexp : (Sexplib.Sexp.t -> 'k) ->
           (Sexplib.Sexp.t -> 'v) -> Sexplib.Sexp.t -> ('k, 'v) t

    val sexp_of_t : ('k -> Sexplib.Sexp.t) ->
           ('v -> Sexplib.Sexp.t) -> ('k, 'v) t -> Sexplib.Sexp.t