From e3615bc48819361891a8d768f5e13eac57a945d0 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Wed, 10 Oct 2018 13:51:29 +0200
Subject: Deprecate univ-dropping UnivGen.new_sort_in_family

---
 engine/univGen.mli                            | 1 +
 plugins/funind/functional_principles_types.ml | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3