diff options
| -rw-r--r-- | interp/notation_ops.ml | 1 | ||||
| -rw-r--r-- | test-suite/output/Notations2.out | 4 | ||||
| -rw-r--r-- | test-suite/output/Notations2.v | 5 |
3 files changed, 10 insertions, 0 deletions
diff --git a/interp/notation_ops.ml b/interp/notation_ops.ml index b4cf6e9430..3efd50b17f 100644 --- a/interp/notation_ops.ml +++ b/interp/notation_ops.ml @@ -750,6 +750,7 @@ let rec match_ inner u alp metas sigma a1 a2 = (* Matching notation variable *) | r1, NVar id2 when is_term_meta id2 metas -> bind_term_env alp sigma id2 r1 + | GVar (_,id1), NVar id2 when is_onlybinding_meta id2 metas -> snd (bind_binding_env alp sigma id2 (Name id1)) (* Matching recursive notations for terms *) | r1, NList (x,_,iter,termin,lassoc) -> diff --git a/test-suite/output/Notations2.out b/test-suite/output/Notations2.out index 6ff1d38372..d9ce42c606 100644 --- a/test-suite/output/Notations2.out +++ b/test-suite/output/Notations2.out @@ -54,3 +54,7 @@ end : ∀ x : nat, x <= 0 -> {x0 : nat | x <= x0} exist (Q x) y conj : {x0 : A | Q x x0} +% i + : nat -> nat +% j + : nat -> nat diff --git a/test-suite/output/Notations2.v b/test-suite/output/Notations2.v index 4e0d135d7d..3cf89818d9 100644 --- a/test-suite/output/Notations2.v +++ b/test-suite/output/Notations2.v @@ -106,3 +106,8 @@ Check fun x (H:le x 0) => exist (le x) 0 H. Parameters (A : Set) (x y : A) (Q : A -> A -> Prop) (conj : Q x y). Check (exist (Q x) y conj). + +(* Check bug #4854 *) +Notation "% i" := (fun i : nat => i) (at level 0, i ident). +Check %i. +Check %j. |