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

---
 plugins/funind/functional_principles_types.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins')

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