let get_strategy_for_from id_from =
  let kf, ki, behavior_or_loop, from = id_from in
    match ki, behavior_or_loop with
      | KglobalProperty.Id_behavior bhv ->
          let cfg = Cil2cfg.get kf in
          let pre = get_bhv_pre kf bhv in
            mk_strategy_for_fct_from cfg bhv pre from
      | _ -> Wp_parameters.not_yet_implemented "local \\from property check"