(*========================================================== PROPERTIES ON B ===========================================================*)

(* Specifications: *)
Lemma B_idem:forall(m:fmap)(k:dim)(x:dart),
inv_hmap m -> B (B m k x) k x = B m k x.
Lemma nc_B_sup:forall(m:fmap)(k:dim)(x:dart),
inv_hmap m -> nc (B m k x) >= nc m.