From 96eab2eac265a90ccfe518d0f15039ceced11ec2 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 17 Jun 2020 15:17:19 +0200
Subject: Actually remove internal API from the Clenv mli.

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

diff --git a/proofs/clenv.ml b/proofs/clenv.ml
index 4f19f943a8..243bf89bb4 100644
--- a/proofs/clenv.ml
+++ b/proofs/clenv.ml
@@ -42,7 +42,6 @@ type clausenv = {
 let cl_env ce = ce.env
 let cl_sigma ce =  ce.evd
 
-let clenv_nf_meta clenv c = nf_meta clenv.env clenv.evd c
 let clenv_term clenv c = meta_instance clenv.env clenv.evd c
 let clenv_meta_type clenv mv = Typing.meta_type clenv.env clenv.evd mv
 let clenv_value clenv = meta_instance clenv.env clenv.evd clenv.templval
@@ -445,8 +444,6 @@ let clenv_fchain ?with_univs ?(flags=fchain_flags ()) mv clenv nextclenv =
 (***************************************************************)
 (* Bindings *)
 
-type arg_bindings = constr explicit_bindings
-
 (* [clenv_independent clenv]
  * returns a list of metavariables which appear in the term cval,
  * and which are not dependent.  That is, they do not appear in
diff --git a/proofs/clenv.mli b/proofs/clenv.mli
index 492fca3963..fd1e2fe593 100644
--- a/proofs/clenv.mli
+++ b/proofs/clenv.mli
@@ -37,9 +37,6 @@ val clenv_value     : clausenv -> constr
 (** type of clenv (instantiated) *)
 val clenv_type      : clausenv -> types
 
-(** substitute resolved metas *)
-val clenv_nf_meta   : clausenv -> EConstr.constr -> EConstr.constr
-
 (** type of a meta in clenv context *)
 val clenv_meta_type : clausenv -> metavariable -> types
 
@@ -62,18 +59,8 @@ val clenv_fchain :
 val clenv_unify :
   ?flags:unify_flags -> conv_pb -> constr -> constr -> clausenv -> clausenv
 
-(** unifies the concl of the goal with the type of the clenv *)
-val clenv_unique_resolver :
-  ?flags:unify_flags -> clausenv -> Proofview.Goal.t -> clausenv
-
-val clenv_dependent : clausenv -> metavariable list
-
-val clenv_pose_metas_as_evars : clausenv -> metavariable list -> clausenv * Evar.t list
-
 (** {6 Bindings } *)
 
-type arg_bindings = constr explicit_bindings
-
 (** bindings where the key is the position in the template of the
    clenv (dependent or not). Positions can be negative meaning to
    start from the rightmost argument of the template. *)
-- 
cgit v1.2.3