diff options
author | 2005-05-20 15:54:50 +0000 | |
---|---|---|
committer | 2005-05-20 15:54:50 +0000 | |
commit | d0a324eef4d35a87e300a2b660b26fdbe2043d92 (patch) | |
tree | d223b5752d1421944fc0bcffcaf2ec49661d7114 /contrib | |
parent | f95411d169c8d636e980de3a38bb02c72c3b4965 (diff) |
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
Diffstat (limited to 'contrib')
-rw-r--r-- | contrib/dp/dp.ml | 6 | ||||
-rw-r--r-- | contrib/first-order/sequent.ml | 2 | ||||
-rw-r--r-- | contrib/xml/cic2acic.ml | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/contrib/dp/dp.ml b/contrib/dp/dp.ml index 24744e768..9dc538c78 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 90defda9c..657d4cba5 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 10a428e83..a0faa6426 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,_),_) |