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

Lemma assoc_semfind_increase_2 :
forall (k : K) (a : Tuple) (l l' : assoc),
assoc_almost_eqm k (assoc_find l) (assoc_find l') ->
assoc_almost_eqm k (assoc_find (a :: l)) (assoc_find (a :: l')).