diff --git a/iris/algebra/local_updates.v b/iris/algebra/local_updates.v index ab6bffffa5be263e8500a9ee10142ab169e188d0..dd679d26ff1cade494e850a338e354a670b714e5 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 :