diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-18 14:37:44 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-10-18 14:37:44 +0000 |
| commit | bedaec8452d0600ede52efeeac016c9d323c66de (patch) | |
| tree | 7f056ffcd58f58167a0e813d5a8449eb950a8e23 /tactics/tauto.ml | |
| parent | 9983a5754258f74293b77046986b698037902e2b (diff) | |
Renommage canonique :
declaration = definition | assumption
mode de reference = named | rel
Ex:
push_named_decl : named_declaration -> env -> env
lookup_named : identifier -> safe_environment -> constr option * typed_type
add_named_assum : identifier * typed_type -> named_context -> named_context
add_named_def : identifier*constr*typed_type -> named_context -> named_context
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@723 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tauto.ml')
| -rw-r--r-- | tactics/tauto.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tauto.ml b/tactics/tauto.ml index 7e99167e7..6f7499057 100644 --- a/tactics/tauto.ml +++ b/tactics/tauto.ml @@ -1762,7 +1762,7 @@ let search env id = try mkRel (fst (lookup_rel_id id (Environ.rel_context env))) with Not_found -> - if mem_var_context id (Environ.var_context env) then + if mem_named_context id (Environ.named_context env) then mkVar id else global_reference CCI id @@ -1851,7 +1851,7 @@ let t_exacto = ref (TVar "#") let tautoOR ti gls = let thyp = pf_hyps gls in - hipvar := ids_of_var_context thyp; + hipvar := ids_of_named_context thyp; let but = pf_concl gls in let seq = (constr_lseq gls thyp, constr_rseq gls but) in let vp = lisvarprop (ante seq) in |