(**************************************************)
(* assoc_find properties                          *)
(**************************************************)

Lemma assoc_semfind_commute :
forall (k0 k1 : K) (v0 v1 : V) (l : assoc),
k0 <> k1 ->
assoc_eqm (assoc_find (mkTuple k1 v1 :: mkTuple k0 v0 :: l))
(assoc_find (mkTuple k0 v0 :: mkTuple k1 v1 :: l)).