X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnRstatus.ml;h=68fdf4f50f07663efdee6d131280f50f323f2416;hb=b266ed97b63400d62ab4ba6a4ebdfbc1d5b0c2bb;hp=26482e61b4138deec35cae8c12a0bb5774f24f16;hpb=e869500069d11aadd7bbe8afddcdd9044d0b56a7;p=helm.git

diff --git a/helm/software/components/ng_refiner/nRstatus.ml b/helm/software/components/ng_refiner/nRstatus.ml
index 26482e61b..68fdf4f50 100644
--- a/helm/software/components/ng_refiner/nRstatus.ml
+++ b/helm/software/components/ng_refiner/nRstatus.ml
@@ -11,17 +11,18 @@
 
 (* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
 
+class type g_status =
+ object
+  inherit NCicCoercion.g_status
+  inherit NCicLibrary.g_status
+ end
+
 class status =
  object (self)
   inherit NCicCoercion.status
   inherit NCicLibrary.status
-  method set_rstatus
-   : 'status.
-       < coerc_db : NCicCoercion.db;
-         uhint_db : NCicUnifHint.db;
-         timestamp: NCicLibrary.timestamp; .. > as 'status -> 'self
-   = fun o ->
-      (self#set_coercion_status o)#set_library_status o
+  method set_rstatus : 'status. #g_status as 'status -> 'self
+   = fun o -> (self#set_coercion_status o)#set_library_status o
  end
 
 type sstatus = status
@@ -38,17 +39,18 @@ module Serializer =
     status 
  end
 
-class dumpable_status =
+class type g_dumpable_status =
  object
+  inherit g_status
+  method dump: Serializer.obj list
+ end
+
+class dumpable_status =
+ object(self)
   inherit status
   val dump = ([] : Serializer.obj list)
   method dump = dump
   method set_dump v = {< dump = v >}
-  method set_dumpable_status
-   : 'status.
-       < coerc_db : NCicCoercion.db;
-         uhint_db : NCicUnifHint.db;
-         timestamp: NCicLibrary.timestamp;
-         dump: Serializer.obj list; .. > as 'status -> 'self
-   = fun o -> {< dump = o#dump >}#set_rstatus o
+  method set_dumpable_status : 'status. #g_dumpable_status as 'status -> 'self
+   = fun o -> (self#set_dump o#dump)#set_rstatus o
  end