diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-04-28 12:24:14 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-04-28 12:24:14 +0000 |
commit | a184d54b95c40bc2890fc91f236bbdf983ebc83d (patch) | |
tree | d95ef613b68e96c0e7de041baae4c721bd48cd25 /tactics | |
parent | 11aaf97fa5f773c8a81d12255414cd3f5d189d25 (diff) |
Standardisation du nom des méthodes de Evd
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8759 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/evar_tactics.ml | 2 | ||||
-rw-r--r-- | tactics/tacinterp.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tactics/evar_tactics.ml b/tactics/evar_tactics.ml index a321b9f1b..d01cd8ca2 100644 --- a/tactics/evar_tactics.ml +++ b/tactics/evar_tactics.ml @@ -23,7 +23,7 @@ open Termops let evar_list evc c = let rec evrec acc c = match kind_of_term c with - | Evar (n, _) when Evd.in_dom evc n -> c :: acc + | Evar (n, _) when Evd.mem evc n -> c :: acc | _ -> fold_constr evrec acc c in evrec [] c diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 2eb2d88f4..56aaee4fe 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1194,11 +1194,11 @@ let solve_remaining_evars env initial_sigma evars c = let isevars = ref evars in let rec proc_rec c = match kind_of_term (Reductionops.whd_evar (evars_of !isevars) c) with - | Evar (ev,args as k) when not (Evd.in_dom initial_sigma ev) -> + | Evar (ev,args as k) when not (Evd.mem initial_sigma ev) -> let (loc,src) = evar_source ev !isevars in let sigma = evars_of !isevars in (try - let evi = Evd.map sigma ev in + let evi = Evd.find sigma ev in let c = solvable_by_tactic env evi k src in isevars := Evd.evar_define ev c !isevars; c |