diff options
Diffstat (limited to 'interp')
-rw-r--r-- | interp/notation.ml | 2 | ||||
-rw-r--r-- | interp/notation.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index b8f4f3201..1a2e7074f 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -965,7 +965,7 @@ let pr_visibility prglob = function (**********************************************************************) (* Mapping notations to concrete syntax *) -type unparsing_rule = unparsing list * precedence +type unparsing_rule = unparsing list * precedence * tolerability option type extra_unparsing_rules = (string * string) list (* Concrete syntax for symbolic-extension table *) let printing_rules = diff --git a/interp/notation.mli b/interp/notation.mli index 480979ccc..352c20313 100644 --- a/interp/notation.mli +++ b/interp/notation.mli @@ -194,7 +194,7 @@ val pr_visibility: (glob_constr -> std_ppcmds) -> scope_name option -> std_ppcmd (** {6 Printing rules for notations} *) (** Declare and look for the printing rule for symbolic notations *) -type unparsing_rule = unparsing list * precedence +type unparsing_rule = unparsing list * precedence * tolerability option type extra_unparsing_rules = (string * string) list val declare_notation_printing_rule : notation -> extra:extra_unparsing_rules -> unparsing_rule -> unit |