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 /proofs | |
| 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
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/refiner.mli | 2 | ||||
| -rw-r--r-- | proofs/tacmach.mli | 2 |
2 files changed, 2 insertions, 2 deletions
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 |