let ki_assigns_labels ki =
  let l_begin, norm_labels = match ki with
    | Kglobal ->
        Logic_const.pre_label, NormAtLabels.labels_fct_assigns
    | Kstmt s ->
        let l_post = (* TODO *) None in
        Cil2cfg.mk_logic_label s, NormAtLabels.labels_stmt_assigns s l_post
  in l_begin, norm_labels