module Site_union_find: Union_find.Union_find with type t = c_site_name Site_type_nearly_Inf_Int_storage_Imperatif.t and type dimension = int and type key = c_site_name
Union_find.Union_find
with type t = c_site_name Site_type_nearly_Inf_Int_storage_Imperatif.t and type dimension = int and type key = c_site_name