Add Lib.Map

src/lib.ml

@@ -374,6 +374,12 @@ struct
   let compare x y = compare x.unique_id y.unique_id
 end)
 
+module Map = Map.Make(
+struct
+  type nonrec t = t
+  let compare x y = compare x.unique_id y.unique_id
+end)
+
 module L = struct
   type nonrec t = t list
 

src/lib.mli

@@ -32,6 +32,8 @@ val unique_id : t -> int
 
 module Set : Set.S with type elt = t
 
+module Map : Map.S with type key = t
+
 module Status : sig
   type t =
     | Installed