X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Fcontinuationals.ml;h=6bb419c03f9db57dcbeb6a69ba4f3d3d1b45642e;hb=54d09097e4ddbf7383d47ff0df4f1d9e14ea50fc;hp=93695fa9312d6a1398f76d162c264a9e3edc2de7;hpb=2957d67b2b74224cf3bb768461d60f07062e1b9d;p=helm.git

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