X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matitaB%2Fcomponents%2Fcontent_pres%2FcicNotationParser.mli;h=7ea722257f171f1760e94a61835b2feade58d5d4;hb=ccf5878f2a2ec7f952f140e162391708a740517b;hp=f5daf20b0f4ac3d3a778668b96ab28e20881f230;hpb=42680d47c033d751738fd0f84af7b45b2a91a5b8;p=helm.git

diff --git a/matitaB/components/content_pres/cicNotationParser.mli b/matitaB/components/content_pres/cicNotationParser.mli
index f5daf20b0..7ea722257 100644
--- a/matitaB/components/content_pres/cicNotationParser.mli
+++ b/matitaB/components/content_pres/cicNotationParser.mli
@@ -33,7 +33,7 @@ class type g_status =
   method notation_parser_db: db
  end
 
-class virtual status: keywords:string list ->
+class virtual status: string option -> keywords:string list ->
  object('self)
   inherit NCic.status
   inherit g_status
@@ -80,6 +80,9 @@ val term : #status -> NotationPt.term Grammar.Entry.e
 val let_defs : #status ->
   (NotationPt.term NotationPt.capture_variable list * NotationPt.term NotationPt.capture_variable * NotationPt.term * int) list
     Grammar.Entry.e
+val let_codefs : #status ->
+  (NotationPt.term NotationPt.capture_variable list * NotationPt.term NotationPt.capture_variable * NotationPt.term * int) list
+    Grammar.Entry.e
 
 val protected_binder_vars : #status ->
   (NotationPt.term list * NotationPt.term option) Grammar.Entry.e