diff options
| author | Gaëtan Gilbert | 2018-10-10 13:51:29 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-10-16 15:52:52 +0200 |
| commit | e3615bc48819361891a8d768f5e13eac57a945d0 (patch) | |
| tree | d6ce53fab4676b9d33d65f99900dbba1869e09f9 | |
| parent | 5b49e4d674ee2b41206da2d59dc23e4ae2adf388 (diff) | |
Deprecate univ-dropping UnivGen.new_sort_in_family
| -rw-r--r-- | engine/univGen.mli | 1 | ||||
| -rw-r--r-- | plugins/funind/functional_principles_types.ml | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/engine/univGen.mli b/engine/univGen.mli index 82ec9f3e64..78a4dd5500 100644 --- a/engine/univGen.mli +++ b/engine/univGen.mli @@ -29,6 +29,7 @@ val new_Type_sort : unit -> Sorts.t val new_global_univ : unit -> Universe.t in_universe_context_set val new_sort_in_family : Sorts.family -> Sorts.t +[@@ocaml.deprecated "Use [fresh_sort_in_family]"] (** Build a fresh instance for a given context, its associated substitution and the instantiated constraints. *) diff --git a/plugins/funind/functional_principles_types.ml b/plugins/funind/functional_principles_types.ml index 60a98c5e6f..d57b931785 100644 --- a/plugins/funind/functional_principles_types.ml +++ b/plugins/funind/functional_principles_types.ml @@ -704,7 +704,7 @@ let build_case_scheme fa = let scheme_type = EConstr.Unsafe.to_constr ((Typing.unsafe_type_of env sigma) (EConstr.of_constr scheme)) in let sorts = (fun (_,_,x) -> - UnivGen.new_sort_in_family x + fst @@ UnivGen.fresh_sort_in_family x ) fa in |