+type db
+
+class type g_status =
+ object
+ method notation_parser_db: db
+ end
+
+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
+ end
+
+type checked_l1_pattern = private CL1P of NotationPt.term * int
+
+val refresh_uri_in_checked_l1_pattern:
+ refresh_uri_in_term:(NCic.term -> NCic.term) ->
+ refresh_uri_in_reference:(NReference.reference -> NReference.reference) ->
+ checked_l1_pattern -> checked_l1_pattern