Canonical Structure fmap_eqType := EqType (finMap K V) fmap_eqMixin.
End EqType.
(* mapping a function over a contents of a finite map *)
Section Map.
Variables (K : ordType) (U V : Type) (f : U -> V).
Definition mapf' (m : seq (K * U)) : seq (K * V) :=
map (fun kv => (key kv, f (value kv))) m.

Lemma mapf_ins k v s : mapf (ins k v s) = ins k (f v) (mapf s).