aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-10-11 14:37:19 +0200
committerPierre-Marie Pédrot2020-10-11 14:38:24 +0200
commitbdd2b322d26419ee9944b804e580d5b039631569 (patch)
tree2129443444ce9f490ac2813b33b040624685060d /test-suite
parent516a7009b08c443a74ef7f3175fff1337e71b668 (diff)
Fix #13169: vm_compute has existential crisis.
We simply use evars instance in the right order while reading back VM values.
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/bugs/closed/bug_13169.v14
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/bug_13169.v b/test-suite/bugs/closed/bug_13169.v
new file mode 100644
index 0000000000..a0b564c725
--- /dev/null
+++ b/test-suite/bugs/closed/bug_13169.v
@@ -0,0 +1,14 @@
+Goal False.
+Proof.
+ set (H1:=I).
+ set (x:=true).
+ assert (H2: x = true) by reflexivity.
+ set (y:=false).
+ assert (H3: y = false) by reflexivity.
+ clearbody H1 x y.
+ eenough (H4: _ = false).
+ vm_compute in H4.
+ (* H4 now has "x:=y" in the evar context. *)
+ 2: exact H3.
+ match type of H4 with y = false => idtac end.
+Abort.