UnivMinim (coq-core.UnivMinim)

module UPairSet : CSet.S with type elt = Univ.Level.t * Univ.Level.t

Unordered pairs of universe levels (ie (u,v) = (v,u))

type extra = {

weak_constraints : UPairSet.t;

above_prop : Univ.Level.Set.t;

}

val empty_extra : extra

val extra_union : extra -> extra -> extra

Simplification and pruning of constraints: normalize_context_set ctx us

Instantiate the variables in us with their most precise universe levels respecting the constraints.

Normalizes the context ctx w.r.t. equality constraints, choosing a canonical universe in each equivalence class (a global one if there is one) and transitively saturate the constraints w.r.t to the equalities.

val normalize_context_set : 
  lbound:UGraph.Bound.t ->
  UGraph.t ->
  Univ.ContextSet.t ->
  UnivSubst.universe_opt_subst ->
  Univ.Level.Set.t ->
  extra ->
  (UnivSubst.universe_opt_subst * Univ.Level.Set.t)
    Univ.in_universe_context_set

val get_set_minimization : unit -> bool