(* Changing k-links: effect: breaking/merging of orbits *)

(* Precondition for hmaps: *)

Definition prec_lh (m:fmap)(k:dim)(x y:dart)
  := exd m x /\ exd m y /\ y <> A m k x.(* Note that the construction of fixpoints is allowed: *)

Definition l (m:fmap)(k:dim)(x y:dart) :=
   let xk  := (A m k x) in
   let y_k := (A_1 m k y) in
   let m1 := (B_1 (B m k x) k y) in
   (L (L m1 k x y) k y_k xk).

Lemma inv_hmap_l_2: forall (m:fmap)(k:dim)(x y:dart), inv_hmap m -> prec_lh m k x y -> (forall (x0 : dart) (k0 : dim), exd (l m k x y) x0 -> succ (l m k x y) k0 x0 /\ pred (l m k x y) k0 x0).