X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_refiner%2FnRstatus.ml;h=9a6fd4ef29ec4870b37e58fb8e117c2c627e84a4;hb=33a4938d5ce3a5c240c0d35b6362c8072f8ba482;hp=5ef83ec3c2c10ec578e3b0c5c603a94469d50278;hpb=e603c19e82c160362587cb0bc578287c87122b90;p=helm.git

diff --git a/helm/software/components/ng_refiner/nRstatus.ml b/helm/software/components/ng_refiner/nRstatus.ml
index 5ef83ec3c..9a6fd4ef2 100644
--- a/helm/software/components/ng_refiner/nRstatus.ml
+++ b/helm/software/components/ng_refiner/nRstatus.ml
@@ -11,53 +11,7 @@
 
 (* $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 type g_status = NCicCoercion.status
 
-class status : ctstatus =
- 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)
- end
+class status = NCicCoercion.status
 
-type sstatus = status
-
-module Serializer =
- struct
-  include NCicLibrary.Serializer(struct type status = sstatus end)
-
-  let require ~baseuri status = 
-   let rstatus = require ~baseuri (status : #status :> status) in
-   let status = status#set_uhint_db (rstatus#uhint_db) in
-   let status = status#set_coerc_db (rstatus#coerc_db) in
-   let status = status#set_timestamp (rstatus#timestamp) in
-    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 =
- 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)
- end