From 2e6a89238dc7197057d0da80a16f4b4b1e41bfd8 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Mon, 10 Apr 2017 18:35:18 +0200
Subject: Adding a test for 'rewrite in *' when an evar is solved by
 side-effect.

---
 test-suite/success/rewrite_evar.v | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 test-suite/success/rewrite_evar.v

(limited to 'test-suite')

diff --git a/test-suite/success/rewrite_evar.v b/test-suite/success/rewrite_evar.v
new file mode 100644
index 000000000..f7ad261cb
--- /dev/null
+++ b/test-suite/success/rewrite_evar.v
@@ -0,0 +1,8 @@
+Require Import Coq.Setoids.Setoid.
+
+Goal forall (T2 MT1 MT2 : Type) (x : T2) (M2 m2 : MT2) (M1 m1 : MT1) (F : T2 -> MT1 -> MT2 -> Prop),
+    (forall (defaultB : T2) (m3 : MT1) (m4 : MT2), F defaultB m3 m4 <-> True) -> F x M1 M2 -> F x m1 m2.
+  intros ????????? H' H.
+  rewrite (H' _) in *.
+  (** The above rewrite should also rewrite in H. *)
+  Fail progress rewrite H' in H.
-- 
cgit v1.2.3