- semantics of tactic subst allmost fixed

[helm.git] / components / tactics / continuationals.ml

diff --git a/components/tactics/continuationals.ml b/components/tactics/continuationals.ml
index 93695fa9312d6a1398f76d162c264a9e3edc2de7..6bb419c03f9db57dcbeb6a69ba4f3d3d1b45642e 100644 (file)
--- a/components/tactics/continuationals.ml
+++ b/components/tactics/continuationals.ml
@@ -180,6 +180,8 @@ sig
   val mk_tactic : (input_status -> output_status) -> tactic
   val apply_tactic : tactic -> input_status -> output_status
 
+  val get_status: input_status -> ProofEngineTypes.status
+  val get_proof: output_status -> ProofEngineTypes.proof
   val goals : output_status -> goal list * goal list (** opened, closed goals *)
   val set_goals: goal list * goal list -> output_status -> output_status
   val get_stack : input_status -> Stack.t