diff options
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/notation.ml | 6 | ||||
| -rw-r--r-- | interp/notation.mli | 6 |
2 files changed, 12 insertions, 0 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 8cb423051a..25772d8fe4 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -389,6 +389,12 @@ let prim_token_uninterpreters = (*******************************************************) (* Numeral notation interpretation *) +type numeral_notation_error = + | UnexpectedTerm of Constr.t + | UnexpectedNonOptionTerm of Constr.t + +exception NumeralNotationError of Environ.env * Evd.evar_map * numeral_notation_error + type numnot_option = | Nop | Warning of raw_natural_number diff --git a/interp/notation.mli b/interp/notation.mli index 7f20a2ef1f..33e275d925 100644 --- a/interp/notation.mli +++ b/interp/notation.mli @@ -104,6 +104,12 @@ val register_string_interpretation : (** * Numeral notation *) +type numeral_notation_error = + | UnexpectedTerm of Constr.t + | UnexpectedNonOptionTerm of Constr.t + +exception NumeralNotationError of Environ.env * Evd.evar_map * numeral_notation_error + type numnot_option = | Nop | Warning of raw_natural_number |