FM.MINEQS
type mp = (t * Numbers.Q.t) MP.t
val empty : mp
val is_empty : mp -> bool
val younger : t -> t -> bool
val insert : t -> mp -> mp
val ineqs_of : mp -> t list
val add_to_map : mp -> t list -> mp
val iter : (P.t -> (t * Numbers.Q.t) -> unit) -> mp -> unit
val fold : (P.t -> (t * Numbers.Q.t) -> 'a -> 'a) -> mp -> 'a -> 'a