aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2018-01-29 16:04:54 +0100
committerGravatar Maxime Dénès <mail@maximedenes.fr>2018-01-29 16:04:54 +0100
commit4be607ec6c0b89e85566b4a6952bdf41e40fae7b (patch)
tree8d1ab1f94ec3e434552fe6e4adc2c162c93a9764
parent60cb1f81e475d4b0f044a56ec4de503e42bad99a (diff)
Add test case for #5286.
-rw-r--r--test-suite/bugs/closed/5286.v9
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/5286.v b/test-suite/bugs/closed/5286.v
new file mode 100644
index 000000000..98d4e5c96
--- /dev/null
+++ b/test-suite/bugs/closed/5286.v
@@ -0,0 +1,9 @@
+Set Primitive Projections.
+
+CoInductive R := mkR { p : unit }.
+
+CoFixpoint foo := mkR tt.
+
+Check (eq_refl tt : p foo = tt).
+Check (eq_refl tt <: p foo = tt).
+Check (eq_refl tt <<: p foo = tt).