Use of standard OCaml syntax

[helm.git] / matita / components / ng_refiner / nCicUnifHint.mli

diff --git a/matita/components/ng_refiner/nCicUnifHint.mli b/matita/components/ng_refiner/nCicUnifHint.mli
index 421ef9ffb66e0d48672e3b2e01a4ecd1ab24d147..0e837a01873d231dbe5c992e294f096c994f489b 100644 (file)
--- a/matita/components/ng_refiner/nCicUnifHint.mli
+++ b/matita/components/ng_refiner/nCicUnifHint.mli
@@ -20,18 +20,19 @@ class type g_status =
   method uhint_db: db
  end
 
-class status :
+class virtual status :
  object ('self)
   inherit g_status
+  inherit NCic.status
   method set_uhint_db: db -> 'self
   method set_unifhint_status: #g_status -> 'self
  end
 
 val index_hint: 
-  #status as 'status -> NCic.context -> NCic.term -> NCic.term -> int -> 'status
+  (#status as 'status) -> NCic.context -> NCic.term -> NCic.term -> int -> 'status
 
 val add_user_provided_hint :
-  #status as 'status -> NCic.term -> int -> 'status
+  (#status as 'status) -> NCic.term -> int -> 'status
 
 val look_for_hint:
     #status ->