From 873f2d0abb81d8acfec8eddd4c58a7240c52bab7 Mon Sep 17 00:00:00 2001
From: Jacques-Henri Jourdan <jacques-henri.jourdan@normalesup.org>
Date: Mon, 7 Aug 2017 11:17:50 +0200
Subject: [PATCH] Add instances to boxes.

---
 theories/base_logic/lib/boxes.v | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/theories/base_logic/lib/boxes.v b/theories/base_logic/lib/boxes.v
index 4151452bc..7a4b2b747 100644
--- a/theories/base_logic/lib/boxes.v
+++ b/theories/base_logic/lib/boxes.v
@@ -62,6 +62,8 @@ Global Instance slice_ne γ : NonExpansive (slice N γ).
 Proof. solve_proper. Qed.
 Global Instance slice_contractive γ : Contractive (slice N γ).
 Proof. solve_contractive. Qed.
+Global Instance slice_proper γ : Proper ((≡) ==> (≡)) (slice N γ).
+Proof. apply ne_proper, _. Qed.
 
 Global Instance slice_persistent γ P : PersistentP (slice N γ P).
 Proof. apply _. Qed.
@@ -70,6 +72,8 @@ Global Instance box_contractive f : Contractive (box N f).
 Proof. solve_contractive. Qed.
 Global Instance box_ne f : NonExpansive (box N f).
 Proof. apply (contractive_ne _). Qed.
+Global Instance box_proper f : Proper ((≡) ==> (≡)) (box N f).
+Proof. apply ne_proper, _. Qed.
 
 Lemma box_own_auth_agree γ b1 b2 :
   box_own_auth γ (● Excl' b1) ∗ box_own_auth γ (◯ Excl' b2) ⊢ ⌜b1 = b2⌝.
-- 
GitLab