From c9ed485e5521c4ebead81d48d66a782b3a46ca4f Mon Sep 17 00:00:00 2001
From: Jason Gross <jgross@mit.edu>
Date: Mon, 22 Apr 2019 16:54:50 -0400
Subject: Add push_rew_fun_dep

---
 src/Util/Equality.v | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Util/Equality.v b/src/Util/Equality.v
index d1a711821..693cc5d7d 100644
--- a/src/Util/Equality.v
+++ b/src/Util/Equality.v
@@ -158,3 +158,7 @@ Proof. intros; subst; reflexivity. Defined.
 Lemma fg_equal_rel {A B R} (f g : A -> B) (x y : A)
   : (pointwise_relation _ R) f g -> x = y -> R (f x) (g y).
 Proof. cbv [pointwise_relation]; intros; subst; trivial. Qed.
+
+Lemma push_rew_fun_dep A P Q a b (pf : a = b) f x
+  : (rew [fun x : A => P x -> Q x] pf in f) x = (rew [Q] pf in (f (rew <- [P] pf in x))).
+Proof. subst; reflexivity. Defined.
-- 
cgit v1.2.3