diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2014-06-17 17:34:05 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2014-06-17 17:34:05 +0200 |
| commit | 258cbd1d2619cc5916dd570b95050e37c06fba77 (patch) | |
| tree | 7f4a5cb362b4fe4fe062f6dd542943504ad99e46 /test-suite/bugs/closed/HoTT_coq_104.v | |
| parent | 35d92d68c0b2123a3994a90ef7e2b8cbb946f041 (diff) | |
Reinstate eta for records in evarconv, fixing two HoTT coq bugs.
Diffstat (limited to 'test-suite/bugs/closed/HoTT_coq_104.v')
| -rw-r--r-- | test-suite/bugs/closed/HoTT_coq_104.v | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/HoTT_coq_104.v b/test-suite/bugs/closed/HoTT_coq_104.v new file mode 100644 index 000000000..5bb7fa8c1 --- /dev/null +++ b/test-suite/bugs/closed/HoTT_coq_104.v @@ -0,0 +1,13 @@ +Set Implicit Arguments. + +Require Import Logic. + +Global Set Universe Polymorphism. +Global Set Asymmetric Patterns. +Local Set Record Elimination Schemes. +Local Set Primitive Projections. + +Record prod (A B : Type) : Type := + pair { fst : A; snd : B }. + +Check fun x : prod Set Set => eq_refl : x = pair (fst x) (snd x). |