Skip to content
Snippets Groups Projects
Verified Commit 3cebc8a1 authored by Paolo G. Giarrusso's avatar Paolo G. Giarrusso
Browse files

na_invariants: deduplicate proof of fresh_inv_name

parent 0fc3d8cc
No related branches found
No related tags found
No related merge requests found
......@@ -80,12 +80,8 @@ Section proofs.
iMod (own_updateP with "Hempty") as ([m1 m2]) "[Hm Hown]".
{ apply prod_updateP'.
- apply cmra_updateP_id, (reflexivity (R:=eq)).
- apply (gset_disj_alloc_empty_updateP_strong' (λ i, i (N:coPset))).
intros Ef. exists (coPpick ( N gset_to_coPset Ef)).
rewrite -elem_of_gset_to_coPset comm -elem_of_difference.
apply coPpick_elem_of=> Hfin.
eapply nclose_infinite, (difference_finite_inv _ _), Hfin.
apply gset_to_coPset_finite. }
- apply (gset_disj_alloc_empty_updateP_strong' (λ i, i (N:coPset)))=> Ef.
apply fresh_inv_name. }
simpl. iDestruct "Hm" as %(<- & i & -> & ?).
rewrite /na_inv.
iMod (inv_alloc N with "[-]"); last (iModIntro; iExists i; eauto).
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment