(*==========================================================  2008 JORDAN NEW FORMALIZATION:  ==========================================================*)
(* ======================================================= EQUIVALENCE AND top/bottom =========================================================*)
(* OK: *)

(* Specifications: *)
Lemma eqc_bottom_top: forall(m:fmap)(k:dim)(x:dart),
inv_hmap m -> exd m x ->
(eqc m x (bottom m k x) /\ eqc m x (top m k x)).