diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2015-01-05 16:33:20 +0100 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2015-01-05 16:39:48 +0100 |
| commit | 1c186562c2fc628d9ec4b6cda888750a642da117 (patch) | |
| tree | 6f02036ca12c5cbc073a282366fca9b06d77503f /test-suite/bugs/closed | |
| parent | ba2ad4fdcfb7e56a71c5797b82644cc9a49dd18f (diff) | |
kernel/ind Change interface of declare_mind and declare_mutual
Removing unused argument and fixing bug #3899, now warning when a record
cannot be made primitive in Set Primitive Projections mode because it
has no projection or at least one undefinable projection.
Diffstat (limited to 'test-suite/bugs/closed')
| -rw-r--r-- | test-suite/bugs/closed/3899.v | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3899.v b/test-suite/bugs/closed/3899.v new file mode 100644 index 000000000..e83166aae --- /dev/null +++ b/test-suite/bugs/closed/3899.v @@ -0,0 +1,11 @@ +Set Primitive Projections. +Record unit : Set := tt {}. +Fail Check fun x : unit => eq_refl : tt = x. +Fail Check fun x : unit => eq_refl : x = tt. +Fail Check fun x y : unit => (eq_refl : x = tt) : x = y. +Fail Check fun x y : unit => eq_refl : x = y. + +Record ok : Set := tt' { a : unit }. + +Record nonprim : Prop := { undef : unit }. +Record prim : Prop := { def : True }.
\ No newline at end of file |