(** Connection between [find_label] and linearization. *)

(* Specifications: *)
Lemma find_label_add_branch:
forall lbl k s,
find_label lbl (add_branch s k) = find_label lbl k.
Lemma find_label_lin_block:
forall lbl k b,
find_label lbl (linearize_block b k) = find_label lbl k.