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