let mk_assign_post kf bhv nth termination_kind (output, _) =
match build_post_output termination_kind output with
| None -> None
| Some out' ->
let linfos = get_pred_linfo kf Kglobal bhv nth out'.term_type in
let p = Logic_const.papp (linfos, [], [out']) in
Some (Logic_const.new_predicate p)