summaryrefslogtreecommitdiff
path: root/test-suite/output/PatternsInBinders.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/output/PatternsInBinders.v')
-rw-r--r--test-suite/output/PatternsInBinders.v8
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/output/PatternsInBinders.v b/test-suite/output/PatternsInBinders.v
index 6fa357a9..d671053c 100644
--- a/test-suite/output/PatternsInBinders.v
+++ b/test-suite/output/PatternsInBinders.v
@@ -64,3 +64,11 @@ 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.
+
+(** Test name in degenerate case *)
+Definition f 'x := x+x.
+Print f.
+Check fun 'x => x+x.