let call_post_for_froms kf tk = 
  Wp_parameters.debug ~level:3 "[call_post_for_froms] for %a@."
    Kernel_function.pretty_name  kf;
  let spec = Kernel_function.get_spec kf in
  let posts = WpFroms.post_of_assigns_in_spec kf Kglobal spec tk in
  let mk_prop (bhv, post) =
    let p = Logic_const.pred_of_id_pred post in
    let id = mk_fct_post_id kf bhv Normal post in
      (id,p)
  in List.map mk_prop posts