let start_edge cfg = match succ_e cfg (cfg_start cfg) with [e] -> e
  | _ -> Wp_parameters.fatal "[cfg] should have exactly ONE starting edge !"