diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-10 10:37:07 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-10 10:37:07 +0000 |
| commit | cad1bcf2b780f362efac9b311ac3de9921f2689d (patch) | |
| tree | 9481d7b127b079c775f488a45ac2b0027e5b56ed | |
| parent | ad85c27c453e888e4ef44f3531645638faff3da2 (diff) | |
Normalisation beta-iota du type du terme appliqué (fait avant dans Typing)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3417 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 6f79e9fcb..e72a35ab4 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -455,7 +455,7 @@ let apply_with_bindings (c,lbind) gl = (* The actual type of the theorem. It will be matched against the goal. If this fails, then the head constant will be unfolded step by step. *) - let thm_ty0 = (w_type_of wc c) in + let thm_ty0 = nf_betaiota (w_type_of wc c) in let rec try_apply thm_ty = try let n = nb_prod thm_ty - nb_prod (pf_concl gl) in |