From 593a7a89eca8be33f4b64fe5ea1d5522df28db09 Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Wed, 17 Mar 2021 10:23:00 +0100
Subject: [PATCH] tweaks by Robbert

---
 iris/algebra/local_updates.v | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/iris/algebra/local_updates.v b/iris/algebra/local_updates.v
index ab6bffffa..dd679d26f 100644
--- a/iris/algebra/local_updates.v
+++ b/iris/algebra/local_updates.v
@@ -173,13 +173,14 @@ Proof.
 Qed.
 
 Lemma option_local_update_None {A: ucmra} (x x' y': A):
-  (x, ε) ~l~> (x', y') -> (Some x, None) ~l~> (Some x', Some y').
+  (x, ε) ~l~> (x', y') ->
+  (Some x, None) ~l~> (Some x', Some y').
 Proof.
-  intros HUp. apply local_update_unital. intros ? ?.
-  rewrite ucmra_unit_left_id => HValid HEq. rewrite -HEq.
-  destruct (HUp n (Some x)); rewrite /= //.
-  - by rewrite ucmra_unit_left_id.
-  - simpl in *. split; try done. rewrite -Some_op. by constructor.
+  intros Hup. apply local_update_unital=> n mz.
+  rewrite left_id=> ? <-.
+  destruct (Hup n (Some x)); simpl in *; first done.
+  - by rewrite left_id.
+  - split; first done. rewrite -Some_op. by constructor.
 Qed.
 
 Lemma alloc_option_local_update {A : cmra} (x : A) y :
-- 
GitLab