diff --git a/barrier/lifting.v b/barrier/lifting.v index 4945c0e92208b484857392bb27d7070b5a18c7a7..6251fafc4dd8920804b330a53ebdbbfa40532f20 100644 --- a/barrier/lifting.v +++ b/barrier/lifting.v @@ -23,7 +23,7 @@ Lemma wp_alloc_pst E σ e v Q : Proof. intros. set (φ v' σ' := ∃ l, v' = LocV l ∧ σ' = <[l:=v]>σ ∧ σ !! l = None). rewrite -(wp_lift_atomic_step (Alloc e) φ σ) // /φ; - last by intros; inv_step; eauto 10. + last by intros; inv_step; eauto 8. apply sep_mono, later_mono; first done. apply forall_intro=>e2; apply forall_intro=>σ2; apply wand_intro_l. rewrite always_and_sep_l' -associative -always_and_sep_l'.