(* FROM WHERE "THE" GREAT RESULT ABOUT THE DEGREES: *)
(* CHANGER LES NOMS... *)

Theorem degree_L1_merge_x: forall(m:fmap)(x y:dart),
let m1:= L m one x y in
let y0 := cA m zero y in
inv_hmap m1 -> ~expf m x y0 ->
MF.degree m1 x = MF.degree m x + MF.degree m y0.