From d56dbd226a805d93d539c63e9fa89062572bb295 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 18 Feb 2005 22:14:57 +0000
Subject: Standardisation of function names about global references
 (especially, renaming of constr_of_reference into constr_of_global)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6745 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/auto.ml    | 2 +-
 tactics/tactics.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'tactics')

diff --git a/tactics/auto.ml b/tactics/auto.ml
index 4ac300827e..c30c0bd9f7 100644
--- a/tactics/auto.ml
+++ b/tactics/auto.ml
@@ -933,7 +933,7 @@ let default_superauto g = superauto !default_search_depth [] [] g
 let interp_to_add gl locqid =
   let r = Nametab.global locqid in
   let id = id_of_global r in
-  (next_ident_away id (pf_ids_of_hyps gl), constr_of_reference r)
+  (next_ident_away id (pf_ids_of_hyps gl), constr_of_global r)
 
 let gen_superauto nopt l a b gl =
   let n = match nopt with Some n -> n | None -> !default_search_depth in
diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index bc91ddb3ec..7b595a0733 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -1882,7 +1882,7 @@ let abstract_subproof name tac gls =
     let cd = Entries.DefinitionEntry const in
     let con = Declare.declare_internal_constant na (cd,IsProof Lemma) in
     let newenv = Global.env() in
-    constr_of_reference (ConstRef con)
+    constr_of_global (ConstRef con)
   in
   exact_no_check 
     (applist (lemme, 
-- 
cgit v1.2.3