X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matitaB%2Fcomponents%2Fng_refiner%2FnCicCoercion.ml;h=79d050bc044a938490445dcfafa3d7154d565b9b;hb=bbf85ddcdfe0809fee0c6ca9812ce0da30c238af;hp=cfb9d1b6b8e927ba78f2e0918d22331e98080656;hpb=cacbe3c6493ddce76c4c13379ade271d8dd172e8;p=helm.git

diff --git a/matitaB/components/ng_refiner/nCicCoercion.ml b/matitaB/components/ng_refiner/nCicCoercion.ml
index cfb9d1b6b..79d050bc0 100644
--- a/matitaB/components/ng_refiner/nCicCoercion.ml
+++ b/matitaB/components/ng_refiner/nCicCoercion.ml
@@ -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 >}