aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorMaxime Dénès2018-11-13 22:30:38 +0100
committerMaxime Dénès2018-11-13 22:30:38 +0100
commit94494770254bec236f2f6fe727ae42b79192afe4 (patch)
treec4489280028b7f259498f52c0cfc056455a54ba2 /test-suite
parent9fed572705616e30cb02644adab74270703de389 (diff)
parent7142034ac3e4d3919d2c1a01df960b79dad70151 (diff)
Merge PR #8886: [VM] Fix compilation of int31 eliminators
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/bugs/closed/bug_8885.v8
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/bug_8885.v b/test-suite/bugs/closed/bug_8885.v
new file mode 100644
index 0000000000..9d86c08d71
--- /dev/null
+++ b/test-suite/bugs/closed/bug_8885.v
@@ -0,0 +1,8 @@
+From Coq Require Import Cyclic31.
+
+Definition Nat `(int31) := nat.
+Definition Zero (_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _: digits) := 0.
+
+Check (eq_refl (int31_rect Nat Zero 1) : 0 = 0).
+Check (eq_refl (int31_rect Nat Zero 1) <: 0 = 0).
+Check (eq_refl (int31_rect Nat Zero 1) <<: 0 = 0).