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

Prove core ∅ ≡ ∅.

parent edc30b17
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 0 deletions
algebra/cmra.v
+ 2
− 0
View file @ ecff0735
...@@ -344,6 +344,8 @@ Section unit. ...@@ -344,6 +344,8 @@ Section unit.
Proof. by intros x; rewrite (comm op) left_id. Qed. Proof. by intros x; rewrite (comm op) left_id. Qed.
Global Instance cmra_unit_persistent : Persistent ∅. Global Instance cmra_unit_persistent : Persistent ∅.
Proof. by rewrite /Persistent -{2}(cmra_core_l ∅) right_id. Qed. Proof. by rewrite /Persistent -{2}(cmra_core_l ∅) right_id. Qed.
Lemma cmra_core_unit : core (∅:A) ≡ ∅.
Proof. by rewrite -{2}(cmra_core_l ∅) right_id. Qed.
End unit. End unit.
(** ** Local updates *) (** ** Local updates *)
......
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