]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/ng_refiner/nRstatus.ml
Good:
[helm.git] / helm / software / components / ng_refiner / nRstatus.ml
index 5ef83ec3c2c10ec578e3b0c5c603a94469d50278..bb2d357d754abc4cd55dae50d8be7e80eb9e037e 100644 (file)
 
 (* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
 
-class type ctstatus =
- object ('self)
-  inherit NCicUnifHint.status
-  inherit NCicCoercion.status
-  inherit NCicLibrary.status
-  method set_rstatus : ctstatus -> 'self
- end
-
-class status : ctstatus =
+class status =
  object (self)
   inherit NCicUnifHint.status
   inherit NCicCoercion.status
   inherit NCicLibrary.status
-  method set_rstatus o =
-   ((self#set_unifhint_status (o :> NCicUnifHint.status))
-         #set_coercion_status (o :> NCicCoercion.status))
-         #set_library_status  (o :> NCicLibrary.status)
+  method set_rstatus
+   : 'status.
+       < coerc_db : NCicCoercion.db;
+         uhint_db : NCicUnifHint.db;
+         timestamp: NCicLibrary.timestamp; .. > as 'status -> 'self
+   = fun o ->
+      ((self#set_unifhint_status o)#set_coercion_status o)#set_library_status o
  end
 
 type sstatus = status
@@ -44,20 +39,17 @@ module Serializer =
     status 
  end
 
-class type ctdumpable_status =
- object ('self)
-  inherit status
-  method dump: Serializer.obj list
-  method set_dump: Serializer.obj list -> 'self
-  method set_dumpable_status: ctdumpable_status -> 'self
- end
-
-class dumpable_status : ctdumpable_status =
+class dumpable_status =
  object
   inherit status
   val dump = ([] : Serializer.obj list)
   method dump = dump
   method set_dump v = {< dump = v >}
-  method set_dumpable_status o =
-   {< dump = o#dump >}#set_rstatus (o :> status)
+  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
  end