diff options
| author |  puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:24:32 +0000 |
|---|---|---|
| committer | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:24:32 +0000 |
| commit | 1147afc67e0d333e6d1f5b46815dd4ba98328127 (patch) | |
| tree | b2df101d97fab72835b82a69af64a8e780c6adb9 /pretyping | |
| parent | 32f49f477bd620e4754de14f1c5a1eab707307f5 (diff) | |
Tacred: generic equality on constr replaced by eq_constr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14317 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/tacred.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index de87e5029..715fc2360 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -767,7 +767,7 @@ let substlin env evalref n (nowhere_except_in,locs) c = let term = constr_of_evaluable_ref evalref in let rec substrec () c = if nowhere_except_in & !pos > maxocc then c - else if c = term then + else if eq_constr c term then let ok = if nowhere_except_in then List.mem !pos locs else not (List.mem !pos locs) in |