diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-21 17:31:37 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-02-21 17:31:37 +0000 |
commit | d5e2b54b22fcc4850888e0d04d9910fe78d6bbdb (patch) | |
tree | 7d28677cf84fdd05e10c64fa4d02ba3280e59fca /tactics | |
parent | 673455fadfc0ca4df1fa33a629c57694bf442394 (diff) |
Correction typo liée au commit 8779 (levait une anomalie)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9666 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/equality.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index b7a428e2a..a9a869d8f 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -93,7 +93,7 @@ let general_rewrite_bindings_clause cls lft2rgt (c,l) gl = (* Original code. In particular, [splay_prod] performs delta-reduction. *) let env = pf_env gl in let sigma = project gl in - let _,t = splay_prod env sigma t in + let _,t = splay_prod env sigma ctype in match match_with_equation t with | None -> if l = NoBindings |