From 5562729887f61affeb12c5566f1b26eaf2727893 Mon Sep 17 00:00:00 2001
From: Jason Gross <jgross@mit.edu>
Date: Wed, 5 Apr 2017 02:51:16 -0400
Subject: Add Tactics.ChangeInAll

---
 src/Util/Tactics/ChangeInAll.v | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 src/Util/Tactics/ChangeInAll.v

(limited to 'src/Util/Tactics')

diff --git a/src/Util/Tactics/ChangeInAll.v b/src/Util/Tactics/ChangeInAll.v
new file mode 100644
index 000000000..865a723da
--- /dev/null
+++ b/src/Util/Tactics/ChangeInAll.v
@@ -0,0 +1,7 @@
+(** Work around "Cannot create self-referring hypothesis" coming from
+    [change x with y in *] *)
+Local Ltac change_in_all from to :=
+  change from with to;
+  repeat match goal with
+         | [ H : _ |- _ ] => progress change from with to in H
+         end.
-- 
cgit v1.2.3