From 6d961ac24305f26e896b602bdabe0e9c3c7cbf05 Mon Sep 17 00:00:00 2001 From: letouzey Date: Tue, 29 May 2012 11:09:15 +0000 Subject: global_reference migrated from Libnames to new Globnames, less deps in grammar.cma git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15384 85f007b7-540e-0410-9357-904b9bb8a0f7 --- plugins/btauto/refl_btauto.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'plugins/btauto/refl_btauto.ml') diff --git a/plugins/btauto/refl_btauto.ml b/plugins/btauto/refl_btauto.ml index 58d809bdb..0f89f348e 100644 --- a/plugins/btauto/refl_btauto.ml +++ b/plugins/btauto/refl_btauto.ml @@ -2,7 +2,7 @@ let contrib_name = "btauto" let init_constant dir s = let find_constant contrib dir s = - Libnames.constr_of_global (Coqlib.find_reference contrib dir s) + Globnames.constr_of_global (Coqlib.find_reference contrib dir s) in find_constant contrib_name dir s @@ -10,7 +10,7 @@ let get_constant dir s = lazy (Coqlib.gen_constant contrib_name dir s) let get_inductive dir s = let glob_ref () = Coqlib.find_reference contrib_name ("Coq" :: dir) s in - Lazy.lazy_from_fun (fun () -> Libnames.destIndRef (glob_ref ())) + Lazy.lazy_from_fun (fun () -> Globnames.destIndRef (glob_ref ())) let decomp_term (c : Term.constr) = Term.kind_of_term (Term.strip_outer_cast c) -- cgit v1.2.3