diff options
| author | Maxime Dénès | 2017-11-20 10:21:46 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-11-20 10:21:46 +0100 |
| commit | 9d3a07d9a7ddf3a0e33b6b1f60d3c89037dc55b7 (patch) | |
| tree | f3851eb1d58e7944f715e3d6aacf4ea07b70e911 /test-suite/success | |
| parent | 6ef1e22f17b7a4d16fbc519240b4df1e3915ffef (diff) | |
| parent | 685643098eeef00fe1f8dfca0927db2e812e1e7a (diff) | |
Merge PR #6125: Fixing remaining problems with bug #5762 and PR #1120 (clause "where" with implicit arguments)
Diffstat (limited to 'test-suite/success')
| -rw-r--r-- | test-suite/success/Notations2.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test-suite/success/Notations2.v b/test-suite/success/Notations2.v index 9505a56e3f..e86b3edb83 100644 --- a/test-suite/success/Notations2.v +++ b/test-suite/success/Notations2.v @@ -90,3 +90,9 @@ Check fun A (x :prod' bool A) => match x with #### 0 y 0 => 2 | _ => 1 end. Notation "##### x" := (pair' x) (at level 0, x at level 1). Check ##### 0 _ 0%bool 0%bool : prod' bool bool. Check fun A (x :prod' bool A) => match x with ##### 0 _ y 0%bool => 2 | _ => 1 end. + +(* 10. Check computation of binding variable through other notations *) +(* i should be detected as binding variable and the scopes not being checked *) + +Notation "'FUNNAT' i => t" := (fun i : nat => i = t) (at level 200). +Notation "'Funnat' i => t" := (FUNNAT i => t + i%nat) (at level 200). |