sig
  type 'a cmd
  val cmd :
    string ->
    'a Cmdliner.Term.ret Cmdliner.Term.t ->
    doc:string ->
    man:Cmdliner.Manpage.block list ->
    see_also:string list -> 'a Cmd_base.cmd
  val cmd_with_project :
    ?config:bool ->
    string ->
    (Assemblage.Private.Project.t -> 'a Cmdliner.Term.ret) Cmdliner.Term.t ->
    doc:string ->
    man:Cmdliner.Manpage.block list ->
    see_also:string list -> 'a Cmd_base.cmd
  val terms :
    unit Cmd_base.cmd list ->
    (unit Cmdliner.Term.t * Cmdliner.Term.info) list
end