diff options
| author | coqbot-app[bot] | 2020-11-16 14:19:09 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-16 14:19:09 +0000 |
| commit | fb186f25abeb0565bb6e238345f0c5147b697322 (patch) | |
| tree | 93bd3f7b69fd550112c34af2619251f72adef62e /interp/notation.mli | |
| parent | 1369d1426b0187bb817606966c32fdaf9afe4ed1 (diff) | |
| parent | 35ea1057b10c6457c1f9d5f61e8f72e35206392c (diff) | |
Merge PR #12690: Mini-fix of Locate for recursive notations using named variables.
Reviewed-by: ejgallego
Ack-by: ppedrot
Ack-by: SkySkimmer
Diffstat (limited to 'interp/notation.mli')
| -rw-r--r-- | interp/notation.mli | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/interp/notation.mli b/interp/notation.mli index b8939ff87b..97955bf92e 100644 --- a/interp/notation.mli +++ b/interp/notation.mli @@ -334,8 +334,10 @@ val symbol_eq : symbol -> symbol -> bool val make_notation_key : notation_entry -> symbol list -> notation val decompose_notation_key : notation -> notation_entry * symbol list -(** Decompose a notation of the form "a 'U' b" *) -val decompose_raw_notation : string -> symbol list +(** Decompose a notation of the form "a 'U' b" together with the lists + of pairs of recursive variables and the list of all variables + binding in the notation *) +val decompose_raw_notation : string -> (Id.t * Id.t) list * Id.t list * symbol list (** Prints scopes (expects a pure aconstr printer) *) val pr_scope_class : scope_class -> Pp.t |