From be494f51ec316f0e0af424d3febc1bd100112040 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 4 Sep 2020 09:48:07 +0200
Subject: Remove a unused function from the Clenv API.

---
 proofs/clenv.ml  | 3 ---
 proofs/clenv.mli | 1 -
 2 files changed, 4 deletions(-)

diff --git a/proofs/clenv.ml b/proofs/clenv.ml
index 8e3cab70ea..4893758ab3 100644
--- a/proofs/clenv.ml
+++ b/proofs/clenv.ml
@@ -618,9 +618,6 @@ let clenv_cast_meta clenv =
   in
   crec
 
-let clenv_value_cast_meta clenv =
-    clenv_cast_meta clenv (clenv_value clenv)
-
 let clenv_pose_dependent_evars ?(with_evars=false) clenv =
   let dep_mvs = clenv_dependent clenv in
   let env, sigma = clenv.env, clenv.evd in
diff --git a/proofs/clenv.mli b/proofs/clenv.mli
index 43e808dac7..d4905de434 100644
--- a/proofs/clenv.mli
+++ b/proofs/clenv.mli
@@ -99,7 +99,6 @@ val unify : ?flags:unify_flags -> constr -> unit Proofview.tactic
 val res_pf : ?with_evars:bool -> ?with_classes:bool -> ?flags:unify_flags -> clausenv -> unit Proofview.tactic
 
 val clenv_pose_dependent_evars : ?with_evars:bool -> clausenv -> clausenv
-val clenv_value_cast_meta : clausenv -> constr
 
 (** {6 Pretty-print (debug only) } *)
 val pr_clenv : clausenv -> Pp.t
-- 
cgit v1.2.3