diff options
| author | jforest | 2006-07-04 17:26:31 +0000 |
|---|---|---|
| committer | jforest | 2006-07-04 17:26:31 +0000 |
| commit | 15f0a6571182c23d39bf55f74d5ac5c4a4fc39a3 (patch) | |
| tree | 0e4e8a2c467a7dc8c5ada3c339420389db29d1cc /contrib | |
| 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')
| -rw-r--r-- | contrib/funind/indfun_main.ml4 | 2 | ||||
| -rw-r--r-- | contrib/funind/invfun.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/contrib/funind/indfun_main.ml4 b/contrib/funind/indfun_main.ml4 index f19b4de902..d459415409 100644 --- a/contrib/funind/indfun_main.ml4 +++ b/contrib/funind/indfun_main.ml4 @@ -49,7 +49,7 @@ END TACTIC EXTEND newfuninv - [ "functional" "inversion" ident(hyp) reference(fname) ] -> + [ "functional" "inversion" quantified_hypothesis(hyp) reference(fname) ] -> [ Invfun.invfun hyp fname ] diff --git a/contrib/funind/invfun.ml b/contrib/funind/invfun.ml index a6a4e0d738..7dd3bc1120 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!" |