diff --git a/theories/base_logic/lib/invariants.v b/theories/base_logic/lib/invariants.v index 7ca2fc14458cef7cf150cb0a13f9d690c4119bd5..8866a4d181b80a1c0683ab682efbcdc22d489185 100644 --- a/theories/base_logic/lib/invariants.v +++ b/theories/base_logic/lib/invariants.v @@ -25,6 +25,12 @@ Proof. rewrite inv_eq=> n ???. apply exist_ne=>i. by apply and_ne, ownI_contractive. Qed. +Global Instance inv_ne N : NonExpansive (inv N). +Proof. apply contractive_ne, _. Qed. + +Global Instance inv_Proper N : Proper ((⊣⊢) ==> (⊣⊢)) (inv N). +Proof. apply ne_proper, _. Qed. + Global Instance inv_persistent N P : PersistentP (inv N P). Proof. rewrite inv_eq /inv; apply _. Qed.