X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fcontent_pres%2FcicNotationParser.mli;h=8f2311cf0da1af1879a16fc57d5f1e60fa8b1201;hb=eeeaecfafd5ddffa54a41356104fbc60369e5d73;hp=1b6a0cf7dc6ac979e4baed16c804a4032a959e1e;hpb=d4f2d4c1a4784f84aa27e1bb96b8b377a6553c65;p=helm.git diff --git a/matita/components/content_pres/cicNotationParser.mli b/matita/components/content_pres/cicNotationParser.mli index 1b6a0cf7d..8f2311cf0 100644 --- a/matita/components/content_pres/cicNotationParser.mli +++ b/matita/components/content_pres/cicNotationParser.mli @@ -33,8 +33,9 @@ class type g_status = method notation_parser_db: db end -class status: keywords:string list -> +class virtual status: keywords:string list -> object('self) + inherit NCic.status inherit g_status method set_notation_parser_db: db -> 'self method set_notation_parser_status: 'status. #g_status as 'status -> 'self @@ -78,12 +79,13 @@ 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 -val parse_term: #status -> Ulexing.lexbuf -> NotationPt.term - (** {2 Debugging} *) (** print "level2_pattern" entry on stdout, flushing afterwards *)