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