let get_strategy_for_from id_from =
let kf, ki, behavior_or_loop, from = id_from in
match ki, behavior_or_loop with
| Kglobal, Property.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"