summaryrefslogtreecommitdiff
path: root/test-suite/success/Record.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/success/Record.v')
-rw-r--r--test-suite/success/Record.v5
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/success/Record.v b/test-suite/success/Record.v
index 8334322c..6f27c1d3 100644
--- a/test-suite/success/Record.v
+++ b/test-suite/success/Record.v
@@ -87,3 +87,8 @@ Record R : Type := {
P (A : Type) : Prop := exists x : A -> A, x = x;
Q A : P A -> P A
}.
+
+(* We allow reusing an implicit parameter named in non-recursive types *)
+(* This is used in a couple of development such as UniMatch *)
+
+Record S {A:Type} := { a : A; b : forall A:Type, A }.