From d0a324eef4d35a87e300a2b660b26fdbe2043d92 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 20 May 2005 15:54:50 +0000
Subject: Adoption du nom canonique global_of_constr pour éviter confusion avec
 type reference

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7052 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/dp/dp.ml               | 6 +++---
 contrib/first-order/sequent.ml | 2 +-
 contrib/xml/cic2acic.ml        | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'contrib')

diff --git a/contrib/dp/dp.ml b/contrib/dp/dp.ml
index 24744e7689..9dc538c78b 100644
--- a/contrib/dp/dp.ml
+++ b/contrib/dp/dp.ml
@@ -159,7 +159,7 @@ let rec tr_type env ty =
 	end
       | _ -> assert false
     end
-  else let r = reference_of_constr ty in
+  else let r = global_of_constr ty in
   try
     begin match lookup_global r with
       | DeclType id -> [], id
@@ -295,7 +295,7 @@ and tr_term bv env t =
     | _ ->
 	let f, cl = decompose_app t in
 	begin try
-	  let r = reference_of_constr f in
+	  let r = global_of_constr f in
 	  match tr_global env r with
 	    | DeclVar (s, _, _) -> 
 		Fol.App (s, List.map (tr_term bv env) cl)
@@ -351,7 +351,7 @@ and tr_formula bv env f =
 	assert false (* TODO Exists (tr_formula bv env a) *)
     | _ ->
 	begin try
-	  let r = reference_of_constr c in
+	  let r = global_of_constr c in
 	  match tr_global env r with
 	    | DeclPred (s, _) -> 
 		Fatom (Pred (s, List.map (tr_term bv env) args))
diff --git a/contrib/first-order/sequent.ml b/contrib/first-order/sequent.ml
index 90defda9c6..657d4cba52 100644
--- a/contrib/first-order/sequent.ml
+++ b/contrib/first-order/sequent.ml
@@ -269,7 +269,7 @@ let create_with_auto_hints l depth gl=
 	Res_pf (c,_) | Give_exact c
       | Res_pf_THEN_trivial_fail (c,_) ->
 	  (try 
-	     let gr=reference_of_constr c in 
+	     let gr=global_of_constr c in 
 	     let typ=(pf_type_of gl c) in
 	       seqref:=add_formula Hint gr typ !seqref gl
 	   with Not_found->())
diff --git a/contrib/xml/cic2acic.ml b/contrib/xml/cic2acic.ml
index 10a428e832..a0faa6426e 100644
--- a/contrib/xml/cic2acic.ml
+++ b/contrib/xml/cic2acic.ml
@@ -468,7 +468,7 @@ print_endline "PASSATO" ; flush stdout ;
           let subst,residual_args,uninst_vars =
            let variables,basedir =
              try
-               let g = Libnames.reference_of_constr h in
+               let g = Libnames.global_of_constr h in
                let sp =
                 match g with
                    Libnames.ConstructRef ((induri,_),_)
-- 
cgit v1.2.3