diff options
| author | Maxime Dénès | 2017-04-07 12:56:40 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-04-12 15:10:15 +0200 |
| commit | a74d64efb554e9fd57b8ec97fca7677033cc4fc4 (patch) | |
| tree | 361960411112f34147d058dc78c4716bef05b0f9 /test-suite/output | |
| parent | f41944730792070d4a3074aa1fe1f8465062b758 (diff) | |
| parent | 01622922a3a68cc4a0597bb08e0f7ba5966a7144 (diff) | |
Merge PR#422: Supporting all kinds of binders, including 'pat, in syntax of record fields.
Diffstat (limited to 'test-suite/output')
| -rw-r--r-- | test-suite/output/PatternsInBinders.out | 2 | ||||
| -rw-r--r-- | test-suite/output/PatternsInBinders.v | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/output/PatternsInBinders.out b/test-suite/output/PatternsInBinders.out index c012a86b01..95be04c32c 100644 --- a/test-suite/output/PatternsInBinders.out +++ b/test-suite/output/PatternsInBinders.out @@ -37,3 +37,5 @@ fun '(x, y) '(z, t) => swap (x, y) = (z, t) : A * B -> B * A -> Prop forall '(x, y) '(z, t), swap (x, y) = (z, t) : Prop +fun (pat : nat) '(x, y) => x + y = pat + : nat -> nat * nat -> Prop diff --git a/test-suite/output/PatternsInBinders.v b/test-suite/output/PatternsInBinders.v index 6fa357a90c..0bad472f41 100644 --- a/test-suite/output/PatternsInBinders.v +++ b/test-suite/output/PatternsInBinders.v @@ -64,3 +64,6 @@ Check fun '((x,y) : A*B) '(z,t) => swap (x,y) = (z,t). Check forall '(x,y) '((z,t) : B*A), swap (x,y) = (z,t). End Suboptimal. + +(** Test risk of collision for internal name *) +Check fun pat => fun '(x,y) => x+y = pat. |