Skip to content

GitLab

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

Also change the core of coPset to be the identity.

parent 06c4bfe2
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 4 deletions
algebra/coPset.v
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.
......
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