(**************************************************)
(*  some decidability properties                  *)
(**************************************************)

Lemma assoc_hasmem_ex_dec :
forall (Veq_dec : forall x y : V, {x = y} + {x <> y})
(l : assoc) (k : K) (v : V),
{(exists v : V, assoc_hasmem l k v)} +
{~ (exists v : V, assoc_hasmem l k v)}.