X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fcomponents%2Fng_tactics%2FnTacStatus.mli;h=f2a128665c6dd7ec3deb3a4cd17bb8ccff6b0da9;hb=1f0f5721ea1bae0865b8e2a1e68abb94b5fcd964;hp=35e74debf70b315efee950816a8f4a65276c809b;hpb=cacbe3c6493ddce76c4c13379ade271d8dd172e8;p=helm.git

diff --git a/matitaB/components/ng_tactics/nTacStatus.mli b/matitaB/components/ng_tactics/nTacStatus.mli
index 35e74debf..f2a128665 100644
--- a/matitaB/components/ng_tactics/nTacStatus.mli
+++ b/matitaB/components/ng_tactics/nTacStatus.mli
@@ -50,7 +50,7 @@ class type g_pstatus =
  end
 
 class virtual pstatus :
- NCic.obj ->
+ string option -> NCic.obj ->
   object ('self)
    inherit g_pstatus
    inherit GrafiteDisambiguate.status
@@ -128,7 +128,7 @@ class type ['stack] g_status =
  end
 
 class virtual ['stack] status :
- NCic.obj -> 'stack ->
+ string option -> NCic.obj -> 'stack ->
   object ('self)
    inherit ['stack] g_status
    inherit pstatus