diff options
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/univGen.ml | 3 | ||||
| -rw-r--r-- | engine/univGen.mli | 1 |
2 files changed, 2 insertions, 2 deletions
diff --git a/engine/univGen.ml b/engine/univGen.ml index 443ef22844..23ab30eb75 100644 --- a/engine/univGen.ml +++ b/engine/univGen.ml @@ -141,8 +141,7 @@ let fresh_sort_in_family = function let new_sort_in_family sf = fst (fresh_sort_in_family sf) -let extend_context (a, ctx) (ctx') = - (a, ContextSet.union ctx ctx') +let extend_context = Univ.extend_in_context_set let new_global_univ () = let u = fresh_level () in diff --git a/engine/univGen.mli b/engine/univGen.mli index 136c04f969..c2e9d0c696 100644 --- a/engine/univGen.mli +++ b/engine/univGen.mli @@ -71,6 +71,7 @@ val constr_of_global_univ : GlobRef.t puniverses -> constr val extend_context : 'a in_universe_context_set -> ContextSet.t -> 'a in_universe_context_set +[@@ocaml.deprecated "Use [Univ.extend_in_context_set]"] (** Create a fresh global in the global environment, without side effects. BEWARE: this raises an ANOMALY on polymorphic constants/inductives: |