Glue.InjectOrderedType
module U : Map.OrderedType
module I : sig ... end
type t = I.t
val compare : t -> t -> int