diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-04-10 18:35:18 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-04-10 18:35:52 +0200 |
| commit | 2e6a89238dc7197057d0da80a16f4b4b1e41bfd8 (patch) | |
| tree | 472fd079e6177b4006094a72450706eb39e6f961 /test-suite/success/rewrite_evar.v | |
| parent | d331543b7b759bb97ea1ece32501cd0149627e9f (diff) | |
Adding a test for 'rewrite in *' when an evar is solved by side-effect.
Diffstat (limited to 'test-suite/success/rewrite_evar.v')
| -rw-r--r-- | test-suite/success/rewrite_evar.v | 8 |
1 files changed, 8 insertions, 0 deletions
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. |