From 08899f71b7a6c09ad53909a75ca1ed3c2638e745 Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Tue, 12 Jan 2021 18:01:02 +0100
Subject: [PATCH] strengthen cmra_op_discrete

---
 iris/algebra/cmra.v | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/iris/algebra/cmra.v b/iris/algebra/cmra.v
index cc705a746..d4cb19cce 100644
--- a/iris/algebra/cmra.v
+++ b/iris/algebra/cmra.v
@@ -549,11 +549,11 @@ Qed.
 Lemma cmra_discrete_included_r x y : Discrete y → x ≼{0} y → x ≼ y.
 Proof. intros ? [x' ?]. exists x'. by apply (discrete y). Qed.
 Lemma cmra_op_discrete x1 x2 :
-  ✓ (x1 ⋅ x2) → Discrete x1 → Discrete x2 → Discrete (x1 ⋅ x2).
+  ✓{0} (x1 ⋅ x2) → Discrete x1 → Discrete x2 → Discrete (x1 ⋅ x2).
 Proof.
   intros ??? z Hz.
   destruct (cmra_extend 0 z x1 x2) as (y1&y2&Hz'&?&?); auto; simpl in *.
-  { rewrite -?Hz. by apply cmra_valid_validN. }
+  { rewrite -?Hz. done. }
   by rewrite Hz' (discrete x1 y1) // (discrete x2 y2).
 Qed.
 
-- 
GitLab