Commit 7b0417ad authored by Ralf Jung's avatar Ralf Jung


parent 998df552
......@@ -61,7 +61,7 @@ Instance agree_unit : Unit (agree A) := id.
Instance agree_minus : Minus (agree A) := λ x y, x.
Instance: Comm () (@op (agree A) _).
Proof. intros x y; split; [naive_solver|by intros n (?&?&Hxy); apply Hxy]. Qed.
Definition agree_idemp (x : agree A) : x x x.
Lemma agree_idemp (x : agree A) : x x x.
Proof. split; naive_solver. Qed.
Instance: n : nat, Proper (dist n ==> impl) (@validN (agree A) _ n).
......@@ -47,3 +47,5 @@ Proof.
Canonical Structure dec_agreeRA : cmraT := discreteRA dec_agree_ra.
End dec_agree.
\ No newline at end of file
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