diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-02-18 22:14:57 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-02-18 22:14:57 +0000 |
| commit | d56dbd226a805d93d539c63e9fa89062572bb295 (patch) | |
| tree | ffe757ec9a756e061b6a22270814e5417b790732 /contrib/cc | |
| parent | f1c9b401cf40df87eb4be7ca512a6bc199f09b7c (diff) | |
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
Diffstat (limited to 'contrib/cc')
| -rw-r--r-- | contrib/cc/cctac.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
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 |