aboutsummaryrefslogtreecommitdiff
path: root/src/Util/Relations.v
diff options
context:
space:
mode:
Diffstat (limited to 'src/Util/Relations.v')
-rw-r--r--src/Util/Relations.v5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Util/Relations.v b/src/Util/Relations.v
index aa280db26..4612fa8a8 100644
--- a/src/Util/Relations.v
+++ b/src/Util/Relations.v
@@ -27,3 +27,8 @@ Proof.
logic; try match goal with [H:_|-_] => (rewrite H || rewrite <-H); assumption end.
repeat (assumption||reflexivity||econstructor); assumption. (* WHY the last [assumption]?*)
Qed.
+
+Lemma iff_R_R_same_r {T R} {Req:@Equivalence T R} x y ref : R x y -> (R x ref <-> R y ref).
+Proof.
+ intro Hx; rewrite Hx; clear Hx. reflexivity.
+Qed. \ No newline at end of file