From 26de02a9a351f1d7a9652096632628566c59f252 Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Thu, 11 Aug 2022 13:37:14 -0400
Subject: [PATCH] add limit_preserving_iff

---
 iris/algebra/ofe.v | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/iris/algebra/ofe.v b/iris/algebra/ofe.v
index 62dda575a..1fc18c69f 100644
--- a/iris/algebra/ofe.v
+++ b/iris/algebra/ofe.v
@@ -307,6 +307,16 @@ Section limit_preserving.
     eapply Hlim1, HP1. apply dist_le with n; last lia. apply (conv_compl n).
   Qed.
 
+  (** This is strictly weaker than the [_impl] variant, but sometimes automation
+      is better at proving [Proper] for [iff] than for [impl]. *)
+  Lemma limit_preserving_iff (P1 P2 : A → Prop) :
+    Proper (dist 0 ==> iff) P1 → LimitPreserving P2 →
+    LimitPreserving (λ x, P1 x → P2 x).
+  Proof.
+    intros HP1. apply limit_preserving_impl. intros ???.
+    apply iff_impl_subrelation. eapply HP1. done.
+  Qed.
+
   Lemma limit_preserving_forall {B} (P : B → A → Prop) :
     (∀ y, LimitPreserving (P y)) →
     LimitPreserving (λ x, ∀ y, P y x).
-- 
GitLab