diff options
| author | puech | 2011-07-29 14:24:52 +0000 |
|---|---|---|
| committer | puech | 2011-07-29 14:24:52 +0000 |
| commit | 13b78f7cad3cf38ff7c3083494e680a695a54d79 (patch) | |
| tree | 0fbda3cf8d7190a190aa61322741bc51a7582c43 | |
| parent | dc23b722fd213af68aa52f66b73d072a8f77049d (diff) | |
Tactics: generic equality on named_declaration replaced by eq_named_declaration
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14320 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index ce27649d22..6b67a6d60a 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1662,7 +1662,7 @@ let letin_abstract id c (occs,check_occs) gl = | None -> depdecls | Some occ -> let newdecl = subst_term_occ_decl occ c d in - if occ = (all_occurrences,InHyp) & d = newdecl then + if occ = (all_occurrences,InHyp) && eq_named_declaration d newdecl then if check_occs & not (in_every_hyp occs) then raise (RefinerError (DoesNotOccurIn (c,hyp))) else depdecls |