diff options
author | Jason Gross <jgross@mit.edu> | 2019-04-22 16:54:50 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2019-04-22 16:54:50 -0400 |
commit | c9ed485e5521c4ebead81d48d66a782b3a46ca4f (patch) | |
tree | e67db69de73f27925b0940b994b0a6a967d9c1d2 /src/Util | |
parent | 375fa6522a9685d3a217123ebb3a8c4b13eff5b8 (diff) |
Add push_rew_fun_dep
Diffstat (limited to 'src/Util')
-rw-r--r-- | src/Util/Equality.v | 4 |
1 files changed, 4 insertions, 0 deletions
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. |