diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-10-08 17:17:02 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-10-10 20:40:04 +0200 |
| commit | a806b1d47273b008507aa08a99e5e45fbfe5243b (patch) | |
| tree | 057f0bf459712243e11a9971d6196725e1411b7f | |
| parent | 5b0769b33004202d015770aff3f3cdd347b099fb (diff) | |
Fix bug due to shadowing a variable name in tacred
| -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 bddd274ef..6fa785ed7 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -915,7 +915,7 @@ let whd_simpl_orelse_delta_but_fix env sigma c = | Some c -> (match kind_of_term (strip_lam c) with | CoFix _ | Fix _ -> s' - | Proj (p,c) when + | Proj (p,t) when (match kind_of_term constr with | Const (c', _) -> eq_constant (Projection.constant p) c' | _ -> false) -> |