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 /plugins | |
| parent | 5b49e4d674ee2b41206da2d59dc23e4ae2adf388 (diff) | |
Deprecate univ-dropping UnivGen.new_sort_in_family
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/funind/functional_principles_types.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |