Skip to content

GitLab

Commit 0d981f42 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Add lemma dec_agree_core_id.

parent 4e7e8579
Hide whitespace changes
Inline Side-by-side
algebra/dec_agree.v
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.
......
Supports Markdown
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