Notation predk := (@predk K V).Notation predCk := (@predCk K V).Structure finMap : Type := FinMap {
  seq_of : seq (K * V);
  _ : sorted ord (map key seq_of)}.Structure finMap : Type := FinMap {
  seq_of : seq (K * V);
  _ : sorted ord (map key seq_of)}.Structure finMap : Type := FinMap {
  seq_of : seq (K * V);
  _ : sorted ord (map key seq_of)}.Identity Coercion finMap_for_finMap : finMap_for >-> finMap.Notation "{ 'finMap' fT }" := (finMap_for (Phant fT))
  (at level 0, format "{ 'finMap'  '[hv' fT ']' }") : type_scope.Notation fmap := (finMap K V).Notation key := (@key K V).

(* Specifications: *)
Lemma fmapE (s1 s2 : fmap) : s1 = s2 <-> seq_of s1 = seq_of s2.