sig type t val iter_vertex : (State.t -> unit) -> State_topological.G.t -> unit val iter_succ : (State.t -> unit) -> State_topological.G.t -> State.t -> unit val in_degree : State_topological.G.t -> State.t -> int end