Commit ecff0735 authored by Robbert Krebbers's avatar Robbert Krebbers

Prove core ∅ ≡ ∅.

parent edc30b17
...@@ -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 *)
......
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