sig
  type 'a var
  type 'a mvar = 'a Bindlib.var array
  type ('a, 'b) binder
  type ('a, 'b) mbinder
  val subst : ('a, 'b) Bindlib.binder -> 'a -> 'b
  val msubst : ('a, 'b) Bindlib.mbinder -> 'a array -> 'b
  val new_var : ('a Bindlib.var -> 'a) -> string -> 'a Bindlib.var
  val new_mvar : ('a Bindlib.var -> 'a) -> string array -> 'a Bindlib.mvar
  val name_of : 'a Bindlib.var -> string
  val names_of : 'a Bindlib.mvar -> string array
  val unbind : ('a, 'b) Bindlib.binder -> 'a Bindlib.var * 'b
  val unbind2 :
    ('a, 'b) Bindlib.binder ->
    ('a, 'c) Bindlib.binder -> 'a Bindlib.var * 'b * 'c
  val eq_binder :
    ('b -> 'b -> bool) ->
    ('a, 'b) Bindlib.binder -> ('a, 'b) Bindlib.binder -> bool
  val unmbind : ('a, 'b) Bindlib.mbinder -> 'a Bindlib.mvar * 'b
  val unmbind2 :
    ('a, 'b) Bindlib.mbinder ->
    ('a, 'c) Bindlib.mbinder -> 'a Bindlib.mvar * 'b * 'c
  val eq_mbinder :
    ('b -> 'b -> bool) ->
    ('a, 'b) Bindlib.mbinder -> ('a, 'b) Bindlib.mbinder -> bool
  type +'a box
  val box_var : 'a Bindlib.var -> 'a Bindlib.box
  val box : 'a -> 'a Bindlib.box
  val apply_box : ('a -> 'b) Bindlib.box -> 'a Bindlib.box -> 'b Bindlib.box
  val box_apply : ('a -> 'b) -> 'a Bindlib.box -> 'b Bindlib.box
  val box_apply2 :
    ('a -> 'b -> 'c) -> 'a Bindlib.box -> 'b Bindlib.box -> 'c Bindlib.box
  val bind_var :
    'a Bindlib.var -> 'b Bindlib.box -> ('a, 'b) Bindlib.binder Bindlib.box
  val bind_mvar :
    'a Bindlib.mvar -> 'b Bindlib.box -> ('a, 'b) Bindlib.mbinder Bindlib.box
  val box_binder :
    ('b -> 'b Bindlib.box) ->
    ('a, 'b) Bindlib.binder -> ('a, 'b) Bindlib.binder Bindlib.box
  val box_mbinder :
    ('b -> 'b Bindlib.box) ->
    ('a, 'b) Bindlib.mbinder -> ('a, 'b) Bindlib.mbinder Bindlib.box
  val unbox : 'a Bindlib.box -> 'a
  val box_opt : 'a Bindlib.box option -> 'a option Bindlib.box
  val box_list : 'a Bindlib.box list -> 'a list Bindlib.box
  val box_rev_list : 'a Bindlib.box list -> 'a list Bindlib.box
  val box_array : 'a Bindlib.box array -> 'a array Bindlib.box
  val box_apply3 :
    ('a -> 'b -> 'c -> 'd) ->
    'a Bindlib.box -> 'b Bindlib.box -> 'c Bindlib.box -> 'd Bindlib.box
  val box_apply4 :
    ('a -> 'b -> 'c -> 'd -> 'e) ->
    'a Bindlib.box ->
    'b Bindlib.box -> 'c Bindlib.box -> 'd Bindlib.box -> 'e Bindlib.box
  val box_pair : 'a Bindlib.box -> 'b Bindlib.box -> ('a * 'b) Bindlib.box
  val box_triple :
    'a Bindlib.box ->
    'b Bindlib.box -> 'c Bindlib.box -> ('a * 'b * 'c) Bindlib.box
  module type Map =
    sig
      type 'a t
      val map : ('a -> 'b) -> 'a Bindlib.Map.t -> 'b Bindlib.Map.t
    end
  module Lift :
    functor (M : Map) ->
      sig val lift_box : 'a Bindlib.box M.t -> 'a M.t Bindlib.box end
  module type Map2 =
    sig
      type ('a, 'b) t
      val map :
        ('a -> 'b) ->
        ('c -> 'd) -> ('a, 'c) Bindlib.Map2.t -> ('b, 'd) Bindlib.Map2.t
    end
  module Lift2 :
    functor (M : Map2) ->
      sig
        val lift_box :
          ('a Bindlib.box, 'b Bindlib.box) M.t -> ('a, 'b) M.t Bindlib.box
      end
  val hash_var : 'a Bindlib.var -> int
  val compare_vars : 'a Bindlib.var -> 'b Bindlib.var -> int
  val eq_vars : 'a Bindlib.var -> 'b Bindlib.var -> bool
  val binder_name : ('a, 'b) Bindlib.binder -> string
  val binder_occur : ('a, 'b) Bindlib.binder -> bool
  val binder_constant : ('a, 'b) Bindlib.binder -> bool
  val binder_closed : ('a, 'b) Bindlib.binder -> bool
  val binder_rank : ('a, 'b) Bindlib.binder -> int
  val mbinder_arity : ('a, 'b) Bindlib.mbinder -> int
  val mbinder_names : ('a, 'b) Bindlib.mbinder -> string array
  val mbinder_occurs : ('a, 'b) Bindlib.mbinder -> bool array
  val mbinder_constant : ('a, 'b) Bindlib.mbinder -> bool
  val mbinder_closed : ('a, 'b) Bindlib.mbinder -> bool
  val mbinder_rank : ('a, 'b) Bindlib.mbinder -> int
  val is_closed : 'a Bindlib.box -> bool
  val occur : 'a Bindlib.var -> 'b Bindlib.box -> bool
  val bind_apply :
    ('a, 'b) Bindlib.binder Bindlib.box -> 'a Bindlib.box -> 'b Bindlib.box
  val mbind_apply :
    ('a, 'b) Bindlib.mbinder Bindlib.box ->
    'a array Bindlib.box -> 'b Bindlib.box
  type ctxt
  val empty_ctxt : Bindlib.ctxt
  val new_var_in :
    Bindlib.ctxt ->
    ('a Bindlib.var -> 'a) -> string -> 'a Bindlib.var * Bindlib.ctxt
  val new_mvar_in :
    Bindlib.ctxt ->
    ('a Bindlib.var -> 'a) -> string array -> 'a Bindlib.mvar * Bindlib.ctxt
  val unbind_in :
    Bindlib.ctxt ->
    ('a, 'b) Bindlib.binder -> 'a Bindlib.var * 'b * Bindlib.ctxt
  val unmbind_in :
    Bindlib.ctxt ->
    ('a, 'b) Bindlib.mbinder -> 'a Bindlib.mvar * 'b * Bindlib.ctxt
  val uid_of : 'a Bindlib.var -> int
  val uids_of : 'a Bindlib.mvar -> int array
  val copy_var :
    'b Bindlib.var -> ('a Bindlib.var -> 'a) -> string -> 'a Bindlib.var
  val reset_counter : unit -> unit
  val dummy_box : 'a Bindlib.box
  val binder_compose :
    ('a, 'b) Bindlib.binder -> ('b -> 'c) -> ('a, 'c) Bindlib.binder
  val mbinder_compose :
    ('a, 'b) Bindlib.mbinder -> ('b -> 'c) -> ('a, 'c) Bindlib.mbinder
  val raw_binder :
    string ->
    bool ->
    int -> ('a Bindlib.var -> 'a) -> ('a -> 'b) -> ('a, 'b) Bindlib.binder
  val raw_mbinder :
    string array ->
    bool array ->
    int ->
    ('a Bindlib.var -> 'a) -> ('a array -> 'b) -> ('a, 'b) Bindlib.mbinder
end