diff options
| -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 |