aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/ssr/set_polyuniv.v
diff options
context:
space:
mode:
authorGravatar Enrico Tassi <Enrico.Tassi@inria.fr>2018-06-19 10:47:53 +0200
committerGravatar Enrico Tassi <Enrico.Tassi@inria.fr>2018-06-22 10:56:40 +0200
commitcb81adb6a438fe218e11192b09e085770c7d3067 (patch)
treea4c863925a62af37dbcf6fbef502767216917ca8 /test-suite/ssr/set_polyuniv.v
parent97485c08cb03987e8d7f2aa98e28510b7187126a (diff)
[ssr] test case for rewrite and set on univ poly keys
Diffstat (limited to 'test-suite/ssr/set_polyuniv.v')
-rw-r--r--test-suite/ssr/set_polyuniv.v11
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/ssr/set_polyuniv.v b/test-suite/ssr/set_polyuniv.v
new file mode 100644
index 000000000..436eeafc7
--- /dev/null
+++ b/test-suite/ssr/set_polyuniv.v
@@ -0,0 +1,11 @@
+From Coq Require Import ssreflect.
+Set Default Proof Using "Type".
+
+Local Set Universe Polymorphism.
+
+Axiom foo : Type -> Prop.
+
+Lemma test : foo nat.
+Proof.
+set x := foo _. (* key @foo{i} matches @foo{j} *)
+Abort.