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 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'contrib/dp')

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))
-- 
cgit v1.2.3