diff options
| author | Pierre-Marie Pédrot | 2014-06-08 00:20:38 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-06-08 00:20:38 +0200 |
| commit | 17810e2b920fefd69a407336ae1f090d2c878257 (patch) | |
| tree | 4547026760b64f74eb62b3906c1bf50cc2388f01 /library | |
| parent | 2fbcbeece792c2f0e235160d66014150224fe7d7 (diff) | |
Function in Univ uselessly exported.
Diffstat (limited to 'library')
| -rw-r--r-- | library/universes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/universes.ml b/library/universes.ml index f6922e4958..765d34f98f 100644 --- a/library/universes.ml +++ b/library/universes.ml @@ -627,7 +627,7 @@ let normalize_context_set ctx us algs = (* We first put constraints in a normal-form: all self-loops are collapsed to equalities. *) let g = Univ.merge_constraints csts Univ.empty_universes in - Univ.constraints_of_universes (Univ.normalize_universes g) + Univ.constraints_of_universes g in let noneqs = Constraint.fold (fun (l,d,r) noneqs -> |