let build_strategy_for_froms config =
  let spec = Kernel_function.get_spec config.kf in
  match config.cur_bhv with 
    | StmtBhv (_n, _s, _b) -> 
        Wp_parameters.not_yet_implemented "froms in stmt bhv"
    | FunBhv b -> 
        let bhv = get_behav config Kglobal spec.spec_behavior in
          match bhv with
            | None -> 
                if b <> Cil.default_behavior_name then
                Wp_parameters.warning 
                  "function behavior '%s' not found" b; []
            | Some bhv ->
                let pre = add_fct_pre config empty_acc spec in
                  (* precond of the function + assumes of the behavior *)
                let add_assign_strategy (n, acc) assign =
                  let stg = mk_assign_strategy_for_froms 
                              config bhv pre n assign in 
                    (n+1, stg::acc)
                in 
                let _, acc = 
                  List.fold_left add_assign_strategy (1, []) bhv.b_assigns 
                in
                  acc