Commit 042cbada authored by Ralf Jung's avatar Ralf Jung

add regression test

parent 6afa0332
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.
(** Regression test for <>. *)
Definition testR := authR (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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment