From c6391a7edfd12a876f663bbac6d24386c021d148 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sat, 4 Jul 2020 19:49:37 +0200
Subject: Remove Evarutil.new_pure_evar_full from the API.

---
 engine/evarutil.ml  | 5 -----
 engine/evarutil.mli | 2 --
 2 files changed, 7 deletions(-)

(limited to 'engine')

diff --git a/engine/evarutil.ml b/engine/evarutil.ml
index a60e521923..e30f908df0 100644
--- a/engine/evarutil.ml
+++ b/engine/evarutil.ml
@@ -409,11 +409,6 @@ let push_rel_context_to_named_context ?hypnaming env sigma typ =
 
 let default_source = Loc.tag @@ Evar_kinds.InternalHole
 
-let new_pure_evar_full evd ?typeclass_candidate evi =
-  let (evd, evk) = Evd.new_evar evd ?typeclass_candidate evi in
-  let evd = Evd.declare_future_goal evk evd in
-  (evd, evk)
-
 let new_pure_evar ?(src=default_source) ?(filter = Filter.identity) ?(abstract_arguments = Abstraction.identity)
     ?candidates ?(naming = IntroAnonymous) ?typeclass_candidate ?(principal=false) sign evd typ =
   let name = match naming with
diff --git a/engine/evarutil.mli b/engine/evarutil.mli
index b3c94e6b3b..c463415b6a 100644
--- a/engine/evarutil.mli
+++ b/engine/evarutil.mli
@@ -56,8 +56,6 @@ val new_pure_evar :
   ?principal:bool ->
   named_context_val -> evar_map -> types -> evar_map * Evar.t
 
-val new_pure_evar_full : evar_map -> ?typeclass_candidate:bool -> evar_info -> evar_map * Evar.t
-
 (** Create a new Type existential variable, as we keep track of
     them during type-checking and unification. *)
 val new_type_evar :
-- 
cgit v1.2.3