diff options
| -rw-r--r-- | Makefile | 4 | ||||
| -rw-r--r-- | proofs/refiner.mli | 2 | ||||
| -rw-r--r-- | proofs/tacmach.mli | 2 |
3 files changed, 6 insertions, 2 deletions
@@ -1453,6 +1453,10 @@ tags: "--regex=/exception[ \t]+\([^ \t]+\)/\1/" \ "--regex=/val[ \t]+\([^ \t]+\)/\1/" \ "--regex=/module[ \t]+\([^ \t]+\)/\1/" + find . -maxdepth 3 -name "*.ml4" | sort -r | xargs \ + etags --append --language=none\ + "--regex=/[ \t]*\([^: \t]+\)[ \t]*:/\1/" + otags: find . -maxdepth 3 -name "*.ml" -o -name "*.mli" \ diff --git a/proofs/refiner.mli b/proofs/refiner.mli index 03a32bab87..530a72a379 100644 --- a/proofs/refiner.mli +++ b/proofs/refiner.mli @@ -28,7 +28,7 @@ val pf_hyps : goal sigma -> named_context val unpackage : 'a sigma -> evar_map ref * 'a val repackage : evar_map ref -> 'a -> 'a sigma val apply_sig_tac : - evar_map ref -> ('a sigma -> 'b sigma * 'c) -> 'a -> 'b * 'c + evar_map ref -> (goal sigma -> (goal list) sigma * validation) -> goal -> (goal list) * validation type transformation_tactic = proof_tree -> (goal list * validation) diff --git a/proofs/tacmach.mli b/proofs/tacmach.mli index 1d0cfe0d66..ed95ef285a 100644 --- a/proofs/tacmach.mli +++ b/proofs/tacmach.mli @@ -37,7 +37,7 @@ val re_sig : 'a -> evar_map -> 'a sigma val unpackage : 'a sigma -> evar_map ref * 'a val repackage : evar_map ref -> 'a -> 'a sigma val apply_sig_tac : - evar_map ref -> ('a sigma -> 'b sigma * 'c) -> 'a -> 'b * 'c + evar_map ref -> (goal sigma -> (goal list) sigma * validation) -> goal -> (goal list) * validation val pf_concl : goal sigma -> types val pf_env : goal sigma -> env |