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