Prove missing proper instances for inv

2e2e756b · Ralf Jung · 9da19881 · 2e2e756b
Commit 2e2e756b authored Mar 22, 2017 by Ralf Jung
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 0 deletions

theories/base_logic/lib/invariants.v theories/base_logic/lib/invariants.v +6 -0

No files found.
--- 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.