snapshot, notably:

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

diff --git a/helm/matita/matitaProof.mli b/helm/matita/matitaProof.mli
index 566777fc1c8e3e61135127b1c1014a1e33f162e6..9ed6221917d215277b6783435b788bb4ebeb51b9 100644 (file)
--- a/helm/matita/matitaProof.mli
+++ b/helm/matita/matitaProof.mli
@@ -36,7 +36,7 @@ val proof:
     MatitaTypes.proof
 
   (** current proof handler *)
-class currentProof:
+class type currentProof =
   object
     inherit MatitaTypes.currentProof
     
@@ -52,3 +52,8 @@ class currentProof:
     method connect: [`Abort|`Quit] -> (unit -> bool) -> unit
   end
 
+val currentProof: unit -> currentProof
+
+  (** currentProof singleton instance *)
+val instance: unit -> currentProof
+