X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnRstatus.ml;h=bb2d357d754abc4cd55dae50d8be7e80eb9e037e;hb=c22f39a5d5afc0ef55beb221e00e2e6703b13d90;hp=736de4aa061cc18acdca68ed0c3a0f013c6b825c;hpb=8bc5bc0e8375a85736f6a5df317d129d5efa8de4;p=helm.git

diff --git a/helm/software/components/ng_refiner/nRstatus.ml b/helm/software/components/ng_refiner/nRstatus.ml
index 736de4aa0..bb2d357d7 100644
--- a/helm/software/components/ng_refiner/nRstatus.ml
+++ b/helm/software/components/ng_refiner/nRstatus.ml
@@ -12,10 +12,17 @@
 (* $Id: nCicRefiner.ml 9802 2009-05-25 15:39:26Z tassi $ *)
 
 class status =
- object
+ object (self)
   inherit NCicUnifHint.status
   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_unifhint_status o)#set_coercion_status o)#set_library_status o
  end
 
 type sstatus = status
@@ -38,4 +45,11 @@ class dumpable_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
  end