diff options
| author | glondu | 2007-07-12 23:41:01 +0000 |
|---|---|---|
| committer | glondu | 2007-07-12 23:41:01 +0000 |
| commit | 4697402a6305f364dc00925ba0267da3accb35d8 (patch) | |
| tree | 3f7278d8daab65bcfce977cae73af9fcec8bd77e | |
| parent | 662c9d18d05479ba0c03b28f37ce19ed527ac439 (diff) | |
(Port of r9984) Easier debugging:
* explicitation of some types
* tags for grammar entries
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9989 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 |