diff options
author | 2007-10-12 13:36:02 +0000 | |
---|---|---|
committer | 2007-10-12 13:36:02 +0000 | |
commit | f9d7ccaf40f7f21ce0630c9b668581249a635de9 (patch) | |
tree | 659d29f45c32211ef8bd012353d9100514932c1e /tactics | |
parent | 5c0beed3886749f7beb1227e8b321828eeae57a1 (diff) |
Uniformisation du comportement de rewrite et rewrite in : quand le
filtrage d'ordre 2 échoue à trouver un prédicat de réécriture qui
n'est pas une K-abstraction, les deux rewrite essaie alors le filtrage
d'ordre 1. Ce n'est pas le plus élégant mais c'est la solution
uniforme permettant d'être conservatif.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10221 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
-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 cffe550af..c2dea3dad 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -903,7 +903,7 @@ let elimination_in_clause_scheme with_evars id elimclause indclause gl = let hyp = mkVar id in let hyp_typ = pf_type_of gl hyp in let hypclause = mk_clenv_from_n gl (Some 0) (hyp, hyp_typ) in - let elimclause'' = clenv_fchain hypmv elimclause' hypclause in + let elimclause'' = clenv_fchain ~allow_K:false hypmv elimclause' hypclause in let new_hyp_typ = clenv_type elimclause'' in if eq_constr hyp_typ new_hyp_typ then errorlabstrm "general_rewrite_in" |