diff --git a/theories/heap_lang/lib/lock.v b/theories/heap_lang/lib/lock.v index f16c450e468d45fc1a527d940249e6863ad888ca..5796f1f917d042e881c67e3ecd5177eaa6a0dc99 100644 --- a/theories/heap_lang/lib/lock.v +++ b/theories/heap_lang/lib/lock.v @@ -26,6 +26,8 @@ Structure lock Σ `{!heapG Σ} := Lock { {{{ is_lock N γ lk R ∗ locked γ ∗ R }}} release lk {{{ RET #(); True }}} }. + + Arguments newlock {_ _} _. Arguments acquire {_ _} _. Arguments release {_ _} _. @@ -34,6 +36,6 @@ Arguments locked {_ _} _ _. Existing Instances is_lock_ne is_lock_persistent locked_timeless. -Instance is_lock_proper Σ `{!heapG Σ} (L: lock Σ) N lk R: - Proper ((≡) ==> (≡)) (is_lock L N lk R) := ne_proper _. +Instance is_lock_proper Σ `{!heapG Σ} (L: lock Σ) N γ lk: + Proper ((≡) ==> (≡)) (is_lock L N γ lk) := ne_proper _.