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)