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 --- contrib/cc/cctac.ml4 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'contrib/cc') diff --git a/contrib/cc/cctac.ml4 b/contrib/cc/cctac.ml4 index 799867675..3ac3b42f4 100644 --- a/contrib/cc/cctac.ml4 +++ b/contrib/cc/cctac.ml4 @@ -200,7 +200,7 @@ let refute_tac axioms disaxioms id p gls = let tt1=make_term t1 and tt2=make_term t2 in let intype=pf_type_of gls tt1 in let neweq= - mkApp(constr_of_reference Coqlib.glob_eq, + mkApp(constr_of_global Coqlib.glob_eq, [|intype;tt1;tt2|]) in let hid=pf_get_new_id (id_of_string "Heq") gls in let false_t=mkApp (mkVar id,[|mkVar hid|]) in @@ -225,7 +225,7 @@ let discriminate_tac axioms cstr p gls = [|intype;outtype;proj;tt1;tt2;mkVar hid|]) in let endt=mkApp (Lazy.force eq_rect_theo, [|outtype;trivial;pred;identity;concl;injt|]) in - let neweq=mkApp(constr_of_reference Coqlib.glob_eq,[|intype;tt1;tt2|]) in + let neweq=mkApp(constr_of_global Coqlib.glob_eq,[|intype;tt1;tt2|]) in tclTHENS (true_cut (Name hid) neweq) [proof_tac axioms p;exact_check endt] gls -- cgit v1.2.3