aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/3929.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/bugs/closed/3929.v')
-rw-r--r--test-suite/bugs/closed/3929.v12
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3929.v b/test-suite/bugs/closed/3929.v
new file mode 100644
index 000000000..4031dcc45
--- /dev/null
+++ b/test-suite/bugs/closed/3929.v
@@ -0,0 +1,12 @@
+Goal True.
+evar (T:Type).
+pose (Z:=nat).
+let Tv:=eval cbv [T] in T in
+pose (x:=Tv).
+revert x.
+refine (_ : let x:=Z in True).
+let Zv:=eval cbv [Z] in Z in
+let Tv:=eval cbv [T] in T in
+constr_eq Zv Tv.
+Abort.
+