]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/content_pres/termContentPres.mli
HUGE COMMIT:
[helm.git] / matita / components / content_pres / termContentPres.mli
index 69cb38b998844151ab8b20a20b103c8c84606e88..9c08650c23adfa6a4ac88e17ff220d4088f610e7 100644 (file)
@@ -32,8 +32,9 @@ class type g_status =
     method content_pres_db: db
   end
 
-class status :
+class virtual status :
   object ('self)
+    inherit NCic.status
     method content_pres_db: db
     method set_content_pres_db: db -> 'self
     method set_content_pres_status: #g_status -> 'self
@@ -53,5 +54,4 @@ val pp_ast: #status -> NotationPt.term -> NotationPt.term
 
   (** fills a term pattern instantiating variable magics *)
 val instantiate_level2:
-  NotationEnv.t -> NotationPt.term ->
-    NotationPt.term
+ #NCic.status -> NotationEnv.t -> NotationPt.term -> NotationPt.term