diff options
| author | Pierre-Marie Pédrot | 2014-10-16 13:04:47 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-10-21 18:47:19 +0200 |
| commit | c1e1e52311745ac5bad85b49d76c8ff327d6e74f (patch) | |
| tree | 32fc80b1cf3a1981d362ecfc7be6df4c3713ab8a | |
| parent | fbbe491cfa157da627fedee51d3332417c1124a7 (diff) | |
Fixing decompose_app_rel in Rewrite.
The old implementation did not beta-iota normalize before observing the head of
the term, resulting in stange bugs.
| -rw-r--r-- | tactics/rewrite.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tactics/rewrite.ml b/tactics/rewrite.ml index 6891f94371..69bceb0d34 100644 --- a/tactics/rewrite.ml +++ b/tactics/rewrite.ml @@ -469,6 +469,8 @@ let get_symmetric_proof b = if b then PropGlobal.get_symmetric_proof else TypeGlobal.get_symmetric_proof let rec decompose_app_rel env evd t = + (** Head normalize for compatibility with the old meta mechanism *) + let t = Reductionops.whd_betaiota evd t in match kind_of_term t with | App (f, args) -> if Array.length args > 1 then |