diff options
| author | Matthieu Sozeau | 2016-06-28 09:38:11 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-06-28 09:38:11 +0200 |
| commit | d24997ae295ac4bc80b77273e5499b472f193939 (patch) | |
| tree | cc3aa660f97686dbd5987325f46d9e28b2de2ded /test-suite/bugs | |
| parent | a7ea32fbf3829d1ce39ce9cc24b71791727090c5 (diff) | |
| parent | 11b32aa76f63525bb5bcf1b3171514f6f6830606 (diff) | |
Merge branch 'forhott' into v8.5
Diffstat (limited to 'test-suite/bugs')
| -rw-r--r-- | test-suite/bugs/closed/3825.v | 8 | ||||
| -rw-r--r-- | test-suite/bugs/closed/4375.v | 9 |
2 files changed, 13 insertions, 4 deletions
diff --git a/test-suite/bugs/closed/3825.v b/test-suite/bugs/closed/3825.v index e594b74b62..666c64631f 100644 --- a/test-suite/bugs/closed/3825.v +++ b/test-suite/bugs/closed/3825.v @@ -14,3 +14,11 @@ Notation qux := (nat -> nat). Fail Check qux@{i}. +Axiom TruncType@{i} : nat -> Type@{i}. + +Notation "n -Type" := (TruncType n) (at level 1) : type_scope. +Notation hProp := (0)-Type. + +Check hProp. +Check hProp@{i}. + 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 |