Commit c99ab2e5 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Also change the core of coPset to be the identity.

parent 06c4bfe2
...@@ -12,11 +12,11 @@ Section coPset. ...@@ -12,11 +12,11 @@ Section coPset.
Instance coPset_valid : Valid coPset := λ _, True. Instance coPset_valid : Valid coPset := λ _, True.
Instance coPset_op : Op coPset := union. Instance coPset_op : Op coPset := union.
Instance coPset_pcore : PCore coPset := λ _, Some . Instance coPset_pcore : PCore coPset := Some.
Lemma coPset_op_union X Y : X Y = X Y. Lemma coPset_op_union X Y : X Y = X Y.
Proof. done. Qed. Proof. done. Qed.
Lemma coPset_core_empty X : core X = . Lemma coPset_core_self X : core X = X.
Proof. done. Qed. Proof. done. Qed.
Lemma coPset_included X Y : X Y X Y. Lemma coPset_included X Y : X Y X Y.
Proof. Proof.
...@@ -33,8 +33,7 @@ Section coPset. ...@@ -33,8 +33,7 @@ Section coPset.
- solve_proper. - solve_proper.
- intros X1 X2 X3. by rewrite !coPset_op_union assoc_L. - intros X1 X2 X3. by rewrite !coPset_op_union assoc_L.
- intros X1 X2. by rewrite !coPset_op_union comm_L. - intros X1 X2. by rewrite !coPset_op_union comm_L.
- intros X. by rewrite coPset_op_union coPset_core_empty left_id_L. - intros X. by rewrite coPset_core_self idemp_L.
- intros X1 X2 _. by rewrite coPset_included !coPset_core_empty.
Qed. Qed.
Canonical Structure coPsetR := discreteR coPset coPset_ra_mixin. Canonical Structure coPsetR := discreteR coPset coPset_ra_mixin.
......
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