X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fcontent_pres%2FtermContentPres.mli;h=9c08650c23adfa6a4ac88e17ff220d4088f610e7;hb=8f1a123e61ff079b1f9ad63cc915470ec7e6abf3;hp=69cb38b998844151ab8b20a20b103c8c84606e88;hpb=f3f6b451707a3feb8245717e3fa7ca25df0ce8ef;p=helm.git diff --git a/matita/components/content_pres/termContentPres.mli b/matita/components/content_pres/termContentPres.mli index 69cb38b99..9c08650c2 100644 --- a/matita/components/content_pres/termContentPres.mli +++ b/matita/components/content_pres/termContentPres.mli @@ -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