diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-10 22:07:13 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-06-10 22:07:13 +0000 |
| commit | 11425d763714cd663a5d3849f6a9367d39f38e7d (patch) | |
| tree | 91d603163db744d6acf8fbbfa887763390ac93b8 /tactics/leminv.ml | |
| parent | 33682f0e2ee0d99701da1703cae218b6f5f85a7f (diff) | |
Moved allow_K to a unification flag
- seized the opportunity to align unification flags for functional induction to the ones of induction
- also tried to add delta in the elim_flags used in tactics.ml
- also tried to unify the rewrite flags in concl or in hyp (removed allow_K in hyps)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14186 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/leminv.ml')
| -rw-r--r-- | tactics/leminv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/leminv.ml b/tactics/leminv.ml index 95814302d..a6915461d 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -271,7 +271,7 @@ let lemInv id c gls = try let clause = mk_clenv_type_of gls c in let clause = clenv_constrain_last_binding (mkVar id) clause in - Clenvtac.res_pf clause ~allow_K:true gls + Clenvtac.res_pf clause ~flags:Unification.elim_flags gls with | NoSuchBinding -> errorlabstrm "" |