sig
  type 'a t
  val set :
    'Region_analysis_sig.Node.Edge_Dict.t ->
    Region_analysis_sig.Node.node Region_analysis_sig.edge -> '-> unit
  val get :
    'Region_analysis_sig.Node.Edge_Dict.t ->
    Region_analysis_sig.Node.node Region_analysis_sig.edge -> 'a
  val create : unit -> 'Region_analysis_sig.Node.Edge_Dict.t
  val iter :
    'Region_analysis_sig.Node.Edge_Dict.t ->
    (Region_analysis_sig.Node.node Region_analysis_sig.edge -> '-> unit) ->
    unit
end