diff options
author | 2014-07-03 16:06:45 +0200 | |
---|---|---|
committer | 2014-07-03 16:06:45 +0200 | |
commit | f222f46e7d231c5afe72e146de92dc8dcadbdcb6 (patch) | |
tree | 2906793aada2899d1ebca4714371901cca44be59 /pretyping/evd.ml | |
parent | 964d1b702e5696d2b6767f972310cc324a6a4aa9 (diff) |
When defining a monomorphic Program, do not allow arbitrary instantiations
of the universe context in the obligations, it gets gradually fixed
globally by each one of them.
Fixes bug found in Misc/Overloading.
Diffstat (limited to 'pretyping/evd.ml')
-rw-r--r-- | pretyping/evd.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index b2bad0c0b..ed3459a52 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -1155,16 +1155,15 @@ let normalize_evar_universe_context_variables uctx = (* let normalize_evar_universe_context_variables = *) (* Profile.profile1 normvarsconstrkey normalize_evar_universe_context_variables;; *) -let mark_undefs_as_nonalg uctx = +let abstract_undefined_variables uctx = let vars' = Univ.LMap.fold (fun u v acc -> if v == None then Univ.LSet.remove u acc else acc) uctx.uctx_univ_variables uctx.uctx_univ_algebraic - in { uctx with uctx_univ_algebraic = vars' } + in { uctx with uctx_local = Univ.ContextSet.empty; + uctx_univ_algebraic = vars' } -let abstract_undefined_variables evd = - {evd with universes = mark_undefs_as_nonalg evd.universes} let refresh_undefined_univ_variables uctx = let subst, ctx' = Universes.fresh_universe_context_set_instance uctx.uctx_local in |