diff options
| author |  jforest <jforest@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-07-04 17:26:31 +0000 |
|---|---|---|
| committer | jforest <jforest@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-07-04 17:26:31 +0000 |
| commit | 15f0a6571182c23d39bf55f74d5ac5c4a4fc39a3 (patch) | |
| tree | 0e4e8a2c467a7dc8c5ada3c339420389db29d1cc /contrib/funind/invfun.ml | |
| parent | 756bd5078f59e9344b200bb04ffe8219835c65b6 (diff) | |
functional inversion now takes a quatified hypothesis as first argument
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9009 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/funind/invfun.ml')
| -rw-r--r-- | contrib/funind/invfun.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/funind/invfun.ml b/contrib/funind/invfun.ml index a6a4e0d73..7dd3bc112 100644 --- a/contrib/funind/invfun.ml +++ b/contrib/funind/invfun.ml @@ -918,7 +918,7 @@ let functional_inversion kn hid fconst f_correct : tactic = -let invfun hid f gl = +let invfun qhyp f = let f = match f with | ConstRef f -> f @@ -929,7 +929,7 @@ let invfun hid f gl = let f_correct = mkConst(out_some finfos.correctness_lemma) and kn = fst finfos.graph_ind in - functional_inversion kn hid (mkConst f) f_correct gl + Tactics.try_intros_until (fun hid -> functional_inversion kn hid (mkConst f) f_correct) qhyp with | Not_found -> error "No graph found" | Failure "out_some" -> error "Cannot use equivalence with graph!" |