sig
  type pref = Vertex.t -> Vertex.t -> int
  val partition :
    pref:pref ->
    init:Vertex.t ->
    succs:(Vertex.t -> Vertex.t list) -> Vertex.t Wto.partition
  val pretty_partition : Format.formatter -> Vertex.t Wto.partition -> unit
  val pretty_component : Format.formatter -> Vertex.t Wto.component -> unit
  val equal_component :
    Vertex.t Wto.component -> Vertex.t Wto.component -> bool
  val equal_partition :
    Vertex.t Wto.partition -> Vertex.t Wto.partition -> bool
  type t = wto
  val ty : t Type.t
  val name : string
  val descr : t Descr.t
  val packed_descr : Structural_descr.pack
  val reprs : t list
  val equal : t -> t -> bool
  val compare : t -> t -> int
  val hash : t -> int
  val pretty_code : Format.formatter -> t -> unit
  val internal_pretty_code : Type.precedence -> Format.formatter -> t -> unit
  val pretty : Format.formatter -> t -> unit
  val varname : t -> string
  val mem_project : (Project_skeleton.t -> bool) -> t -> bool
  val copy : t -> t
end