From 042cbada4541b1c12d3b6bea2b70287ad01316d5 Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Wed, 18 Mar 2020 18:56:02 +0100
Subject: [PATCH] add regression test

---
 tests/algebra.v | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/tests/algebra.v b/tests/algebra.v
index 92c42c4b4..cff006b35 100644
--- a/tests/algebra.v
+++ b/tests/algebra.v
@@ -1,3 +1,4 @@
+From iris.algebra Require Import auth excl.
 From iris.base_logic.lib Require Import invariants.
 
 (** Make sure that the same [Equivalence] instance is picked for Leibniz OFEs
@@ -34,3 +35,16 @@ Proof.
   - apply _.
   - reflexivity.
 Qed.
+
+(** Regression test for <https://gitlab.mpi-sws.org/iris/iris/issues/255>. *)
+Definition testR := authR (prodUR
+        (prodUR
+          (optionUR (exclR unitO))
+          (optionUR (exclR unitO)))
+        (optionUR (agreeR (boolO)))).
+Section test_prod.
+  Context `{!inG Σ testR}.
+  Lemma test_prod_persistent γ :
+    Persistent (PROP:=iPropI Σ) (own γ (◯((None, None), Some (to_agree true)))).
+  Proof. apply _. Qed.
+End test_prod.
-- 
GitLab