]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/ng_kernel/nCicLibrary.mli
fixed coercion mechanism w.r.t. undo/require
[helm.git] / helm / software / components / ng_kernel / nCicLibrary.mli
index 2911204ae50d0370375b56f4ac772e370a0952fb..d89db9d7114ed5022c9aa87b852f7100300a56c1 100644 (file)
@@ -15,11 +15,16 @@ exception LibraryOutOfSync of string Lazy.t
 
 type timestamp
 
+class type g_status =
+ object
+  method timestamp: timestamp
+ end
+
 class status :
  object ('self)
-  method timestamp: timestamp
+  inherit g_status
   method set_timestamp: timestamp -> 'self
-  method set_library_status: <timestamp: timestamp; ..> -> 'self
+  method set_library_status: #g_status -> 'self
  end
 
 (* it also checks it and add it to the environment *)