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

Also change the core of coPset to be the identity.

parent 06c4bfe2
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 4 deletions
algebra/coPset.v
+ 3
− 4
View file @ c99ab2e5
......@@ -12,11 +12,11 @@ Section coPset.
Instance coPset_valid : Valid coPset := λ _, True.
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.
Proof. done. Qed.
Lemma coPset_core_empty X : core X = ∅.
Lemma coPset_core_self X : core X = X.
Proof. done. Qed.
Lemma coPset_included X Y : X ≼ Y ↔ X ⊆ Y.
Proof.
......@@ -33,8 +33,7 @@ Section coPset.
- solve_proper.
- intros X1 X2 X3. by rewrite !coPset_op_union assoc_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 X1 X2 _. by rewrite coPset_included !coPset_core_empty.
- intros X. by rewrite coPset_core_self idemp_L.
Qed.
Canonical Structure coPsetR := discreteR coPset coPset_ra_mixin.
......
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