]> matita.cs.unibo.it Git - helm.git/blobdiff - matitaB/components/ng_refiner/nCicUnifHint.ml
Multi-user matita: changed the status object to include a ``user'' method
[helm.git] / matitaB / components / ng_refiner / nCicUnifHint.ml
index ff8de755469b21ffb336e9f4a833e3c4016f0682..960ead117dd235c7bb3dde44f519c280cdb419dd 100644 (file)
@@ -51,9 +51,9 @@ class type g_status =
   method uhint_db: db
  end
 
-class virtual status =
+class virtual status (uid : string option) =
  object
-  inherit NCic.status
+  inherit NCic.status uid
   val db = HDB.empty, EQDB.empty
   method uhint_db = db
   method set_uhint_db v = {< db = v >}