diff options
| author | herbelin | 2002-12-24 11:28:22 +0000 |
|---|---|---|
| committer | herbelin | 2002-12-24 11:28:22 +0000 |
| commit | c4a45cc04f9c350c38b148a85bed0c7e88ca5afc (patch) | |
| tree | c8b5c21f695badd0c55ff96af04af3b398328f88 | |
| parent | 2a75ae37ec90b1b80c960c498028f13f90b0047e (diff) | |
Utilisation du second-ordre avec possibilité de K-rédex dans lemInv
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3482 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 fcc1884caf..0e337a0c8f 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -291,7 +291,7 @@ let lemInv id c gls = let (wc,kONT) = startWalk gls in let clause = mk_clenv_type_of wc c in let clause = clenv_constrain_with_bindings [(-1,mkVar id)] clause in - res_pf kONT clause gls + elim_res_pf kONT clause true gls with (* Ce n'est pas l'endroit pour cela | Not_found -> |