Skip to content
Snippets Groups Projects
Commit d03bc23f authored by Ralf Jung's avatar Ralf Jung
Browse files

fix na_borrow

parent 6d323ae2
No related branches found
No related tags found
No related merge requests found
Pipeline #70718 failed
...@@ -3,7 +3,7 @@ From gpfsl.logic Require Export na_invariants. ...@@ -3,7 +3,7 @@ From gpfsl.logic Require Export na_invariants.
From iris.proofmode Require Import tactics. From iris.proofmode Require Import tactics.
From iris.prelude Require Import options. From iris.prelude Require Import options.
Definition na_bor `{!invGS Σ, !lftG Σ View userE, na_invG View bot Σ} Definition na_bor {View} `{!invGS Σ, !lftG Σ View userE, na_invG View bot Σ}
(κ : lft) (tid : na_inv_pool_name) (N : namespace) (P : monPred _ _) := (κ : lft) (tid : na_inv_pool_name) (N : namespace) (P : monPred _ _) :=
( i, &{κ,i}P na_inv tid N (idx_bor_own i))%I. ( i, &{κ,i}P na_inv tid N (idx_bor_own i))%I.
...@@ -11,7 +11,7 @@ Notation "&na{ κ , tid , N }" := (na_bor κ tid N) ...@@ -11,7 +11,7 @@ Notation "&na{ κ , tid , N }" := (na_bor κ tid N)
(format "&na{ κ , tid , N }") : bi_scope. (format "&na{ κ , tid , N }") : bi_scope.
Section na_bor. Section na_bor.
Context `{!invGS Σ, !lftG Σ View userE, na_invG View bot Σ} Context {View} `{!invGS Σ, !lftG Σ View userE, na_invG View bot Σ}
(tid : na_inv_pool_name) (N : namespace). (tid : na_inv_pool_name) (N : namespace).
Global Instance na_bor_ne κ n : Proper (dist n ==> dist n) (na_bor κ tid N). Global Instance na_bor_ne κ n : Proper (dist n ==> dist n) (na_bor κ tid N).
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment