(*========================================================= nf / B0 : OK ===========================================================*)
(* OK: *)

(* Specifications: *)
Lemma B_L:forall(m:fmap)(k j:dim)(x y z:dart),
x <> z ->
B (L m k x y) j z = L (B m j z) k x y.
Lemma B_L_ter:forall(m:fmap)(k j:dim)(x y z:dart),
j <> k ->
B (L m k x y) j z = L (B m j z) k x y.