Commit 22d4a0cd authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

∈ on `listset` is decidable.

parent 91a46cc0
......@@ -38,7 +38,12 @@ Proof.
abstract (by rewrite listset_empty_alt).
Context `{!EqDecision A}.
Context `{Aeq : !EqDecision A}.
Global Instance listset_elem_of_dec : RelDecision (@{listset A}).
Proof using Aeq.
refine (λ x X, cast_if (decide (x listset_car X))); done.
Global Instance listset_intersection: Intersection (listset A) := λ l k,
let (l') := l in let (k') := k in Listset (list_intersection l' k').
Supports Markdown
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