diff options
| author | herbelin | 2005-02-18 22:14:57 +0000 |
|---|---|---|
| committer | herbelin | 2005-02-18 22:14:57 +0000 |
| commit | d56dbd226a805d93d539c63e9fa89062572bb295 (patch) | |
| tree | ffe757ec9a756e061b6a22270814e5417b790732 /tactics | |
| 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 'tactics')
| -rw-r--r-- | tactics/auto.ml | 2 | ||||
| -rw-r--r-- | tactics/tactics.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index 4ac300827e..c30c0bd9f7 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -933,7 +933,7 @@ let default_superauto g = superauto !default_search_depth [] [] g let interp_to_add gl locqid = let r = Nametab.global locqid in let id = id_of_global r in - (next_ident_away id (pf_ids_of_hyps gl), constr_of_reference r) + (next_ident_away id (pf_ids_of_hyps gl), constr_of_global r) let gen_superauto nopt l a b gl = let n = match nopt with Some n -> n | None -> !default_search_depth in diff --git a/tactics/tactics.ml b/tactics/tactics.ml index bc91ddb3ec..7b595a0733 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1882,7 +1882,7 @@ let abstract_subproof name tac gls = let cd = Entries.DefinitionEntry const in let con = Declare.declare_internal_constant na (cd,IsProof Lemma) in let newenv = Global.env() in - constr_of_reference (ConstRef con) + constr_of_global (ConstRef con) in exact_no_check (applist (lemme, |