diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-01-20 23:25:55 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-01-20 23:41:45 +0100 |
| commit | fe0e62bebcd71aca8b56cc615d81667a31e43388 (patch) | |
| tree | 749801de9671f0184ba788dccbe8c7f944b6c042 | |
| parent | 9266190e7965729ddcbf645b386e83e20ba5ab62 (diff) | |
Adding a test for coqchk bug #6619.
| -rw-r--r-- | test-suite/coqchk/primproj2.v | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/coqchk/primproj2.v b/test-suite/coqchk/primproj2.v new file mode 100644 index 000000000..f73c627ee --- /dev/null +++ b/test-suite/coqchk/primproj2.v @@ -0,0 +1,10 @@ +Set Primitive Projections. + +Record Pack (A : Type) := pack { unpack : A }. + +Definition p : Pack bool. +Proof. +refine (pack _ true). +Qed. + +Definition boom : unpack bool p = let u := unpack _ in u p := eq_refl. |