X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2Fcontinuationals.ml;h=6bb419c03f9db57dcbeb6a69ba4f3d3d1b45642e;hb=dab40d3f522ad5e31a6b8967840c7b36937de83c;hp=93695fa9312d6a1398f76d162c264a9e3edc2de7;hpb=fa9d8870aff80b2b3b186539d69701f39a2588f4;p=helm.git

diff --git a/components/tactics/continuationals.ml b/components/tactics/continuationals.ml
index 93695fa93..6bb419c03 100644
--- 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