(* OK: *)

Lemma cF_L1_x10_y_1:forall(m:fmap)(x y:dart)(j:nat),
inv_hmap m -> prec_L m one x y ->
let y0 := cA m zero y in
let y_1:= cA_1 m one y in
let x1:= cA m one x in
let x10:= cA m zero x1 in
let dx := MF.degree m x in
let m1:= L m one x y in
y0 = Iter (cF m) j x -> expf m x y0 ->
j < dx - 1 ->
Iter (cF m1) (dx - (j + 1)) y_1 = y_1.