type rule_id
val extend:
- CicNotationPt.term ->
- ?precedence:int ->
- ?associativity:Gramext.g_assoc ->
+ CicNotationPt.term -> (* level 1 pattern *)
+ precedence:int ->
+ associativity:Gramext.g_assoc ->
(CicNotationEnv.t -> CicNotationPt.location -> CicNotationPt.term) ->
rule_id