(**************************************************)
(* mem/hasmem connectivity                        *)
(**************************************************)

(* Specifications: *)
Lemma assoc_hasmem_mem :
forall (l : assoc) (k : K) (v : V), assoc_hasmem l k v -> assoc_mem l k.
Lemma assoc_mem_hasmem :
forall (l : assoc) (k : K),
assoc_mem l k -> exists v : V, assoc_hasmem l k v.