Skip to content

GitLab

I
Iris
Commit adfa0752 authored by Ralf Jung's avatar Ralf Jung
Browse files
Options

show na_own_acc

parent e2b84307
Pipeline #3454 passed with stage
    in 11 minutes and 29 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 7 additions and 0 deletions
    theories/base_logic/lib/na_invariants.v
    View file @ adfa0752
    ......@@ -53,6 +53,13 @@ Section proofs.
    intros ?. by rewrite /na_own -own_op pair_op left_id coPset_disj_union.
    Qed.
    Lemma na_own_acc E2 E1 tid :
    E2 ⊆ E1 → na_own tid E1 -∗ na_own tid E2 ∗ (na_own tid E2 -∗ na_own tid E1).
    Proof.
    intros HF. assert (E1 = E2 ∪ (E1 ∖ E2)) as -> by exact: union_difference_L.
    rewrite na_own_union; last by set_solver+. iIntros "[$ $]". auto.
    Qed.
    Lemma na_inv_alloc p E N P : ▷ P ={E}=∗ na_inv p N P.
    Proof.
    iIntros "HP".
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment