sig
  type kind = [ `Base | `Bin | `Dir | `Doc | `Lib | `Pkg | `Run | `Unit ]
  val pp_kind : Format.formatter -> Assemblage.Part.kind -> unit
  type usage = [ `Build | `Dev | `Doc | `Other of string | `Outcome | `Test ]
  val pp_usage : Format.formatter -> Assemblage.Part.usage -> unit
  type meta
  val meta_key :
    unit ->
    ('a -> Assemblage.Part.meta) * (Assemblage.Part.meta -> 'a option)
  val meta_nil : Assemblage.Part.meta
  type +'a t = 'a Assemblage.part constraint 'a = [< Assemblage.part_kind ]
  val v :
    ?usage:Assemblage.Part.usage ->
    ?exists:bool Assemblage.Conf.value ->
    ?args:Assemblage.Args.t ->
    ?meta:Assemblage.Part.meta ->
    ?needs:[< Assemblage.part_kind ] Assemblage.part list ->
    ?root:Assemblage.Path.rel Assemblage.Conf.value ->
    ?actions:(Assemblage.Part.kind Assemblage.part ->
              Assemblage.Action.t list Assemblage.Conf.value) ->
    ?check:(Assemblage.Part.kind Assemblage.part ->
            bool Assemblage.Conf.value) ->
    string -> [< Assemblage.part_kind > `Base ] Assemblage.part
  val kind :
    [< Assemblage.part_kind ] Assemblage.part -> Assemblage.Part.kind
  val name : [< Assemblage.part_kind ] Assemblage.part -> string
  val usage :
    [< Assemblage.part_kind ] Assemblage.part -> Assemblage.Part.usage
  val exists :
    [< Assemblage.part_kind ] Assemblage.part -> bool Assemblage.Conf.value
  val meta :
    [< Assemblage.part_kind ] Assemblage.part -> Assemblage.Part.meta
  val get_meta :
    (Assemblage.Part.meta -> 'a option) ->
    [< Assemblage.part_kind ] Assemblage.Part.t -> 'a
  val root :
    [< Assemblage.part_kind ] Assemblage.part ->
    Assemblage.Path.rel Assemblage.Conf.value
  val root_path :
    [< Assemblage.part_kind ] Assemblage.part ->
    Assemblage.Path.t Assemblage.Conf.value
  val needs :
    [< Assemblage.part_kind ] Assemblage.part ->
    Assemblage.Part.kind Assemblage.Part.t list
  val actions :
    [< Assemblage.part_kind ] Assemblage.part ->
    Assemblage.Action.t list Assemblage.Conf.value
  val check :
    [< Assemblage.part_kind ] Assemblage.part -> bool Assemblage.Conf.value
  val id : [< Assemblage.part_kind ] Assemblage.part -> int
  val equal :
    [< Assemblage.part_kind ] Assemblage.part ->
    [< Assemblage.part_kind ] Assemblage.part -> bool
  val compare :
    [< Assemblage.part_kind ] Assemblage.part ->
    [< Assemblage.part_kind ] Assemblage.part -> int
  val redefine :
    ?check:(Assemblage.Part.kind Assemblage.part ->
            bool Assemblage.Conf.value) ->
    ?actions:(Assemblage.Part.kind Assemblage.part ->
              Assemblage.Action.t list Assemblage.Conf.value) ->
    ([< Assemblage.part_kind ] as 'a) Assemblage.part -> 'a Assemblage.part
  val file :
    ?usage:Assemblage.Part.usage ->
    ?exists:bool Assemblage.Conf.value ->
    Assemblage.Path.t -> [< Assemblage.part_kind > `Base ] Assemblage.part
  val integrate :
    ?add_need:(Assemblage.Part.kind Assemblage.part -> bool) ->
    ([< Assemblage.part_kind ] as 'a) Assemblage.part ->
    [< Assemblage.part_kind ] Assemblage.part -> 'a Assemblage.part
  val coerce :
    ([< Assemblage.part_kind ] as 'a) ->
    [< Assemblage.part_kind ] Assemblage.part -> 'a Assemblage.part
  val coerce_if :
    ([< Assemblage.part_kind ] as 'a) ->
    [< Assemblage.part_kind ] Assemblage.part -> 'a Assemblage.part option
  val list_actions :
    Assemblage.Part.kind Assemblage.part list ->
    Assemblage.Action.t list Assemblage.Conf.value
  val list_uniquify :
    Assemblage.Part.kind Assemblage.part list ->
    Assemblage.Part.kind Assemblage.part list
  val list_keep :
    (([< Assemblage.part_kind ] as 'a) Assemblage.part -> bool) ->
    'a Assemblage.part list -> 'a Assemblage.part list
  val list_keep_map :
    (([< Assemblage.part_kind ] as 'a) Assemblage.part -> 'b option) ->
    'a Assemblage.part list -> 'b list
  val list_keep_kind :
    ([< Assemblage.part_kind ] as 'a) ->
    [< Assemblage.part_kind ] Assemblage.part list -> 'a Assemblage.part list
  val list_keep_kinds :
    Assemblage.Part.kind list ->
    ([< Assemblage.part_kind ] as 'a) Assemblage.part list ->
    'a Assemblage.part list
  val list_fold :
    ('a -> ([< Assemblage.part_kind ] as 'b) Assemblage.part -> 'a) ->
    'a -> 'b Assemblage.part list -> 'a
  val list_fold_kind :
    ([< Assemblage.part_kind ] as 'b) ->
    ('a -> 'b Assemblage.part -> 'a) ->
    'a -> [< Assemblage.part_kind ] Assemblage.part list -> 'a
  val list_fold_rec :
    ('a -> Assemblage.Part.kind Assemblage.part -> 'a) ->
    'a -> Assemblage.Part.kind Assemblage.part list -> 'a
  val list_fold_kind_rec :
    ([< Assemblage.part_kind ] as 'b) ->
    ('a -> 'b Assemblage.Part.t -> 'a) ->
    'a -> Assemblage.Part.kind Assemblage.Part.t list -> 'a
  module Set :
    sig
      type elt = kind part
      type t
      val empty : t
      val is_empty : t -> bool
      val mem : elt -> t -> bool
      val add : elt -> t -> t
      val singleton : elt -> t
      val remove : elt -> t -> t
      val union : t -> t -> t
      val inter : t -> t -> t
      val diff : t -> t -> t
      val compare : t -> t -> int
      val equal : t -> t -> bool
      val subset : t -> t -> bool
      val iter : (elt -> unit) -> t -> unit
      val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a
      val for_all : (elt -> bool) -> t -> bool
      val exists : (elt -> bool) -> t -> bool
      val filter : (elt -> bool) -> t -> t
      val partition : (elt -> bool) -> t -> t * t
      val cardinal : t -> int
      val elements : t -> elt list
      val min_elt : t -> elt
      val max_elt : t -> elt
      val choose : t -> elt
      val split : elt -> t -> t * bool * t
      val find : elt -> t -> elt
      val of_list :
        Assemblage.Part.kind Assemblage.part list -> Assemblage.Part.t
    end
  module Map :
    sig
      type key = kind part
      type +'a t
      val empty : 'a t
      val is_empty : 'a t -> bool
      val mem : key -> 'a t -> bool
      val add : key -> 'a -> 'a t -> 'a t
      val singleton : key -> 'a -> 'a t
      val remove : key -> 'a t -> 'a t
      val merge :
        (key -> 'a option -> 'b option -> 'c option) -> 'a t -> 'b t -> 'c t
      val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
      val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
      val iter : (key -> 'a -> unit) -> 'a t -> unit
      val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
      val for_all : (key -> 'a -> bool) -> 'a t -> bool
      val exists : (key -> 'a -> bool) -> 'a t -> bool
      val filter : (key -> 'a -> bool) -> 'a t -> 'a t
      val partition : (key -> 'a -> bool) -> 'a t -> 'a t * 'a t
      val cardinal : 'a t -> int
      val bindings : 'a t -> (key * 'a) list
      val min_binding : 'a t -> key * 'a
      val max_binding : 'a t -> key * 'a
      val choose : 'a t -> key * 'a
      val split : key -> 'a t -> 'a t * 'a option * 'a t
      val find : key -> 'a t -> 'a
      val map : ('a -> 'b) -> 'a t -> 'b t
      val mapi : (key -> 'a -> 'b) -> 'a t -> 'b t
      val dom : 'a Assemblage.Part.t -> Assemblage.Part.Set.t
    end
end