diff options
author | 2018-01-08 12:46:22 +0100 | |
---|---|---|
committer | 2018-01-08 12:46:22 +0100 | |
commit | 47f47713e551f8de18cf2d847f47c1f55b016c8b (patch) | |
tree | fba8437d2bab7f202181c83a935ff24e865dcc69 /engine/evd.ml | |
parent | c34744837dae427ac6cb12f5ada198862d8e1e4f (diff) | |
parent | 4131f060ac42f121685817fcc9546c3899c09ab7 (diff) |
Merge PR #6425: Cleanup universes in the kernel
Diffstat (limited to 'engine/evd.ml')
-rw-r--r-- | engine/evd.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index e33c851f6..0e9472158 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -855,7 +855,7 @@ let normalize_universe evd = let normalize_universe_instance evd l = let vars = ref (UState.subst evd.universes) in - let normalize = Univ.level_subst_of (Universes.normalize_univ_variable_opt_subst vars) in + let normalize = Universes.level_subst_of (Universes.normalize_univ_variable_opt_subst vars) in Univ.Instance.subst_fn normalize l let normalize_sort evars s = |