]> matita.cs.unibo.it Git - helm.git/blobdiff - matitaB/components/ng_refiner/nCicCoercion.ml
Multi-user matita: changed the status object to include a ``user'' method
[helm.git] / matitaB / components / ng_refiner / nCicCoercion.ml
index cfb9d1b6b8e927ba78f2e0918d22331e98080656..79d050bc044a938490445dcfafa3d7154d565b9b 100644 (file)
@@ -39,9 +39,9 @@ class type g_status =
   method coerc_db: db
  end
 
-class virtual status =
+class virtual status uid =
  object
-  inherit NCicUnifHint.status
+  inherit NCicUnifHint.status uid
   val db = empty_db
   method coerc_db = db
   method set_coerc_db v = {< db = v >}