Skip to content
Snippets Groups Projects
Commit 0d981f42 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Add lemma dec_agree_core_id.

parent 4e7e8579
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 0 deletions
algebra/dec_agree.v
+ 3
− 0
View file @ 0d981f42
...@@ -45,6 +45,9 @@ Qed. ...@@ -45,6 +45,9 @@ Qed.
Canonical Structure dec_agreeR : cmraT := discreteR dec_agree_ra. Canonical Structure dec_agreeR : cmraT := discreteR dec_agree_ra.
(* Some properties of this CMRA *) (* Some properties of this CMRA *)
Lemma dec_agree_core_id (x : dec_agree A) : core x = x.
Proof. done. Qed.
Lemma dec_agree_ne a b : a ≠ b → DecAgree a ⋅ DecAgree b = DecAgreeBot. Lemma dec_agree_ne a b : a ≠ b → DecAgree a ⋅ DecAgree b = DecAgreeBot.
Proof. intros. by rewrite /= decide_False. Qed. Proof. intros. by rewrite /= decide_False. Qed.
......
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