diff --git a/program_logic/boxes.v b/program_logic/boxes.v index 8657892f1f1b3a972641dca84563d60a86023327..e81180b7981883bb0940fa9cacbb226e59f36fc8 100644 --- a/program_logic/boxes.v +++ b/program_logic/boxes.v @@ -70,8 +70,7 @@ Proof. rewrite /box_own_prop -!own_op own_valid_l prod_validI; iIntros "[[Hb _] Hγ]". iDestruct "Hb" as % [[[] [= ->]%leibniz_equiv] ?]%auth_valid_discrete. iApply (@own_update with "Hγ"); apply prod_update; simpl; last reflexivity. - rewrite -{1}(right_id ∅ _ (Excl' b2)) -{1}(right_id ∅ _ (Excl' b3)). - by apply auth_update, option_local_update, exclusive_local_update. + by apply auth_update_no_frame, option_local_update, exclusive_local_update. Qed. Lemma box_own_agree γ Q1 Q2 :