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