snapshot, notably:

[helm.git] / helm / matita / matitaProof.mli

diff --git a/helm/matita/matitaProof.mli b/helm/matita/matitaProof.mli
index 9293e330afa1c6586fd9d70f90d8be58c2044324..566777fc1c8e3e61135127b1c1014a1e33f162e6 100644 (file)
--- a/helm/matita/matitaProof.mli
+++ b/helm/matita/matitaProof.mli
@@ -35,3 +35,20 @@ val proof:
   unit ->
     MatitaTypes.proof
 
+  (** current proof handler *)
+class currentProof:
+  object
+    inherit MatitaTypes.currentProof
+    
+      (** add an observer to the current observer list. All observers will be
+      * attached to each new proof (method "start") created by this object
+      *)
+    method addObserver: unit StatefulProofEngine.observer -> unit
+
+      (** connect as the first event handler for a given event (abort or quit).
+      * If the event handler returns true, handler processing stops, otherwise
+      * continue with the next handler
+      *)
+    method connect: [`Abort|`Quit] -> (unit -> bool) -> unit
+  end
+