diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-26 10:45:56 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-12-26 10:45:56 +0000 |
| commit | 25fc4c8821140f0474735ca98d25045573e31b00 (patch) | |
| tree | 9f46909ea9feaf851491ed161d13a32516620f0a /tactics | |
| parent | f38db05d1c05f75f74c4cdcca8d27eafc9882001 (diff) | |
Suppression de la beta-iota avant appel de head_pattern_bound, ce sera ce dernier qui échouera si c'est pas normalisé de tête
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1218 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/auto.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index fc9c63b68..89b16ea8a 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -202,7 +202,7 @@ let make_apply_entry env sigma (eapply,verbose) name (c,cty) = | IsProd _ -> let ce = mk_clenv_from () (c,cty) in let c' = (clenv_template_type ce).rebus in - let pat = Pattern.pattern_of_constr (whd_betaiota c') in + let pat = Pattern.pattern_of_constr c' in let hd = (try head_pattern_bound pat with BoundPattern -> failwith "make_apply_entry") in let nmiss = |