sig
  type package = package
  type t
  module V :
    sig
      type t = package action
      val compare : t -> t -> int
      val hash : t -> int
      val equal : t -> t -> bool
      type label
      val create : label -> t
      val label : t -> label
    end
  type vertex = V.t
  module E :
    sig
      type t
      val compare : t -> t -> int
      type vertex = vertex
      val src : t -> vertex
      val dst : t -> vertex
      type label
      val create : vertex -> label -> vertex -> t
      val label : t -> label
    end
  type edge = E.t
  val is_directed : bool
  val is_empty : t -> bool
  val nb_vertex : t -> int
  val nb_edges : t -> int
  val out_degree : t -> vertex -> int
  val in_degree : t -> vertex -> int
  val mem_vertex : t -> vertex -> bool
  val mem_edge : t -> vertex -> vertex -> bool
  val mem_edge_e : t -> edge -> bool
  val find_edge : t -> vertex -> vertex -> edge
  val find_all_edges : t -> vertex -> vertex -> edge list
  val succ : t -> vertex -> vertex list
  val pred : t -> vertex -> vertex list
  val succ_e : t -> vertex -> edge list
  val pred_e : t -> vertex -> edge list
  val iter_vertex : (vertex -> unit) -> t -> unit
  val fold_vertex : (vertex -> '-> 'a) -> t -> '-> 'a
  val iter_edges : (vertex -> vertex -> unit) -> t -> unit
  val fold_edges : (vertex -> vertex -> '-> 'a) -> t -> '-> 'a
  val iter_edges_e : (edge -> unit) -> t -> unit
  val fold_edges_e : (edge -> '-> 'a) -> t -> '-> 'a
  val map_vertex : (vertex -> vertex) -> t -> t
  val iter_succ : (vertex -> unit) -> t -> vertex -> unit
  val iter_pred : (vertex -> unit) -> t -> vertex -> unit
  val fold_succ : (vertex -> '-> 'a) -> t -> vertex -> '-> 'a
  val fold_pred : (vertex -> '-> 'a) -> t -> vertex -> '-> 'a
  val iter_succ_e : (edge -> unit) -> t -> vertex -> unit
  val fold_succ_e : (edge -> '-> 'a) -> t -> vertex -> '-> 'a
  val iter_pred_e : (edge -> unit) -> t -> vertex -> unit
  val fold_pred_e : (edge -> '-> 'a) -> t -> vertex -> '-> 'a
  val create : ?size:int -> unit -> t
  val clear : t -> unit
  val copy : t -> t
  val add_vertex : t -> vertex -> unit
  val remove_vertex : t -> vertex -> unit
  val add_edge : t -> vertex -> vertex -> unit
  val add_edge_e : t -> edge -> unit
  val remove_edge : t -> vertex -> vertex -> unit
  val remove_edge_e : t -> edge -> unit
  type g = t
  val transitive_closure : ?reflexive:bool -> g -> g
  val add_transitive_closure : ?reflexive:bool -> g -> g
  val mirror : g -> g
  val complement : g -> g
  val intersect : g -> g -> g
  val union : g -> g -> g
  module Parallel :
    sig
      module G :
        sig
          type t = t
          module V :
            sig
              type t = V.t
              val compare : t -> t -> int
              val hash : t -> int
              val equal : t -> t -> bool
              type label
              val create : label -> t
              val label : t -> label
            end
          type vertex = V.t
          module E :
            sig
              type t
              val compare : t -> t -> int
              type vertex = vertex
              val src : t -> vertex
              val dst : t -> vertex
              type label
              val create : vertex -> label -> vertex -> t
              val label : t -> label
            end
          type edge = E.t
          val is_directed : bool
          val is_empty : t -> bool
          val nb_vertex : t -> int
          val nb_edges : t -> int
          val out_degree : t -> vertex -> int
          val mem_vertex : t -> vertex -> bool
          val mem_edge : t -> vertex -> vertex -> bool
          val mem_edge_e : t -> edge -> bool
          val find_edge : t -> vertex -> vertex -> edge
          val find_all_edges : t -> vertex -> vertex -> edge list
          val succ : t -> vertex -> vertex list
          val pred : t -> vertex -> vertex list
          val succ_e : t -> vertex -> edge list
          val pred_e : t -> vertex -> edge list
          val fold_vertex : (vertex -> '-> 'a) -> t -> '-> 'a
          val iter_edges : (vertex -> vertex -> unit) -> t -> unit
          val fold_edges : (vertex -> vertex -> '-> 'a) -> t -> '-> 'a
          val iter_edges_e : (edge -> unit) -> t -> unit
          val fold_edges_e : (edge -> '-> 'a) -> t -> '-> 'a
          val map_vertex : (vertex -> vertex) -> t -> t
          val iter_pred : (vertex -> unit) -> t -> vertex -> unit
          val fold_succ : (vertex -> '-> 'a) -> t -> vertex -> '-> 'a
          val fold_pred : (vertex -> '-> 'a) -> t -> vertex -> '-> 'a
          val iter_succ_e : (edge -> unit) -> t -> vertex -> unit
          val fold_succ_e : (edge -> '-> 'a) -> t -> vertex -> '-> 'a
          val iter_pred_e : (edge -> unit) -> t -> vertex -> unit
          val fold_pred_e : (edge -> '-> 'a) -> t -> vertex -> '-> 'a
          val create : ?size:int -> unit -> t
          val clear : t -> unit
          val copy : t -> t
          val add_vertex : t -> vertex -> unit
          val remove_vertex : t -> vertex -> unit
          val add_edge : t -> vertex -> vertex -> unit
          val add_edge_e : t -> edge -> unit
          val remove_edge : t -> vertex -> vertex -> unit
          val remove_edge_e : t -> edge -> unit
          val iter_vertex : (V.t -> unit) -> t -> unit
          val iter_succ : (V.t -> unit) -> t -> V.t -> unit
          val in_degree : t -> V.t -> int
          val has_cycle : t -> bool
          val scc_list : t -> V.t list list
          val string_of_vertex : V.t -> string
        end
      val iter :
        int ->
        G.t ->
        pre:(G.V.t -> unit) ->
        child:(G.V.t -> unit) -> post:(G.V.t -> unit) -> unit
      val iter_l :
        int ->
        G.vertex list ->
        pre:(G.V.t -> unit) ->
        child:(G.V.t -> unit) -> post:(G.V.t -> unit) -> unit
      val map_reduce :
        int ->
        G.t -> map:(G.V.t -> 'a) -> merge:('-> '-> 'a) -> init:'-> 'a
      val map_reduce_l :
        int ->
        G.vertex list ->
        map:(G.V.t -> 'a) -> merge:('-> '-> 'a) -> init:'-> 'a
      val create : G.V.t list -> G.t
      exception Errors of (G.V.t * OpamParallel.error) list * G.V.t list
      exception Cyclic of G.V.t list list
    end
  module Topological :
    sig
      val iter : (package action -> unit) -> t -> unit
      val fold : (package action -> '-> 'a) -> t -> '-> 'a
    end
  type solution = {
    to_remove : package list;
    to_process : t;
    root_causes : (package * package cause) list;
  }
  val dump_solution : solution -> unit
end