Merge PR #9910: [api] [proofs] Remove dependency of proofs on interp.

Reviewed-by: SkySkimmer

2 files changed, 2 insertions, 30 deletions

diff --git a/interp/constrintern.ml b/interp/constrintern.ml
index 59feb46dc1..749eb2289c 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -96,21 +96,6 @@ let is_global id =
   with Not_found ->
     false
 
-let global_reference_of_reference qid =
-  locate_reference qid
-
-let global_reference id =
-  locate_reference (qualid_of_ident id)
-
-let construct_reference ctx id =
-  try
-    VarRef (let _ = Context.Named.lookup id ctx in id)
-  with Not_found ->
-    global_reference id
-
-let global_reference_in_absolute_module dir id =
-  Nametab.global_of_path (Libnames.make_path dir id)
-
 (**********************************************************************)
 (* Internalization errors                                             *)
 
@@ -1354,7 +1339,7 @@ let sort_fields ~complete loc fields completer =
     | (first_field_ref, first_field_value):: other_fields ->
         let (first_field_glob_ref, record) =
           try
-            let gr = global_reference_of_reference first_field_ref in
+            let gr = locate_reference first_field_ref in
             (gr, Recordops.find_projection gr)
           with Not_found ->
             raise (InternalizationError(loc, NotAProjection first_field_ref))
@@ -1412,7 +1397,7 @@ let sort_fields ~complete loc fields completer =
         let rec index_fields fields remaining_projs acc =
           match fields with
             | (field_ref, field_value) :: fields ->
-               let field_glob_ref = try global_reference_of_reference field_ref
+               let field_glob_ref = try locate_reference field_ref
                with Not_found ->
                  user_err ?loc ~hdr:"intern"
                                (str "The field \"" ++ pr_qualid field_ref ++ str "\" does not exist.") in
diff --git a/interp/constrintern.mli b/interp/constrintern.mli
index 2d14a0d0a7..0d4bc91f57 100644
--- a/interp/constrintern.mli
+++ b/interp/constrintern.mli
@@ -162,24 +162,11 @@ val interp_context_evars :
   env -> evar_map -> local_binder_expr list ->
   evar_map * (internalization_env * ((env * rel_context) * Impargs.manual_implicits))
 
-(* val interp_context_gen : (env -> glob_constr -> unsafe_type_judgment Evd.in_evar_universe_context) -> *)
-(*   (env -> Evarutil.type_constraint -> glob_constr -> unsafe_judgment Evd.in_evar_universe_context) -> *)
-(*   ?global_level:bool -> ?impl_env:internalization_env -> *)
-(*   env -> evar_map -> local_binder_expr list -> internalization_env * ((env * Evd.evar_universe_context * rel_context * sorts list) * Impargs.manual_implicits) *)
-  
-(* val interp_context : ?global_level:bool -> ?impl_env:internalization_env -> *)
-(*   env -> evar_map -> local_binder_expr list ->  *)
-(*   internalization_env *  *)
-(*   ((env * Evd.evar_universe_context * rel_context * sorts list) * Impargs.manual_implicits) *)
-
 (** Locating references of constructions, possibly via a syntactic definition 
    (these functions do not modify the glob file) *)
 
 val locate_reference :  Libnames.qualid -> GlobRef.t
 val is_global : Id.t -> bool
-val construct_reference : ('c, 't) Context.Named.pt -> Id.t -> GlobRef.t
-val global_reference : Id.t -> GlobRef.t
-val global_reference_in_absolute_module : DirPath.t -> Id.t -> GlobRef.t
 
 (** Interprets a term as the left-hand side of a notation. The returned map is
     guaranteed to have the same domain as the input one. *)