diff options
| author | Matthieu Sozeau | 2016-05-09 21:21:30 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-06-27 23:46:32 +0200 |
| commit | b4069d5c9933ab645700b511fe8c101e1e16ff48 (patch) | |
| tree | 065c3da346df3b1cd2205d4631b1ed9965abcf39 /test-suite/bugs | |
| parent | a7ea32fbf3829d1ce39ce9cc24b71791727090c5 (diff) | |
Forbidding silently dropped universes instances in
internalization.
Patch by PMP, test-suite fix by MS.
Diffstat (limited to 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/4375.v | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/test-suite/bugs/closed/4375.v b/test-suite/bugs/closed/4375.v index 03af16535b..71e3a75187 100644 --- a/test-suite/bugs/closed/4375.v +++ b/test-suite/bugs/closed/4375.v @@ -93,14 +93,15 @@ Polymorphic CoInductive foo@{i} (T : Type@{i}) : Type@{i} := | A : foo T -> foo T. Polymorphic CoFixpoint cg@{i} (t : Type@{i}) : foo@{i} t := - @A@{i} t (cg@{i} t). + @A@{i} t (cg t). Print cg. Polymorphic CoFixpoint ca@{i} (t : Type@{i}) : foo@{i} t := - @A@{i} t (@cb@{i} t) + @A@{i} t (cb t) with cb@{i} (t : Type@{i}) : foo@{i} t := - @A@{i} t (@ca@{i} t). + @A@{i} t (ca t). Print ca. -Print cb.
\ No newline at end of file +Print cb. +
\ No newline at end of file |