diff options
author | 2017-11-16 16:04:10 +0100 | |
---|---|---|
committer | 2017-11-16 16:04:10 +0100 | |
commit | 11d895262e49b4c9f371e38c9e4436cead7001f4 (patch) | |
tree | edfe3e4391a098a31da6dea86226b3e1598ae047 /test-suite/bugs/closed | |
parent | 65fed4f6ee54224e0301da42fc0cc4485364f064 (diff) | |
parent | 952748b37f6cb6626353ba97910eac438f636beb (diff) |
Merge PR #6132: Fixes #6129 (declaration of coercions made compatible with local definitions)
Diffstat (limited to 'test-suite/bugs/closed')
-rw-r--r-- | test-suite/bugs/closed/6129.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/6129.v b/test-suite/bugs/closed/6129.v new file mode 100644 index 000000000..e4a2a2ba9 --- /dev/null +++ b/test-suite/bugs/closed/6129.v @@ -0,0 +1,9 @@ +(* Make definition of coercions compatible with local definitions. *) + +Record foo (x : Type) (y:=1) := { foo_nat :> nat }. +Record foo2 (x : Type) (y:=1) (z t: Type) := { foo_nat2 :> nat }. +Record foo3 (y:=1) (z t: Type) := { foo_nat3 :> nat }. + +Check fun x : foo nat => x + 1. +Check fun x : foo2 nat nat nat => x + 1. +Check fun x : foo3 nat nat => x + 1. |