sig
  val label : string
  val it : Common.Util.Info.t
  val info : ('a, unit, string, unit) format4 -> 'a
  val nt : Common.Util.Notice.t
  val notice : ('a, unit, string, unit) format4 -> 'a
  val wt : Common.Util.Warning.t
  val warning : ('a, unit, string, unit) format4 -> 'a
  val dt : Common.Util.Debug.t
  val debug : ('a, unit, string, unit) format4 -> 'a
  val fatal : ('a, unit, string, 'b) format4 -> 'a
  val get_architectures :
    string option ->
    string list ->
    string option -> string list option -> string option * string list
  val pp_versions_table :
    Format.formatter ->
    (Cudf_types.pkgname * Cudf_types.version -> string * string) *
    Cudf.package list -> unit
  val if_application :
    ?alternatives:string list -> string -> (unit -> int) -> unit
end