]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/ng_library/nCicLibrary.mli
size_of_type fixed and simplified
[helm.git] / matita / components / ng_library / nCicLibrary.mli
index ee1ed3ece6996c74b936aeb0d6595f2dc9c44b7d..3781a47e2dfa757c095d1c5cdca1ede6b5138b89 100644 (file)
@@ -18,9 +18,10 @@ type timestamp
 
 class virtual status :
  object ('self)
-  inherit NCic.status
+  inherit NCicExtraction.status
   method timestamp: timestamp
   method set_timestamp: timestamp -> 'self
+  (*CSC: bug here, we are not copying the NCicExtraction part of the status *)
  end
 
 (* it also checks it and add it to the environment *)
@@ -77,7 +78,7 @@ module type SerializerType =
   val dependencies_of: baseuri:NUri.uri -> string list
  end
 
-module Serializer(D: sig type dumpable_s val get: dumpable_s -> dumpable_status  val set: dumpable_s -> dumpable_status -> dumpable_s end) :
+module Serializer(D: sig type dumpable_s = private #dumpable_status end) :
   SerializerType with type dumpable_status = D.dumpable_s
 
 val refresh_uri: NUri.uri -> NUri.uri