From 4697402a6305f364dc00925ba0267da3accb35d8 Mon Sep 17 00:00:00 2001
From: glondu
Date: Thu, 12 Jul 2007 23:41:01 +0000
Subject: (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
---
 proofs/refiner.mli | 2 +-
 proofs/tacmach.mli | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'proofs')

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
-- 
cgit v1.2.3