From 40b3661818d9ef471fabb54d9c680a709f236bdb Mon Sep 17 00:00:00 2001
From: "Paolo G. Giarrusso" <p.giarrusso@gmail.com>
Date: Thu, 16 May 2019 14:02:17 +0200
Subject: [PATCH] Export that iPreProp is a Cofe

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

diff --git a/theories/base_logic/lib/iprop.v b/theories/base_logic/lib/iprop.v
index 67424971d..58a3f135c 100644
--- a/theories/base_logic/lib/iprop.v
+++ b/theories/base_logic/lib/iprop.v
@@ -122,6 +122,7 @@ Module Type iProp_solution_sig.
   Notation iPropI Σ := (uPredI (iResUR Σ)).
   Notation iPropSI Σ := (uPredSI (iResUR Σ)).
 
+  Global Declare Instance iPreProp_cofe: Cofe (iPreProp Σ).
   Parameter iProp_unfold: ∀ {Σ}, iProp Σ -n> iPreProp Σ.
   Parameter iProp_fold: ∀ {Σ}, iPreProp Σ -n> iProp Σ.
   Parameter iProp_fold_unfold: ∀ {Σ} (P : iProp Σ),
@@ -140,6 +141,7 @@ Module Export iProp_solution : iProp_solution_sig.
     ofe_funUR (λ i, gmapUR gname (Σ i (iPreProp Σ))).
   Notation iProp Σ := (uPredC (iResUR Σ)).
 
+  Global Instance iPreProp_cofe: Cofe (iPreProp Σ) := _.
   Definition iProp_unfold {Σ} : iProp Σ -n> iPreProp Σ :=
     solution_fold (iProp_result Σ).
   Definition iProp_fold {Σ} : iPreProp Σ -n> iProp Σ := solution_unfold _.
-- 
GitLab