(* OK: *)

Theorem degree_L1_split_x_y0:
forall(m:fmap)(x y:dart)(j:nat),
let m1:= L m one x y in
let y0 := cA m zero y in
let dx:= MF.degree m x in
y0 = Iter (cF m) j x ->
inv_hmap m1 ->
j < dx -1 ->
expf m x y0 ->
MF.degree m1 x = j + 1.